| 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 |
28264 |
if ($_ =~ /^\s*#\s*ifndef\s+RUNTIME\s*$/) |
|
165
|
1592 |
26680 |
if ($exclude) { } |
|
166
|
8 |
1584 |
if ($_ =~ /^\s*#\s*endif\s$/) |
|
170
|
8 |
26672 |
if ($_ =~ /^__END__/) |
|
188
|
9 |
0 |
if ($grammar) |
|
192
|
1 |
8 |
unless ($opt{-'standalone'}) |
|
196
|
9 |
0 |
if ($grammar) |
|
212
|
0 |
9 |
unless close OUT |
|
222
|
119 |
455 |
$_[3] ? : |
|
236
|
291 |
324 |
unless (exists $cache->{$from}) |
|
256
|
0 |
0 |
unless $self =~ /Parse::RecDescent::LineCounter/ |
|
272
|
119 |
119 |
$_[3] ? : |
|
297
|
119 |
119 |
$_[3] ? : |
|
327
|
4 |
658 |
if (defined $owner->{'rules'}{$name}) { } |
|
330
|
0 |
4 |
if ($replace and not $self->{'changed'}) |
|
372
|
1235 |
4589 |
if $prod->hasleftmost($ref) |
|
401
|
1216 |
80 |
unless (not $next or &_contains($next, @expected)) |
|
414
|
553 |
9580 |
if $target eq $item |
|
421
|
1034 |
313 |
unless (&_contains($subrule, @{$$self{'calls'};})) |
|
441
|
0 |
1 |
if ($var =~ /\A\s*local\s+([%\@\$]\w+)/) { } |
|
480
|
661 |
0 |
unless $parser->{'saving'} |
|
542
|
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'} ? : |
|
548
|
0 |
1257 |
if $self->{'autoscore'} |
|
549
|
0 |
1257 |
unless $prod->checkleftmost |
|
553
|
0 |
1257 |
$parser->{'deferrable'} ? : |
|
595
|
0 |
661 |
$parser->{'deferrable'} ? : |
|
615
|
189 |
1558 |
unless defined $rules->{$next} |
|
616
|
0 |
1558 |
if $next eq $root |
|
620
|
1151 |
182 |
unless &_contains($child, @left) |
|
631
|
170 |
4474 |
unless $_->describe($_[1]) |
|
655
|
1296 |
0 |
$itemcount ? : |
|
661
|
5824 |
0 |
if scalar @{$self->{'items'};} |
|
675
|
4993 |
0 |
if ($#{$$self{'items'};} >= 0) |
|
678
|
1929 |
3064 |
if defined $subrule |
|
687
|
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 || '') =~ /
|
|
712
|
0 |
0 |
$items[0]->describe =~ /
|
|
|
0 |
0 |
$items[0]->describe =~ /
|
|
717
|
0 |
0 |
$items[0]->describe =~ /
|
|
720
|
0 |
0 |
@items > 1 ? : |
|
738
|
98 |
2215 |
if (ref($item) =~ /Parse::RecDescent::(Action|Directive)/) |
|
740
|
3 |
95 |
if $item->{'code'} =~ /\$skip\s*=/ |
|
763
|
0 |
0 |
unless $self->{'items'}[-1]->describe =~ /
|
|
770
|
137 |
1049 |
if ($self->{'op'}) |
|
787
|
0 |
137 |
unless ($self->{'op'}) |
|
800
|
137 |
0 |
if ($op->{'type'} =~ /left|right/) |
|
802
|
0 |
137 |
if ($span != 3) { } |
|
826
|
0 |
0 |
unless (@{$self->{'items'};}) |
|
865
|
0 |
177 |
'ARRAY' eq ref $typekeys ? : |
|
871
|
531 |
0 |
if ('ARRAY' eq ref $poskeys) { } |
|
947
|
8 |
1249 |
defined $self->{'uncommit'} ? : |
|
|
3 |
1254 |
$self->changesskip ? : |
|
|
7 |
1250 |
defined $self->{'error'} ? : |
|
953
|
51 |
1206 |
if $parser->{'_check'}{'itempos'} |
|
962
|
112 |
2210 |
if $parser->{'_check'}{'itempos'} |
|
966
|
112 |
2210 |
if $parser->{'_check'}{'itempos'} |
|
970
|
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')) { } |
|
973
|
0 |
0 |
if &Parse::RecDescent::_warn(1, qq[Autogenerating action in rule\n "$rule->{'name'}":\n $parser->{'_AUTOACTION'}{'code'}]) |
|
985
|
6 |
21 |
if ($i == 1 and $item->isterminal) { } |
|
993
|
0 |
27 |
if &Parse::RecDescent::_warn(1, qq[Autogenerating tree-building action in rule\n "$rule->{'name'}"]) |
|
1012
|
51 |
1206 |
$parser->{'_check'}{'itempos'} ? : |
|
1075
|
0 |
112 |
$self->{'lookahead'} ? : |
|
|
0 |
112 |
$self->{'lookahead'} < 0 ? : |
|
|
85 |
27 |
$self->{'line'} >= 0 ? : |
|
|
0 |
112 |
$self->{'lookahead'} ? : |
|
1088
|
12 |
67 |
$_[1] ? : |
|
1133
|
0 |
23 |
$self->{'lookahead'} ? : |
|
|
0 |
23 |
$self->{'lookahead'} ? : |
|
|
0 |
23 |
$self->{'lookahead'} < 0 ? : |
|
|
0 |
23 |
$self->{'lookahead'} ? : |
|
1143
|
1 |
7 |
$_[1] ? : |
|
1177
|
0 |
2 |
$self->{'lookahead'} ? : |
|
|
0 |
2 |
$self->{'lookahead'} ? : |
|
|
0 |
2 |
$self->{'lookahead'} < 0 ? : |
|
1187
|
0 |
35 |
$_[0]{'commitonly'} ? : |
|
|
7 |
35 |
$_[1] ? : |
|
1208
|
0 |
7 |
if ($self->{'msg'}) { } |
|
1228
|
0 |
7 |
$self->{'commitonly'} ? : |
|
1258
|
208 |
0 |
if ($ldel eq '/') { } |
|
1265
|
0 |
205 |
if (not eval "no strict;\n local \$SIG{__WARN__} = sub {0};\n '' =~ m$ldel$pattern$rdel$mod" and $@) |
|
1335
|
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'} ? : |
|
1408
|
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'} ? : |
|
1482
|
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'} ? : |
|
1499
|
7 |
3374 |
if $_[0]{'matchrule'} |
|
1505
|
2 |
1018 |
if ($_[0]{'matchrule'}) { } |
|
1575
|
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'} ? : |
|
1589
|
0 |
1777 |
if $_[0]{'matchrule'} |
|
1595
|
0 |
329 |
if ($_[0]{'matchrule'}) { } |
|
1605
|
0 |
329 |
if $max < $min |
|
1608
|
37 |
292 |
if ($subrule =~ /\A_alternation_\d+_of_production_\d+_of_rule/) |
|
1611
|
0 |
329 |
if ($lookahead) |
|
1613
|
0 |
0 |
if ($min > 0) { } |
|
1690
|
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'} ? : |
|
1756
|
132 |
5 |
$rule->hasleftmost($self) ? : |
|
1774
|
8 |
129 |
if $check->{'itempos'} |
|
1776
|
133 |
4 |
if ($self->{'type'} eq 'leftop') { } |
|
1789
|
4 |
129 |
if $check->{'itempos'} |
|
1804
|
133 |
0 |
$op->isterminal ? : |
|
|
133 |
0 |
ref $op eq 'Parse::RecDescent::Token' ? : |
|
1831
|
4 |
0 |
if $check->{'itempos'} |
|
1839
|
4 |
0 |
$op->isterminal ? : |
|
|
4 |
0 |
ref $op eq 'Parse::RecDescent::Token' ? : |
|
1850
|
134 |
3 |
unless $self->{'min'} == 0 |
|
1863
|
8 |
129 |
if $check->{'itempos'} |
|
1925
|
204 |
15 |
unless $_[0]{'lastexpected'} |
|
1926
|
15 |
0 |
unless $_[0]{'failed'} |
|
1927
|
15 |
0 |
unless $_[0]{'failed'} |
|
1934
|
0 |
0 |
unless $self->{'expected'} |
|
1936
|
0 |
0 |
if (not $self->{'unexpected'} or $self->{'unexpected'} =~ /\A\s*\Z/s) { } |
|
1974
|
9 |
16 |
defined $_[3] ? : |
|
1995
|
0 |
25 |
if ($main::RD_AUTOACTION) |
|
1997
|
0 |
0 |
unless $sourcecode =~ /\A\s*\{.*\}\s*\Z/ |
|
2017
|
13 |
10 |
if ($self->{'_not_precompiled'}) |
|
2041
|
77 |
65 |
if defined &$glob |
|
2073
|
0 |
0 |
$_[2] ? : |
|
2144
|
29 |
37 |
unless ($lines[-1]) |
|
2149
|
61 |
5 |
unless $self->{'_check'}{'itempos'} |
|
2154
|
305 |
25 |
unless $self->{'_check'}{$_} |
|
2176
|
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) { } |
|
2184
|
0 |
1 |
$lookahead ? : |
|
2191
|
0 |
7 |
$lookahead ? : |
|
2200
|
1 |
84 |
unless $prod and $prod->additem($item) |
|
2212
|
0 |
37 |
unless $self->_generate("$implicit : $code", $replace, 1) |
|
2223
|
3 |
134 |
if ($grammar =~ /\G[(]/cg) |
|
2227
|
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) { } |
|
2252
|
137 |
0 |
if $prod |
|
2258
|
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
}) { } |
|
2269
|
0 |
2 |
unless $prod and $prod->additem($item) |
|
2281
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2291
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2300
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2306
|
0 |
0 |
if ($rule) { } |
|
2331
|
2 |
1 |
defined $1 ? : |
|
2333
|
1 |
2 |
if $base and not $base =~ /::$/ |
|
2335
|
0 |
3 |
if ($rule) { } |
|
2357
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2369
|
0 |
2 |
unless $prod and $prod->additem($item) |
|
2378
|
0 |
0 |
unless $prod and $prod->addscore($1, $lookahead, $line) |
|
2389
|
0 |
0 |
unless $rule and $rule->addautoscore($1, $self) |
|
2393
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2402
|
0 |
8 |
unless $prod and $prod->additem($item) |
|
2414
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2423
|
3 |
1 |
if ($rule) { } |
|
2427
|
0 |
3 |
unless $prod and $prod->additem($item) |
|
2442
|
0 |
1 |
unless $rule and $rule->addvar($1, $self) |
|
2446
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2456
|
0 |
0 |
if ($code =~ /\A\s*[^{]|[^}]\s*\Z/) |
|
2471
|
0 |
0 |
if ($code =~ /\A\s*[^{]|[^}]\s*\Z/) |
|
2479
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2493
|
0 |
0 |
if (not $types) { } |
|
2508
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2517
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2530
|
0 |
0 |
$1 ? : |
|
2534
|
0 |
0 |
$1 ? : |
|
2538
|
0 |
0 |
$1 ? : |
|
2545
|
0 |
7 |
unless $prod and $prod->additem($item) |
|
2557
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2565
|
0 |
0 |
if ($code =~ /^<[A-Z_]+>$/) { } |
|
2589
|
0 |
662 |
unless &_parseunneg('a rule declaration', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2592
|
0 |
662 |
if ($rulename =~ /Replace|Extend|Precompile|PrecompiledRuntime|Save/) |
|
2594
|
0 |
0 |
if &_warn(2, qq[Rule "$rulename" hidden by method\n Parse::RecDescent::$rulename], $line) |
|
2607
|
596 |
66 |
if $prod |
|
2614
|
0 |
1 |
unless &_parseunneg('a new (uncommitted) production', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2617
|
1 |
0 |
if $prod |
|
2619
|
0 |
1 |
unless $rule and $rule->addprod($prod) |
|
2626
|
0 |
7 |
unless &_parseunneg('a new (error) production', $aftererror, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2628
|
7 |
0 |
if $prod |
|
2630
|
0 |
7 |
unless $rule and $rule->addprod($prod) |
|
2636
|
0 |
582 |
unless &_parseunneg('a new production', 0, $lookahead, $line, substr($grammar, $-[0], $+[0] - $-[0])) |
|
2638
|
0 |
582 |
unless $rule and !$prod || $prod->check_pending($line) and $prod = $rule->addprod('Parse::RecDescent::Production'->new($line)) |
|
2650
|
0 |
919 |
unless $prod and $prod->additem($item) |
|
2657
|
0 |
5 |
unless $prod and $prod->additem($item) |
|
2663
|
42 |
166 |
$3 ? : |
|
2664
|
0 |
208 |
unless $prod and $prod->additem($item) |
|
2677
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2689
|
2 |
1474 |
if (substr($name, 0, 1) eq '<') |
|
2702
|
456 |
1020 |
if ($grammar =~ /\G[(]/cg) { } |
|
2706
|
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) { } |
|
2714
|
0 |
246 |
unless $prod and $prod->additem($item) |
|
2717
|
246 |
0 |
if not $matchrule and $rule |
|
2722
|
1 |
29 |
if ($2) { } |
|
2737
|
0 |
29 |
unless $prod and $prod->additem($item) |
|
2740
|
29 |
0 |
if not $matchrule and $rule |
|
2742
|
29 |
0 |
if $main::RD_CHECK |
|
2748
|
126 |
53 |
if ($2) { } |
|
2765
|
0 |
53 |
unless $prod and $prod->additem($item) |
|
2768
|
53 |
0 |
if not $matchrule and $rule |
|
2770
|
53 |
0 |
if $main::RD_CHECK |
|
2776
|
0 |
0 |
if ($2) { } |
|
2791
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2794
|
0 |
0 |
if not $matchrule and $rule |
|
2800
|
0 |
1 |
if ($3) { } |
|
2815
|
0 |
1 |
unless $prod and $prod->additem($item) |
|
2818
|
1 |
0 |
if not $matchrule and $rule |
|
2824
|
0 |
0 |
if ($2) { } |
|
2839
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2842
|
0 |
0 |
if not $matchrule and $rule |
|
2843
|
0 |
0 |
if $main::RD_CHECK |
|
2849
|
0 |
0 |
if ($2) { } |
|
2864
|
0 |
0 |
unless $prod and $prod->additem($item) |
|
2867
|
0 |
0 |
if not $matchrule and $rule |
|
2885
|
0 |
1020 |
if ($name =~ /\A_alternation_\d+_of_production_\d+_of_rule/) |
|
2894
|
0 |
1020 |
unless $prod and $prod->additem($item) |
|
2897
|
1018 |
2 |
if not $matchrule and $rule |
|
2923
|
0 |
4285 |
if ($lookaheadspec =~ tr/.// > 3) |
|
2926
|
0 |
0 |
$lookahead < 0 ? : |
|
2929
|
0 |
0 |
if &_warn(1, "Found two or more lookahead specifiers in a\n row.", $line) |
|
2945
|
29 |
37 |
if ($must_pop_lines) |
|
2949
|
29 |
37 |
unless ($ERRORS or $isimplicit or not $main::RD_CHECK) |
|
2954
|
20 |
9 |
unless ($ERRORS or $isimplicit or $Parse::RecDescent::compiling) |
|
2957
|
0 |
20 |
if (defined $main::RD_TRACE) |
|
2959
|
0 |
0 |
$nextnamespace eq 'namespace000002' ? : |
|
2962
|
0 |
0 |
if open TRACE_FILE, $mode, 'RD_TRACE' and print TRACE_FILE "my \$ERRORS;\n$code" |
|
2967
|
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 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if $lastsep = $1 |
|
|
1 |
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 =~ /\A(?:[a-z]\w*)/i) |
|
|
0 |
0 |
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 |
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 |
|
|
0 |
0 |
defined $_[4] ? : |
|
|
0 |
1 |
$#arg & 1 ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = string($thisparser, $text, $repeating, $_noactions, sub {
;
}
, undef))) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
if defined $main::RD_TRACE |
|
|
2 |
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 |
0 |
if (defined $main::RD_TRACE) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
defined $_[4] ? : |
|
|
0 |
2 |
$#arg & 1 ? : |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if $lastsep = $1 |
|
|
0 |
0 |
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 |
|
|
2 |
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 |
2 |
unless defined $return |
|
|
0 |
2 |
if (defined $main::RD_TRACE) |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
2 |
0 |
defined $_[4] ? : |
|
|
0 |
0 |
$#arg & 1 ? : |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
2 |
if $lastsep = $1 |
|
|
0 |
2 |
if defined $lastsep |
|
|
0 |
2 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
unless ($text =~ s/\A($Parse::RecDescent::namespace000002::skip)/'' if $lastsep = $1;/e and $text =~ /\A(?:[a-z]+)/i) |
|
|
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 |
2 |
unless (defined $_tok) |
|
|
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 |
2 |
unless (defined $_tok) |
|
|
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 |
3 |
defined $_[4] ? : |
|
|
3 |
0 |
$#arg & 1 ? : |
|
|
3 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if $lastsep = $1 |
|
|
0 |
0 |
if defined $lastsep |
|
|
0 |
3 |
if defined $lastsep |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
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 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if $lastsep = $1 |
|
|
0 |
3 |
if defined $lastsep |
|
|
0 |
3 |
if defined $lastsep |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
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 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
3 |
if defined $main::RD_TRACE |
|
|
3 |
0 |
if $lastsep = $1 |
|
|
0 |
3 |
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 do {
$_tok = "$main::first";
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 |
0 |
if $lastsep = $1 |
|
|
0 |
1 |
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 =~ /\A(?:te+st)/) |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
unless (defined($_tok = is($thisparser, $text, $repeating, $_noactions, sub {
;
}
, $itempos[$#itempos]))) |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
0 |
0 |
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 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
if defined $main::RD_TRACE |
|
|
0 |
1 |
$_noactions ? : |
|
|
0 |
1 |
if defined $main::RD_TRACE |
|
|
1 |
0 |
unless (defined $_tok) |
|
|
1 |
0 |
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 |
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 |
|
2975
|
0 |
66 |
if ($ERRORS and not &_verbosity('HINT')) |
|
2977
|
0 |
0 |
defined $main::RD_HINT ? : |
|
2982
|
0 |
66 |
if ($ERRORS) |
|
3001
|
0 |
88 |
if $grammar =~ /$OPTIONAL/cog or $grammar =~ /$ANY/cog |
|
3003
|
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) |
|
3011
|
64 |
0 |
unless $1 eq $subrule and $min > 0 |
|
3013
|
6 |
0 |
if &_warn(3, qq[Subrule sequence "$subrule($repspec) $current_match" will\n (almost certainly) fail.], $line) |
|
3030
|
77 |
667 |
unless $rule->{'changed'} |
|
3037
|
2 |
4 |
unless (defined do {
$rules
}->{$call} or defined &{"Parse::RecDescent::$call";}) |
|
3040
|
0 |
2 |
if (not defined $main::RD_AUTOSTUB) { } |
|
3042
|
3 |
3 |
if &_warn(3, qq[Undefined (sub)rule "$call"\n used in a production.]) |
|
3055
|
2 |
0 |
if ($main::RD_AUTOSTUB and $main::RD_AUTOSTUB ne '1') |
|
3058
|
2 |
0 |
if &_warn(1, "Autogenerating rule: $call") |
|
3075
|
0 |
665 |
if ($rule->isleftrec($rules)) |
|
3090
|
0 |
1261 |
if ($hasempty) |
|
3110
|
5 |
28 |
defined $self->{'skip'} ? : |
|
3148
|
661 |
79 |
if ($rule->{'changed'}) |
|
3214
|
2 |
52 |
unless ref $_[0] |
|
3216
|
0 |
48 |
ref $_[1] eq 'SCALAR' ? : |
|
3218
|
3 |
49 |
if @_ > 2 |
|
3235
|
4 |
48 |
unless defined &$Parse::RecDescent::AUTOLOAD |
|
3247
|
47 |
5 |
if (defined $retval) { } |
|
3256
|
0 |
53 |
if (ref $_[1] eq 'SCALAR') |
|
3275
|
22 |
98 |
unless (defined($_tok = &$prod($parser, $text, 1, $_noactions, $argcode, $_itempos))) |
|
3281
|
8 |
95 |
if (defined $_itempos and not defined $itemposfirst) |
|
3286
|
98 |
5 |
if defined $_tok |
|
3287
|
1 |
102 |
if ++$reps >= $min and $prevtextlen == length $text |
|
3290
|
1 |
22 |
if ($reps < $min) |
|
3292
|
7 |
16 |
if (defined $itemposfirst) |
|
3312
|
0 |
1 |
unless $errortext =~ /\S/ |
|
3339
|
0 |
1 |
unless $tracemsg =~ /\S/ |
|
3349
|
1 |
0 |
unless $tracecontext =~ /\S/ |
|
3359
|
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/ |
|
3368
|
0 |
4 |
unless &_verbosity('ERRORS') |
|
3370
|
0 |
2 |
$_[1] ? : |
|
3372
|
2 |
2 |
if &_verbosity('WARN') |
|
3379
|
27 |
2 |
unless &_verbosity('WARN') and $main::RD_HINT || $_[0] >= ($main::RD_WARN || 1) |
|
3381
|
0 |
2 |
$_[2] ? : |
|
3382
|
2 |
0 |
if &_verbosity('HINT') |
|
3390
|
1 |
2 |
unless $main::RD_HINT |
|
3392
|
0 |
2 |
$_[1] ? : |
|
3400
|
0 |
0 |
if (defined $main::RD_TRACE and $main::RD_TRACE =~ /\d+/ and $main::RD_TRACE > 1 and $main::RD_TRACE + 10 < length $_[0]) { } |
|
3418
|
0 |
2 |
if (defined $main::RD_TRACE and $main::RD_TRACE =~ /\d+/ and $main::RD_TRACE > 1 and $main::RD_TRACE + 10 < length $_[0]) { } |
|
3442
|
0 |
2 |
if ($tracerulename) |
|
3443
|
0 |
2 |
if ($tracelevel) |
|
3449
|
0 |
0 |
if ($tracecontext ne $lastcontext) |
|
3451
|
2 |
0 |
if ($tracecontext) { } |
|
3472
|
16 |
2957 |
if (exists $self->{'lookahead'} and $self->{'lookahead'}) |
|
3474
|
8 |
13 |
$reject ? : |
|
3476
|
2 |
14 |
if ($self->{'lookahead'} < 0) |
|
3482
|
3544 |
2282 |
$matched ? : |
|
3488
|
0 |
1257 |
if ($_[2] < 0) |
|
3502
|
1 |
4207 |
if ($_[1]) |
|
3504
|
0 |
1 |
if &_warn(3, "Found $_[0] ($what) after an unconditional ", $_[2]) |
|
3513
|
4208 |
0 |
unless &_verbosity('TRACE') |