pointer<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: pointer<< ( value object -- )

Methods

USING: accessors brainfuck.private slots.private ;

M: brainfuck pointer<< 2 set-slot ; inline


USING: accessors classes.struct classes.struct.private
duckdb.ffi specialized-arrays.instances.alien.c-types.char ;

M: duckdb_string_t pointer<<
    T{ struct-slot-spec
        { name "pointer" }
        { offset 0 }
        { class duckdb-string-pointer }
        { initial
            S{ duckdb-string-pointer
                { length 0 }
                { prefix char-array{ 0 0 0 0 } }
                { ptr f }
            }
        }
        { type duckdb-string-pointer }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_buffer pointer<<
    T{ struct-slot-spec
        { name "pointer" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_char_t }
    } write-struct-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_emitter_raw_buffer pointer<<
    T{ struct-slot-spec
        { name "pointer" }
        { offset 16 }
        { class c-ptr }
        { type pointer: uchar }
    } write-struct-slot ; inline


USING: accessors alien alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_buffer pointer<<
    T{ struct-slot-spec
        { name "pointer" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_char_t }
    } write-struct-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private yaml.ffi ;

M: yaml_parser_raw_buffer pointer<<
    T{ struct-slot-spec
        { name "pointer" }
        { offset 16 }
        { class c-ptr }
        { type pointer: uchar }
    } write-struct-slot ; inline