xslscript: xslscript.pl annotate

annotate xslscript.pl @ 11:01dc9ba12e1b

XSLScript: typo fixed.

author	Maxim Dounin <mdounin@mdounin.ru>
date	Mon, 31 Mar 2014 21:59:31 +0400
parents	cb41e7c634c5
children	cc0402def1f9

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

Mercurial > hg > xslscript

annotate xslscript.pl @ 11:01dc9ba12e1b