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

Intermediate

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-02-25 17:39:54 +03:00
parent 53659aabaf
commit 22659d8fed
3 changed files with 31 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Driver.ml
View file

@ -6,6 +6,7 @@ let parse infile =
(object
inherit Matcher.t s
inherit Util.Lexers.decimal s
inherit Util.Lexers.ident ["read"; "write"] s
inherit Util.Lexers.skip [
Matcher.Skip.whitespaces " \t\n";
Matcher.Skip.lineComment "--";
@ -18,7 +19,6 @@ let parse infile =
let main =
try
let interpret = Sys.argv.(1) = "-i" in
let stack = Sys.argv.(1) = "-s" in
let infile = Sys.argv.(2) in
match parse infile with
| `Ok prog ->