(decode-zbase32) ( stream -- )

Vocabulary

base32.private

Inputs

stream

an object

Outputs

None

Definition

USING: base64.private combinators kernel sequences ;

IN: base32.private

: (decode-zbase32) ( stream -- )
    8 "\n\r" pick read-ignoring dup length {
        { 0 [ 2drop ] }
        { 8 [ zdecode8 (decode-zbase32) ] }
        [ drop 8 61 pad-tail zdecode8 (decode-zbase32) ]
    } case ;