bit-reader ( offset bits -- quot: ( alien -- n ) )

Vocabulary

classes.struct.bit-accessors

Inputs

offset	an object
bits	an object

Outputs

quot	a quotation with stack effect ( alien -- n )

Definition

USING: alien.accessors kernel math ;

IN: classes.struct.bit-accessors

: bit-reader ( offset bits -- quot: ( alien -- n ) )
    [
        neg [
            [ [ alien-unsigned-1 ] curry ] dip [ bitand ] curry
            compose
        ] dip [ shift ] curry compose
    ]
    [ swap [ [ bi ] 2curry ] dip [ shift bitor ] curry compose ]
    bit-manipulator ;