mark>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: mark>> ( object -- value )

Methods

USING: accessors slots.private ui.gadgets.editors ;

M: editor mark>> 28 slot ; inline


USING: accessors slots.private ui.gadgets.panes ;

M: pane mark>> 32 slot ; inline


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

M: pcre_extra mark>>
    T{ struct-slot-spec
        { name "mark" }
        { offset 48 }
        { class c-ptr }
        { type pointer: pointer: uchar }
    } read-struct-slot ; inline


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

M: readline_state mark>>
    T{ struct-slot-spec
        { name "mark" }
        { offset 8 }
        { class fixnum }
        { initial 0 }
        { type int }
    } read-struct-slot ; inline


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

M: yaml_alias_data_t mark>>
    T{ struct-slot-spec
        { name "mark" }
        { offset 16 }
        { class yaml_mark_t }
        { initial
            S{ yaml_mark_t { index 0 } { line 0 } { column 0 } }
        }
        { type yaml_mark_t }
    } read-struct-slot ; inline


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

M: yaml_parser_t mark>>
    T{ struct-slot-spec
        { name "mark" }
        { offset 224 }
        { class yaml_mark_t }
        { initial
            S{ yaml_mark_t { index 0 } { line 0 } { column 0 } }
        }
        { type yaml_mark_t }
    } read-struct-slot ; inline


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

M: yaml_simple_key_t mark>>
    T{ struct-slot-spec
        { name "mark" }
        { offset 16 }
        { class yaml_mark_t }
        { initial
            S{ yaml_mark_t { index 0 } { line 0 } { column 0 } }
        }
        { type yaml_mark_t }
    } read-struct-slot ; inline