diff 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
line wrap: on
line diff
--- a/backendutils.rhope	Tue May 26 23:37:59 2009 -0400
+++ b/backendutils.rhope	Wed May 27 04:49:32 2009 -0400
@@ -26,6 +26,7 @@
 
 Make Op@AddRef[addref,func:out]
 {
+	//TODO: Make me work with other backends
 	out <- [["add_ref("]Append[ [[addref]Value >>]Make Op[func] ]]Append[")"]
 }
 
@@ -74,4 +75,17 @@
 	out <- [func]Result Reference[[result]Output Num>>]
 }
 
+Blueprint NotCond
+{
+	Condition
+}
 
+NotCond[cond:out]
+{
+	out <- [Build["NotCond"]]Condition <<[cond]
+}
+
+Make Op@NotCond[cond,func:out]
+{
+	out <- ["!"]Append[[[cond]Condition >>]Make Op[func]]
+}