CharacterEncoder.st
changeset 8904 d358f0a17f07
parent 8856 cb0a15744854
child 9064 866d6d41afa9
--- a/CharacterEncoder.st	Thu Jul 07 19:36:41 2005 +0200
+++ b/CharacterEncoder.st	Thu Jul 07 19:36:58 2005 +0200
@@ -224,6 +224,8 @@
      self encoderFor:#'jis0208'      
      self encoderFor:#'jis7'      
      self encoderFor:#'utf8'      
+     (self encoderFor:#'utf16le') encode:'hello'      
+     self encoderFor:#'utf16be'      
     "
 !
 
@@ -533,6 +535,8 @@
         (ISO10646_1         unicode     ( unicode 'iso10646_1' 'iso10646-1' 'iso-10646-1' ))
 
         (ISO10646_to_UTF8   unicode     ( utf8 'utf-8' ))
+        (ISO10646_to_UTF16BE unicode    ( utf16b utf16be 'utf-16b' 'utf-16be' ))
+        (ISO10646_to_UTF16LE unicode    ( utf16l utf16le 'utf-16e' 'utf-16le' ))
 
         (ISO8859_1          unicode     ( 'iso8859_1' 'iso8859-1' 'iso-8859-1' 'latin-1' 'latin1' 'iso-ir-100' 'ibm-819' 'ms-cp819' 'ibm-cp819' 'iso8859'))
 
@@ -928,6 +932,8 @@
 
     ^ #( 
          ('utf8'        'Unicode as 8Bit characters'    )  
+         ('utf16BE'     'Unicode as 16Bit big-endian'    )  
+         ('utf16LE'     'Unicode as 16Bit little-endian' )  
 "/         ('utf7'        'Unicode as 7Bit characters'    ) 
 "/       nil
          ('ascii'       'Common 7bit subset of iso8859' )
@@ -1502,7 +1508,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.92 2005-04-20 00:47:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.93 2005-07-07 17:36:58 cg Exp $'
 ! !
 
 CharacterEncoder initialize!