Mercurial > repos > rhope
diff compile_old.rhope @ 114:25a205094f9b
More performance optimizations
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 13 Oct 2010 01:15:04 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/compile_old.rhope Wed Oct 13 01:15:04 2010 +0000 @@ -0,0 +1,29 @@ +Import parser_old.rhope + +Main[args] +{ + fname <- [args]Index[1] + { + file <- <String@File[~] + ,text <- [file]Get FString[[file]Length] + params <- New@Parser[] + Print[["Parsing "]Append[fname]] + Null[text, params, New@Parse Program[], 0] + { + Print["Parsing imports"] + Process Imports[~, params] + { + tree <- [~]Workers << [ Map[[~]Workers >>, ["Check Worker Literals"]Set Input[1, ~]] ] + { Print["Compiling"] } + } + compiled <- [Tree to Program Native[tree]]Compile Program[C Program[]] + { Print["Compiled program to backend"] } + outfile <- <String@File[ [fname]Append[".c"] ] + [outfile]Put String[ [compiled]Text ] + { Print[["Wrote output to "]Append[ [fname]Append[".c"] ]] } + } + }{ + REPL[New@Parser[]] + } +} +