Mercurial > repos > rhope
comparison backendutils.rhope @ 18:ea991f95ae1f
C backend working well enough to generate Fib test
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 27 May 2009 04:49:32 -0400 |
parents | 23dd9c766699 |
children | e9272f7ebd26 |
comparison
equal
deleted
inserted
replaced
17:d05184970c1c | 18:ea991f95ae1f |
---|---|
24 out <- [Build["AddRef"]]Value <<[value] | 24 out <- [Build["AddRef"]]Value <<[value] |
25 } | 25 } |
26 | 26 |
27 Make Op@AddRef[addref,func:out] | 27 Make Op@AddRef[addref,func:out] |
28 { | 28 { |
29 //TODO: Make me work with other backends | |
29 out <- [["add_ref("]Append[ [[addref]Value >>]Make Op[func] ]]Append[")"] | 30 out <- [["add_ref("]Append[ [[addref]Value >>]Make Op[func] ]]Append[")"] |
30 } | 31 } |
31 | 32 |
32 Make Op@String[string,func:out] | 33 Make Op@String[string,func:out] |
33 { | 34 { |
72 Make Op@Result[result,func:out] | 73 Make Op@Result[result,func:out] |
73 { | 74 { |
74 out <- [func]Result Reference[[result]Output Num>>] | 75 out <- [func]Result Reference[[result]Output Num>>] |
75 } | 76 } |
76 | 77 |
78 Blueprint NotCond | |
79 { | |
80 Condition | |
81 } | |
77 | 82 |
83 NotCond[cond:out] | |
84 { | |
85 out <- [Build["NotCond"]]Condition <<[cond] | |
86 } | |
87 | |
88 Make Op@NotCond[cond,func:out] | |
89 { | |
90 out <- ["!"]Append[[[cond]Condition >>]Make Op[func]] | |
91 } |