(encode-base64) ( input output column -- )

Vocabulary

base64.private

Inputs

input	an object
output	an object
column	an object

Outputs

None

Definition

USING: byte-arrays combinators io kernel math sequences.private
;

IN: base64.private

:: (encode-base64) ( input output column -- )
    4 (byte-array) :> data column
    [ input stream-read1 dup ] [
        input stream-read1 input stream-read1
        [ [ 0 or ] bi@ encode3 ] 2keep [ 0 1 ? ] bi@ +
        { { 0 [ ] } { 1 [ drop 61 ] } { 2 [ 2drop 61 61 ] } }
        case data (4sequence) output stream-write-lines
    ] while 2drop ; inline