Mercurial > repos > rhope
view compile.rhope @ 140:c14698c512f1
Untested addition of Pause/Resume
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 20 Nov 2010 20:03:25 +0000 |
parents | 0a4682be2db2 |
children |
line wrap: on
line source
Import lex.rhope Import countstring.rhope Import parse.rhope Main[args] { [args]Index[1] { Print[["Parsing "]Append[~]] file <- [File[~]]Open["r"] data <- String[[file]Read[[file]Length]] tokens <- Lex[Count String[data]] Print[Parse[tokens], ""] }{ Print["Usage: rhope compile.rhope <filename>"] } }