Mercurial > repos > rhope
diff backendutils_c.rhope @ 109:b7df624895b2
Hack to reduce overhead of Escape Rhope Name
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 06 Oct 2010 23:47:26 +0000 |
parents | f51c4c17457c |
children | 18a4403fe576 |
line wrap: on
line diff
--- a/backendutils_c.rhope Wed Oct 06 23:46:47 2010 +0000 +++ b/backendutils_c.rhope Wed Oct 06 23:47:26 2010 +0000 @@ -1,9 +1,7 @@ -Escape Rhope Name[name:out] +Escape Rhope Name[name,p:out] { - escaped <- [name]Replace[ - ("_", "@", " ", ":", "?", "+", "-", "*", "/", "<", ">", "(", ")", "!", "=", "'", - "\"", "\t", ",", ".", "\n", "{", "}", "[", "]", "#", "\\", "\r", ";", "&", "|", "%", "^", "`", "~"), + escaped <- [name]Replace[p, ("UN_","AT_","SP_","CN_","QN_","PL_","MN_","TM_","DV_","LT_","GT_","LP_","RP_","NT_","EQ_","PR_", "DP_","TB_","CM_","PD_","NL_","LC_","RC_", "LS_", "RS_", "HS_", "BS_", "CR_", "SC_", "AM_", "PI_", "PC_", "CT_", "BT_", "TD_")]