Changeset 13256

Timestamp:

03/21/11 06:24:58 (12 years ago)

Author:

Mark Evenson

Message:

The sharpsign backslash macro now understands \unnnn as an escape for a Unicode chararcter.

File:

• trunk/abcl/src/org/armedbear/lisp/LispCharacter.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/LispCharacter.java

@@ -554 +554 @@
     LispCharacter lc = namedToChar.get(lower);
     if (lc!=null) return lc.value;
+    if (lower.length() == 5
+        && lower.startsWith("u")) {
+        try {
+            int i = Integer.parseInt(lower.substring(1, 5), 16);
+            return i;
+        } catch (NumberFormatException e) {};
+    }
+
     if (lower.equals("null"))
       return 0;
@@ -618 +626 @@
         return "Rubout";
       }
-    if (c<0 || c>255) return null;
+
+    if (c > 255) {
+        return "U" + Integer.toString(c, 16);
+    }
+        
+    if (c<0) return null;
     return lispChars.get(c).name;
   }