2015-03-12 05:13:31 +03:00
|
|
|
module REPL
|
|
|
|
open System
|
2015-07-06 00:23:34 +03:00
|
|
|
open Node
|
2015-06-30 06:57:47 +03:00
|
|
|
open Types
|
2015-03-12 05:13:31 +03:00
|
|
|
|
2022-01-10 02:15:40 +03:00
|
|
|
let rec eval env ast =
|
|
|
|
(* Printer.pr_str [ast] |> printfn "EVAL: %s" *)
|
|
|
|
match ast with
|
|
|
|
| Symbol(sym) -> match Env.get env sym with
|
|
|
|
| Some(value) -> value
|
|
|
|
| None -> Error.symbolNotFound sym |> raise
|
2015-07-06 00:23:34 +03:00
|
|
|
| Vector(_, seg) -> seg |> Seq.map (eval env) |> Array.ofSeq |> Node.ofArray
|
|
|
|
| Map(_, map) -> map |> Map.map (fun k v -> eval env v) |> makeMap
|
2022-01-10 02:15:40 +03:00
|
|
|
| List(_, (a0 :: rest)) ->
|
|
|
|
match eval env a0 with
|
|
|
|
| BuiltInFunc(_, _, f) -> List.map (eval env) rest |> f
|
2015-07-03 17:57:15 +03:00
|
|
|
| _ -> raise <| Error.errExpectedX "func"
|
2022-01-10 02:15:40 +03:00
|
|
|
| _ -> ast
|
2015-06-30 06:57:47 +03:00
|
|
|
|
|
|
|
let READ input =
|
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
|
|
|
Reader.read_str input
|
2015-03-12 05:13:31 +03:00
|
|
|
|
2015-06-30 06:57:47 +03:00
|
|
|
let EVAL env ast =
|
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
|
|
|
Some(eval env ast)
|
2015-03-12 05:13:31 +03:00
|
|
|
|
2015-06-30 06:57:47 +03:00
|
|
|
let PRINT v =
|
2015-03-12 05:13:31 +03:00
|
|
|
v
|
2015-03-26 22:05:02 +03:00
|
|
|
|> Seq.singleton
|
2015-03-12 05:13:31 +03:00
|
|
|
|> Printer.pr_str
|
|
|
|
|> printfn "%s"
|
|
|
|
|
2015-06-30 06:57:47 +03:00
|
|
|
let REP env input =
|
|
|
|
READ input
|
2015-03-12 05:13:31 +03:00
|
|
|
|> Seq.ofList
|
2015-06-30 06:57:47 +03:00
|
|
|
|> Seq.choose (fun form -> EVAL env form)
|
|
|
|
|> Seq.iter (fun value -> PRINT value)
|
2015-03-12 05:13:31 +03:00
|
|
|
|
2015-07-03 03:04:33 +03:00
|
|
|
let getReadlineMode args =
|
|
|
|
if args |> Array.exists (fun e -> e = "--raw") then
|
2015-03-12 05:13:31 +03:00
|
|
|
Readline.Mode.Raw
|
|
|
|
else
|
|
|
|
Readline.Mode.Terminal
|
|
|
|
|
|
|
|
[<EntryPoint>]
|
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
|
|
|
let main args =
|
2015-03-12 05:13:31 +03:00
|
|
|
let mode = getReadlineMode args
|
2015-03-16 15:09:10 +03:00
|
|
|
let env = Env.makeRootEnv ()
|
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
|
|
|
let rec loop () =
|
|
|
|
match Readline.read "user> " mode with
|
|
|
|
| null -> 0
|
|
|
|
| input ->
|
|
|
|
try
|
|
|
|
REP env input
|
|
|
|
with
|
|
|
|
| Error.EvalError(str)
|
|
|
|
| Error.ReaderError(str) ->
|
|
|
|
printfn "Error: %s" str
|
|
|
|
| ex ->
|
|
|
|
printfn "Error: %s" (ex.Message)
|
|
|
|
loop ()
|
|
|
|
loop ()
|