134 self nextPut:o |
134 self nextPut:o |
135 ] |
135 ] |
136 |
136 |
137 ! ! |
137 ! ! |
138 |
138 |
139 !ObjectCoder methodsFor:'encoding-smalltalk-types'! |
|
140 |
|
141 encodeAbsoluteTime:anAbsoluteTime with:aParameter |
|
142 "encode an absolute time value" |
|
143 |
|
144 self encodeObject:anAbsoluteTime with:aParameter |
|
145 |
|
146 |
|
147 ! |
|
148 |
|
149 encodeBitArray:aBitArray with:aParameter |
|
150 "encode a BitArray" |
|
151 |
|
152 self encodeObject:aBitArray with:aParameter |
|
153 |
|
154 |
|
155 ! |
|
156 |
|
157 encodeBoolean:aBoolean with:aParameter |
|
158 "encode a Boolean" |
|
159 |
|
160 self encodeObject:aBoolean with:aParameter |
|
161 |
|
162 |
|
163 ! |
|
164 |
|
165 encodeByteArray:aByteArray with:aParameter |
|
166 "encode an absolute time value" |
|
167 |
|
168 self encodeObject:aByteArray with:aParameter |
|
169 |
|
170 |
|
171 ! |
|
172 |
|
173 encodeCharacter:aCharacter with:aParameter |
|
174 "encode a Character" |
|
175 |
|
176 self encodeObject:aCharacter with:aParameter |
|
177 |
|
178 |
|
179 ! |
|
180 |
|
181 encodeDictionary:aDictionary with:aParameter |
|
182 "encode a Dictionary" |
|
183 |
|
184 self encodeObject:aDictionary with:aParameter |
|
185 |
|
186 |
|
187 ! |
|
188 |
|
189 encodeFloat:aFloat with:aParameter |
|
190 "encode a Float" |
|
191 |
|
192 self encodeObject:aFloat with:aParameter |
|
193 |
|
194 |
|
195 ! |
|
196 |
|
197 encodeInteger:anInteger with:aParameter |
|
198 "encode an Integer" |
|
199 |
|
200 self encodeObject:anInteger with:aParameter |
|
201 |
|
202 |
|
203 ! |
|
204 |
|
205 encodeNilWith:aParameter |
|
206 "encode a nil" |
|
207 |
|
208 self encodeObject:nil with:aParameter |
|
209 |
|
210 |
|
211 ! |
|
212 |
|
213 encodeObject:anObject with:aParameter |
|
214 "encode an object. Subclasses must implement this method" |
|
215 |
|
216 self subclassResponsibility |
|
217 |
|
218 |
|
219 ! |
|
220 |
|
221 encodeSequencableCollection:aCollection with:aParameter |
|
222 "encode a SequencableCollection" |
|
223 |
|
224 self encodeObject:aCollection with:aParameter |
|
225 |
|
226 |
|
227 ! |
|
228 |
|
229 encodeSet:aCollection with:aParameter |
|
230 "encode a Set" |
|
231 |
|
232 self encodeObject:aCollection with:aParameter |
|
233 |
|
234 |
|
235 ! |
|
236 |
|
237 encodeString:aString with:aParameter |
|
238 "encode a String" |
|
239 |
|
240 self encodeObject:aString with:aParameter |
|
241 |
|
242 |
|
243 ! |
|
244 |
|
245 encodeSymbol:aSymbol with:aParameter |
|
246 "encode a Symbol" |
|
247 |
|
248 self encodeObject:aSymbol with:aParameter |
|
249 |
|
250 |
|
251 ! ! |
|
252 |
|
253 !ObjectCoder methodsFor:'initialization'! |
139 !ObjectCoder methodsFor:'initialization'! |
254 |
140 |
255 close |
141 close |
256 "close the underlying stream" |
142 "close the underlying stream" |
257 |
143 |