Mercurial > repos > rhope
comparison backendutils.rhope @ 74:a844c623c7df
Add support for Worker type
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 01 Jul 2010 21:32:08 -0400 |
parents | 3e20ed8959c4 |
children | 0083b2f7b3c7 |
comparison
equal
deleted
inserted
replaced
73:6a1a7d5cc2d9 | 74:a844c623c7df |
---|---|
95 } | 95 } |
96 | 96 |
97 Blueprint Constant | 97 Blueprint Constant |
98 { | 98 { |
99 Value | 99 Value |
100 Need Addref | |
100 } | 101 } |
101 | 102 |
102 Constant[var:out] | 103 Constant[var:out] |
103 { | 104 { |
104 out <- [Build["Constant"]]Value <<[var] | 105 out <- [[Build["Constant"]]Value <<[var]]Need Addref <<[Yes] |
105 } | 106 } |
106 | 107 |
107 Make Op@Constant[const,func:out] | 108 Make Op@Constant[const,func:out] |
108 { | 109 { |
109 out <- [func]Lookup Constant[[const]Value >>] | 110 out <- [func]Lookup Constant[[const]Value >>, [const]Need Addref >>] |
110 } | 111 } |
111 | 112 |
112 Strip Addref@Constant[op:out] | 113 Strip Addref@Constant[op:out] |
113 { | 114 { |
114 out <- op | 115 out <- [op]Need Addref <<[No] |
115 } | 116 } |
116 | 117 |
117 Blueprint Result | 118 Blueprint Result |
118 { | 119 { |
119 Output Num | 120 Output Num |
286 //TODO: Compare parameters | 287 //TODO: Compare parameters |
287 ,out <- If[[[type]Name >>] = [[compare]Name >>]] | 288 ,out <- If[[[type]Name >>] = [[compare]Name >>]] |
288 { out <- [[type]Variant >>] = [[compare]Variant >>] } | 289 { out <- [[type]Variant >>] = [[compare]Variant >>] } |
289 } | 290 } |
290 } | 291 } |
292 | |
293 Blueprint Worker Literal | |
294 { | |
295 Name | |
296 Args | |
297 } | |
298 | |
299 Worker Literal[name:out] | |
300 { | |
301 out <- [[Build["Worker Literal"]]Name <<[name]]Args <<[()] | |
302 } | |
303 | |
304 Set Input@Worker Literal[worker,argnum,val:out] | |
305 { | |
306 out <- [worker]Args <<[ [[worker]Args >>]Set[argnum, val] ] | |
307 } | |
308 |