st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-31 02:58:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Better error reporting for infixes

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-14 05:36:03 +03:00
parent a12f9337e9
commit faca5c6e0e
3 changed files with 28 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Driver.ml
View file

@ -110,7 +110,7 @@ class options args =
end
let main =
(* try *)
try
let cmd = new options Sys.argv in
match (try parse cmd with Language.Semantic_error msg -> `Fail msg) with
| `Ok prog ->
@ -119,9 +119,7 @@ let main =
| `Default | `Compile ->
ignore @@ X86.build cmd prog
| _ ->
(* Printf.printf "Program:\n%s\n" (GT.show(Language.Expr.t) prog);*)
(*Format.printf "Program\n%s\n%!" (HTML.toHTML ((GT.html(Language.Expr.t)) prog));*)
let rec read acc =
let rec read acc =
try
let r = read_int () in
Printf.printf "> ";
@ -137,5 +135,5 @@ let main =
List.iter (fun i -> Printf.printf "%d\n" i) output
)
| `Fail er -> Printf.eprintf "Error: %s\n" er
(*with Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg *)
with Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg