Hello Dimitre,

Your ideas of fun and one-liner (?) are evidently different to mine.
:-)

On 26/11/2007, Dimitre Novatchev <dnovatchev@xxxxxxxxx> wrote:
> > If by "nicer" you'll accept "more compact", this is what I direct my
> > students to include at the top of their stylesheets:
> >
> > <!DOCTYPE xsl:stylesheet [
> >   <!ENTITY lower 'abcdefghijklmnopqrstuvwxyz'>
> >   <!ENTITY upper 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'>
> > ]>
> > <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
> >                 version="1.0">
> >
> >
> > Then, in your stylesheet you would have:
> >
> > <xsl:variable name="pClubCaps"
> >               select="translate($pClub,'&lower;','&upper;')"/>
> >
> > But as for functionality, translate() is all we have to work with in XSLT 1.0.
>
>
> A good advice, Ken.
>
> Just for fun, here is a "pure functional one-liner" implementation of
> lower-case() using FXSL for XSLT 2.0:    :o)
>
>
> <xsl:stylesheet version="2.0"
> xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
> xmlns:xs="http://www.w3.org/2001/XMLSchema"
> xmlns:f="http://fxsl.sf.net/"
> exclude-result-prefixes="f xs"
> >
>    <xsl:import href="../f/func-map.xsl"/>
>    <xsl:import href="../f/func-zipWith.xsl"/>
>    <xsl:import href="../f/func-Operators.xsl"/>
>    <xsl:import href="../f/func-standardXpathFunctions.xsl"/>
>
> <!--
>         Expected result: "houston, we have a problem!"
> -->
>
>    <xsl:strip-space elements="*"/>
>
>    <xsl:output omit-xml-declaration="yes" indent="yes"/>
>    <xsl:strip-space elements="*"/>
>
>    <xsl:variable name="vcptA" select="string-to-codepoints('A')"/>
>    <xsl:variable name="vcptZ" select="string-to-codepoints('Z')"/>
>    <xsl:variable name="vcpta" select="string-to-codepoints('a')"/>
>    <xsl:variable name="vcptz" select="string-to-codepoints('z')"/>
>
>    <xsl:variable name="vtheCodepts"
> select="string-to-codepoints('Houston, We have a problem!')"/>
>
>    <xsl:variable name="vOffset" select="$vcpta - $vcptA"/>
>
>    <xsl:template match="/">
>      <xsl:value-of select=
>      "codepoints-to-string(
>               f:map(f:integer(),
>                     f:zipWith(f:add(),
>                               $vtheCodepts,
>                               f:map(f:mult($vOffset),
>                                     f:map(f:number(),
>                                           f:zipWith(f:and(),
>
> f:map(f:le($vcptA), $vtheCodepts),
>
> f:map(f:gt($vcpta), $vtheCodepts)
>                                                     )
>                                           )
>                                      )
>                               )
>                      )
>                            )
>                           "/>
>    </xsl:template>
> </xsl:stylesheet>
>
>
> --
> Cheers,
> Dimitre Novatchev
> ---------------------------------------
> Truly great madness cannot be achieved without significant intelligence.
> ---------------------------------------
> To invent, you need a good imagination and a pile of junk
> -------------------------------------
> You've achieved success in your field when you don't know whether what
> you're doing is work or play