ObjectCoder.st
changeset 19588 26236b5c057d
parent 18553 6a1c042d2aab
child 19598 983a0151ba5c
equal deleted inserted replaced
19587:fe022912131e 19588:26236b5c057d
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 2000 by eXept Software AG
     2  COPYRIGHT (c) 2000 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
    80     ^ (self on:anObject readStream) upToEnd
    78     ^ (self on:anObject readStream) upToEnd
    81 
    79 
    82     "
    80     "
    83      Base64Coder encode:#[1 2 16rFe 16rFF]
    81      Base64Coder encode:#[1 2 16rFe 16rFF]
    84      Base64Coder decode:'AQL+/w=='    
    82      Base64Coder decode:'AQL+/w=='    
       
    83      (Base64Coder decode:(Base64Coder encode:#[1 2 16rFe 16rFF])) = #[1 2 16rFe 16rFF]
    85     "
    84     "
    86 !
    85 !
    87 
    86 
    88 decodingOf:anObject
    87 decodingOf:anObject
    89     "use encode"
    88     "use encode"
   202 !
   201 !
   203 
   202 
   204 nextPut:anObject
   203 nextPut:anObject
   205     "encode anObject onto my stream"
   204     "encode anObject onto my stream"
   206 
   205 
   207     self nextPut:anObject with:nil.
   206     self nextPut:anObject with:nil
   208 !
   207 !
   209 
   208 
   210 nextPut:anObject with:aParameter
   209 nextPut:anObject with:aParameter
   211     "encode anObject onto my stream"
   210     "encode anObject onto my stream"
   212 
   211