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

Infix import

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-11-29 23:56:03 +03:00
parent cf5d0f1bc7
commit 1d9aeefd16
4 changed files with 117 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Driver.ml
View file

@ -1,7 +1,7 @@
open Ostap
let parse infile =
let s = Util.read infile in
let parse cmd =
let s = Util.read cmd#get_infile in
let kws = [
"skip";
"if"; "then"; "else"; "elif"; "fi";
@ -30,7 +30,7 @@ let parse infile =
] s
end
)
(ostap (p:!(Language.parse Language.Infix.default) -EOF))
(ostap (p:!(Language.parse cmd) -EOF))
exception Commandline_error of string
@ -89,7 +89,7 @@ class options args =
let main =
(* try*)
let cmd = new options Sys.argv in
match (try parse cmd#get_infile with Language.Semantic_error msg -> `Fail msg) with
match (try parse cmd with Language.Semantic_error msg -> `Fail msg) with
| `Ok prog ->
(match cmd#get_mode with
| `Default | `Compile ->