2015-05-19 05:54:18 +03:00
|
|
|
import reader
|
|
|
|
import printer
|
|
|
|
import types
|
|
|
|
import types.MalException
|
|
|
|
import types.MalSymbol
|
|
|
|
|
|
|
|
// READ
|
|
|
|
READ = { str ->
|
|
|
|
reader.read_str str
|
|
|
|
}
|
|
|
|
|
|
|
|
// EVAL
|
2022-01-10 02:15:40 +03:00
|
|
|
EVAL = { ast, env ->
|
|
|
|
// println("EVAL: ${printer.pr_str(ast,true)}")
|
|
|
|
|
2015-05-19 05:54:18 +03:00
|
|
|
switch (ast) {
|
|
|
|
case MalSymbol:
|
|
|
|
if (env.containsKey(ast.value)) return env.get(ast.value)
|
|
|
|
throw new MalException("'${ast.value}' not found")
|
2022-01-10 02:15:40 +03:00
|
|
|
case List: if (types.vector_Q(ast)) {
|
|
|
|
return types.vector(ast.collect { EVAL(it, env) })
|
|
|
|
}
|
|
|
|
break;
|
2015-05-19 05:54:18 +03:00
|
|
|
case Map:
|
|
|
|
def new_hm = [:]
|
|
|
|
ast.each { k,v ->
|
2021-08-21 20:08:17 +03:00
|
|
|
new_hm[k] = EVAL(v, env)
|
2015-05-19 05:54:18 +03:00
|
|
|
}
|
|
|
|
return new_hm
|
|
|
|
default:
|
|
|
|
return ast
|
|
|
|
}
|
|
|
|
|
2016-04-03 01:56:04 +03:00
|
|
|
if (ast.size() == 0) return ast
|
2015-05-19 05:54:18 +03:00
|
|
|
|
2022-01-10 02:15:40 +03:00
|
|
|
def el = ast.collect { EVAL(it, env) }
|
2015-05-19 05:54:18 +03:00
|
|
|
def (f, args) = [el[0], el[1..-1]]
|
|
|
|
f(args)
|
|
|
|
}
|
|
|
|
|
|
|
|
// PRINT
|
|
|
|
PRINT = { exp ->
|
|
|
|
printer.pr_str exp, true
|
|
|
|
}
|
|
|
|
|
|
|
|
// REPL
|
|
|
|
repl_env = [
|
|
|
|
"+": { a -> a[0]+a[1]},
|
|
|
|
"-": { a -> a[0]-a[1]},
|
|
|
|
"*": { a -> a[0]*a[1]},
|
|
|
|
"/": { a -> a[0]/a[1]}] // /
|
|
|
|
REP = { str ->
|
|
|
|
PRINT(EVAL(READ(str), repl_env))
|
|
|
|
}
|
|
|
|
|
|
|
|
while (true) {
|
|
|
|
line = System.console().readLine 'user> '
|
|
|
|
if (line == null) {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
try {
|
|
|
|
println REP(line)
|
|
|
|
} catch(MalException ex) {
|
Test uncaught throw, catchless try* . Fix 46 impls.
Fixes made to: ada, c, chuck, clojure, coffee, common-lisp, cpp,
crystal, d, dart, elm, erlang, es6, factor, fsharp, gnu-smalltalk,
groovy, guile, haxe, hy, js, livescript, matlab, miniMAL, nasm, nim,
objc, objpascal, ocaml, perl, perl6, php, plsql, ps, python, r,
rpython, ruby, scheme, swift3, tcl, ts, vb, vimscript, wasm, yorick.
Catchless try* test is an optional test. Not all implementations
support catchless try* but a number were fixed so they at least don't
crash on catchless try*.
2018-12-03 22:20:44 +03:00
|
|
|
println "Error: ${printer.pr_str(ex.obj, true)}"
|
2015-05-19 05:54:18 +03:00
|
|
|
} catch(ex) {
|
|
|
|
println "Error: $ex"
|
|
|
|
ex.printStackTrace()
|
|
|
|
}
|
|
|
|
}
|