1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
##
## wml::std::case - Convert Tags to Upper or Lower Case
## Copyright (c) 1997-2001 Ralf S. Engelschall, All Rights Reserved.
##
<define-tag case:upper endtag=required whitespace=delete>
<tagconv case=upper>%body</tagconv>
</define-tag>
<define-tag case:lower endtag=required whitespace=delete>
<tagconv case=lower>%body</tagconv>
</define-tag>
# the "#include ... global=upper" support
<when <string-eq "$(global)" "upper" />>
<tagconv case=upper>\
{#UPPERCASE_GLOBAL#}\
</tagconv>\
{#UPPERCASE_GLOBAL#:\
</when>
# the "#include ... global=lower" support
<when <string-eq "$(global)" "lower" />>
<tagconv case=lower>\
{#LOWERCASE_GLOBAL#}\
</tagconv>\
{#LOWERCASE_GLOBAL#:\
</when>
##EOF##
__END__
=head1 NAME
wml::std::case - Convert Tags to Upper or Lower Case
=head1 SYNOPSIS
#use wml::std::case [global={upper,lower}]
<case:upper>
...
</case:upper>
<case:lower>
...
</case:lower>
=head1 DESCRIPTION
The C<E<lt>case:upperE<gt>> and C<E<lt>case:lowerE<gt>> container tags convert
all HTML tags in their body either to upper or lower case. Alternatively
there is a useful variant: Adding the C<global> attribute while loading this
include file leads to a global case conversion, i.e. C<#use wml::std::case
global=upper> just converts all HTML tags of the finally generated page to
upper case.
Internally this include file uses the C<E<lt>tagconvE<gt>> container tag
provided by HTMLfix (pass 7).
=head1 AUTHOR
Ralf S. Engelschall
rse@engelschall.com
www.engelschall.com
=head1 REQUIRES
Internal: P1, P5, P6
External: --
=head1 SEE ALSO
wml_p7_htmlfix(3).
=cut
|
