(decode-base32hex) ( stream -- )

Vocabulary

base32.private

Inputs

stream

an object

Outputs

None

Definition

USING: base64.private combinators kernel sequences ;

IN: base32.private

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