mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
a708140106
All tests pass, but readline support (via Linenoise module) is commented out in step0_repl.pl as it is not a core module. Should maybe change it when docker support is added.
81 lines
1.8 KiB
Raku
81 lines
1.8 KiB
Raku
use v6;
|
|
use lib IO::Path.new($?FILE).dirname;
|
|
use reader;
|
|
use printer;
|
|
use types;
|
|
use env;
|
|
use core;
|
|
|
|
sub read ($str) {
|
|
return read_str($str);
|
|
}
|
|
|
|
sub eval_ast ($ast, $env) {
|
|
given $ast {
|
|
when MalSymbol { $env.get($ast.val) || die X::MalNotFound.new(name => $ast.val) }
|
|
when MalList { MalList([$ast.map({ eval($_, $env) })]) }
|
|
when MalVector { MalVector([$ast.map({ eval($_, $env) })]) }
|
|
when MalHashMap { MalHashMap($ast.kv.map({ $^a => eval($^b, $env) }).Hash) }
|
|
default { $ast // $NIL }
|
|
}
|
|
}
|
|
|
|
sub eval ($ast, $env) {
|
|
return eval_ast($ast, $env) if $ast !~~ MalList;
|
|
return $ast if !$ast.elems;
|
|
|
|
my ($a0, $a1, $a2, $a3) = $ast.val;
|
|
given $a0.val {
|
|
when 'def!' {
|
|
return $env.set($a1.val, eval($a2, $env));
|
|
}
|
|
when 'let*' {
|
|
my $new_env = MalEnv.new($env);
|
|
for |$a1.val -> $key, $value {
|
|
$new_env.set($key.val, eval($value, $new_env));
|
|
}
|
|
return eval($a2, $new_env);
|
|
}
|
|
when 'do' {
|
|
return eval_ast(MalList([$ast[1..*]]), $env)[*-1];
|
|
}
|
|
when 'if' {
|
|
return eval($a1, $env) !~~ MalNil|MalFalse
|
|
?? return eval($a2, $env)
|
|
!! return $a3 ?? eval($a3, $env) !! $NIL;
|
|
}
|
|
when 'fn*' {
|
|
return MalCode(-> *@args {
|
|
my @binds = $a1 ?? $a1.map(*.val) !! ();
|
|
eval($a2, MalEnv.new($env, @binds, @args));
|
|
});
|
|
}
|
|
default {
|
|
my ($func, @args) = eval_ast($ast, $env).val;
|
|
return $func.apply(|@args);
|
|
}
|
|
}
|
|
}
|
|
|
|
sub print ($exp) {
|
|
return pr_str($exp, True);
|
|
}
|
|
|
|
my $repl_env = MalEnv.new;
|
|
|
|
sub rep ($str) {
|
|
return print(eval(read($str), $repl_env));
|
|
}
|
|
|
|
sub MAIN {
|
|
$repl_env.set(.key, .value) for %core::ns;
|
|
rep(q{(def! not (fn* (a) (if a false true)))});
|
|
|
|
while (my $line = prompt 'user> ').defined {
|
|
say rep($line);
|
|
CATCH {
|
|
when X::MalException { .Str.say }
|
|
}
|
|
}
|
|
}
|