Author: pmichaud
Date: Wed Nov 16 05:44:13 2005
New Revision: 10020
Modified:
trunk/compilers/pge/PGE/Exp.pir
Log:
Added "unicode:" to literals with \u escapes.
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir (original)
+++ trunk/compilers/pge/PGE/Exp.pir Wed Nov 16 05:44:13 2005
@@ -141,7 +141,11 @@ won't be a problem, but is the use of th
str = concat '"', str
str = concat str, '"'
$I0 = index str, "\\x"
- if $I0 < 0 goto end
+ if $I0 >= 0 goto unicode
+ $I0 = index str, "\\u"
+ if $I0 >= 0 goto unicode
+ goto end
+ unicode:
str = concat "unicode:", str
end:
.return (str)
