Mercurial > repos > rhope

comparison backendutils.rhope @ 74:a844c623c7df

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