[vwnc] base 64 encoded streams & atEnd

> Hello,
>
> base64-encoded streams don't respond to #atEnd properly.
>
> Example #1:
>
> | stream output string  |
> string := '/w=='.
> stream := (string asByteArray withEncoding: #base64) readStream.
> output := ( ByteArray new: string size ) writeStream.
> [ stream atEnd ] whileFalse: [ output nextPut: stream next ].
> output contents.
>
> fails with "Improper store into indexable object"
>
>
> Example #2:
>
> even worse: when using '////' as input, no error will be raised, but the
> output is too short (only 1 byte instead of three bytes).
>
>
> Example #3:
>
> same input as #1, without using #atEnd, properly decoded:
>
> | stream output string  |
> string := '/w=='.
> stream := (string asByteArray withEncoding: #base64) readStream.
> output := ( ByteArray new: string size ) writeStream.
> [ (byte := stream next) notNil ] whileTrue: [ output nextPut: byte ].
> output contents.
> _______________________________________________
> vwnc mailing list
> [hidden email]
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>

> Hi,
>
> This is one of the reasons I wrote a Base64 read and write stream for
> the PostgreSQL drivers.  Also, I wanted a Base64 encoder/decoder which
> was portable.
>
> Does this work for you (when you have the PostgreSQL library loaded):
>
> | stream output string  |
> string := '/w=='.
> stream := Base64EncodingReadStream on: string.
> output := ( ByteArray new: string size ) writeStream.
> [ stream atEnd ] whileFalse: [ output nextPut: stream next ].
> output contents
>