Revision: 87 Author: tim.bunce Date: Tue Aug 11 02:50:42 2009 Log: Updated the generated Gramar.pm file via Parse::RecDescent
http://code.google.com/p/java2perl6/source/detail?r=87 Modified: /trunk/lib/Java/Javap/Grammar.pm ======================================= --- /trunk/lib/Java/Javap/Grammar.pm Sat Nov 17 05:25:47 2007 +++ /trunk/lib/Java/Javap/Grammar.pm Tue Aug 11 02:50:42 2009 @@ -3109,35 +3109,33 @@ my $repcount = 0; - Parse::RecDescent::_trace(q{Trying subrule: [comp_stmt]}, + Parse::RecDescent::_trace(q{Trying repeated subrule: [comp_stmt]}, Parse::RecDescent::_tracefirst($text), q{comp_unit}, $tracelevel) if defined $::RD_TRACE; - if (1) { no strict qw{refs}; $expectation->is(q{})->at($text);- unless (defined ($_tok = Parse::RecDescent::Java::Javap::Grammar::comp_stmt($thisparser,$text,$repeating,$_noactions,sub { \...@arg })))
- {
-
- Parse::RecDescent::_trace(q{<<Didn't match subrule:
[comp_stmt]>>},
+
+ unless (defined ($_tok = $thisparser->_parserepeat($text,
\&Parse::RecDescent::Java::Javap::Grammar::comp_stmt, 0, 1,
$_noactions,$expectation,undef)))
+ {
+ Parse::RecDescent::_trace(q{<<Didn't match repeated subrule:
[comp_stmt]>>},
Parse::RecDescent::_tracefirst($text),
q{comp_unit},
$tracelevel)
if defined $::RD_TRACE;
- $expectation->failed();
last;
}
- Parse::RecDescent::_trace(q{>>Matched subrule: [comp_stmt]<< (return
value: [}
- . $_tok . q{]},
+ Parse::RecDescent::_trace(q{>>Matched repeated subrule:
[comp_stmt]<< (}
+ . @$_tok . q{ times)},
Parse::RecDescent::_tracefirst($text),
q{comp_unit},
$tracelevel)
if defined $::RD_TRACE;
- $item{q{comp_stmt}} = $_tok;
+ $item{q{comp_stmt(?)}} = $_tok;
push @item, $_tok;
- }
+
Parse::RecDescent::_trace(q{Trying subrule: [comp_unit_decl]},
Parse::RecDescent::_tracefirst($text),
@@ -7921,12 +7919,15 @@
'items'
=>
[
bless(
{
'subrule'
=> 'comp_stmt',
- 'matchrule'
=>
0,
- 'implicit'
=>
undef,
+ 'expected'
=>
undef,
+ 'min'
=>
0,
'argcode'
=>
undef,
+ 'max'
=>
1,
+ 'matchrule'
=>
0,
+ 'repspec'
=> '?',
'lookahead'
=>
0,
'line'
=>
9
-
}, 'Parse::RecDescent::Subrule'
),
+
}, 'Parse::RecDescent::Repetition'
),
bless(
{
'subrule'
=> 'comp_unit_decl',
'matchrule'
=>
0,
