2015-05-19 05:54:18 +03:00
|
|
|
import reader
|
|
|
|
import printer
|
|
|
|
import types.MalException
|
|
|
|
|
|
|
|
// READ
|
|
|
|
READ = { str ->
|
|
|
|
reader.read_str str
|
|
|
|
}
|
|
|
|
|
|
|
|
// EVAL
|
|
|
|
EVAL = { ast, env ->
|
|
|
|
ast
|
|
|
|
}
|
|
|
|
|
|
|
|
// PRINT
|
|
|
|
PRINT = { exp ->
|
|
|
|
printer.pr_str exp, true
|
|
|
|
}
|
|
|
|
|
|
|
|
// REPL
|
|
|
|
REP = { str ->
|
|
|
|
PRINT(EVAL(READ(str), [:]))
|
|
|
|
}
|
|
|
|
|
|
|
|
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()
|
|
|
|
}
|
|
|
|
}
|