Mercurial > repos > rhope
diff backendutils.rhope @ 100:f51c4c17457c
Broken port of parser to compiler
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 09 Aug 2010 02:03:57 -0400 |
parents | e73a93fb5de1 |
children |
line wrap: on
line diff
--- a/backendutils.rhope Fri Aug 06 01:42:37 2010 -0400 +++ b/backendutils.rhope Mon Aug 09 02:03:57 2010 -0400 @@ -1,7 +1,7 @@ Escape Rhope Name NU[name:escaped] { - escaped <- [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[name]Replace["_","UN_"] + escaped <- [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[name]Replace["_","UN_"] ]Replace["@","AT_"] ]Replace[" ","SP_"] ]Replace[":","CN_"] @@ -33,11 +33,19 @@ ]Replace["&", "AM_"] ]Replace["|", "PI_"] ]Replace["%", "PC_"] + ]Replace["`", "BT_"] + ]Replace["~", "TD_"] } -Escape Rhope Name[name:escaped] +Escape Rhope Name[name:out] { escaped <- Escape Rhope Name NU[[name]Replace["_","__"]] + [("char","int","short","long","float","double","void","struct")]Find[escaped] + { + out <- ["ID_"]Append[escaped] + }{ + out <- Val[escaped] + } } Blueprint AddRef