(decode-ascii85) ( stream -- )

Vocabulary

base85.private

Inputs

stream

an object

Outputs

None

Definition

USING: base64.private combinators io kernel math sequences ;

IN: base85.private

: (decode-ascii85) ( stream -- )
    " \t\n\r\v" over read1-ignoring {
        { 122 [ B{ 0 0 0 0 } write (decode-ascii85) ] }
        { f [ drop ] }
        [
            [ 4 " \t\n\r\v" pick read-ignoring ] [ prefix ] bi*
            dup length {
                { 0 [ 2drop ] }
                { 5 [ decode5' write (decode-ascii85) ] }
                [
                    drop
                    [ 5 117 pad-tail decode5' ]
                    [ length 5 swap - head-slice* write ] bi
                    (decode-ascii85)
                ]
            } case
        ]
    } case ;