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

Vocabulary

base64.private

Inputs

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

Outputs

x	an object
y	an object
z	an object

Definition

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

IN: base64.private

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