Minilisp.pm/tool/run.pl

18 lines
283 B
Perl
Raw Normal View History

2021-04-04 01:17:18 +02:00
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Minilisp;
my $scriptfile = shift;
die "No script file provided." unless defined $scriptfile && -f $scriptfile;
my $parsed = Minilisp::compile_file($scriptfile);
2021-04-04 22:15:13 +02:00
$parsed->();
2021-04-04 01:17:18 +02:00
exit 0;