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

Vocabulary

classes.struct.private

Inputs

slot

an object

Outputs

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

Definition

IN: classes.struct.private

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

Methods

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

M: struct-bit-slot-spec (writer-quot)
    [ offset>> ] [ bits>> ] bi bit-writer [ >c-ptr ] prepose ;


USING: accessors alien alien.arrays alien.c-types arrays
classes.struct classes.struct.private combinators.short-circuit
kernel ;

M: struct-slot-spec (writer-quot)
    [ offset>> ] [ type>> ] bi
    [ '[ >c-ptr _ _ set-alien-value ] ] keep dup lookup-c-type
    { [ array? ] [ string-type? not ] } 1&& [
        heap-size
        '[ [ _ check-struct-array-length ] dip ] prepose
    ] [ drop ] if ;