equal
deleted
inserted
replaced
71 |
71 |
72 ! ! |
72 ! ! |
73 |
73 |
74 !ObjectCoder class methodsFor:'encoding'! |
74 !ObjectCoder class methodsFor:'encoding'! |
75 |
75 |
|
76 decodingOf:anObject |
|
77 "return the decoding of anObject" |
|
78 |
|
79 ^ (self on:anObject readStream) upToEnd |
|
80 |
|
81 " |
|
82 Base64Coder encodingOf:#[1 2 16rFe 16rFF] |
|
83 Base64Coder decodingOf:'AQL+/w==' |
|
84 " |
|
85 ! |
|
86 |
76 encode:anObject on:aStream |
87 encode:anObject on:aStream |
77 |
88 |
78 |coder| |
89 |coder| |
79 |
90 |
80 coder := self new stream:aStream. |
91 coder := self new stream:aStream. |
91 |
102 |
92 encodingOf:anObject |
103 encodingOf:anObject |
93 "return the encoding of anObject" |
104 "return the encoding of anObject" |
94 |
105 |
95 ^ self new encodingOf:anObject with:nil |
106 ^ self new encodingOf:anObject with:nil |
|
107 |
|
108 " |
|
109 Base64Coder encodingOf:#[1 2 16rFe 16rFF] |
|
110 " |
96 ! |
111 ! |
97 |
112 |
98 encodingOf:anObject with:aParameter |
113 encodingOf:anObject with:aParameter |
99 "return the encoding of anObject" |
114 "return the encoding of anObject" |
100 |
115 |
204 ! ! |
219 ! ! |
205 |
220 |
206 !ObjectCoder class methodsFor:'documentation'! |
221 !ObjectCoder class methodsFor:'documentation'! |
207 |
222 |
208 version |
223 version |
209 ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.9 2002-08-02 14:10:02 stefan Exp $' |
224 ^ '$Header: /cvs/stx/stx/libbasic/ObjectCoder.st,v 1.10 2002-11-26 10:54:33 cg Exp $' |
210 ! ! |
225 ! ! |