spike.pl

来自「这是一个DFA简化和生成LL(1)分析表的程序,自动生成表格及图形」· PL 代码 · 共 56 行

#: spike.pl
#: This is a bootstrapped version of ../spike.pl
#: 2006-05-25 2006-05-26

use strict;
use warnings;

use Getopt::Std;

use Text::Balanced;
use spike_parser2;
use spike_emitter;

{
    package Spike::Parser;
    use Text::Balanced qw/ extract_delimited extract_codeblock /;
}

my %opts;
getopts('mn:', \%opts);

my $infile = shift or
    die "Usage: spike [-m] [-n <package-name>] <grammar-file>.\n";

my $filetype;
if ($opts{m}) {
    $filetype = 'pm';
} else {
    $filetype= 'pl';
}

my $package = $opts{n} || 'Parser';

open my $in, $infile or
    die "Can't open $infile for reading: $!\n";
my $src;
{ local $/; $src = <$in>; }
close $in;

my $parser = Spike::Parser->new;
my $ast = $parser->parse($src);
defined $ast or die "Bad grammar!\n";

my $code = Spike::Emitter->emit($ast, $filetype, $package);
defined $code or die "Can't emit parser!\n";

my $outfile = $infile;
if ($outfile !~ s/\.grammar$/.$filetype/) {
    $outfile .= ".$filetype";
}
open my $out, "> $outfile" or
    die "Can't open $outfile for writing: $!\n";
print $out $code;
close $out;
print "$outfile generated.\n";