(decode-base85) ( stream -- )

Vocabulary

base85.private

Inputs

stream

an object

Outputs

None

Definition

USING: base64.private combinators io kernel math sequences ;

IN: base85.private

: (decode-base85) ( stream -- )
    5 "\n\r" pick read-ignoring dup length {
        { 0 [ 2drop ] }
        { 5 [ decode5 write (decode-base85) ] }
        [
            drop
            [ 5 126 pad-tail decode5 ]
            [ length 5 swap - head-slice* write ] bi
            (decode-base85)
        ]
    } case ;