IN: accessors

GENERIC: x>> ( object -- value )

USING: accessors classes.struct classes.struct.private
core-graphics.types math ;

M: CGPoint x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type CGFloat }
} read-struct-slot ; inline

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

M: GdkEventButton x>>
T{ struct-slot-spec
{ name "x" }
{ offset 24 }
{ class float }
{ initial 0.0 }
{ type gdouble }
} read-struct-slot ; inline

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

M: GdkEventConfigure x>>
T{ struct-slot-spec
{ name "x" }
{ offset 20 }
{ class fixnum }
{ initial 0 }
{ type gint }
} read-struct-slot ; inline

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

M: GdkEventMotion x>>
T{ struct-slot-spec
{ name "x" }
{ offset 24 }
{ class float }
{ initial 0.0 }
{ type gdouble }
} read-struct-slot ; inline

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

M: GdkEventScroll x>>
T{ struct-slot-spec
{ name "x" }
{ offset 24 }
{ class float }
{ initial 0.0 }
{ type gdouble }
} read-struct-slot ; inline

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

M: MEVENT x>>
T{ struct-slot-spec
{ name "x" }
{ offset 4 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: PangoRectangle x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type gint }
} read-struct-slot ; inline

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

M: XButtonEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 64 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XConfigureEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 48 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XConfigureRequestEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 48 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XCreateWindowEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 48 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XCrossingEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 64 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XExposeEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 40 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XGraphicsExposeEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 40 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XGravityEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 48 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XKeyEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 64 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XMotionEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 64 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XReparentEvent x>>
T{ struct-slot-spec
{ name "x" }
{ offset 56 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

M: XSizeHints x>>
T{ struct-slot-spec
{ name "x" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

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

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

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

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

USING: accessors math.affine-transforms slots.private ;

M: affine-transform x>> 2 slot ; inline

USING: accessors math.bitwise slots.private ;

M: bit-range-error x>> 2 slot ; inline

USING: accessors random.blum-blum-shub slots.private ;

M: blum-blum-shub x>> 2 slot ; inline

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

M: cairo_glyph_t x>>
T{ struct-slot-spec
{ name "x" }
{ offset 8 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

M: cairo_path_data_t-point x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

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

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

M: cairo_rectangle_t x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

USING: accessors pdf.canvas slots.private ;

M: canvas x>> 2 slot ; inline

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

M: char1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type char }
} read-struct-slot ; inline

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

M: char2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type char }
} read-struct-slot ; inline

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

M: char3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type char }
} read-struct-slot ; inline

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

M: char4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type char }
} read-struct-slot ; inline

USING: accessors game.input slots.private ;

M: controller-state x>> 2 slot ; inline

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

M: cpVect x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type cpFloat }
} read-struct-slot ; inline

USING: accessors curses kernel.private math slots.private ;

M: curses-window x>> 9 slot { integer } declare ; inline

USING: accessors math.ratios slots.private ;

M: division-by-zero x>> 2 slot ; inline

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

M: double1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

M: double2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

M: double3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

M: double4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type double }
} read-struct-slot ; inline

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

M: float1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type float }
} read-struct-slot ; inline

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

M: float2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type float }
} read-struct-slot ; inline

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

M: float3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type float }
} read-struct-slot ; inline

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

M: float4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type float }
} read-struct-slot ; inline

USING: accessors slots.private svg ;

M: horizontal-lineto x>> 2 slot ; inline

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

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

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

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

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

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

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

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

USING: accessors progress-bars slots.private ;

M: invalid-length x>> 2 slot ; inline

USING: accessors progress-bars slots.private ;

M: invalid-percent x>> 2 slot ; inline

USING: accessors math slots.private ;

M: log2-expects-positive x>> 2 slot ; inline

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

M: long1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type long }
} read-struct-slot ; inline

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

M: long2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type long }
} read-struct-slot ; inline

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

M: long3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type long }
} read-struct-slot ; inline

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

M: long4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type long }
} read-struct-slot ; inline

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

M: longlong1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type longlong }
} read-struct-slot ; inline

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

M: longlong2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type longlong }
} read-struct-slot ; inline

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

M: longlong3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type longlong }
} read-struct-slot ; inline

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

M: longlong4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type longlong }
} read-struct-slot ; inline

USING: accessors curses kernel.private math slots.private ;

M: mouse-event x>> 4 slot { fixnum } declare ; inline

USING: accessors money slots.private ;

M: not-an-integer x>> 2 slot ; inline

USING: accessors benchmark.tuple-arrays kernel.private math
slots.private ;

M: point x>> 2 slot { float } declare ; inline

USING: accessors alien.c-types benchmark.struct-arrays
classes.struct classes.struct.private math ;

M: point x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class float }
{ initial 0.0 }
{ type float }
} read-struct-slot ; inline

USING: accessors benchmark.ant slots.private ;

M: point x>> 2 slot ; inline

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

M: scroller x>> 24 slot ; inline

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

M: short1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type short }
} read-struct-slot ; inline

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

M: short2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type short }
} read-struct-slot ; inline

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

M: short3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type short }
} read-struct-slot ; inline

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

M: short4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type short }
} read-struct-slot ; inline

USING: accessors db.tester slots.private ;

M: test-2 x>> 3 slot ; inline

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

M: uchar1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uchar }
} read-struct-slot ; inline

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

M: uchar2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uchar }
} read-struct-slot ; inline

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

M: uchar3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uchar }
} read-struct-slot ; inline

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

M: uchar4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uchar }
} read-struct-slot ; inline

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

M: uint1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

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

M: uint2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

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

M: uint3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

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

M: uint4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} read-struct-slot ; inline

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

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

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

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

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

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

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

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

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

M: ulonglong1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type ulonglong }
} read-struct-slot ; inline

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

M: ulonglong2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type ulonglong }
} read-struct-slot ; inline

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

M: ulonglong3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type ulonglong }
} read-struct-slot ; inline

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

M: ulonglong4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type ulonglong }
} read-struct-slot ; inline

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

M: ushort1 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type ushort }
} read-struct-slot ; inline

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

M: ushort2 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type ushort }
} read-struct-slot ; inline

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

M: ushort3 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type ushort }
} read-struct-slot ; inline

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

M: ushort4 x>>
T{ struct-slot-spec
{ name "x" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type ushort }
} read-struct-slot ; inline