IN: accessors

GENERIC: flags>> ( object -- value )

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

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

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

M: GSource flags>>
T{ struct-slot-spec
{ name "flags" }
{ offset 44 }
{ class fixnum }
{ initial 0 }
{ type guint }
} read-struct-slot ; inline

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

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

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

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

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

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

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

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

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

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

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

M: XIRawEvent flags>>
T{ struct-slot-spec
{ name "flags" }
{ offset 60 }
{ 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 flags>>
T{ struct-slot-spec
{ name "flags" }
{ offset 0 }
{ class integer }
{ initial 0 }
{ type long }
} read-struct-slot ; inline

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

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

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

M: ast-regexp flags>> 3 slot ; inline

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

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

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

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

USING: accessors id3.private slots.private ;

M: frame flags>> 3 slot ; inline

USING: accessors images.gif slots.private ;

M: graphics-control-extension flags>> 2 slot ; inline

USING: accessors id3.private slots.private ;

M: header flags>> 3 slot ; inline

USING: accessors images.gif slots.private ;

M: image-descriptor flags>> 6 slot ; inline

USING: accessors classes.struct classes.struct.private libusb
math unix.types ;

M: libusb_transfer flags>>
T{ struct-slot-spec
{ name "flags" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type uint8_t }
} read-struct-slot ; inline

USING: accessors images.gif slots.private ;

M: loading-gif flags>> 6 slot ; inline

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

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

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

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

USING: accessors kernel.private math mongodb.msg slots.private
;

M: mdb-msg flags>> 6 slot { integer } declare ; inline

USING: accessors arrays kernel.private slots.private
unix.linux.proc ;

M: processor-info flags>> 21 slot { array } declare ; inline

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

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

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

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

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

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

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

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

USING: accessors io.files.info.unix slots.private ;

M: unix-file-system-info flags>> 18 slot ; inline