narrow-vararg-integer ( value width signed? -- integer )

Vocabulary

alien.c-types.varargs.private

Inputs

value	an object
width	an object
signed?	an object

Outputs

integer

an object

Definition

USING: kernel math ;

IN: alien.c-types.varargs.private

:: narrow-vararg-integer ( value width signed? -- integer )
    width 2^ :> modulus value modulus 1 - bitand
    :> bits signed? bits modulus 2 /i >= and
    [ bits modulus - ] [ bits ] if ;