Changeset 5254

Timestamp:

Sep 24, 2006, 6:58:26 PM (18 years ago)

Author:

Gary Byers

Message:

Buffer translation functions don't belong here; start thinking about BOM.

File:

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

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

@@ -82 +82 @@
   (literal-char-code-limit 0)
 
-  ;; Function to translate all #\Return characters in a vector to #\Linefeed
-  (translate-cr-to-lf-function 'u8-translate-cr-to-lf)
-
-  ;; Function to translate all #\Linefeed characters in a vector to #\Return
-  (translate-lf-to-cr-function 'u8-translate-lf-to-cr)
+  ;; Does a byte-order-mark determine the endianness of input ?
+  ;; Should we prepend a BOM to output ?
+  ;; If non-nil, the value should be a cons:
+  ;; (native-byte-order-encoding . swapped-byte-order-encoding)
+  (use-byte-order-mark nil)
   )
 
-           
+(defconstant byte-order-mark #\u+feff)
+(defconstant byte-order-mark-char-code (char-code byte-order-mark))
+(defconstant swapped-byte-order-mark #\u+fffe)
+(defconstant swapped-byte-order-mark-char-code (char-code swapped-byte-order-mark))
+
+
 
 (defmethod print-object ((ce character-encoding) stream)
@@ -1517 +1522 @@
     :literal-char-code-limit #x10000
     )
+
+;;; UTF-16.