Fix expension of macros in pointers with default values.

For example :

in xsl decl widget_class(%name, *clsname="%nameWidget", match="widget[@type='%name']", mode="widget_class") alias template {
| class `text **clsname` extends Widget{
content;
| }
};

widget_class('Input');

gives now :

<xsl:template match="widget[@type='Input']" mode="widget_class">
<xsl:text>class </xsl:text>
<xsl:text>InputWidget</xsl:text>
<xsl:text> extends Widget{
</xsl:text>
<xsl:text>}
</xsl:text>
</xsl:template>

Without the fix, <xsl:text>InputWidget</xsl:text> would be <xsl:text>%nameWidget</xsl:text>

     1

define operator "†(\w+)" as call "printType" with "name", "%1";

     2

define operator "“(.*?)”" as call "ucase" with "text", "%1";

     3

     4

function "ucase" {

     5

    param "text";

     6

     7

    > «translate(substring($text, 1, 1), 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')»

     8

    > «substring($text, 2)»

     9

}

    10

    11

function "printType" {

    12

    param "name";

    13

    14

    choose {

    15

        when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#UnlimitedNatural"'

    16

            > INTEGER

    17

        when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#String"'

    18

            > VARCHAR

    19

    }

    20

}