#/usr/bin/perl -Wl

use strict;
use warnings;
use Parse::RecDescent;
use Data::Dumper;
use Data::Serializer;

my $grammar;
my $grammarfile = $ARGV[0];
open my $gf,'<',$grammarfile or die 'bad grammarfile';

while (<$gf>) {
    $grammar.=$_;
}

close $gf;

print '$grammar is ',"\n",$grammar;

$::RD_HINT++;
#$::RD_TRACE++;

my $parser = new Parse::RecDescent ($grammar) or die 'bad grammar';

my $stringtoparsefile = $ARGV[1];

open my $sf,'<',$stringtoparsefile or die 'bad stringstoparse file';

my $result;
my $reresult;
my $serializer = Data::Serializer->new(portable   => '0',serializer => 'Data::Dumper');
my $outfilebasename = 'data';
my $outfileext = 'out';
my $outfileindex = 10;
while (<$sf>) {
    print 'parsing $_: ',$_;
    if (defined $parser->startrule($_)){
        $result = $parser->startrule($_);
        print Dumper($result);
        $serializer->store(
            $result,
            $outfilebasename.$outfileindex.'.'.$outfileext,
            '>>'
        );
        $reresult = $serializer->retrieve(
            $outfilebasename.$outfileindex++.'.'.$outfileext,
        );
        print Dumper($reresult);
    }else{ print "  badstring\n"}
}