1 function "yml:hex2dec" {

     2     param "hex";

     3     param "_result", 0;

     4     

     5     const "hd", "substring($hex, 1, 1)";

     6     const "a", """translate($hd, 'ABCDEFabcdef123456789',

     7         '123456123456000000000')""";

     8 

     9     const "d" choose {

    10         when "$a>0" value "$a + 9";

    11         otherwise value "$hd";

    12     }

    13 

    14     choose {

    15         when "string-length($hex) = 1"

    16             value "$_result * 16 + $d";

    17         otherwise call "yml:hex2dec"

    18             with "hex", "substring($hex, 2, 8)", 

    19             with "_result", "$_result * 16 + $d";

    20     }

    21 }

    22 

    23 function "yml:dec2hex" {

    24     param "dec";

    25     param "bits", !16**7!;

    26 

    27     const "v", "floor($dec div $bits)";

    28     value "substring('0123456789abcdef', $v + 1, 1)";

    29 

    30     if "$bits > 1" call "yml:dec2hex"

    31         with "dec", "$dec - $bits * $v",

    32         with "bits", "$bits div 16";

    33 }

    34 

    35 def "yml:dec2hex" {

    36     param "dec";

    37     param "digits", 8;

    38         

    39     result call "yml:dec2hex" with "dec", "$dec", with "bits", "math:power(16, $digits - 1)";

    40 }

    41 

    42 def "yml:hex2dec" {

    43     param "hex";

    44     result call "yml:hex2dec" with "hex", "$hex";

    45 }

    46 

    47 def "yml:lcase" {

    48     param "text", "''";

    49     result "translate($text, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')";

    50 }

    51 

    52 def "yml:ucase" {

    53     param "text", "''";

    54     result "translate($text, 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')";

    55 }