15 lines
281 B
OCaml
15 lines
281 B
OCaml
(* simple REPL *)
|
|
let rec repl () : unit =
|
|
Printf.printf "> ";
|
|
let line = read_line () in
|
|
if line <> "quit" then begin
|
|
line
|
|
|> Lex.tokenize
|
|
|> Parser.parse
|
|
|> Eval.eval
|
|
|> Ast.typ_to_string
|
|
|> Printf.printf "%s\n";
|
|
repl ()
|
|
end
|
|
|
|
let () = repl ()
|