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

Initial commit of fcf

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-09-19 00:15:02 +03:00
parent d130d197b3
commit 1cfd3123be
6 changed files with 84 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Driver.ml
View file

@ -33,13 +33,14 @@ let parse infile =
(ostap (!(Language.parse Language.Infix.default) -EOF))
let main =
try
(* try*)
let interpret = Sys.argv.(1) = "-i" in
let stack = Sys.argv.(1) = "-s" in
let to_compile = not (interpret || stack) in
let infile = Sys.argv.(if not to_compile then 2 else 1) in
match (try parse infile with Language.Semantic_error msg -> `Fail msg) with
| `Ok prog ->
let prog : Language.t = prog in
if to_compile
then
let basename = Filename.chop_suffix infile ".expr" in
@ -60,5 +61,6 @@ let main =
in
List.iter (fun i -> Printf.printf "%d\n" i) output
| `Fail er -> Printf.eprintf "Error: %s\n" er
with Invalid_argument _ ->
(* with Invalid_argument _ ->
Printf.printf "Usage: rc [-i | -s] <input file.expr>\n"
*)