Changeset 5362

Timestamp:

Oct 17, 2006, 1:02:43 PM (18 years ago)

Author:

Gary Byers

Message:

BOM-ENCODING.

File:

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

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

@@ -101 +101 @@
   (aliases nil)
   (documentation nil)
+  ;; What does a native byte-order-mark look like (as a sequence of octets)
+  ;; in this encoding ? (NIL if a BOM can't be encoded.)
+  (bom-encoding nil)
   )
 
@@ -1232 +1235 @@
              (setq nchars (1+ nchars) i nexti))))))
     :literal-char-code-limit #x80
+    :bom-encoding #(#xef #xbb #xbf)
     )
 
@@ -1895 +1899 @@
   #+big-endian-target :utf-16le
   #+little-endian-target :utf-16be
+  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff fe)
   )
 
@@ -2649 +2654 @@
   #+big-endian-target :utf-32le
   #+little-endian-target :utf-32be
+  :bom-encoding #+big-endian-target #(#x00 #x00 #xfe #xff) #+little-endian-target #(#xff #xfe #x00 #x00)
+  
   )