Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 16 Jul 1997 13:48:32 +0200
changeset 2759 1fbcf236b4ff
parent 2758 31e822490f77
child 2760 715d662449ea
checkin from browser
CharArray.st file | annotate | diff | comparison | revisions
CharacterArray.st file | annotate | diff | comparison | revisions 
--- a/CharArray.st	Wed Jul 16 13:17:36 1997 +0200
+++ b/CharArray.st	Wed Jul 16 13:48:32 1997 +0200
@@ -699,6 +699,7 @@
           nil
           'EUC          (extended unix code japanese)' 
           'JIS7         (jis 7bit escape codes japanese)'
+          'ISO-2022-JP  (same as jis 7bit)'
           'SJIS         (shift jis 8bit codes japanese)'
           nil
           'GB           (mainland china)'
@@ -723,6 +724,7 @@
           nil
           #'euc'   
           #'jis7'   
+          #'iso-2022-jp'   
           #'sjis'   
           nil
           #'gb'   
@@ -732,7 +734,7 @@
        )
 
     "Created: 22.4.1996 / 14:39:39 / cg"
-    "Modified: 1.7.1997 / 17:28:09 / cg"
+    "Modified: 16.7.1997 / 13:47:16 / cg"
 ! !
 
 !CharacterArray class methodsFor:'encoding / decoding'!
@@ -3129,6 +3131,9 @@
     encodingSymbol == #'x-iso2022-jp' ifTrue:[
         ^ JISEncodedString decodeFromJIS7:self
     ].
+    encodingSymbol == #'iso2022-jp' ifTrue:[
+        ^ JISEncodedString decodeFromJIS7:self
+    ].
     encodingSymbol == #'x-sjis' ifTrue:[
         ^ JISEncodedString decodeFromSJIS:self
     ].
@@ -3195,7 +3200,7 @@
     ^ newString
 
     "Created: 22.2.1996 / 15:06:49 / cg"
-    "Modified: 16.7.1997 / 12:51:38 / cg"
+    "Modified: 16.7.1997 / 13:45:33 / cg"
 !
 
 encodeForDisplayInto:encodingSymbol
@@ -3278,6 +3283,12 @@
     encodingSymbol == #'x-jis7' ifTrue:[
         ^ JISEncodedString encodeIntoJIS7:self
     ].
+    encodingSymbol == #'x-iso2022-jp' ifTrue:[
+        ^ JISEncodedString encodeIntoJIS7:self
+    ].
+    encodingSymbol == #'iso2022-jp' ifTrue:[
+        ^ JISEncodedString encodeIntoJIS7:self
+    ].
     encodingSymbol == #'x-sjis' ifTrue:[
         ^ JISEncodedString encodeIntoSJIS:self
     ].
@@ -3347,7 +3358,7 @@
     ^ newString
 
     "Created: 22.2.1996 / 15:07:31 / cg"
-    "Modified: 1.7.1997 / 17:17:53 / cg"
+    "Modified: 16.7.1997 / 13:46:06 / cg"
 !
 
 replaceFrom:aString decode:encoding 
@@ -4941,6 +4952,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.131 1997-07-16 11:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.132 1997-07-16 11:48:32 cg Exp $'
 ! !
 CharacterArray initialize!
--- a/CharacterArray.st	Wed Jul 16 13:17:36 1997 +0200
+++ b/CharacterArray.st	Wed Jul 16 13:48:32 1997 +0200
@@ -699,6 +699,7 @@
           nil
           'EUC          (extended unix code japanese)' 
           'JIS7         (jis 7bit escape codes japanese)'
+          'ISO-2022-JP  (same as jis 7bit)'
           'SJIS         (shift jis 8bit codes japanese)'
           nil
           'GB           (mainland china)'
@@ -723,6 +724,7 @@
           nil
           #'euc'   
           #'jis7'   
+          #'iso-2022-jp'   
           #'sjis'   
           nil
           #'gb'   
@@ -732,7 +734,7 @@
        )
 
     "Created: 22.4.1996 / 14:39:39 / cg"
-    "Modified: 1.7.1997 / 17:28:09 / cg"
+    "Modified: 16.7.1997 / 13:47:16 / cg"
 ! !
 
 !CharacterArray class methodsFor:'encoding / decoding'!
@@ -3129,6 +3131,9 @@
     encodingSymbol == #'x-iso2022-jp' ifTrue:[
         ^ JISEncodedString decodeFromJIS7:self
     ].
+    encodingSymbol == #'iso2022-jp' ifTrue:[
+        ^ JISEncodedString decodeFromJIS7:self
+    ].
     encodingSymbol == #'x-sjis' ifTrue:[
         ^ JISEncodedString decodeFromSJIS:self
     ].
@@ -3195,7 +3200,7 @@
     ^ newString
 
     "Created: 22.2.1996 / 15:06:49 / cg"
-    "Modified: 16.7.1997 / 12:51:38 / cg"
+    "Modified: 16.7.1997 / 13:45:33 / cg"
 !
 
 encodeForDisplayInto:encodingSymbol
@@ -3278,6 +3283,12 @@
     encodingSymbol == #'x-jis7' ifTrue:[
         ^ JISEncodedString encodeIntoJIS7:self
     ].
+    encodingSymbol == #'x-iso2022-jp' ifTrue:[
+        ^ JISEncodedString encodeIntoJIS7:self
+    ].
+    encodingSymbol == #'iso2022-jp' ifTrue:[
+        ^ JISEncodedString encodeIntoJIS7:self
+    ].
     encodingSymbol == #'x-sjis' ifTrue:[
         ^ JISEncodedString encodeIntoSJIS:self
     ].
@@ -3347,7 +3358,7 @@
     ^ newString
 
     "Created: 22.2.1996 / 15:07:31 / cg"
-    "Modified: 1.7.1997 / 17:17:53 / cg"
+    "Modified: 16.7.1997 / 13:46:06 / cg"
 !
 
 replaceFrom:aString decode:encoding 
@@ -4941,6 +4952,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.131 1997-07-16 11:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.132 1997-07-16 11:48:32 cg Exp $'
 ! !
 CharacterArray initialize!
hg/stx-libbasic