line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# $Id$ |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package XML::SAX::PurePerl::Productions; |
4
|
|
|
|
|
|
|
|
5
|
12
|
|
|
12
|
|
67
|
use Exporter; |
|
12
|
|
|
|
|
23
|
|
|
12
|
|
|
|
|
5508
|
|
6
|
|
|
|
|
|
|
@ISA = ('Exporter'); |
7
|
|
|
|
|
|
|
@EXPORT_OK = qw($S $Char $VersionNum $BaseChar $Ideographic |
8
|
|
|
|
|
|
|
$Extender $Digit $CombiningChar $EncNameStart $EncNameEnd $NameChar $CharMinusDash |
9
|
|
|
|
|
|
|
$PubidChar $Any $SingleChar); |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
### WARNING!!! All productions here must *only* match a *single* character!!! ### |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
BEGIN { |
14
|
12
|
|
|
12
|
|
69
|
$S = qr/[\x20\x09\x0D\x0A]/; |
15
|
|
|
|
|
|
|
|
16
|
12
|
|
|
|
|
44
|
$CharMinusDash = qr/[^-]/x; |
17
|
|
|
|
|
|
|
|
18
|
12
|
|
|
|
|
71
|
$Any = qr/ . /xms; |
19
|
|
|
|
|
|
|
|
20
|
12
|
|
|
|
|
38
|
$VersionNum = qr/ [a-zA-Z0-9_.:-]+ /x; |
21
|
|
|
|
|
|
|
|
22
|
12
|
|
|
|
|
35
|
$EncNameStart = qr/ [A-Za-z] /x; |
23
|
12
|
|
|
|
|
38
|
$EncNameEnd = qr/ [A-Za-z0-9\._-] /x; |
24
|
|
|
|
|
|
|
|
25
|
12
|
|
|
|
|
37
|
$PubidChar = qr/ [\x20\x0D\x0Aa-zA-Z0-9'()\+,.\/:=\?;!*\#@\$_\%-] /x; |
26
|
|
|
|
|
|
|
|
27
|
12
|
50
|
|
|
|
71
|
if ($] < 5.006) { |
28
|
0
|
|
|
|
|
0
|
eval <<' PERL'; |
29
|
|
|
|
|
|
|
$Char = qr/^ [\x09\x0A\x0D\x20-\x7F]|([\xC0-\xFD][\x80-\xBF]+) $/x; |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
$SingleChar = qr/^$Char$/; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
$BaseChar = qr/ [\x41-\x5A\x61-\x7A]|([\xC0-\xFD][\x80-\xBF]+) /x; |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
$Extender = qr/ \xB7 /x; |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
$Digit = qr/ [\x30-\x39] /x; |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
# can't do this one without unicode |
40
|
|
|
|
|
|
|
# $CombiningChar = qr/^$/msx; |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
$NameChar = qr/^ (?: $BaseChar | $Digit | [._:-] | $Extender )+ $/x; |
43
|
|
|
|
|
|
|
PERL |
44
|
0
|
0
|
|
|
|
0
|
die $@ if $@; |
45
|
|
|
|
|
|
|
} |
46
|
|
|
|
|
|
|
else { |
47
|
12
|
|
|
12
|
|
1120
|
eval <<' PERL'; |
|
12
|
|
|
|
|
14519
|
|
|
12
|
|
|
|
|
460
|
|
|
12
|
|
|
|
|
72
|
|
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
use utf8; # for 5.6 |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
$Char = qr/^ [\x09\x0A\x0D\x{0020}-\x{D7FF}\x{E000}-\x{FFFD}\x{10000}-\x{10FFFF}] $/x; |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
$SingleChar = qr/^$Char$/; |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
$BaseChar = qr/ |
56
|
|
|
|
|
|
|
[\x{0041}-\x{005A}\x{0061}-\x{007A}\x{00C0}-\x{00D6}\x{00D8}-\x{00F6}] | |
57
|
|
|
|
|
|
|
[\x{00F8}-\x{00FF}\x{0100}-\x{0131}\x{0134}-\x{013E}\x{0141}-\x{0148}] | |
58
|
|
|
|
|
|
|
[\x{014A}-\x{017E}\x{0180}-\x{01C3}\x{01CD}-\x{01F0}\x{01F4}-\x{01F5}] | |
59
|
|
|
|
|
|
|
[\x{01FA}-\x{0217}\x{0250}-\x{02A8}\x{02BB}-\x{02C1}\x{0386}\x{0388}-\x{038A}] | |
60
|
|
|
|
|
|
|
[\x{038C}\x{038E}-\x{03A1}\x{03A3}-\x{03CE}\x{03D0}-\x{03D6}\x{03DA}] | |
61
|
|
|
|
|
|
|
[\x{03DC}\x{03DE}\x{03E0}\x{03E2}-\x{03F3}\x{0401}-\x{040C}\x{040E}-\x{044F}] | |
62
|
|
|
|
|
|
|
[\x{0451}-\x{045C}\x{045E}-\x{0481}\x{0490}-\x{04C4}\x{04C7}-\x{04C8}] | |
63
|
|
|
|
|
|
|
[\x{04CB}-\x{04CC}\x{04D0}-\x{04EB}\x{04EE}-\x{04F5}\x{04F8}-\x{04F9}] | |
64
|
|
|
|
|
|
|
[\x{0531}-\x{0556}\x{0559}\x{0561}-\x{0586}\x{05D0}-\x{05EA}\x{05F0}-\x{05F2}] | |
65
|
|
|
|
|
|
|
[\x{0621}-\x{063A}\x{0641}-\x{064A}\x{0671}-\x{06B7}\x{06BA}-\x{06BE}] | |
66
|
|
|
|
|
|
|
[\x{06C0}-\x{06CE}\x{06D0}-\x{06D3}\x{06D5}\x{06E5}-\x{06E6}\x{0905}-\x{0939}] | |
67
|
|
|
|
|
|
|
[\x{093D}\x{0958}-\x{0961}\x{0985}-\x{098C}\x{098F}-\x{0990}] | |
68
|
|
|
|
|
|
|
[\x{0993}-\x{09A8}\x{09AA}-\x{09B0}\x{09B2}\x{09B6}-\x{09B9}\x{09DC}-\x{09DD}] | |
69
|
|
|
|
|
|
|
[\x{09DF}-\x{09E1}\x{09F0}-\x{09F1}\x{0A05}-\x{0A0A}\x{0A0F}-\x{0A10}] | |
70
|
|
|
|
|
|
|
[\x{0A13}-\x{0A28}\x{0A2A}-\x{0A30}\x{0A32}-\x{0A33}\x{0A35}-\x{0A36}] | |
71
|
|
|
|
|
|
|
[\x{0A38}-\x{0A39}\x{0A59}-\x{0A5C}\x{0A5E}\x{0A72}-\x{0A74}\x{0A85}-\x{0A8B}] | |
72
|
|
|
|
|
|
|
[\x{0A8D}\x{0A8F}-\x{0A91}\x{0A93}-\x{0AA8}\x{0AAA}-\x{0AB0}] | |
73
|
|
|
|
|
|
|
[\x{0AB2}-\x{0AB3}\x{0AB5}-\x{0AB9}\x{0ABD}\x{0AE0}\x{0B05}-\x{0B0C}] | |
74
|
|
|
|
|
|
|
[\x{0B0F}-\x{0B10}\x{0B13}-\x{0B28}\x{0B2A}-\x{0B30}\x{0B32}-\x{0B33}] | |
75
|
|
|
|
|
|
|
[\x{0B36}-\x{0B39}\x{0B3D}\x{0B5C}-\x{0B5D}\x{0B5F}-\x{0B61}\x{0B85}-\x{0B8A}] | |
76
|
|
|
|
|
|
|
[\x{0B8E}-\x{0B90}\x{0B92}-\x{0B95}\x{0B99}-\x{0B9A}\x{0B9C}] | |
77
|
|
|
|
|
|
|
[\x{0B9E}-\x{0B9F}\x{0BA3}-\x{0BA4}\x{0BA8}-\x{0BAA}\x{0BAE}-\x{0BB5}] | |
78
|
|
|
|
|
|
|
[\x{0BB7}-\x{0BB9}\x{0C05}-\x{0C0C}\x{0C0E}-\x{0C10}\x{0C12}-\x{0C28}] | |
79
|
|
|
|
|
|
|
[\x{0C2A}-\x{0C33}\x{0C35}-\x{0C39}\x{0C60}-\x{0C61}\x{0C85}-\x{0C8C}] | |
80
|
|
|
|
|
|
|
[\x{0C8E}-\x{0C90}\x{0C92}-\x{0CA8}\x{0CAA}-\x{0CB3}\x{0CB5}-\x{0CB9}\x{0CDE}] | |
81
|
|
|
|
|
|
|
[\x{0CE0}-\x{0CE1}\x{0D05}-\x{0D0C}\x{0D0E}-\x{0D10}\x{0D12}-\x{0D28}] | |
82
|
|
|
|
|
|
|
[\x{0D2A}-\x{0D39}\x{0D60}-\x{0D61}\x{0E01}-\x{0E2E}\x{0E30}\x{0E32}-\x{0E33}] | |
83
|
|
|
|
|
|
|
[\x{0E40}-\x{0E45}\x{0E81}-\x{0E82}\x{0E84}\x{0E87}-\x{0E88}\x{0E8A}] | |
84
|
|
|
|
|
|
|
[\x{0E8D}\x{0E94}-\x{0E97}\x{0E99}-\x{0E9F}\x{0EA1}-\x{0EA3}\x{0EA5}\x{0EA7}] | |
85
|
|
|
|
|
|
|
[\x{0EAA}-\x{0EAB}\x{0EAD}-\x{0EAE}\x{0EB0}\x{0EB2}-\x{0EB3}\x{0EBD}] | |
86
|
|
|
|
|
|
|
[\x{0EC0}-\x{0EC4}\x{0F40}-\x{0F47}\x{0F49}-\x{0F69}\x{10A0}-\x{10C5}] | |
87
|
|
|
|
|
|
|
[\x{10D0}-\x{10F6}\x{1100}\x{1102}-\x{1103}\x{1105}-\x{1107}\x{1109}] | |
88
|
|
|
|
|
|
|
[\x{110B}-\x{110C}\x{110E}-\x{1112}\x{113C}\x{113E}\x{1140}\x{114C}\x{114E}] | |
89
|
|
|
|
|
|
|
[\x{1150}\x{1154}-\x{1155}\x{1159}\x{115F}-\x{1161}\x{1163}\x{1165}] | |
90
|
|
|
|
|
|
|
[\x{1167}\x{1169}\x{116D}-\x{116E}\x{1172}-\x{1173}\x{1175}\x{119E}\x{11A8}] | |
91
|
|
|
|
|
|
|
[\x{11AB}\x{11AE}-\x{11AF}\x{11B7}-\x{11B8}\x{11BA}\x{11BC}-\x{11C2}] | |
92
|
|
|
|
|
|
|
[\x{11EB}\x{11F0}\x{11F9}\x{1E00}-\x{1E9B}\x{1EA0}-\x{1EF9}\x{1F00}-\x{1F15}] | |
93
|
|
|
|
|
|
|
[\x{1F18}-\x{1F1D}\x{1F20}-\x{1F45}\x{1F48}-\x{1F4D}\x{1F50}-\x{1F57}] | |
94
|
|
|
|
|
|
|
[\x{1F59}\x{1F5B}\x{1F5D}\x{1F5F}-\x{1F7D}\x{1F80}-\x{1FB4}\x{1FB6}-\x{1FBC}] | |
95
|
|
|
|
|
|
|
[\x{1FBE}\x{1FC2}-\x{1FC4}\x{1FC6}-\x{1FCC}\x{1FD0}-\x{1FD3}] | |
96
|
|
|
|
|
|
|
[\x{1FD6}-\x{1FDB}\x{1FE0}-\x{1FEC}\x{1FF2}-\x{1FF4}\x{1FF6}-\x{1FFC}] | |
97
|
|
|
|
|
|
|
[\x{2126}\x{212A}-\x{212B}\x{212E}\x{2180}-\x{2182}\x{3041}-\x{3094}] | |
98
|
|
|
|
|
|
|
[\x{30A1}-\x{30FA}\x{3105}-\x{312C}\x{AC00}-\x{D7A3}] |
99
|
|
|
|
|
|
|
/x; |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
$Extender = qr/ |
102
|
|
|
|
|
|
|
[\x{00B7}\x{02D0}\x{02D1}\x{0387}\x{0640}\x{0E46}\x{0EC6}\x{3005}\x{3031}-\x{3035}\x{309D}-\x{309E}\x{30FC}-\x{30FE}] |
103
|
|
|
|
|
|
|
/x; |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
$Digit = qr/ |
106
|
|
|
|
|
|
|
[\x{0030}-\x{0039}\x{0660}-\x{0669}\x{06F0}-\x{06F9}\x{0966}-\x{096F}] | |
107
|
|
|
|
|
|
|
[\x{09E6}-\x{09EF}\x{0A66}-\x{0A6F}\x{0AE6}-\x{0AEF}\x{0B66}-\x{0B6F}] | |
108
|
|
|
|
|
|
|
[\x{0BE7}-\x{0BEF}\x{0C66}-\x{0C6F}\x{0CE6}-\x{0CEF}\x{0D66}-\x{0D6F}] | |
109
|
|
|
|
|
|
|
[\x{0E50}-\x{0E59}\x{0ED0}-\x{0ED9}\x{0F20}-\x{0F29}] |
110
|
|
|
|
|
|
|
/x; |
111
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
$CombiningChar = qr/ |
113
|
|
|
|
|
|
|
[\x{0300}-\x{0345}\x{0360}-\x{0361}\x{0483}-\x{0486}\x{0591}-\x{05A1}] | |
114
|
|
|
|
|
|
|
[\x{05A3}-\x{05B9}\x{05BB}-\x{05BD}\x{05BF}\x{05C1}-\x{05C2}\x{05C4}] | |
115
|
|
|
|
|
|
|
[\x{064B}-\x{0652}\x{0670}\x{06D6}-\x{06DC}\x{06DD}-\x{06DF}\x{06E0}-\x{06E4}] | |
116
|
|
|
|
|
|
|
[\x{06E7}-\x{06E8}\x{06EA}-\x{06ED}\x{0901}-\x{0903}\x{093C}] | |
117
|
|
|
|
|
|
|
[\x{093E}-\x{094C}\x{094D}\x{0951}-\x{0954}\x{0962}-\x{0963}\x{0981}-\x{0983}] | |
118
|
|
|
|
|
|
|
[\x{09BC}\x{09BE}\x{09BF}\x{09C0}-\x{09C4}\x{09C7}-\x{09C8}] | |
119
|
|
|
|
|
|
|
[\x{09CB}-\x{09CD}\x{09D7}\x{09E2}-\x{09E3}\x{0A02}\x{0A3C}\x{0A3E}\x{0A3F}] | |
120
|
|
|
|
|
|
|
[\x{0A40}-\x{0A42}\x{0A47}-\x{0A48}\x{0A4B}-\x{0A4D}\x{0A70}-\x{0A71}] | |
121
|
|
|
|
|
|
|
[\x{0A81}-\x{0A83}\x{0ABC}\x{0ABE}-\x{0AC5}\x{0AC7}-\x{0AC9}\x{0ACB}-\x{0ACD}] | |
122
|
|
|
|
|
|
|
[\x{0B01}-\x{0B03}\x{0B3C}\x{0B3E}-\x{0B43}\x{0B47}-\x{0B48}] | |
123
|
|
|
|
|
|
|
[\x{0B4B}-\x{0B4D}\x{0B56}-\x{0B57}\x{0B82}-\x{0B83}\x{0BBE}-\x{0BC2}] | |
124
|
|
|
|
|
|
|
[\x{0BC6}-\x{0BC8}\x{0BCA}-\x{0BCD}\x{0BD7}\x{0C01}-\x{0C03}\x{0C3E}-\x{0C44}] | |
125
|
|
|
|
|
|
|
[\x{0C46}-\x{0C48}\x{0C4A}-\x{0C4D}\x{0C55}-\x{0C56}\x{0C82}-\x{0C83}] | |
126
|
|
|
|
|
|
|
[\x{0CBE}-\x{0CC4}\x{0CC6}-\x{0CC8}\x{0CCA}-\x{0CCD}\x{0CD5}-\x{0CD6}] | |
127
|
|
|
|
|
|
|
[\x{0D02}-\x{0D03}\x{0D3E}-\x{0D43}\x{0D46}-\x{0D48}\x{0D4A}-\x{0D4D}\x{0D57}] | |
128
|
|
|
|
|
|
|
[\x{0E31}\x{0E34}-\x{0E3A}\x{0E47}-\x{0E4E}\x{0EB1}\x{0EB4}-\x{0EB9}] | |
129
|
|
|
|
|
|
|
[\x{0EBB}-\x{0EBC}\x{0EC8}-\x{0ECD}\x{0F18}-\x{0F19}\x{0F35}\x{0F37}\x{0F39}] | |
130
|
|
|
|
|
|
|
[\x{0F3E}\x{0F3F}\x{0F71}-\x{0F84}\x{0F86}-\x{0F8B}\x{0F90}-\x{0F95}] | |
131
|
|
|
|
|
|
|
[\x{0F97}\x{0F99}-\x{0FAD}\x{0FB1}-\x{0FB7}\x{0FB9}\x{20D0}-\x{20DC}\x{20E1}] | |
132
|
|
|
|
|
|
|
[\x{302A}-\x{302F}\x{3099}\x{309A}] |
133
|
|
|
|
|
|
|
/x; |
134
|
|
|
|
|
|
|
|
135
|
|
|
|
|
|
|
$Ideographic = qr/ |
136
|
|
|
|
|
|
|
[\x{4E00}-\x{9FA5}\x{3007}\x{3021}-\x{3029}] |
137
|
|
|
|
|
|
|
/x; |
138
|
|
|
|
|
|
|
|
139
|
|
|
|
|
|
|
$NameChar = qr/^ (?: $BaseChar | $Ideographic | $Digit | [._:-] | $CombiningChar | $Extender )+ $/x; |
140
|
|
|
|
|
|
|
PERL |
141
|
|
|
|
|
|
|
|
142
|
12
|
50
|
|
|
|
1634
|
die $@ if $@; |
143
|
|
|
|
|
|
|
} |
144
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
} |
146
|
|
|
|
|
|
|
|
147
|
|
|
|
|
|
|
1; |