IN: accessors

GENERIC: data>> ( object -- value )

USING: accessors alien.c-types alien.syntax classes.struct
classes.struct.private kernel llvm.clang.ffi ;

M: CXCursor data>>
T{ struct-slot-spec
{ name "data" }
{ offset 8 }
{ class object }
{ type { pointer: void 3 } }
} read-struct-slot ; inline

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

M: CXString data>>
T{ struct-slot-spec
{ name "data" }
{ offset 0 }
{ class c-ptr }
{ type pointer: void }
} read-struct-slot ; inline

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

M: CXTUResourceUsage data>>
T{ struct-slot-spec
{ name "data" }
{ offset 0 }
{ class c-ptr }
{ type pointer: void }
} read-struct-slot ; inline

USING: accessors alien.c-types alien.syntax classes.struct
classes.struct.private kernel llvm.clang.ffi ;

M: CXType data>>
T{ struct-slot-spec
{ name "data" }
{ offset 8 }
{ class object }
{ type { pointer: void 2 } }
} read-struct-slot ; inline

USING: accessors classes.struct classes.struct.private
gobject-introspection.standard-types gobject.ffi kernel ;

M: GValue data>>
T{ struct-slot-spec
{ name "data" }
{ offset 8 }
{ class object }
{ type { gpointer 2 } }
} read-struct-slot ; inline

USING: accessors alien classes.struct classes.struct.private
readline.ffi ;

M: HIST_ENTRY data>>
T{ struct-slot-spec
{ name "data" }
{ offset 16 }
{ class c-ptr }
{ type histdata_t }
} read-struct-slot ; inline

USING: accessors alien alien.c-types alien.syntax
classes.struct classes.struct.private x11.xlib ;

M: XGenericEventCookie data>>
T{ struct-slot-spec
{ name "data" }
{ offset 48 }
{ class c-ptr }
{ type pointer: void }
} read-struct-slot ; inline

USING: accessors alien alien.c-types alien.syntax
classes.struct classes.struct.private x11.xlib ;

M: XImage data>>
T{ struct-slot-spec
{ name "data" }
{ offset 16 }
{ class c-ptr }
{ type pointer: uchar }
} read-struct-slot ; inline

USING: accessors alien audio kernel.private slots.private ;

M: audio data>> 6 slot { c-ptr } declare ; inline

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

M: cairo_path_t data>>
T{ struct-slot-spec
{ name "data" }
{ offset 8 }
{ class c-ptr }
{ type pointer: cairo_path_data_t }
} read-struct-slot ; inline

USING: accessors google.charts slots.private ;

M: chart data>> 6 slot ; inline

USING: accessors compression.zlib slots.private ;

M: compressed data>> 2 slot ; inline

USING: accessors continuations slots.private ;

M: continuation data>> 2 slot ; inline

USING: accessors assocs couchdb kernel.private slots.private ;

M: couchdb-error data>> 2 slot { assoc } declare ; inline

USING: accessors alien chipmunk.ffi classes.struct
classes.struct.private ;

M: cpBody data>>
T{ struct-slot-spec
{ name "data" }
{ offset 136 }
{ class c-ptr }
{ type cpDataPointer }
} read-struct-slot ; inline

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

M: cpCollisionHandler data>>
T{ struct-slot-spec
{ name "data" }
{ offset 40 }
{ class c-ptr }
{ type pointer: void }
} read-struct-slot ; inline

USING: accessors alien chipmunk.ffi classes.struct
classes.struct.private ;

M: cpConstraint data>>
T{ struct-slot-spec
{ name "data" }
{ offset 48 }
{ class c-ptr }
{ type cpDataPointer }
} read-struct-slot ; inline

USING: accessors alien chipmunk.ffi classes.struct
classes.struct.private ;

M: cpShape data>>
T{ struct-slot-spec
{ name "data" }
{ offset 88 }
{ class c-ptr }
{ type cpDataPointer }
} read-struct-slot ; inline

USING: accessors machine-learning.data-sets slots.private ;

M: data-set data>> 2 slot ; inline

USING: accessors classes.struct classes.struct.private
unix.linux.epoll ;

M: epoll-event data>>
T{ struct-slot-spec
{ name "data" }
{ offset 4 }
{ class epoll-data }
{ initial
S{ epoll-data
{ ptr f }
{ fd 0 }
{ u32 0 }
{ u64 0 }
}
}
{ type epoll-data }
{ packed? t }
} read-struct-slot ; inline

USING: accessors macho slots.private ;

M: fat-binary-member data>> 4 slot ; inline

USING: accessors id3.private slots.private ;

M: frame data>> 5 slot ; inline

USING: accessors heaps.private kernel.private slots.private
vectors ;

M: heap data>> 2 slot { vector } declare ; inline

USING: accessors html.streams slots.private ;

M: html-writer data>> 2 slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private gobject-introspection.standard-types
kernel ;

M: longdouble data>>
T{ struct-slot-spec
{ name "data" }
{ offset 0 }
{ class object }
{ type { char 10 } }
} read-struct-slot ; inline

USING: accessors concurrency.mailboxes dlists kernel.private
slots.private ;

M: mailbox data>> 3 slot { dlist } declare ; inline

USING: accessors slots.private synth.buffers ;

M: mono-buffer data>> 5 slot ; inline

USING: accessors arrays kernel.private slots.private
unrolled-lists.private ;

M: node data>> 2 slot { array } declare ; inline

USING: accessors rosetta-code.tree-traversal slots.private ;

M: node data>> 2 slot ; inline

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

M: ogg-sync-state data>>
T{ struct-slot-spec
{ name "data" }
{ offset 0 }
{ class c-ptr }
{ type pointer: uchar }
} read-struct-slot ; inline

USING: accessors reddit.private slots.private ;

M: page data>> 3 slot ; inline

USING: accessors pdf.streams slots.private ;

M: pdf-writer data>> 3 slot ; inline

USING: accessors images.png slots.private ;

M: png-chunk data>> 4 slot ; inline

USING: accessors http slots.private ;

M: post-data data>> 2 slot ; inline

USING: accessors concurrency.messaging slots.private ;

M: reply data>> 2 slot ; inline

USING: accessors s3.private slots.private ;

M: s3-request data>> 8 slot ; inline

USING: accessors elf slots.private ;

M: section data>> 5 slot ; inline

USING: accessors elf slots.private ;

M: segment data>> 4 slot ; inline

USING: accessors game.models.collada.private slots.private ;

M: source data>> 4 slot ; inline

USING: accessors io.backend.unix slots.private ;

M: stdin data>> 6 slot ; inline

USING: accessors elf slots.private ;

M: symbol data>> 5 slot ; inline

USING: accessors concurrency.messaging slots.private ;

M: synchronous data>> 2 slot ; inline

USING: accessors alien alien.c-types alien.syntax
classes.struct classes.struct.private ogg.theora ;

M: th-img-plane data>>
T{ struct-slot-spec
{ name "data" }
{ offset 16 }
{ class c-ptr }
{ type pointer: uchar }
} read-struct-slot ; inline