Mercurial > repos > rhope
comparison geninterp.rhope @ 175:03e4fa277291
Use worker refs for geninterp
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 08 Jun 2011 23:24:15 -0700 |
parents | 0c7c5671fcd3 |
children |
comparison
equal
deleted
inserted
replaced
174:0c7c5671fcd3 | 175:03e4fa277291 |
---|---|
36 Null[text, params, Parse Program[], 0] | 36 Null[text, params, Parse Program[], 0] |
37 { | 37 { |
38 Print["Parsing imports"] | 38 Print["Parsing imports"] |
39 Process Imports[~, params] | 39 Process Imports[~, params] |
40 { | 40 { |
41 tree <- [~]Workers << [ Map[[~]Workers >>, Check Worker Literals[?, ~]] ] | 41 tree <- [~]Workers << [ Map[[~]Worker Refs >>, Check Worker Literals[?, ~]] ] |
42 { Print["Compiling"] } | 42 { Print["Compiling"] } |
43 } | 43 } |
44 | 44 |
45 program <- Tree to Program Native[tree, [C Program[]]Supported Number Types] | 45 program <- Tree to Program Native[tree, [C Program[]]Supported Number Types] |
46 lines <- Fold[Worker Set[?], (), [program]Workers >>] | 46 lines <- Fold[Worker Set[?], (), [program]Workers >>] |