1

// YML2 standardlib version 2.5.8

     2

     3

function "yml:hex2dec" {

     4

    param "hex";

     5

    param "_result", 0;

     6

     7

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

     8

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

     9

        '123456123456000000000')""";

    10

    11

    const "d" choose {

    12

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

    13

        otherwise value "$hd";

    14

    }

    15

    16

    choose {

    17

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

    18

            value "$_result * 16 + $d";

    19

        otherwise call "yml:hex2dec"

    20

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

    21

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

    22

    }

    23

}

    24

    25

function "yml:dec2hex" {

    26

    param "dec";

    27

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

    28

    29

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

    30

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

    31

    32

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

    33

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

    34

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

    35

}

    36

    37

def "yml:dec2hex" {

    38

    param "dec";

    39

    param "digits", 8;

    40

    41

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

    42

}

    43

    44

def "yml:hex2dec" {

    45

    param "hex";

    46

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

    47

}

    48

    49

def "yml:lcase" {

    50

    param "text", "''";

    51

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

    52

}

    53

    54

def "yml:ucase" {

    55

    param "text", "''";

    56

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

    57

}

    58

    59

def "yml:mixedCase" {

    60

    param "text", "''";

    61

    result "concat(yml:lcase(substring($text,1,1)),substring($text,2))";

    62

}

    63

    64

def "yml:capit" {

    65

    param "text", "''";

    66

    result "concat(yml:ucase(substring($text,1,1)),substring($text,2))";

    67

}

    68