vb@0: include yslt.yml2
vb@0: 
vb@0: define operator "†(\w+)" as call "printType" with "name", "%1";
vb@0: define operator "“(.*?)”" as call "ucase" with "text", "%1";
vb@0: 
vb@0: function "ucase" {
vb@0:     param "text";
vb@0: 
vb@0:     > «translate(substring($text, 1, 1), 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')»
vb@0:     > «substring($text, 2)»
vb@0: }
vb@0: 
vb@0: function "printType" {
vb@0:     param "name";
vb@0: 
vb@0:     choose {
vb@0:         when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#UnlimitedNatural"'
vb@0:             > long
vb@0:         when '$name/@href = "http://schema.omg.org/spec/UML/2.1/uml.xml#String"'
vb@0:             > string
vb@0:     }
vb@0: }