encode3 ( x y z -- a b c d )

Vocabulary

base64.private

Inputs

x	an object
y	an object
z	an object

Outputs

a	an object
b	an object
c	an object
d	an object

Definition

USING: combinators kernel kernel.private math math.bitwise ;

IN: base64.private

: encode3 ( x y z -- a b c d )
    { fixnum fixnum fixnum } declare {
        [ [ -2 shift ch>base64 ] [ 2 bits 4 shift ] bi ]
        [ [ -4 shift bitor ch>base64 ] [ 4 bits 2 shift ] bi ]
        [ [ -6 shift bitor ch>base64 ] [ 6 bits ch>base64 ] bi ]
    } spread ; inline