samples/uml2idl.yml2
author Volker Birk <vb@pep-project.org>
Mon, 04 Nov 2019 11:38:34 +0100
changeset 40 432ab62b2537
parent 0 76005e62091d
permissions -rw-r--r--
date
0
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     1
include yslt.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
define operator "†(\w+)" as call "printType" with "name", "%1";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     4
define operator "“(.*?)”" as call "ucase" with "text", "%1";
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
function "ucase" {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     7
    param "text";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     8
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
     9
    > «translate(substring($text, 1, 1), 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')»
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    10
    > «substring($text, 2)»
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    11
}
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
function "printType" {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    14
    param "name";
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    15
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    16
    choose {
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    17
        when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#UnlimitedNatural"'
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    18
            > long
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    19
        when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#String"'
76005e62091d initial commit
Volker Birk <vb@pep-project.org>
parents:
diff changeset
    20
            > string
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
}