Standard infix capturing

This commit is contained in:
Dmitry Boulytchev 2020-01-14 05:15:19 +03:00
parent 25ec856fba
commit a12f9337e9
7 changed files with 184 additions and 16 deletions

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 ->
@ -137,5 +137,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 *)