Fix unescaping in matlab, miniMAL and rpython.

diff --git a/matlab/reader.m b/matlab/reader.m
index ada1af6..8cea773 100644 (file)
--- a/matlab/reader.m
+++ b/matlab/reader.m
@@ -16,9 +16,10 @@ classdef reader
                 atm = str2double(token);
             elseif strcmp(token(1), '"')
                 atm = token(2:length(token)-1);
+                atm = strrep(atm, '\\', char(255));
                 atm = strrep(atm, '\"', '"');
                 atm = strrep(atm, '\n', char(10));
-                atm = strrep(atm, '\\', '\');
+                atm = strrep(atm, char(255), '\');
             elseif strcmp(token(1), ':')
                 s = token(2:end);
                 atm = type_utils.keyword(s);

diff --git a/miniMAL/reader.json b/miniMAL/reader.json
index d9ceedd..830158e 100644 (file)
--- a/miniMAL/reader.json
+++ b/miniMAL/reader.json
@@ -38,12 +38,12 @@
       ["parseInt", "token", 10],
     ["if", ["=", ["`", "\""], ["get", "token", 0]],
       [".",
-        [".",
-          [".",
-            ["slice", "token", 1, ["-", ["count", "token"], 1]],
-            ["`", "replace"], ["RegExp", ["`", "\\\\\""], ["`", "g"]], ["`", "\""]],
-          ["`", "replace"], ["RegExp", ["`", "\\\\n"], ["`", "g"]], ["`", "\n"]],
-        ["`", "replace"], ["RegExp", ["`", "\\\\\\\\"], ["`", "g"]], ["`", "\\"]],
+        ["slice", "token", 1, ["-", ["count", "token"], 1]],
+        ["`", "replace"], ["RegExp", ["`", "\\\\(.)"], ["`", "g"]],
+                          ["fn", ["_", "c"],
+                            ["if", ["=", "c", ["`", "n"]],
+                              ["`", "\n"],
+                              "c"]]],
     ["if", ["=", ["`", ":"], ["get", "token", 0]],
       ["keyword", ["slice", "token", 1]],
     ["if", ["=", ["`", "nil"], "token"],

diff --git a/rpython/reader.py b/rpython/reader.py
index 1e5acf6..5f8af46 100644 (file)
--- a/rpython/reader.py
+++ b/rpython/reader.py
@@ -51,9 +51,10 @@ def read_atom(reader):
             return MalStr(u"")
         else:
             s = unicode(token[1:end])
+            s = types._replace(u'\\\\', u"\u029e", s)
             s = types._replace(u'\\"', u'"', s)
             s = types._replace(u'\\n', u"\n", s)
-            s = types._replace(u'\\\\', u"\\", s)
+            s = types._replace(u"\u029e", u"\\", s)
             return MalStr(s)
     elif token[0] == ':':           return _keywordu(unicode(token[1:]))
     elif token == "nil":            return types.nil