(encode-base32hex) ( stream column -- )

Vocabulary

base32hex.private

Inputs

stream	an object
column	an object

Outputs

None

Definition

USING: base64.private combinators io kernel sequences ;

IN: base32hex.private

: (encode-base32hex) ( stream column -- )
    5 pick stream-read dup length {
        { 0 [ 3drop ] }
        { 5 [ encode5 write-lines (encode-base32hex) ] }
        [ encode-pad write-lines (encode-base32hex) ]
    } case ;