repos/rhope: cbackend.rhope comparison

Initial work on compiling dataflow graphs to a backend

author	Mike Pavone <pavone@retrodev.com>
date	Wed, 27 May 2009 21:29:15 +0000
parents	ea991f95ae1f
children	b715532225c0

comparison

equal deleted inserted replaced

-:ea991f95ae1f
+:90c20dc3f4e5
 		]Append[[func]Set Outputs]
 		]Append["EndFunc"]
 }
+Blueprint C Program
+{
+	Functions
+	Method Registry
+}
+C Program[:out]
+{
+	out <- [[Build["C Program"]]Functions <<[New@Dictionary[]]]Method Registry <<[C Method Registry[]]
+}
+Create Function@C Program[program,name,inputs,outputs,convention:out]
+{
+	out <- C Function With Registry[name,inputs,outputs,convention, [program]Method Registry >>]
+}
+Store Function@C Program[program,func:out]
+{
+	out <- [program]Functions <<[ [[program]Functions >>]Set[ [func]Name >>, func] ]
+}
+_Defs C Program[text,func:out]
+{
+	Print["start _Defs"]
+	out <- [text]Append[[func]Definitions]
+	{ Print["_Defs done"] }
+}
+_Text C Program[text,func:out]
+{
+	Print["start _Text"]
+	out <- [text]Append[[func]Text]
+	{ Print["_Text done"] }
+}
+Text@C Program[program:out]
+{
+	out <- Fold["_Text C Program", Fold["_Defs C Program", "", [program]Functions >>], [program]Functions >>]
+}

Mercurial > repos > rhope