1

// xml2yml2.ysl2 version 2.4.4

     2

     3

include yslt.yml2

     4

     5

decl textstylesheet is estylesheet(*output="text") {

     6

    output *output;

     7

    const "space", !"'" + " " * 200 + "'"!;

     8

    param "autoindent", 4;

     9

    content;

    10

}, tstylesheet is textstylesheet;

    11

    12

define operator "†" as call "convert" with "tag", "name()";

    13

    14

tstylesheet {

    15

    function "printNS"

    16

        for "*/namespace::*[local-name()!='xml']" {

    17

            > xmlns

    18

            if "not(local-name()='')"

    19

                > :«local-name()»

    20

            > ="«.»"

    21

            if "position()<last()" > , 

    22

        }

    23

    24

    template "/" {

    25

        if "count(*/namespace::*)>1" {

    26

            | decl «name(*)»(`call "printNS"`);

    27

            |

    28

        }

    29

        apply "*", 0;

    30

    }

    31

    32

    template "text()" {

    33

        param "text", "normalize-space()";

    34

    35

        if "string-length($text)>0" choose {

    36

            when "contains($text,'\\n')" choose {

    37

                when "string-length(substring-before($text,'\\n'))<string-length($text)-1" choose {

    38

                    when "substring($text,string-length($text),1)='\\n'"

    39

                        > \n||\n«$text»||\n\n

    40

                    otherwise > > «str:replace($text,'\\n','\\\\n')»\n

    41

                }

    42

                otherwise > | «$text»\n

    43

            }

    44

            otherwise > > `copy "."`\n

    45

        }

    46

    }

    47

    48

    template "*" {

    49

        0>

    50

        call "convert" with "tag", "name()";

    51

        apply "@*";

    52

    53

        choose {

    54

            when "count(*)=0 and string-length(normalize-space())=0"

    55

                > ;\n

    56

            when "count(*)=1 and string-length(normalize-space())=0" {

    57

                > \n

    58

                apply "*";

    59

            }

    60

            when "count(*)=0 and string-length(normalize-space())>0" {

    61

                >  

    62

                apply "text()";

    63

            }

    64

            otherwise {

    65

                >  {\n

    66

                for "*|text()" {

    67

                    if "local-name()=''"

    68

                        if "string-length(normalize-space())>0"

    69

                            1>

    70

                    apply ".";

    71

                }

    72

                | }

    73

            }

    74

        }

    75

    }

    76

    77

    template "@*" {

    78

        >  «name()»="«.»"

    79

        if "position()<last()" > ,

    80

    }

    81

    82

    function "convert" {

    83

        param "tag";

    84

    85

        > «translate($tag, '-', '_')»

    86

    }

    87

}