Changeset 5327

Timestamp:

Oct 9, 2006, 2:18:35 PM (18 years ago)

Author:

Gary Byers

Message:

Use a hashtable to map characters to their names. (Maybe a sparse vector ?).

Define #\Sub and #\Replacement_Character.

File:

• trunk/ccl/level-1/l1-reader.lisp (modified) (4 diffs)

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

@@ -26 +26 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; Maps character codes to character names, for (some of the) first 2K codes.
-(defvar *character-names* #2048(nil))
-
 ;;; Maps character names to characters
 (defvar *name->char* (make-hash-table :test #'equalp))
+;;; Maps characters to (canonical) character names.
+(defvar *char->name* (make-hash-table :test #'eql))
 
 ;;; This isn't thread-safe.  If the user really wants to register character
 ;;; names from multiple threads, they should do their own locking.
 (defun register-character-name (name char)
-  (let* ((code (char-code char)))
-    (when (>= code (length *character-names*))
-      (setq *character-names* (%extend-vector 0 *character-names* (+ code 1024))))
-    (setf (gethash name *name->char*) char)    
-    (unless (svref *character-names* code)
-      (setf (svref *character-names* code) name))))
+  (setf (gethash name *name->char*) char)    
+  (unless (gethash char *char->name*)
+    (setf (gethash char *char->name*) name)))
 
 (dolist (pair '(
@@ -48 +44 @@
                 ("Rubout" . #\177) ("Page" . #\014) ("Tab" . #\011)
                 ("Backspace" . #\010) ("Return" . #\015) ("Linefeed" . #\012)
-                ;; Other character names.  (When available, standard names
-                ;; should be used for printing in preference to any non-standard
-                ;; names.)
+                ;; Other character names.  (When available, standard
+                ;; names should be used for printing in preference to
+                ;; any non-standard names.)
                 ("Null" . #\000) ("Nul" . #\000)
                 ("Bell"  . #\007)       ; ^G , used by Franz (and others with bells.)
@@ -58 +54 @@
                 ("PageDown" . #\014)("Formfeed" . #\014) ("FF" . #\014)
                 ("CR" . #\015)
+                ("Sub" . #\032)
                 ("ESC" .  #\033) ("Escape" . #\033) ("Clear" .  #\033)
                 ("Altmode" .  #\033) ("ALT" .  #\033)
@@ -1813 +1810 @@
                 ("Line_Separator" . #\u+2028)
                 ("Paragraph_Separator" . #\u+2029)
+                ("Replacement_Character" . #\u+fffd)
                 ))
   (destructuring-bind (name . char) pair