Oh lord, there must be an easier way to do this in Parse::RecDescent, so why can't I see it? I think Merlyn's right - it's better to compile the data into another form rather then try to screw around with it on-the-fly.

What this does is save every line seen, and, when a GOTO is encountered, it's all pasted it all back into to top of $text (which holds the unparsed text.) There is no error checking to make sure the line to go to actually exists. 

use Parse::RecDescent;

$RD_HINT++;
$RD_WARN++;

my $grammar = q{
  Start: Expression(s) /\Z/

  Expression: 
    LineNum Print    
    {                
      $thisparser->{_lines}->{$item[1]} = $item[1].' PRINT "'.$item[2]
+.'"';
    }
    | LineNum Goto  
    {               
      $text = $item[1] . " GOTO " . $item[2] . $text;
      foreach ( sort { $b <=> $a } grep { $_ >= $item[2] } keys %{$thi
+sparser->{_lines}} ) {
        $text = $thisparser->{_lines}->{$_} . $text;
      }                                             
    }
    | <error>

  Print: /print/i /\"/ /[\s\w]+/ /\"/  
  {
      print "$item[3]\n";
      $item[3];          
  }
  Goto: /goto/i LineNum
  {
      $item[2];
               
      # print "Seen a goto line $item[2]\n";
      # How do I seek back to line $item[2] of
      # the input?                            
  }
  LineNum: /\d+/
};

my $parser = new Parse::RecDescent($grammar);

undef $/;
my $text = <DATA>;

$parser->Start($text);

__END__
10 print "hello"
20 print "this"
30 print "is"
40 print "a"
50 print "test"
60 print "goodbye"
70 goto 30

[download]

There's a general method or something that I'm missing or have skipped over or have forgotten ...

In reply to Re: Goto with Parse::RecDescent by eg
in thread Goto with Parse::RecDescent by bent

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.