Mercurial > hg > xslscript
annotate xslscript.pl @ 9:e93b6e98b817
XSLScript: -o option.
Usable for more or less safe output in makefiles.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Wed, 26 Feb 2014 03:41:33 +0400 |
parents | 86721b270ebb |
children | cb41e7c634c5 |
rev | line source |
---|---|
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Convert from XSLScript to XSLT. |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 # |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 # Originally XSLScript was written by Paul Tchistopolskii. It is believed |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 # to be mostly identical to XSLT, but uses shorter syntax. Original |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 # implementation has major Java dependency, no longer supported and hard |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 # to find. |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 # |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 # This code doesn't pretend to be a full replacement, but rather an attempt |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 # to provide functionality needed for nginx documentation. |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 ############################################################################### |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use warnings; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 use strict; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 use Parse::RecDescent; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 use Getopt::Long; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 use Data::Dumper qw/Dumper/; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 ############################################################################### |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 |
7 | 26 my $dump = 0; |
9 | 27 my $output; |
7 | 28 |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 GetOptions( |
9 | 30 "output|o=s" => \$output, |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 "trace!" => \$::RD_TRACE, |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 "hint!" => \$::RD_HINT, |
7 | 33 "dump!" => \$dump, |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 ) |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 or die "oops\n"; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 ############################################################################### |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 my $grammar = <<'EOF'; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 # XSLTScript grammar, reconstructed |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
43 startrule : <skip:""> item(s) eofile |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
44 { $return = $item{'item(s)'}; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
45 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
46 item : "<!--" <commit> comment |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
47 | "!!" <commit> exclam_double |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
48 | "!{" <commit> exclam_xpath |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
49 | "!" name <commit> params |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
50 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
51 "X:call-template", "name", $item{name}, [], |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
52 $item{params} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
53 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
54 | "<%" <commit> space instruction space "%>" |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
55 { $return = $item{instruction}; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
56 | "<" name attrs space ">" <commit> item(s?) "</" name ">" |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
57 { $return = [ "tag", $item{name}, $item{attrs}, $item{'item(s?)'} ]; 1 } |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
58 | "<" <commit> name attrs space "/>" |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
59 { $return = [ "tag", $item{name}, $item{attrs} ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
60 | "X:variable" space <commit> xvariable |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
61 | "X:var" space <commit> xvariable |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
62 | "X:template" space <commit> xtemplate |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
63 | "X:if" space <commit> xif |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
64 | "X:param" space <commit> xparam |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
65 | "X:for-each" space <commit> xforeach |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
66 | "X:sort" space <commit> xsort |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
67 | "X:when" space <commit> xwhen |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
68 | "X:attribute" space <commit> xattribute |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
69 | "X:output" space <commit> xoutput |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
70 | "X:copy-of" space <commit> xcopyof |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
71 | instruction space <commit> attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
72 { $return = [ $item{instruction}, $item{attrs}, $item{body} ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
73 | space_notempty |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
74 | text |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
75 | <error> |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
76 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
77 # list of simple instructions |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
78 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
79 instruction : "X:stylesheet" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
80 | "X:transform" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
81 | "X:attribute-set" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
82 | "X:element" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
83 | "X:apply-templates" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
84 | "X:choose" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
85 | "X:otherwise" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
86 | "X:value-of" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
87 | "X:apply-imports" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
88 | "X:number" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
89 | "X:include" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
90 | "X:import" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
91 | "X:strip-space" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
92 | "X:preserve-space" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
93 | "X:copy" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
94 | "X:text" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
95 | "X:comment" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
96 | "X:processing-instruction" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
97 | "X:decimal-format" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
98 | "X:namespace-alias" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
99 | "X:key" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
100 | "X:fallback" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
101 | "X:message" |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 # comments, <!-- ... --> |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 # not sure if it's something to be interpreted specially |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
105 # likely an artifact of our dump process |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
107 comment : /((?!-->).)*/ms "-->" |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
108 { $return = "<!--" . $item[1] . "-->"; 1 } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 # special chars: ', ", {, }, \ |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 # if used in text, they needs to be escaped with backslash |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
112 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
113 text : quoted | unreserved | "'" | "\"" | "{" |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
114 quoted : "\\" special |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
115 { $return = $item{special}; 1; } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
116 special : "'" | "\"" | "\\" | "{" | "}" |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
117 unreserved : /[^'"\\{}<\s]+\s*/ms |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
118 |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
119 # whitespace |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
120 |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
121 space : /\s*/ms |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
122 space_notempty : /\s+/ms |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
123 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
124 # shortcuts: |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
125 # |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
126 # !! for X:apply-templates |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
127 # !{xpath-expression} for X:value-of select="xpath-expression"; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
128 # !foo() for X:call-template name="foo" |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
129 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
130 # !root (path = { !{ substring($DIRNAME, 2) } }) |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
131 # !root (path = "substring-after($path, '/')") |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
132 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
133 exclam_double : space value(?) params(?) attrs space ";" |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
134 { $return = [ |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
135 "X:apply-templates", "select", $item{'value(?)'}[0], |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
136 $item{attrs}, $item{'params(?)'}[0] |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
137 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
138 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
139 exclam_xpath : xpath "}" |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
140 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
141 "X:value-of", "select", $item{xpath}, [] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
142 ]; 1 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
143 xpath : /("[^"]*"|'[^']*'|[^}'"])*/ms |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
144 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
145 # instruction attributes |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
146 # name="value" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
147 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
148 attrs : attr(s?) |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
149 attr : space name space "=" space value |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
150 { $return = $item{name} . "=" . $item{value}; } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
151 name : /[a-z0-9_:-]+/i |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
152 value : /"[^"]*"/ |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
153 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
154 # template parameters |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
155 # ( bar="init", baz={markup} ) |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
156 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
157 params : space "(" param(s? /\s*,\s*/) ")" space |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
158 { $return = $item[3]; 1 } |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
159 param : space name space "=" space value space |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
160 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
161 "X:with-param", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
162 "select", $item{value}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
163 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
164 [] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
165 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
166 | space name space "=" <commit> space "{" item(s) "}" |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
167 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
168 "X:with-param", "name", $item{name}, [], |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
169 $item{'item(s)'} |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
170 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
171 | space name |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
172 { $return = [ |
5 | 173 "X:param", "name", $item{name}, [] |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
174 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
175 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
176 # instruction body |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
177 # ";" for empty body, "{ ... }" otherwise |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
178 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
179 body : space ";" |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
180 { $return = ""; } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
181 | space "{" <commit> item(s?) "}" (space ";")(?) |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
182 { $return = $item{'item(s?)'}; 1 } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
183 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
184 # special handling of some instructions |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
185 # X:if attribute is test= |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
186 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
187 xif : value body space "else" <commit> body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
188 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
189 "X:choose", [], [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
190 [ "X:when", "test", $item[1], [], $item[2] ], |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
191 [ "X:otherwise", [], $item[6] ] |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
192 ] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
193 ]; 1 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
194 | value attrs body |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
195 { $return = [ |
5 | 196 "X:if", "test", $item{value}, $item{attrs}, $item{body}, |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
197 ]; 1 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
198 | attrs body |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
199 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
200 "X:if", $item{attrs}, $item{body}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
201 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
202 | <error> |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
203 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
204 # X:template name(params) = "match" { |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
205 # X:template name( bar="init", baz={markup} ) = "match" mode="some" { |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
206 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
207 xtemplate : name(?) params(?) space |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
208 (space "=" space value)(?) attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
209 { $return = [ |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
210 "X:template", |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
211 "name", $item{'name(?)'}[0], |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
212 "match", $item[4][0], |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
213 $item{attrs}, |
5 | 214 [ ($item[2][0] ? @{$item[2][0]} : ()), @{$item{body}} ] |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
215 ]; 1 } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
216 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
217 # X:var LINK = "/article/@link"; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
218 # X:var year = { ... } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
219 # semicolon is optional |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
220 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
221 xvariable : name space "=" space value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
222 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
223 "X:variable", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
224 "select", $item{value}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
225 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
226 $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
227 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
228 | name space "=" space attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
229 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
230 "X:variable", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
231 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
232 $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
233 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
234 | name space "=" space value |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
235 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
236 "X:variable", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
237 "select", $item{value}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
238 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
239 [] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
240 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
241 | name space "=" |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
242 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
243 "X:variable", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
244 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
245 [] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
246 ]; 1 } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
247 | <error> |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
248 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
249 # X:param XML = "'../xml'"; |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
250 # X:param YEAR; |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
251 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
252 xparam : name space "=" space value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
253 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
254 "X:param", |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
255 "select", $item{value}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
256 "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
257 $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
258 ]; 1 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
259 | name attrs body |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
260 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
261 "X:param", "name", $item{name}, |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
262 $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
263 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
264 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
265 # X:for-each "section[@id and @name]" { ... } |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
266 # X:for-each "link", X:sort "@id" { |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
267 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
268 xforeach : value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
269 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
270 "X:for-each", "select", $item{value}, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
271 ]; 1 } |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
272 | value attrs space |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
273 "," space "X:sort" <commit> space value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
274 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
275 "X:for-each", "select", $item[1], $item[2], [ |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
276 [ "X:sort", "select", $item[9], $item[10] ], |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
277 @{$item{body}} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
278 ] |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
279 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
280 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
281 # X:sort select |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
282 # X:sort "@id" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
283 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
284 xsort : value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
285 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
286 "X:sort", "select", $item{value}, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
287 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
288 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
289 # X:when "position() = 1" { ... } |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
290 |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
291 xwhen : value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
292 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
293 "X:when", "test", $item{value}, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
294 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
295 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
296 # X:attribute "href" { ... } |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
297 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
298 xattribute : value attrs body |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
299 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
300 "X:attribute", "name", $item{value}, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
301 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
302 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
303 # X:output |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
304 # semicolon is optional |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
305 |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
306 xoutput : attrs body(?) |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
307 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
308 "X:output", undef, undef, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
309 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
310 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
311 # "X:copy-of" |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
312 # semicolon is optional |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
313 |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
314 xcopyof : value attrs body(?) |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
315 { $return = [ |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
316 "X:copy-of", "select", $item{value}, $item{attrs}, $item{body} |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
317 ]; 1 } |
2
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
318 |
bcd96c403898
XSLScript: rewritten grammar, matches all xsls.
Maxim Dounin <mdounin@mdounin.ru>
parents:
1
diff
changeset
|
319 # eof |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
320 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
321 eofile : /^\Z/ |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
322 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
323 EOF |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
324 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
325 ############################################################################### |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
326 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
327 sub format_tree { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
328 my ($tree, $indent) = @_; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
329 my $s = ''; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
330 |
5 | 331 if (!defined $indent) { |
332 $indent = 0; | |
333 $s .= '<?xml version="1.0" encoding="utf-8"?>' . "\n"; | |
334 } | |
335 | |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
336 my $space = " " x $indent; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
337 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
338 foreach my $el (@{$tree}) { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
339 if (!defined $el) { |
5 | 340 warn "Undefined element in output.\n"; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
341 $s .= $space . "(undef)" . "\n"; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
342 next; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
343 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
344 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
345 if (not ref($el) && defined $el) { |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
346 if ($el =~ /^<!--(.*)-->$/s) { |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
347 my $comment = $1; |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
348 $comment =~ s/--/../sg; |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
349 $el = "<!--" . $comment . "-->"; |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
350 } |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
351 |
5 | 352 $s .= $el; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
353 next; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
354 } |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
355 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
356 die if ref($el) ne 'ARRAY'; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
357 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
358 my $tag = $el->[0]; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
359 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
360 if ($tag eq 'tag') { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
361 my (undef, $name, $attrs, $body) = @{$el}; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
362 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
363 $s .= "<" . join(" ", $name, @{$attrs}); |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
364 if ($body) { |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
365 $s .= ">" . format_tree($body, $indent + 1) |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
366 . "</$name>"; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
367 } else { |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
368 $s .= "/>"; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
369 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
370 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
371 next; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
372 } |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
373 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
374 if ($tag =~ m/^X:(.*)/) { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
375 my $name = "xsl:" . $1; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
376 my (undef, @a) = @{$el}; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
377 my @attrs; |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
378 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
379 while (@a) { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
380 last if ref($a[0]) eq 'ARRAY'; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
381 my $name = shift @a; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
382 my $value = shift @a; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
383 next unless defined $value; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
384 $value = '"' . $value . '"' |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
385 unless $value =~ /^"/; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
386 push @attrs, "$name=$value"; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
387 } |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
388 |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
389 if ($name eq "xsl:stylesheet") { |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
390 push @attrs, 'xmlns:xsl="http://www.w3.org/1999/XSL/Transform"'; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
391 push @attrs, 'version="1.0"'; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
392 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
393 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
394 my ($attrs, $body) = @a; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
395 $attrs = [ @{$attrs}, @attrs ]; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
396 |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
397 $s .= "<" . join(" ", $name, @{$attrs}); |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
398 |
5 | 399 if ($body && scalar @{$body} > 0) { |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
400 $s .= ">" . format_tree($body, $indent + 1) |
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
401 . "</$name>"; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
402 } else { |
8
86721b270ebb
XSLScript: explicit whitespace handling.
Maxim Dounin <mdounin@mdounin.ru>
parents:
7
diff
changeset
|
403 $s .= "/>"; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
404 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
405 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
406 next; |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
407 } |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
408 |
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
409 $s .= format_tree($el, $indent + 1); |
3
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
410 } |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
411 |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
412 return $s; |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
413 } |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
414 |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
415 ############################################################################### |
0fa786e03744
XSLScript: some preliminary work on conversion.
Maxim Dounin <mdounin@mdounin.ru>
parents:
2
diff
changeset
|
416 |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
417 my $parser = Parse::RecDescent->new($grammar) |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
418 or die "Failed to create parser.\n"; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
419 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
420 my $lines; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
421 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
422 { |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
423 local $/; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
424 $lines = <>; |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
425 } |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
426 |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
427 my $tree = $parser->startrule($lines) |
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
428 or die "Failed to parse $ARGV.\n"; |
9 | 429 my $formatted = format_tree($tree); |
430 | |
431 if (defined $output) { | |
432 open STDOUT, ">", $output | |
433 or die "Can't open $output: $!\n"; | |
434 } | |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
435 |
7 | 436 if ($dump) { |
437 print Dumper($tree); | |
438 exit(0); | |
439 } | |
440 | |
9 | 441 print $formatted; |
4
eb959dce273b
XSLScript: tree construction and printing.
Maxim Dounin <mdounin@mdounin.ru>
parents:
3
diff
changeset
|
442 |
1
f082f8c2ebb0
XSLScript: some preliminary grammar, incomplete.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
443 ############################################################################### |