Changeset 5193

Timestamp:

Sep 11, 2006, 7:10:41 PM (18 years ago)

Author:

Gary Byers

Message:

Character encodings contain a LITERAL-CHAR-CODE-LIMIT field.

File:

• trunk/ccl/level-1/l1-unicode.lisp (modified) (5 diffs)

trunk/ccl/level-1/l1-unicode.lisp

@@ -74 +74 @@
   ;; Might return NIL if the encoding's bogus
   length-of-memory-encoding-function    ;(POINTER NUNITS &optional (START 0))
+
+  ;; Code units and character codes less than this value map to themselves
+  (literal-char-code-limit 0)
   )
 
@@ -86 +89 @@
     (setf (get-character-encoding ,name)
      (make-character-encoding :name ,name  ,@args))))
+
+(defun encoding-name (encoding)
+  (character-encoding-name (or encoding (get-character-encoding nil))))
 
 ;;; ISO-8859-1 is trivial, though of course it can't really encode characters
@@ -164 +170 @@
      (declare (ignore pointer start))
      nunits))
+  :literal-char-code-limit 256
   )
 
@@ -169 +176 @@
 (setf (get-character-encoding nil)
       (get-character-encoding :iso-8859-1))
+
+
 
 
@@ -572 +581 @@
                        ((< code #xe0) 2)
                        ((< code #xf0) 3)
-                       (t 4))))))))
+                       (t 4)))))))
+    :literal-char-code-limit #x80
+    )
+