(encode-zbase32) ( stream column -- )

Vocabulary

base32.private

Inputs

stream	an object
column	an object

Outputs

None

Definition

USING: base64.private combinators io kernel sequences ;

IN: base32.private

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