haxala1r/olisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improved the repl to return to evaluation upon error. Also added an exit command

Browse Source
This commit is contained in:
Emin Arslan
2025-10-14 21:06:11 +03:00
committed by Emin Arslan
parent b0ded579af
commit be6e1cd684
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
bin/main.ml
View File

@@ -8,12 +8,22 @@ let rec repl env c =
let () = printf ">>> "; Out_channel.flush Out_channel.stdout; in
match In_channel.input_line c with
| None -> ()
| Some l ->
let vals = (parse_str l) in
(* dbg_print_all vals; *)
dbg_print_all (eval_all env vals);
Out_channel.flush Out_channel.stdout;
repl env c;;
| Some "exit" -> ()
| Some l ->
try
let vals = (parse_str l) in
(* dbg_print_all vals; *)
dbg_print_all (eval_all env vals);
Out_channel.flush Out_channel.stdout;
repl env c
with
| Invalid_argument s ->
printf "%s\nResuming repl\n" s;
repl env c
| Parser.Error ->
printf "Expression '%s' couldn't be parsed, try again\n" l;
repl env c
;;
let _ = repl (make_env ()) (In_channel.stdin)
let () = repl (make_env ()) (In_channel.stdin)