Mercurial > repos > rhope

comparison parser_old.rhope @ 35:3498713c3dc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
C backend portion of supporting user defined types is done, but untested. Parser/NWorker still need a fair bit of work
author Mike Pavone <pavone@retrodev.com>
date Wed, 30 Sep 2009 23:55:04 -0400
parents 914ad38f9b59
children 495dddadd058
comparison
equal deleted inserted replaced
34:df038cef648b 35:3498713c3dc9
1188 } 1188 }
1189 1189
1190 Register Workers Compile[prog, worker, name:out] 1190 Register Workers Compile[prog, worker, name:out]
1191 { 1191 {
1192 Print[["Registering "]Append[name]] 1192 Print[["Registering "]Append[name]]
1193 out <- [prog]Register Worker[name, "cdecl", [[worker]Inputs >>]Length, [[worker]Outputs >>]Length] 1193 out <- [prog]Register Worker[name, "rhope", [[worker]Inputs >>]Length, [[worker]Outputs >>]Length]
1194 } 1194 }
1195 1195
1196 Add Workers Compile[prog, worker, name:out] 1196 Add Workers Compile[prog, worker, name:out]
1197 { 1197 {
1198 Print[["Add Workers Compile: "]Append[name]] 1198 Print[["Add Workers Compile: "]Append[name]]
1199 { 1199 {
1200 trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["cdecl"]]Uses[[worker]Uses Stores >>], prog, worker, New@Dictionary[]] 1200 trees, nworker, refs <- Add List to Worker[[worker]Trees >>, [NWorker["rhope"]]Uses[[worker]Uses Stores >>], prog, worker, New@Dictionary[]]
1201 final nworker <- Fold[[["Add Wires Helper"]Set Input[3, worker]]Set Input[4, refs], nworker, trees] 1201 final nworker <- Fold[[["Add Wires Helper"]Set Input[3, worker]]Set Input[4, refs], nworker, trees]
1202 out <- [prog]Bind Worker[name, final nworker] 1202 out <- [prog]Bind Worker[name, final nworker]
1203 } 1203 }
1204 } 1204 }
1205 1205