##
##  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##
