General encoding method (#encodeOn:with:)
authorStefan Vogel <sv@exept.de>
Tue, 18 Jul 2000 11:00:43 +0200
changeset 5469 8aca7ce5626f
parent 5468 96e2cb78498f
child 5470 5e56d8cff0c9
General encoding method (#encodeOn:with:)
CharacterArray.st
Integer.st
--- a/CharacterArray.st	Tue Jul 18 10:58:51 2000 +0200
+++ b/CharacterArray.st	Tue Jul 18 11:00:43 2000 +0200
@@ -3575,6 +3575,14 @@
     "Created: / 13.12.1999 / 21:49:24 / cg"
 ! !
 
+!CharacterArray methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+
+    anEncoder encodeString:self with:aParameter
+
+! !
+
 !CharacterArray methodsFor:'encoding/decoding'!
 
 decodeFrom:encodingSymbol
@@ -4415,6 +4423,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 chopTo:maxLen
@@ -5546,6 +5555,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.184 2000-07-02 12:53:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.185 2000-07-18 09:00:03 stefan Exp $'
 ! !
 CharacterArray initialize!
--- a/Integer.st	Tue Jul 18 10:58:51 2000 +0200
+++ b/Integer.st	Tue Jul 18 11:00:43 2000 +0200
@@ -495,6 +495,7 @@
     "
 ! !
 
+
 !Integer methodsFor:'bcd conversion'!
 
 decodeFromBCD
@@ -1339,6 +1340,15 @@
     "Modified: 28.7.1997 / 19:08:11 / cg"
 ! !
 
+!Integer methodsFor:'encoding'!
+
+encodeOn:anEncoder with:aParameter
+
+    anEncoder encodeInteger:self with:aParameter
+
+
+! !
+
 !Integer methodsFor:'helpers'!
 
 gcd_helper:anInteger 
@@ -2252,6 +2262,7 @@
     "Modified: 15.10.1997 / 18:43:49 / cg"
 ! !
 
+
 !Integer methodsFor:'special bit operators'!
 
 bitAnd_32:anInteger
@@ -2593,6 +2604,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.131 2000-06-29 11:28:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.132 2000-07-18 09:00:43 stefan Exp $'
 ! !
 Integer initialize!