|
0
|
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 |
}
|