#!/usr/bin/perl -w
use strict;
use Parse::Eyapp;
use Parse::Eyapp::Treeregexp;

sub TERMINAL::info { $_[0]{attr} }

my $grammar = q{

  %syntactic token b
  %semantic token 'a' 'c'
  %tree

  %%

  S: %name ABC
       A B C
   | %name BC
       B C
  ;

  A: %name A
       'a' 
  ;

  B: %name B
       b
  ;

  C: %name C
      'c'
  ;
  %%

  sub _Error {
    die "Syntax error.\n";
  }

  my $in;

  sub _Lexer {
      my($parser)=shift;

      {
        $in  or  return('',undef);

        $in =~ s/^\s+//;

        $in =~ s/^([Bb])// and return('b', 'b');
        $in =~ s/^([AaCc])// and return($1,$1);
        $in =~ s/^(.)//s and print "<$1>\n";
        redo;
      }
  }

  sub Run {
      my($self)=shift;
      #$in = shift;
      $in = <>;
      $self->YYParse( yylex => \&_Lexer, yyerror => \&_Error, );
  }
}; # end grammar

$Data::Dumper::Indent = 1;
Parse::Eyapp->new_grammar(input=>$grammar, classname=>'AB', firstline => 9, outputfile => 'AB.pm');
my $parser = AB->new();
my $t = $parser->Run("aabbc");
#print "\n***** Before ******\n";
print $t->str;

my $p = Parse::Eyapp::Treeregexp->new( STRING => q{
   delete_b_in_abc : /ABC|BC/(@a, B, @c)
     => { @{$_[0]->{children}} = (@a, @c) }
  },
  SEVERITY => 0,
  OUTPUTFILE => 'main.pm',
);
$p->generate();

our (@all);
$t->s(@all);
print "\n***** After ******\n";
print $t->str,"\n";