new builtin function escape

Author: NotFound

winxedst0.cpp

@@ -1,5 +1,5 @@
 // winxedst0.cpp
-// Revision 4-jun-2011
+// Revision 6-jul-2011
 
 // Winxed compiler stage 0.
 
@@ -462,6 +462,9 @@ const PredefFunction *PredefFunction::predefs[]= {
     new PredefFunctionFixargs("indexof",
         "index {res}, {arg0}, {arg1}, {arg2}",
         REGint, REGstring, REGstring, REGint),
+    new PredefFunctionFixargs("escape",
+        "escape {res}, {arg0}",
+        REGstring, REGstring),
     new PredefFunctionFixargs("upcase",
         "upcase {res}, {arg0}",
         REGstring, REGstring),

winxedst1.winxed

@@ -331,7 +331,7 @@ class TokenQuoted : TokenString
                 break;
             }
         }
-        ${ escape str, strunesc };
+        str = escape(strunesc);
         string encoding = need_encoding ? "utf8:" : "";
         return encoding + '"' + str + '"';
     }
@@ -1494,6 +1494,10 @@ trans_encoding %0, $S0, $I0
             'join %0, %1, %2',
             REGstring, REGstring, REGvar
         ),
+        new PredefFunction('escape',
+            'escape %0, %1',
+            REGstring, REGstring
+        ),
         new PredefFunction('upcase',
             'upcase %0, %1',
             REGstring, REGstring