IN: accessors

GENERIC: f>> ( object -- value )

USING: accessors classes.struct classes.struct.private x11.xlib
;

M: XImage f>>
T{ struct-slot-spec
{ name "f" }
{ offset 88 }
{ class XImage-funcs }
{ initial
S{ XImage-funcs
{ create_image f }
{ destroy_image f }
{ get_pixel f }
{ put_pixel f }
{ sub_image f }
{ add_pixel f }
}
}
{ type XImage-funcs }
} read-struct-slot ; inline

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

M: ast-try f>> 5 slot ; inline

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

M: cpBody f>>
T{ struct-slot-spec
{ name "f" }
{ offset 80 }
{ class cpVect }
{ initial S{ cpVect { x 0.0 } { y 0.0 } } }
{ type cpVect }
} read-struct-slot ; inline

USING: accessors cpu.8080.emulator slots.private ;

M: cpu f>> 6 slot ; inline