2014-04-19 22:55:30 +04:00
|
|
|
use strict;
|
2014-04-22 05:08:18 +04:00
|
|
|
use warnings FATAL => qw(all);
|
2014-05-11 01:03:25 +04:00
|
|
|
use File::Basename;
|
|
|
|
use lib dirname (__FILE__);
|
2015-03-07 18:04:07 +03:00
|
|
|
use readline qw(mal_readline set_rl_mode);
|
2014-04-19 22:55:30 +04:00
|
|
|
|
|
|
|
# read
|
|
|
|
sub READ {
|
|
|
|
my $str = shift;
|
|
|
|
return $str;
|
|
|
|
}
|
|
|
|
|
|
|
|
# eval
|
|
|
|
sub EVAL {
|
|
|
|
my($ast, $env) = @_;
|
|
|
|
return $ast;
|
|
|
|
}
|
|
|
|
|
|
|
|
# print
|
|
|
|
sub PRINT {
|
|
|
|
my $exp = shift;
|
|
|
|
return $exp;
|
|
|
|
}
|
|
|
|
|
|
|
|
# repl
|
|
|
|
sub REP {
|
|
|
|
my $str = shift;
|
|
|
|
return PRINT(EVAL(READ($str), {}));
|
|
|
|
}
|
|
|
|
|
2015-03-07 18:04:07 +03:00
|
|
|
if (scalar(@ARGV) > 0 && $ARGV[0] eq "--raw") {
|
|
|
|
set_rl_mode("raw");
|
|
|
|
}
|
2014-04-19 22:55:30 +04:00
|
|
|
while (1) {
|
2014-05-11 01:03:25 +04:00
|
|
|
my $line = mal_readline("user> ");
|
2014-04-19 22:55:30 +04:00
|
|
|
if (! defined $line) { last; }
|
|
|
|
print(REP($line), "\n");
|
|
|
|
}
|