[PATCH languages/perl6/P6C/Parser.pm] Allow Debug() to work in grammar about old-issue-tracker

[p6rt]

From @chromatic

The --debug-info and -g flags were not working in the perl6 binary. It would
have been enabled in this section of get_parser()​:

  if (defined $OPT{'debug-info'}) {
  if ($parser->can('Debug')) {
  $parser->Debug(1);
  }
  else {
  $parser->Replace(q!stmts​: __stmt[$arg[0]](s?) !);
  }
  }

Unfortunately, while $parser is blessed into the Parse​::RecDescent package,
the Debug() method in the grammar lives in
Parse​::RecDescent​::namespace000001. This patch corrects P6C​::Parser to put
Debug() in the Parse​::RecDescent package.

This may not be the ideal solution, but it fixes the problem for me.

-- c

[p6rt]

From @chromatic

p6cparser.patch

Index: languages/perl6/P6C/Parser.pm
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/P6C/Parser.pm,v
retrieving revision 1.21
diff -u -r1.21 Parser.pm
--- languages/perl6/P6C/Parser.pm	12 Sep 2002 14:34:40 -0000	1.21
+++ languages/perl6/P6C/Parser.pm	15 Nov 2002 07:07:32 -0000
@@ -320,7 +320,7 @@
 
 my $seen_err;
 
-sub Debug {
+sub Parse::RecDescent::Debug {
     my ($parser, $on) = @_;
     if ($on) {
 	$parser->Replace("\nstmts:            __stmt[\$arg[0]](s?)\n");
@@ -593,7 +593,7 @@
 		| /\A/ stmts[0] /\z/ <commit> {$seen_err ? undef : 1} ''
 		| {got_err("Invalid statement", $text, $thisline); undef;}
 
-# this rule get's substiuted by �-g� switch in perl6
+# this rule gets substituted by �-g� switch in perl6
 # so that __stmt is used.
 stmts:		  _stmt[$arg[0]](s?)
 

[p6rt]

From [email protected]

Works for me. Applied.

/s

[chromatic <!--c--> <i>at</i> <!--a--> wgz.org - Fri Nov 15 00​:09​:28 2002]​:

The --debug-info and -g flags were not working in the perl6 binary.
It would
have been enabled in this section of get_parser()​:

if \(defined $OPT\{'debug\-info'\}\) \{
    if \($parser\->can\('Debug'\)\) \{
        $parser\->Debug\(1\);
    \}
    else \{
        $parser\->Replace\(q\!stmts​:  \_\_stmt\[$arg\[0\]\]\(s?\) \!\);
    \}
\}

Unfortunately, while $parser is blessed into the Parse​::RecDescent
package,
the Debug() method in the grammar lives in
Parse​::RecDescent​::namespace000001. This patch corrects P6C​::Parser
to put
Debug() in the Parse​::RecDescent package.

This may not be the ideal solution, but it fixes the problem for me.

-- c

[p6rt]

[email protected] - Status changed from 'new' to 'resolved'