samples/xmi2ddl.uml2
author Edouard Tisserant <edouard.tisserant@gmail.com>
Wed, 28 Apr 2021 23:40:51 +0200
changeset 78 0b05c2bce9e4
parent 0 76005e62091d
permissions -rw-r--r--
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>
0
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     1
include uml.yml2
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     2
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     3
UML {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     4
    include uml2sql.yml2
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     5
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     6
    Root applyPackages;
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     7
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     8
    Package {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     9
        param "name", "''";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    10
        if "$name=''"  apply "packagedElement", 0 { with "name", "@name"; }
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    11
        if "$name!=''" apply "packagedElement", 0 { with "name", "concat($name, '_', @name)"; }
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    12
    }
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    13
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    14
    Class {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    15
        param "name";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    16
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    17
        | CREATE TABLE «$name»_«@name» (
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    18
        applyAttributes;
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    19
        | );
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    20
    }
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    21
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    22
    Attribute | «@name» †type`if "position()!=last()" > ,`
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    23
}