xslscript: xslscript.pl annotate

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 9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	26 my $dump = 0;
9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	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 9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	329 if (!defined $indent) {
2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	330 $indent = 0;
2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	331 $s .= '<?xml version="1.0" encoding="utf-8"?>' . "\n";
2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	332 }
2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 2d6764d9980b XSLScript: various fixes. Maxim Dounin <mdounin@mdounin.ru> parents: 4 diff changeset	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 9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	428 if ($dump) {
9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	429 print Dumper($tree);
9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	430 exit(0);
9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	431 }
9a283d72ddc3 XSLScript: --dump option. Maxim Dounin <mdounin@mdounin.ru> parents: 6 diff changeset	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 ###############################################################################

Mercurial > hg > xslscript

annotate xslscript.pl @ 8:86721b270ebb