Mercurial > repos > rhope

comparison backendutils.rhope @ 100:f51c4c17457c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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