1 #!/usr/bin/perl -w

     1 #!/usr/bin/perl -w

     2 

     2 

     3 use strict;

     3 use strict;

     4 use Parse::RecDescent;

     4 use Parse::RecDescent;

     5 use Data::Dumper;

     5 use Data::Dumper;

     6 

     7 

     7 my $grammar_file = shift;

     8 my $grammar_file = shift;

     8 unless (defined $grammar_file) {

    10 unless (defined $grammar_file) {

     9 	print "Usage: $0 grammar_file\n";

    11 	print "Usage: $0 grammar_file\n";

    10 	exit 1;

    12 	exit 1;

    11 }

    13 }

    12 

    14 

    35 	$content = <>;

    37 	$content = <>;

    36 }

    38 }

    37 

    39 

    38 $::res = {};

    40 $::res = {};

    39 my $p_res = $parser->file($content);

    41 my $p_res = $parser->file($content);

    43 print Dumper $::res;

    43 print Dumper $::res;