IN: accessors

GENERIC: index>> ( object -- value )

USING: accessors infix.ast slots.private ;

M: ast-array index>> 3 slot ; inline

USING: accessors peg.javascript.ast slots.private ;

M: ast-getp index>> 2 slot ; inline

USING: accessors sequences slots.private ;

M: bounds-error index>> 2 slot ; inline

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

M: cairo_glyph_t index>>
T{ struct-slot-spec
{ name "index" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type ulong }
} read-struct-slot ; inline

USING: accessors gpu.framebuffers kernel.private math
slots.private ;

M: color-attachment index>> 2 slot { integer } declare ; inline

USING: accessors heaps.private slots.private ;

M: entry index>> 5 slot ; inline

USING: accessors classes.struct classes.struct.private freetype
math ;

M: face index>>
T{ struct-slot-spec
{ name "index" }
{ offset 8 }
{ class integer }
{ initial 0 }
{ type FT_Long }
} read-struct-slot ; inline

USING: accessors slots.private ui.tools.listener.history ;

M: history index>> 4 slot ; inline

USING: accessors sequences slots.private ;

M: immutable index>> 3 slot ; inline

USING: accessors cpu.x86.assembler.operands.private
slots.private ;

M: indirect index>> 3 slot ; inline

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

M: list index>> 23 slot ; inline

USING: accessors compiler.cfg.loop-detection slots.private ;

M: natural-loop index>> 3 slot ; inline

USING: accessors cuda.ptx kernel.private math slots.private ;

M: ptx-element index>> 3 slot { integer } declare ; inline

USING: accessors mongodb.benchmark slots.private ;

M: result index>> 4 slot ; inline

USING: accessors arrays.shaped slots.private ;

M: row-traverser index>> 3 slot ; inline

USING: accessors lists.lazy slots.private ;

M: sequence-cons index>> 2 slot ; inline

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

M: sfmt-state index>>
T{ struct-slot-spec
{ name "index" }
{ offset 12 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private math tools.disassembler.udis ;

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