Mercurial > repos > rhope

comparison geninterp.rhope @ 175:03e4fa277291

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 >>]