Mercurial > repos > rhope

comparison nworker.rhope @ 66:d4b44ae2e34a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New variant of C backend works now
author Mike Pavone <pavone@retrodev.com>
date Sun, 06 Jun 2010 20:29:10 -0400
parents 689fb73e7612
children d0ce696786cc
comparison
equal deleted inserted replaced
65:1db811fa4744 66:d4b44ae2e34a
1 Import extendlib.rhope 1 Import extendlib.rhope
2 Import cbackend.rhope 2 Import cbackend.rhope
3 3 Import number.rhope
4 Import boolean.rhope
4 5
5 Blueprint Condition Set 6 Blueprint Condition Set
6 { 7 {
7 Variables 8 Variables
8 Subsets 9 Subsets
1322 out <- [worker]Compile Worker[backend, name] 1323 out <- [worker]Compile Worker[backend, name]
1323 } 1324 }
1324 1325
1325 Compile Program@NProgram[prog, backend:out] 1326 Compile Program@NProgram[prog, backend:out]
1326 { 1327 {
1327 backend with bps <- Generate Number Methods[Fold["_Compile Program BP Special", Fold["_Compile Program BP", backend, [prog]Blueprints >>], [prog]Blueprints >>]] 1328 backend with bps <- Generate Boolean Methods[Generate Number Methods[Fold["_Compile Program BP Special", Fold["_Compile Program BP", backend, [prog]Blueprints >>], [prog]Blueprints >>]]]
1328 { Print["All blueprints added"] } 1329 { Print["All blueprints added"] }
1329 workers with infer <- SMap[[prog]Workers >>, ["Infer Types"]Set Input[1, prog]] 1330 workers with infer <- SMap[[prog]Workers >>, ["Infer Types"]Set Input[1, prog]]
1330 { Print["Type inference complete"] } 1331 { Print["Type inference complete"] }
1331 out <- Fold["_Compile Program", backend with bps, workers with infer] 1332 out <- Fold["_Compile Program", backend with bps, workers with infer]
1332 } 1333 }