1 include yslt.yml2

     2 

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

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

     5 

     6 function "ucase" {

     7     param "text";

     8 

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

    10     > «substring($text, 2)»

    11 }

    12 

    13 function "printType" {

    14     param "name";

    15 

    16     choose {

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

    18             > long

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

    20             > string

    21     }

    22 }