comparison backendutils_c.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 e09c2d1d6d5b
children b7df624895b2
comparison
equal deleted inserted replaced
99:e09c2d1d6d5b 100:f51c4c17457c
1 1
2 Escape Rhope Name[name:escaped] 2 Escape Rhope Name[name:out]
3 { 3 {
4 escaped <- [name]Replace[ 4 escaped <- [name]Replace[
5 ("_", "@", " ", ":", "?", "+", "-", "*", "/", "<", ">", "(", ")", "!", "=", "'", 5 ("_", "@", " ", ":", "?", "+", "-", "*", "/", "<", ">", "(", ")", "!", "=", "'",
6 "\"", "\t", ",", ".", "\n", "{", "}", "[", "]", "#", "\\", "\r", ";", "&", "|", "%", "^"), 6 "\"", "\t", ",", ".", "\n", "{", "}", "[", "]", "#", "\\", "\r", ";", "&", "|", "%", "^", "`", "~"),
7 ("UN_","AT_","SP_","CN_","QN_","PL_","MN_","TM_","DV_","LT_","GT_","LP_","RP_","NT_","EQ_","PR_", 7 ("UN_","AT_","SP_","CN_","QN_","PL_","MN_","TM_","DV_","LT_","GT_","LP_","RP_","NT_","EQ_","PR_",
8 "DP_","TB_","CM_","PD_","NL_","LC_","RC_", "LS_", "RS_", "HS_", "BS_", "CR_", "SC_", "AM_", "PI_", "PC_", "CT_")] 8 "DP_","TB_","CM_","PD_","NL_","LC_","RC_", "LS_", "RS_", "HS_", "BS_", "CR_", "SC_", "AM_", "PI_", "PC_", "CT_", "BT_", "TD_")]
9
10 [("char","int","short","long","float","double","void","struct")]Find[=[escaped, ?]]
11 {
12 out <- ["ID_"]Append[escaped]
13 }{
14 out <- Val[escaped]
15 }
9 } 16 }
10 17
11 Blueprint AddRef 18 Blueprint AddRef
12 { 19 {
13 Value 20 Value