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