| line |
true |
false |
branch |
|
25
|
0 |
13 |
if ($file eq '-' and $line == 0) |
|
27
|
0 |
0 |
unless @ARGV >= 2 and $ARGV <= 3 |
|
33
|
0 |
0 |
unless open IN, $sourcefile |
|
49
|
0 |
0 |
if ('HASH' eq ref $_[0]) |
|
74
|
9 |
0 |
if ('HASH' eq ref $_[0]) |
|
80
|
0 |
9 |
unless $class =~ /^(\w+::)*\w+$/ |
|
89
|
0 |
9 |
unless open OUT, '>', $modulefile |
|
97
|
0 |
9 |
if $grammar and $sourcefile |
|
101
|
9 |
0 |
if ($grammar) |
|
102
|
9 |
0 |
if $grammar |
|
122
|
9 |
0 |
unless (defined $opt{-'runtime_class'}) |
|
123
|
8 |
1 |
if ($opt{-'standalone'}) { } |
|
135
|
1 |
0 |
defined $main::RD_HINT ? : |
|
155
|
8 |
1 |
if ($opt{-'standalone'}) |
|
157
|
0 |
8 |
unless open IN, '<', $Parse::RecDescent::_FILENAME |
|
162
|
8 |
28216 |
if ($_ =~ /^\s*#\s*ifndef\s+RUNTIME\s*$/) |
|
165
|
1544 |
26680 |
if ($exclude) { } |
|
166
|
8 |
1536 |
if ($_ =~ /^\s*#\s*endif\s$/) |
|
170
|
8 |
26672 |
if ($_ =~ /^__END__/) |
|
182
|
9 |
0 |
if ($grammar) |
|
186
|
1 |
8 |
unless ($opt{-'standalone'}) |
|
190
|
9 |
0 |
if ($grammar) |
|
206
|
0 |
9 |
unless close OUT |
|
216
|
119 |
455 |
$_[3] ? : |
|
230
|
291 |
324 |
unless (exists $cache->{$from}) |
|
250
|
0 |
0 |
unless $self =~ /Parse::RecDescent::LineCounter/ |
|
266
|
119 |
119 |
$_[3] ? : |
|
291
|
119 |
119 |
$_[3] ? : |
|
321
|
4 |
658 |
if (defined $owner->{'rules'}{$name}) { } |
|
324
|
0 |
4 |
if ($replace and not $self->{'changed'}) |
|
366
|
1235 |
4589 |
if $prod->hasleftmost($ref) |
|
395
|
1216 |
80 |
unless (not $next or &_contains($next, @expected)) |
|
408
|
553 |
9580 |
if $target eq $item |
|
415
|
1034 |
313 |
unless (&_contains($subrule, @{$$self{'calls'};})) |
|
435
|
0 |
1 |
if ($var =~ /\A\s*local\s+([%\@\$]\w+)/) { } |
|
474
|
661 |
0 |
unless $parser->{'saving'} |
|
536
|
0 |
661 |
$parser->{'deferrable'} ? : |
|
|
40 |
621 |
$parser->{'_check'}{'thisoffset'} ? : |
|
|
40 |
621 |
$parser->{'_check'}{'prevoffset'} ? : |
|
|
40 |
621 |
$parser->{'_check'}{'thiscolumn'} ? : |
|
|
40 |
621 |
$parser->{'_check'}{'prevcolumn'} ? : |
|
|
40 |
621 |
$parser->{'_check'}{'prevline'} ? : |
|
542
|
0 |
1257 |
if $self->{'autoscore'} |
|
543
|
0 |
1257 |
unless $prod->checkleftmost |
|
547
|
0 |
1257 |
$parser->{'deferrable'} ? : |
|
589
|
0 |
661 |
$parser->{'deferrable'} ? : |
|
609
|
189 |
1558 |
unless defined $rules->{$next} |
|
610
|
0 |
1558 |
if $next eq $root |
|
614
|
1151 |
182 |
unless &_contains($child, @left) |
|
625
|
170 |
4474 |
unless $_->describe($_[1]) |
|
649
|
1296 |
0 |
$itemcount ? : |
|
655
|
5824 |
0 |
if scalar @{$self->{'items'};} |
|
669
|
4993 |
0 |
if ($#{$$self{'items'};} >= 0) |
|
672
|
1929 |
3064 |
if defined $subrule |
|
681
|
0 |
1257 |
if (@items == 1 and ref($items[0]) =~ /\AParse::RecDescent::Error/ and $items[0]{'commitonly'}) { } |
|
|
1 |
1256 |
elsif (@items == 1 and ($items[0]->describe || '') =~ /
|
|
|
0 |
1256 |
elsif (@items and ref($items[0]) =~ /\AParse::RecDescent::UncondReject/ || ($items[0]->describe || '') =~ /
|
|
706
|
0 |
0 |
$items[0]->describe =~ /
|
|
|
0 |
0 |
$items[0]->describe =~ /
|
|
711
|
0 |
0 |
$items[0]->describe =~ /
|
|
714
|
0 |
0 |
@items > 1 ? : |
|
732
|
98 |
2215 |
if (ref($item) =~ /Parse::RecDescent::(Action|Directive)/) |
|
734
|
3 |
95 |
if $item->{'code'} =~ /\$skip\s*=/ |
|
757
|
0 |
0 |
unless $self->{'items'}[-1]->describe =~ /
|
|
764
|
137 |
1049 |
if ($self->{'op'}) |
|
781
|
0 |
137 |
unless ($self->{'op'}) |
|
794
|
137 |
0 |
if ($op->{'type'} =~ /left|right/) |
|
796
|
0 |
137 |
if ($span != 3) { } |
|
820
|
0 |
0 |
unless (@{$self->{'items'};}) |
|
859
|
0 |
177 |
'ARRAY' eq ref $typekeys ? : |
|
865
|
531 |
0 |
if ('ARRAY' eq ref $poskeys) { } |
|
941
|
8 |
1249 |
defined $self->{'uncommit'} ? : |
|
|
3 |
1254 |
$self->changesskip ? : |
|
|
7 |
1250 |
defined $self->{'error'} ? : |
|
947
|
51 |
1206 |
if $parser->{'_check'}{'itempos'} |
|
956
|
112 |
2210 |
if $parser->{'_check'}{'itempos'} |
|
960
|
112 |
2210 |
if $parser->{'_check'}{'itempos'} |
|
964
|
0 |
1257 |
if ($parser->{'_AUTOACTION'} and defined $item and not $item->isa('Parse::RecDescent::Action')) { } |
|
|
27 |
1230 |
elsif ($parser->{'_AUTOTREE'} and defined $item and not $item->isa('Parse::RecDescent::Action')) { } |
|
967
|
0 |
0 |
if &Parse::RecDescent::_warn(1, qq[Autogenerating action in rule\n "$rule->{'name'}":\n $parser->{'_AUTOACTION'}{'code'}]) |
|
979
|
6 |
21 |
if ($i == 1 and $item->isterminal) { } |
|
987
|
0 |
27 |
if &Parse::RecDescent::_warn(1, qq[Autogenerating tree-building action in rule\n "$rule->{'name'}"]) |
|
1006
|
51 |
1206 |
$parser->{'_check'}{'itempos'} ? : |
|
1069
|
0 |
112 |
$self->{'lookahead'} ? : |
|
|
0 |
112 |
$self->{'lookahead'} < 0 ? : |
|
|
85 |
27 |
$self->{'line'} >= 0 ? : |
|
|
0 |
112 |
$self->{'lookahead'} ? : |
|
1082
|
12 |
67 |
$_[1] ? : |
|
1127
|
0 |
23 |
$self->{'lookahead'} ? : |
|
|
0 |
23 |
$self->{'lookahead'} ? : |
|
|
0 |
23 |
$self->{'lookahead'} < 0 ? : |
|
|
0 |
23 |
$self->{'lookahead'} ? : |
|
1137
|
1 |
7 |
$_[1] ? : |
|
1171
|
0 |
2 |
$self->{'lookahead'} ? : |
|
|
0 |
2 |
$self->{'lookahead'} ? : |
|
|
0 |
2 |
$self->{'lookahead'} < 0 ? : |
|
1181
|
0 |
35 |
$_[0]{'commitonly'} ? : |
|
|
7 |
35 |
$_[1] ? : |
|
1202
|
0 |
7 |
if ($self->{'msg'}) { } |
|
1222
|
0 |
7 |
$self->{'commitonly'} ? : |
|
1252
|
208 |
0 |
if ($ldel eq '/') { } |
|
1259
|
0 |
205 |
if (not eval "no strict;\n local \$SIG{__WARN__} = sub {0};\n '' =~ m$ldel$pattern$rdel$mod" and $@) |
|
1329
|
66 |
143 |
$rule->hasleftmost($self) ? : |
|
|
0 |
209 |
$self->{'lookahead'} ? : |
|
|
0 |
209 |
$self->{'lookahead'} < 0 ? : |
|
|
19 |
190 |
$check->{'itempos'} ? : |
|
|
0 |
209 |
$self->{'lookahead'} ? : |
|
|
19 |
190 |
$check->{'itempos'} ? : |
|
|
0 |
209 |
$self->{'lookahead'} ? : |
|
1402
|
569 |
354 |
$rule->hasleftmost($self) ? : |
|
|
0 |
923 |
$self->{'lookahead'} ? : |
|
|
0 |
923 |
$self->{'lookahead'} < 0 ? : |
|
|
35 |
888 |
$check->{'itempos'} ? : |
|
|
0 |
923 |
$self->{'lookahead'} ? : |
|
|
35 |
888 |
$check->{'itempos'} ? : |
|
|
0 |
923 |
$self->{'lookahead'} ? : |
|
1476
|
4 |
1 |
$rule->hasleftmost($self) ? : |
|
|
0 |
5 |
$self->{'lookahead'} ? : |
|
|
0 |
5 |
$self->{'lookahead'} < 0 ? : |
|
|
3 |
2 |
$check->{'itempos'} ? : |
|
|
0 |
5 |
$self->{'lookahead'} ? : |
|
|
3 |
2 |
$check->{'itempos'} ? : |
|
|
0 |
5 |
$self->{'lookahead'} ? : |
|
1493
|
7 |
3374 |
if $_[0]{'matchrule'} |
|
1499
|
2 |
1018 |
if ($_[0]{'matchrule'}) { } |
|
1569
|
378 |
642 |
$rule->hasleftmost($self) ? : |
|
|
8 |
1012 |
$self->{'lookahead'} ? : |
|
|
1 |
1019 |
$self->{'lookahead'} < 0 ? : |
|
|
8 |
1012 |
$self->{'lookahead'} ? : |
|
|
1 |
1019 |
$self->{'argcode'} ? : |
|
|
40 |
980 |
$check->{'itempos'} ? : |
|
|
8 |
1012 |
$self->{'lookahead'} ? : |
|
|
8 |
1012 |
$self->{'lookahead'} ? : |
|
1583
|
0 |
1777 |
if $_[0]{'matchrule'} |
|
1589
|
0 |
329 |
if ($_[0]{'matchrule'}) { } |
|
1599
|
0 |
329 |
if $max < $min |
|
1602
|
37 |
292 |
if ($subrule =~ /\A_alternation_\d+_of_production_\d+_of_rule/) |
|
1605
|
0 |
329 |
if ($lookahead) |
|
1607
|
0 |
0 |
if ($min > 0) { } |
|
1684
|
86 |
243 |
$rule->hasleftmost($self) ? : |
|
|
0 |
329 |
$self->{'lookahead'} ? : |
|
|
0 |
329 |
$self->{'lookahead'} ? : |
|
|
0 |
329 |
$self->{'argcode'} ? : |
|
|
3 |
326 |
$check->{'itempos'} ? : |
|
|
0 |
329 |
$self->{'lookahead'} ? : |
|
1750
|
132 |
5 |
$rule->hasleftmost($self) ? : |
|
1768
|
8 |
129 |
if $check->{'itempos'} |
|
1770
|
133 |
4 |
if ($self->{'type'} eq 'leftop') { } |
|
1783
|
4 |
129 |
if $check->{'itempos'} |
|
1798
|
133 |
0 |
$op->isterminal ? : |
|
|
133 |
0 |
ref $op eq 'Parse::RecDescent::Token' ? : |
|
1825
|
4 |
0 |
if $check->{'itempos'} |
|
1833
|
4 |
0 |
$op->isterminal ? : |
|
|
4 |
0 |
ref $op eq 'Parse::RecDescent::Token' ? : |
|
1844
|
134 |
3 |
unless $self->{'min'} == 0 |
|
1857
|
8 |
129 |
if $check->{'itempos'} |
|
1919
|
204 |
15 |
unless $_[0]{'lastexpected'} |
|
1920
|
15 |
0 |
unless $_[0]{'failed'} |
|
1921
|
15 |
0 |
unless $_[0]{'failed'} |
|
1928
|
0 |
0 |
unless $self->{'expected'} |
|
1930
|
0 |
0 |
if (not $self->{'unexpected'} or $self->{'unexpected'} =~ /\A\s*\Z/s) { } |
|
1968
|
9 |
16 |
defined $_[3] ? : |
|
1989
|
0 |
25 |
if ($main::RD_AUTOACTION) |
|
1991
|
0 |
0 |
unless $sourcecode =~ /\A\s*\{.*\}\s*\Z/ |
|
2011
|
13 |
10 |
if ($self->{'_not_precompiled'}) |
|
2035
|
77 |
65 |
if defined &$glob |
|
2067
|
0 |
0 |
$_[2] ? : |
|
2138
|
29 |
37 |
unless ($lines[-1]) |
|
2143
|
61 |
5 |
unless $self->{'_check'}{'itempos'} |
|
2148
|
305 |
25 |
unless $self->{'_check'}{$_} |
|
2170
|
51 |
4293 |
if ($grammar =~ /$COMMENT/cog) { } |
|
|
1 |
4292 |
elsif ($grammar =~ /$NEGLOOKAHEAD/cog) { } |
|
|
7 |
4285 |
elsif ($grammar =~ /$POSLOOKAHEAD/cog) { } |
|
|
85 |
4200 |
elsif ($grammar =~ /(?=$ACTION)/cog and do {
($code) = &extract_codeblock($grammar);
$code
}) { } |
|
|
37 |
4163 |
elsif ($grammar =~ /(?=$IMPLICITSUBRULE)/cog and do {
($code) = &extract_codeblock($grammar, '{([', undef, '(', 1);
$code
}) { } |
|
|
137 |
4026 |
elsif ($grammar =~ /$ENDDIRECTIVEMK/cog) { } |
|
|
166 |
3860 |
elsif ($grammar =~ /\G\s*<[^m]/cg) { } |
|
|
662 |
3198 |
elsif ($grammar =~ /$RULE/cog) { } |
|
|
1 |
3197 |
elsif ($grammar =~ /$UNCOMMITPROD/cog) { } |
|
|
7 |
3190 |
elsif ($grammar =~ /$ERRORPROD/cog) { } |
|
|
582 |
2608 |
elsif ($grammar =~ /$PROD/cog) { } |
|
|
919 |
1689 |
elsif ($grammar =~ /$LITERAL/cog) { } |
|
|
5 |
1684 |
elsif ($grammar =~ /$INTERPLIT/cog) { } |
|
|
208 |
1476 |
elsif ($grammar =~ /$TOKEN/cog) { } |
|
|
0 |
1476 |
elsif ($grammar =~ /(?=$MTOKEN)/cog and do {
($code, undef, @components) = &extract_quotelike($grammar);
$code
}) { } |
|
|
1476 |
0 |
elsif ($grammar =~ /(?=$MATCHRULE)/cog and do {
($code) = &extract_bracketed($grammar, '<');
$code
} or $grammar =~ /$SUBRULE/cog and $code = $1) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$LONECOLON/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$ACTION/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$OTHER/cog) { } |
|
2178
|
0 |
1 |
$lookahead ? : |
|
2185
|
0 |
7 |
$lookahead ? : |
|
2194
|
1 |
84 |
unless $prod and $prod->additem($item) |
|
2206
|
0 |
37 |
unless $self->_generate("$implicit : $code", $replace, 1) |
|
2217
|
3 |
134 |
if ($grammar =~ /\G[(]/cg) |
|
2221
|
0 |
3 |
if ($grammar =~ /$OPTIONAL/cog) { } |
|
|
3 |
0 |
elsif ($grammar =~ /$ANY/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$EXACTLY/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$BETWEEN/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$ATLEAST/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$ATMOST/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$MANY/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$BADREP/cog) { } |
|
2246
|
137 |
0 |
if $prod |
|
2252
|
137 |
29 |
if ($grammar =~ /$OPMK/cog) { } |
|
|
2 |
27 |
elsif ($grammar =~ /$UNCOMMITMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$QUOTELIKEMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$CODEBLOCKMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$VARIABLEMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$NOCHECKMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$AUTOSTUBMK/cog) { } |
|
|
0 |
27 |
elsif ($grammar =~ /$AUTORULEMK/cog) { } |
|
|
3 |
24 |
elsif ($grammar =~ /$AUTOTREEMK/cog) { } |
|
|
1 |
23 |
elsif ($grammar =~ /$REJECTMK/cog) { } |
|
|
2 |
21 |
elsif ($grammar =~ /(?=$CONDREJECTMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
0 |
21 |
elsif ($grammar =~ /(?=$SCOREMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
0 |
21 |
elsif ($grammar =~ /(?=$AUTOSCOREMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
8 |
13 |
elsif ($grammar =~ /$RESYNCMK/cog) { } |
|
|
0 |
13 |
elsif ($grammar =~ /(?=$RESYNCPATMK)/cog and do {
($code) = &extract_bracketed($grammar, '<');
$code
}) { } |
|
|
4 |
9 |
elsif ($grammar =~ /(?=$SKIPMK)/cog and do {
($code) = &extract_codeblock($grammar, '<');
$code
}) { } |
|
|
1 |
8 |
elsif ($grammar =~ /(?=$RULEVARPATMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
0 |
8 |
elsif ($grammar =~ /(?=$AUTOACTIONPATMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
0 |
8 |
elsif ($grammar =~ /(?=$DEFERPATMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
0 |
8 |
elsif ($grammar =~ /(?=$TOKENPATMK)/cog and do {
($code) = &extract_codeblock($grammar, '{', undef, '<');
$code
}) { } |
|
|
1 |
7 |
elsif ($grammar =~ /$COMMITMK/cog) { } |
|
|
0 |
7 |
elsif ($grammar =~ /$NOCHECKMK/cog) { } |
|
|
0 |
7 |
elsif ($grammar =~ /$HINTMK/cog) { } |
|
|
0 |
7 |
elsif ($grammar =~ /$WARNMK/cog) { } |
|
|
0 |
7 |
elsif ($grammar =~ /$TRACEBUILDMK/cog) { } |
|
|
0 |
7 |
elsif ($grammar =~ /$TRACEPARSEMK/cog) { } |
|
|
7 |
0 |
elsif ($grammar =~ /$AUTOERRORMK/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /(?=$MSGERRORMK)/cog and do {
$commitonly = $1;
($code) = &extract_bracketed($grammar, '<');
$code
}) { } |
|
|
0 |
0 |
elsif (do {
$commitonly = $1;
($code) = &extract_bracketed($grammar, '<');
$code
}) { } |
|
2263
|
0 |
2 |
unless $prod and $prod->additem($item) |
|
2275
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2285
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2294
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2300
|
0 |
0 |
if ($rule) { } |
|
2325
|
2 |
1 |
defined $1 ? : |
|
2327
|
1 |
2 |
if $base and not $base =~ /::$/ |
|
2329
|
0 |
3 |
if ($rule) { } |
|
2351
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2363
|
0 |
2 |
unless $prod and $prod->additem($item) |
|
2372
|
0 |
0 |
unless $prod and $prod->addscore($1, $lookahead, $line) |
|
2383
|
0 |
0 |
unless $rule and $rule->addautoscore($1, $self) |
|
2387
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2396
|
0 |
8 |
unless $prod and $prod->additem($item) |
|
2408
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2417
|
3 |
1 |
if ($rule) { } |
|
2421
|
0 |
3 |
unless $prod and $prod->additem($item) |
|
2436
|
0 |
1 |
unless $rule and $rule->addvar($1, $self) |
|
2440
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2450
|
0 |
0 |
if ($code =~ /\A\s*[^{]|[^}]\s*\Z/) |
|
2465
|
0 |
0 |
if ($code =~ /\A\s*[^{]|[^}]\s*\Z/) |
|
2473
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2487
|
0 |
0 |
if (not $types) { } |
|
2502
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2511
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2524
|
0 |
0 |
$1 ? : |
|
2528
|
0 |
0 |
$1 ? : |
|
2532
|
0 |
0 |
$1 ? : |
|
2539
|
0 |
7 |
unless $prod and $prod->additem($item) |
|
2551
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2559
|
0 |
0 |
if ($code =~ /^<[A-Z_]+>$/) { } |
|
2583
|
0 |
662 |
unless &_parseunneg('a rule declaration', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2586
|
0 |
662 |
if ($rulename =~ /Replace|Extend|Precompile|PrecompiledRuntime|Save/) |
|
2588
|
0 |
0 |
if &_warn(2, qq[Rule "$rulename" hidden by method\n Parse::RecDescent::$rulename], $line) |
|
2601
|
596 |
66 |
if $prod |
|
2608
|
0 |
1 |
unless &_parseunneg('a new (uncommitted) production', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2611
|
1 |
0 |
if $prod |
|
2613
|
0 |
1 |
unless $rule and $rule->addprod($prod) |
|
2620
|
0 |
7 |
unless &_parseunneg('a new (error) production', $aftererror, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2622
|
7 |
0 |
if $prod |
|
2624
|
0 |
7 |
unless $rule and $rule->addprod($prod) |
|
2630
|
0 |
582 |
unless &_parseunneg('a new production', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2632
|
0 |
582 |
unless $rule and !$prod || $prod->check_pending($line) and $prod = $rule->addprod('Parse::RecDescent::Production'->new($line)) |
|
2644
|
0 |
919 |
unless $prod and $prod->additem($item) |
|
2651
|
0 |
5 |
unless $prod and $prod->additem($item) |
|
2657
|
42 |
166 |
$3 ? : |
|
2658
|
0 |
208 |
unless $prod and $prod->additem($item) |
|
2671
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2683
|
2 |
1474 |
if (substr($name, 0, 1) eq '<') |
|
2696
|
456 |
1020 |
if ($grammar =~ /\G[(]/cg) { } |
|
2700
|
246 |
210 |
if ($grammar =~ /$OPTIONAL/cog) { } |
|
|
30 |
180 |
elsif ($grammar =~ /$ANY/cog) { } |
|
|
179 |
1 |
elsif ($grammar =~ /$MANY/cog) { } |
|
|
0 |
1 |
elsif ($grammar =~ /$EXACTLY/cog) { } |
|
|
1 |
0 |
elsif ($grammar =~ /$BETWEEN/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$ATLEAST/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$ATMOST/cog) { } |
|
|
0 |
0 |
elsif ($grammar =~ /$BADREP/cog) { } |
|
2708
|
0 |
246 |
unless $prod and $prod->additem($item) |
|
2711
|
246 |
0 |
if not $matchrule and $rule |
|
2716
|
1 |
29 |
if ($2) { } |
|
2731
|
0 |
29 |
unless $prod and $prod->additem($item) |
|
2734
|
29 |
0 |
if not $matchrule and $rule |
|
2736
|
29 |
0 |
if $main::RD_CHECK |
|
2742
|
126 |
53 |
if ($2) { } |
|
2759
|
0 |
53 |
unless $prod and $prod->additem($item) |
|
2762
|
53 |
0 |
if not $matchrule and $rule |
|
2764
|
53 |
0 |
if $main::RD_CHECK |
|
2770
|
0 |
0 |
if ($2) { } |
|
2785
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2788
|
0 |
0 |
if not $matchrule and $rule |
|
2794
|
0 |
1 |
if ($3) { } |
|
2809
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2812
|
1 |
0 |
if not $matchrule and $rule |
|
2818
|
0 |
0 |
if ($2) { } |
|
2833
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2836
|
0 |
0 |
if not $matchrule and $rule |
|
2837
|
0 |
0 |
if $main::RD_CHECK |
|
2843
|
0 |
0 |
if ($2) { } |
|
2858
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2861
|
0 |
0 |
if not $matchrule and $rule |
|
2879
|
0 |
1020 |
if ($name =~ /\A_alternation_\d+_of_production_\d+_of_rule/) |
|
2888
|
0 |
1020 |
unless $prod and $prod->additem($item) |
|
2891
|
1018 |
2 |
if not $matchrule and $rule |
|
2917
|
0 |
4285 |
if ($lookaheadspec =~ tr/.// > 3) |
|
2920
|
0 |
0 |
$lookahead < 0 ? : |
|
2923
|
0 |
0 |
if &_warn(1, "Found two or more lookahead specifiers in a\n row.", $line) |
|
2939
|
29 |
37 |
if ($must_pop_lines) |
|
2943
|
29 |
37 |
unless ($ERRORS or $isimplicit or not $main::RD_CHECK) |
|
2948
|
20 |
9 |
unless ($ERRORS or $isimplicit or $Parse::RecDescent::compiling) |
|
2951
|
0 |
20 |
if (defined $main::RD_TRACE) |
|
2953
|
0 |
0 |
$nextnamespace eq 'namespace000002' ? : |
|
2956
|
0 |
0 |
if open TRACE_FILE, $mode, 'RD_TRACE' and print TRACE_FILE "my \$ERRORS;\n$code" |
|
2961
|
0 |
20 |
unless (eval "$code 1") |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
4 |
1 |
defined $_[4] ? : |
|
|
4 |
1 |
$#arg & 1 ? : |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if $lastsep = $1 |
|
|
4 |
1 |
if defined $lastsep |
|
|
0 |
5 |
if defined $lastsep |
|
|
4 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aeasy/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
6 |
if (not defined $return and defined $score) |
|
|
2 |
4 |
unless defined $return |
|
|
6 |
0 |
if (defined $main::RD_TRACE) |
|
|
1 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
defined $_[4] ? : |
|
|
3 |
3 |
$#arg & 1 ? : |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
unless (defined($_tok = defn($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
1 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless (defined($_tok = typedef($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
2 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
6 |
if (defined $_itempos) |
|
|
6 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
6 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless (defined($_tok = fail($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
1 |
0 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
2 |
$#arg & 1 ? : |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if $lastsep = $1 |
|
|
4 |
0 |
if defined $lastsep |
|
|
4 |
0 |
if defined $lastsep |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and do {
$_tok = 'b';
1
} and substr($text, 0, length $_tok) eq $_tok and do {
substr($text, 0, length $_tok) = '';
1
}) |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
3 |
unless ($_matched or defined $score) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if (not defined $return and defined $score) |
|
|
3 |
0 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
3 |
$#arg & 1 ? : |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
$arg[0] ne 'meows' ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_tok) { } |
|
|
0 |
3 |
unless defined $_tok |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if $lastsep = $1 |
|
|
3 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Acat/) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
$_noactions ? : |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
5 |
0 |
unless (defined $_tok) |
|
|
5 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
0 |
5 |
if (defined $_itempos) |
|
|
4 |
1 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
$_noactions ? : |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
4 |
1 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ad/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ad/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
1 |
0 |
if defined $lastsep |
|
|
0 |
4 |
if defined $lastsep |
|
|
4 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ad/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
1 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Avar/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = id($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aholds/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined($_tok = typename($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A\;/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Adog/) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
$_noactions ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless (defined $_tok) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($_matched or defined $score) |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
2 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
defined $_[4] ? : |
|
|
0 |
2 |
$#arg & 1 ? : |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
5 |
0 |
if defined $main::RD_TRACE |
|
|
5 |
0 |
if $lastsep = $1 |
|
|
0 |
5 |
if defined $lastsep |
|
|
0 |
5 |
if defined $lastsep |
|
|
5 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:ee)/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
5 |
if (defined $_itempos) |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
0 |
5 |
unless ($_matched or defined $score) |
|
|
5 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
5 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
5 |
if defined $main::RD_TRACE |
|
|
5 |
0 |
defined $_[4] ? : |
|
|
0 |
5 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if $lastsep = $1 |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Asome\ extension/) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
1 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined $_tok) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($_matched or defined $score) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if (not defined $return and defined $score) |
|
|
3 |
0 |
unless defined $return |
|
|
0 |
3 |
if (defined $main::RD_TRACE) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
2 |
if $lastsep = $1 |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:[a-z] # LEADING ALPHABETIC
\w* # FOLLOWED BY ALPHAS, DIGITS, OR UNDERSCORES
)/xi) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
1 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
2 |
unless defined $return |
|
|
2 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ais/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aare/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if (not defined $return and defined $score) |
|
|
1 |
0 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Afred/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
$_noactions ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if $lastsep = $1 |
|
|
2 |
0 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:[a-z]\w*)/i) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
$_noactions ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless (defined $_tok) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (not defined $return and defined $score) |
|
|
0 |
2 |
unless defined $return |
|
|
2 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
unless (defined($_tok = string($thisparser, $text, $repeating, $_noactions, sub {
;
}
, undef))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($_matched or defined $score) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
2 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000006::skip)/'' if $lastsep = $1;/e and do {
$_tok = 'hello';
1
} and substr($text, 0, length $_tok) eq $_tok and do {
substr($text, 0, length $_tok) = '';
1
}) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
2 |
unless defined $return |
|
|
2 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and do {
$_tok = '(';
1
} and substr($text, 0, length $_tok) eq $_tok and do {
substr($text, 0, length $_tok) = '';
1
}) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Athe/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and do {
$_tok = "$main::first";
1
} and substr($text, 0, length $_tok) eq $_tok and do {
substr($text, 0, length $_tok) = '';
1
}) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
3 |
if defined $lastsep |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:te+st)/) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
unless (defined($_tok = is($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
unless (defined($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::namespace000001::_alternation_1_of_production_1_of_rule_test1, 0, 100000000, $_noactions, $expectation, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
$_noactions ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
unless (defined $_tok) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if (defined $_itempos) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000002::skip)/'' if $lastsep = $1;/e and $text =~ /\A(?:[a-z]+)/i) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined($_tok = &{'Parse::RecDescent::namespace000001::' . "$arg{'article'}";}($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = &{'Parse::RecDescent::namespace000001::' . "$arg[3]";}($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
unless (defined($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::namespace000001::_alternation_1_of_production_1_of_rule_test3, 5, 10, $_noactions, $expectation, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
0 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless (defined($_tok = b($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
4 |
if defined $lastsep |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:c)/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
$_noactions ? : |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless (defined $_tok) |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless ($_matched or defined $score) |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if (not defined $return and defined $score) |
|
|
1 |
0 |
unless defined $return |
|
|
1 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
3 |
defined $_[4] ? : |
|
|
0 |
3 |
$#arg & 1 ? : |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if (defined($_tok = name($thisparser, $text, $repeating, 1, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless (defined($_tok = notname($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
2 |
if (defined $_itempos) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = name($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
defined $_[4] ? : |
|
|
0 |
2 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless defined $_tok |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_tok) { } |
|
|
1 |
0 |
unless defined $_tok |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ab/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_tok) { } |
|
|
0 |
4 |
unless defined $_tok |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
0 |
if defined $lastsep |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ac/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
$test6 && $text ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_tok) { } |
|
|
0 |
1 |
unless defined $_tok |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
$_noactions ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined $_tok) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_tok) { } |
|
|
1 |
0 |
unless defined $_tok |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined $_tok) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
0 |
1 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
1 |
if defined $lastsep |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ax/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if ($text =~ s/(\A[^\n]*\n)//) { } |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (defined $_tok) { } |
|
|
0 |
1 |
unless defined $_tok |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
1 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:y+)/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined $_tok) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if (defined $_itempos) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
1 |
unless defined $return |
|
|
1 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
defined $_[4] ? : |
|
|
1 |
0 |
$#arg & 1 ? : |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined($_tok = b($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
1 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:c+)/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Adddd/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = e($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Af/) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
$_noactions ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless (defined $_tok) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (not defined $return and defined $score) |
|
|
0 |
0 |
unless defined $return |
|
|
0 |
2 |
if (defined $main::RD_TRACE) |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
defined $_[4] ? : |
|
|
0 |
4 |
$#arg & 1 ? : |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
4 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if $lastsep = $1 |
|
|
0 |
4 |
if defined $lastsep |
|
|
3 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Aa/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
unless (defined($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::namespace000001::d, 1, 100000000, $_noactions, $expectation, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if $lastsep = $1 |
|
|
0 |
4 |
if defined $lastsep |
|
|
4 |
0 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A(?:c)/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
4 |
$_noactions ? : |
|
|
0 |
4 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
unless (defined $_tok) |
|
|
2 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($_matched or defined $score) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if (not defined $return and defined $score) |
|
|
0 |
2 |
unless defined $return |
|
|
0 |
2 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
2 |
0 |
if defined $lastsep |
|
|
0 |
2 |
if defined $lastsep |
|
|
2 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Athe/) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if (defined $_itempos) |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
unless ($_matched or defined $score) |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if (not defined $return and defined $score) |
|
|
0 |
3 |
unless defined $return |
|
|
3 |
0 |
if (defined $main::RD_TRACE) |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
defined $_[4] ? : |
|
|
0 |
3 |
$#arg & 1 ? : |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
3 |
if defined $lastsep |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Atype/) |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
unless (defined($_tok = id($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
3 |
if defined $lastsep |
|
|
0 |
3 |
if defined $lastsep |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\Ais/) |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = typename($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
2 |
1 |
if defined $lastsep |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000001::skip)/'' if $lastsep = $1;/e and do {
$itempos[$#itempos]{'offset'}{'from'} += length $lastsep;
$itempos[$#itempos]{'line'}{'from'} = $thisline;
$itempos[$#itempos]{'column'}{'from'} = $thiscolumn;
1
} and $text =~ /\A\;/) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
2969
|
0 |
66 |
if ($ERRORS and not &_verbosity('HINT')) |
|
2971
|
0 |
0 |
defined $main::RD_HINT ? : |
|
2976
|
0 |
66 |
if ($ERRORS) |
|
2995
|
0 |
88 |
if $grammar =~ /$OPTIONAL/cog or $grammar =~ /$ANY/cog |
|
2997
|
58 |
30 |
if ($grammar =~ /$MANY/cog or $grammar =~ /$EXACTLY/cog or $grammar =~ /$ATMOST/cog or $grammar =~ /$BETWEEN/cog and do {
$min = $2;
1
} or $grammar =~ /$ATLEAST/cog and do {
$min = $2;
1
} or $grammar =~ /$SUBRULE(?!\s*:)/cog) |
|
3005
|
64 |
0 |
unless $1 eq $subrule and $min > 0 |
|
3007
|
6 |
0 |
if &_warn(3, qq[Subrule sequence "$subrule($repspec) $current_match" will\n (almost certainly) fail.], $line) |
|
3024
|
77 |
667 |
unless $rule->{'changed'} |
|
3031
|
2 |
4 |
unless (defined do {
$rules
}->{$call} or defined &{"Parse::RecDescent::$call";}) |
|
3034
|
0 |
2 |
if (not defined $main::RD_AUTOSTUB) { } |
|
3036
|
3 |
3 |
if &_warn(3, qq[Undefined (sub)rule "$call"\n used in a production.]) |
|
3049
|
2 |
0 |
if ($main::RD_AUTOSTUB and $main::RD_AUTOSTUB ne '1') |
|
3052
|
2 |
0 |
if &_warn(1, "Autogenerating rule: $call") |
|
3069
|
0 |
665 |
if ($rule->isleftrec($rules)) |
|
3084
|
0 |
1261 |
if ($hasempty) |
|
3104
|
5 |
28 |
defined $self->{'skip'} ? : |
|
3142
|
661 |
79 |
if ($rule->{'changed'}) |
|
3208
|
2 |
52 |
unless ref $_[0] |
|
3210
|
0 |
48 |
ref $_[1] eq 'SCALAR' ? : |
|
3212
|
3 |
49 |
if @_ > 2 |
|
3229
|
4 |
48 |
unless defined &$Parse::RecDescent::AUTOLOAD |
|
3241
|
47 |
5 |
if (defined $retval) { } |
|
3250
|
0 |
53 |
if (ref $_[1] eq 'SCALAR') |
|
3269
|
22 |
98 |
unless (defined($_tok = &$prod($parser, $text, 1, $_noactions, $argcode, $_itempos))) |
|
3275
|
8 |
95 |
if (defined $_itempos and not defined $itemposfirst) |
|
3280
|
98 |
5 |
if defined $_tok |
|
3281
|
1 |
102 |
if ++$reps >= $min and $prevtextlen == length $text |
|
3284
|
1 |
22 |
if ($reps < $min) |
|
3286
|
7 |
16 |
if (defined $itemposfirst) |
|
3306
|
0 |
1 |
unless $errortext =~ /\S/ |
|
3333
|
0 |
1 |
unless $tracemsg =~ /\S/ |
|
3343
|
1 |
0 |
unless $tracecontext =~ /\S/ |
|
3353
|
4207 |
31 |
unless defined $main::RD_TRACE or defined $main::RD_HINT and $main::RD_HINT and $_[0] =~ /ERRORS|WARN|HINT/ or defined $main::RD_WARN and $main::RD_WARN and $_[0] =~ /ERRORS|WARN/ |
|
3362
|
0 |
4 |
unless &_verbosity('ERRORS') |
|
3364
|
0 |
2 |
$_[1] ? : |
|
3366
|
2 |
2 |
if &_verbosity('WARN') |
|
3373
|
27 |
2 |
unless &_verbosity('WARN') and $main::RD_HINT || $_[0] >= ($main::RD_WARN || 1) |
|
3375
|
0 |
2 |
$_[2] ? : |
|
3376
|
2 |
0 |
if &_verbosity('HINT') |
|
3384
|
1 |
2 |
unless $main::RD_HINT |
|
3386
|
0 |
2 |
$_[1] ? : |
|
3394
|
0 |
0 |
if (defined $main::RD_TRACE and $main::RD_TRACE =~ /\d+/ and $main::RD_TRACE > 1 and $main::RD_TRACE + 10 < length $_[0]) { } |
|
3412
|
0 |
2 |
if (defined $main::RD_TRACE and $main::RD_TRACE =~ /\d+/ and $main::RD_TRACE > 1 and $main::RD_TRACE + 10 < length $_[0]) { } |
|
3436
|
0 |
2 |
if ($tracerulename) |
|
3437
|
0 |
2 |
if ($tracelevel) |
|
3443
|
0 |
0 |
if ($tracecontext ne $lastcontext) |
|
3445
|
2 |
0 |
if ($tracecontext) { } |
|
3466
|
16 |
2957 |
if (exists $self->{'lookahead'} and $self->{'lookahead'}) |
|
3468
|
8 |
13 |
$reject ? : |
|
3470
|
2 |
14 |
if ($self->{'lookahead'} < 0) |
|
3476
|
3544 |
2282 |
$matched ? : |
|
3482
|
0 |
1257 |
if ($_[2] < 0) |
|
3496
|
1 |
4207 |
if ($_[1]) |
|
3498
|
0 |
1 |
if &_warn(3, "Found $_[0] ($what) after an unconditional ", $_[2]) |
|
3507
|
4208 |
0 |
unless &_verbosity('TRACE') |