(encode-ascii85) ( stream column -- )

Vocabulary

base85.private

Inputs

stream	an object
column	an object

Outputs

None

Definition

USING: base64.private combinators io kernel math sequences ;

IN: base85.private

: (encode-ascii85) ( stream column -- )
    4 pick stream-read dup length {
        { 0 [ 3drop ] }
        { 4 [ encode4' write-lines (encode-ascii85) ] }
        [
            drop
            [ 4 0 pad-tail encode4' ]
            [ length 4 swap - head-slice* write-lines ] bi
            (encode-ascii85)
        ]
    } case ;