Mercurial > repos > rhope
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 |