IN: accessors

GENERIC: index<< ( value object -- )

USING: accessors infix.ast slots.private ;

M: ast-array index<< 3 set-slot ; inline

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

M: ast-getp index<< 2 set-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 }
} write-struct-slot ; inline

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

M: color-attachment index<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
2 set-slot ; inline

USING: accessors heaps.private slots.private ;

M: entry index<< 5 set-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 }
} write-struct-slot ; inline

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

M: history index<< 4 set-slot ; inline

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

M: indirect index<< 3 set-slot ; inline

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

M: list index<< 23 set-slot ; inline

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

M: natural-loop index<< 3 set-slot ; inline

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

M: ptx-element index<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
3 set-slot ; inline

USING: accessors mongodb.benchmark slots.private ;

M: result index<< 4 set-slot ; inline

USING: accessors arrays.shaped slots.private ;

M: row-traverser index<< 3 set-slot ; inline

USING: accessors lists.lazy slots.private ;

M: sequence-cons index<< 2 set-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 }
} write-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 }
} write-struct-slot ; inline