(reader-quot) ( slot -- quot: ( struct -- value ) )

Vocabulary

classes.struct.private

Inputs

slot

an object

Outputs

quot	a quotation with stack effect ( struct -- value )

Definition

IN: classes.struct.private

GENERIC: (reader-quot) ( slot -- quot: ( struct -- value ) )

Methods

USING: accessors alien classes.struct
classes.struct.bit-accessors classes.struct.private kernel ;

M: struct-bit-slot-spec (reader-quot)
    [ [ offset>> ] [ bits>> ] bi bit-reader ]
    [ [ signed?>> ] [ bits>> ] bi sign-extender ] bi compose
    [ >c-ptr ] prepose ;


USING: accessors alien alien.c-types classes.struct
classes.struct.private kernel ;

M: struct-slot-spec (reader-quot)
    [ offset>> ] [ type>> ] bi [ [ [ >c-ptr ] ] dip ] dip
    [ alien-value ] 2curry compose ;