top>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: top>> ( object -- value )

Methods

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

M: NPatchInfo top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 20 }
        { class fixnum }
        { initial 0 }
        { type int }
    } read-struct-slot ; inline


USING: accessors slots.private units ;

M: dimensioned top>> 3 slot ; inline


USING: accessors images.gif slots.private ;

M: image-descriptor top>> 3 slot ; inline


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

M: mapping_node_data_pairs top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_pair_t }
    } read-struct-slot ; inline


USING: accessors pdf.canvas slots.private ;

M: margin top>> 4 slot ; inline


USING: accessors pop3.private slots.private ;

M: raw-source top>> 2 slot ; inline


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

M: sequence_node_data_items top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_item_t }
    } read-struct-slot ; inline


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

M: yaml_document_nodes top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_node_t }
    } read-struct-slot ; inline


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

M: yaml_emitter_indents top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: int }
    } read-struct-slot ; inline


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

M: yaml_emitter_states top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_emitter_state_t }
    } read-struct-slot ; inline


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

M: yaml_emitter_tag_directives top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_tag_directive_t }
    } read-struct-slot ; inline


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

M: yaml_parser_aliases top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_alias_data_t }
    } read-struct-slot ; inline


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

M: yaml_parser_indents top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: int }
    } read-struct-slot ; inline


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

M: yaml_parser_marks top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_mark_t }
    } read-struct-slot ; inline


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

M: yaml_parser_simple_keys top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_simple_key_t }
    } read-struct-slot ; inline


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

M: yaml_parser_states top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_parser_state_t }
    } read-struct-slot ; inline


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

M: yaml_parser_tag_directives top>>
    T{ struct-slot-spec
        { name "top" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_tag_directive_t }
    } read-struct-slot ; inline