mg/mlox
1
0
Fork 0
mirror of https://github.com/MorizzG/MLox.git synced 2025-12-06 04:22:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

removed debug printing; exit 1 on error

Browse source
This commit is contained in:
Moritz Gmeiner 2024-08-03 02:44:47 +02:00
commit 250bdc5992
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
bin/main.ml
View file

@ -6,11 +6,14 @@ let () =
let argc = Array.length Sys.argv in let argc = Array.length Sys.argv in
match argc - 1 with match argc - 1 with
| 0 -> Lox.runRepl () | 0 -> Lox.runRepl ()
| 1 -> | 1 -> (
let path = Sys.argv.(1) in let path = Sys.argv.(1) in
Printf.printf "Running script %s\n" path; (* Printf.printf "Running script %s\n" path; *)
let ic = open_in path in let ic = open_in path in
let source = In_channel.input_all ic in let source = In_channel.input_all ic in
let result = Lox.run source in match Lox.run source with
Result.iter_error Lox.Error.print_error result | Error e ->
Lox.Error.print_error e;
exit 1
| Ok () -> exit 0)
| _ -> printUsage () | _ -> printUsage ()