(decode-base64) ( input output -- )

Vocabulary

base64.private

Inputs

input	an object
output	an object

Outputs

None

Definition

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

IN: base64.private

:: (decode-base64) ( input output -- )
    3 (byte-array) :> data
    [ B{ 10 13 } input read1-ignoring ] [
        B{ 10 13 } input read1-ignoring 61 or
        B{ 10 13 } input read1-ignoring 61 or
        B{ 10 13 } input read1-ignoring 61 or
        [ decode4 data (3sequence) ] 3keep [ 61 eq? 1 0 ? ] tri@
        + + [ head-slice* ] unless-zero output stream-write
    ] while* ;