Mercurial > repos > rhope
diff parser_old.rhope @ 73:6a1a7d5cc2d9
Add some error checking, cleanup output and add a bad test file
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 19 Jun 2010 23:13:41 -0400 |
| parents | d0ce696786cc |
| children | a844c623c7df |
line wrap: on
line diff
--- a/parser_old.rhope Fri Jun 18 17:00:50 2010 -0400 +++ b/parser_old.rhope Sat Jun 19 23:13:41 2010 -0400 @@ -1308,6 +1308,7 @@ Register Workers Compile[prog, worker, name:out] { + Print[["Registering "]Append[name]] If[[ Type Of[[worker]Trees >>] ] = ["Foreign Lib"]] { convention <- Val[[[worker]Trees >>]Language >>] } { convention <- "rhope" } @@ -1327,6 +1328,7 @@ ]Library <<[ [[worker]Trees >>]Name >> ] }{ + Print[["Transforming "]Append[name]] trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["rhope"]]Uses[[worker]Uses Stores >>], prog, worker, Dictionary[]] final nworker <- Fold[[["Add Wires Helper"]Set Input[3, worker]]Set Input[4, refs], nworker, trees] }