Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
99:e09c2d1d6d5b | 100:f51c4c17457c |
---|---|
1 | 1 |
2 Escape Rhope Name NU[name:escaped] | 2 Escape Rhope Name NU[name:escaped] |
3 { | 3 { |
4 escaped <- [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[name]Replace["_","UN_"] | 4 escaped <- [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[name]Replace["_","UN_"] |
5 ]Replace["@","AT_"] | 5 ]Replace["@","AT_"] |
6 ]Replace[" ","SP_"] | 6 ]Replace[" ","SP_"] |
7 ]Replace[":","CN_"] | 7 ]Replace[":","CN_"] |
8 ]Replace["?","QN_"] | 8 ]Replace["?","QN_"] |
9 ]Replace["+","PL_"] | 9 ]Replace["+","PL_"] |
31 ]Replace["\r", "CR_"] | 31 ]Replace["\r", "CR_"] |
32 ]Replace[";", "SC_"] | 32 ]Replace[";", "SC_"] |
33 ]Replace["&", "AM_"] | 33 ]Replace["&", "AM_"] |
34 ]Replace["|", "PI_"] | 34 ]Replace["|", "PI_"] |
35 ]Replace["%", "PC_"] | 35 ]Replace["%", "PC_"] |
36 } | 36 ]Replace["`", "BT_"] |
37 | 37 ]Replace["~", "TD_"] |
38 Escape Rhope Name[name:escaped] | 38 } |
39 | |
40 Escape Rhope Name[name:out] | |
39 { | 41 { |
40 escaped <- Escape Rhope Name NU[[name]Replace["_","__"]] | 42 escaped <- Escape Rhope Name NU[[name]Replace["_","__"]] |
43 [("char","int","short","long","float","double","void","struct")]Find[escaped] | |
44 { | |
45 out <- ["ID_"]Append[escaped] | |
46 }{ | |
47 out <- Val[escaped] | |
48 } | |
41 } | 49 } |
42 | 50 |
43 Blueprint AddRef | 51 Blueprint AddRef |
44 { | 52 { |
45 Value | 53 Value |