head>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: head>> ( object -- value )

Methods

USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: char-32 head>> 2 slot { char-16 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: double-4 head>> 2 slot { double-2 } declare ; inline


USING: accessors graphviz slots.private ;

M: edge head>> 3 slot ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: float-8 head>> 2 slot { float-4 } declare ; inline


USING: accessors sequences.cords slots.private ;

M: generic-cord head>> 2 slot ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: int-8 head>> 2 slot { int-4 } declare ; inline


USING: accessors peg.private slots.private ;

M: left-recursion head>> 4 slot ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: longlong-4 head>> 2 slot { longlong-2 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: short-16 head>> 2 slot { short-8 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: uchar-32 head>> 2 slot { uchar-16 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: uint-8 head>> 2 slot { uint-4 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: ulonglong-4 head>> 2 slot { ulonglong-2 } declare ; inline


USING: accessors kernel.private math.vectors.simd
math.vectors.simd.cords slots.private ;

M: ushort-16 head>> 2 slot { ushort-8 } declare ; inline


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

M: yaml_emitter_events head>>
    T{ struct-slot-spec
        { name "head" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_event_t }
    } read-struct-slot ; inline


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

M: yaml_parser_tokens head>>
    T{ struct-slot-spec
        { name "head" }
        { offset 16 }
        { class c-ptr }
        { type pointer: yaml_token_t }
    } read-struct-slot ; inline