(encode-base85) ( 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-base85) ( stream column -- )
    4 pick stream-read dup length {
        { 0 [ 3drop ] }
        { 4 [ encode4 write-lines (encode-base85) ] }
        [
            drop
            [ 4 0 pad-tail encode4 ]
            [ length 4 swap - head-slice* write-lines ] bi
            (encode-base85)
        ]
    } case ;