Mercurial > repos > rhope
view backendutils.rhope @ 17:d05184970c1c
Merged accidentally created head
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 26 May 2009 23:37:59 -0400 |
parents | 23dd9c766699 |
children | ea991f95ae1f |
line wrap: on
line source
Escape Rhope Name[name:escaped] { escaped <- [[[[[[[[[[[name]Replace["_","__"] ]Replace["@","_AT_"] ]Replace[" ","_SP_"] ]Replace[":","_CN_"] ]Replace["?","_QN_"] ]Replace["+","_PL_"] ]Replace["-","_MN_"] ]Replace["*","_TM_"] ]Replace["/","_DV_"] ]Replace["<","_LT_"] ]Replace["<","_GT_"] } Blueprint AddRef { Value } AddRef[value:out] { out <- [Build["AddRef"]]Value <<[value] } Make Op@AddRef[addref,func:out] { out <- [["add_ref("]Append[ [[addref]Value >>]Make Op[func] ]]Append[")"] } Make Op@String[string,func:out] { out <- [func]Resolve[string] } Make Op@Whole Number[num,func:out] { out <- num } Make Op@Real Number[num,func:out] { out <- num } Blueprint Constant { Var } Constant[var:out] { out <- [Build["Constant"]]Var <<[var] } Make Op@Constant[const,func:out] { out <- [const]Var >> } Blueprint Result { Output Num } Result[num:out] { out <- [Build["Result"]]Output Num <<[num] } Make Op@Result[result,func:out] { out <- [func]Result Reference[[result]Output Num>>] }