mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 10:37:58 +03:00
31 lines
590 B
Forth
31 lines
590 B
Forth
module REPL
|
|
let READ input =
|
|
input
|
|
|
|
let EVAL ast =
|
|
ast
|
|
|
|
let PRINT v =
|
|
printfn "%s" v
|
|
|
|
let REP input =
|
|
input
|
|
|> READ
|
|
|> EVAL
|
|
|> PRINT
|
|
|
|
let getReadlineMode args =
|
|
if args |> Array.exists (fun e -> e = "--raw") then
|
|
Readline.Mode.Raw
|
|
else
|
|
Readline.Mode.Terminal
|
|
|
|
[<EntryPoint>]
|
|
let rec main args =
|
|
let mode = getReadlineMode args
|
|
match Readline.read "user> " mode with
|
|
| null -> 0
|
|
| input ->
|
|
REP input
|
|
main args
|