a>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: a>> ( object -- value )

Methods

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

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


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

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


USING: accessors alien.c-types classes.struct
classes.struct.private db.sqlite.ffi kernel ;

M: Fts5PhraseIter a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 0 }
        { class object }
        { type c-string }
    } read-struct-slot ; inline


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

M: bar.arrive a>> 4 slot { ptx-operand } declare ; inline


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

M: bar.sync a>> 4 slot { ptx-operand } declare ; inline


USING: accessors project-euler.064.private slots.private ;

M: cfrac a>> 3 slot ; inline


USING: accessors kernel.private math random.cmwc slots.private ;

M: cmwc a>> 3 slot { integer } declare ; inline


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

M: cpArbiter a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 16 }
        { class c-ptr }
        { type pointer: cpShape }
    } read-struct-slot ; inline


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

M: cpBody a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 96 }
        { class float }
        { initial 0.0 }
        { type cpFloat }
    } read-struct-slot ; inline


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

M: cpCollisionHandler a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type cpCollisionType }
    } read-struct-slot ; inline


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

M: cpConstraint a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 8 }
        { class c-ptr }
        { type pointer: cpBody }
    } read-struct-slot ; inline


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

M: cpSegmentShape a>>
    T{ struct-slot-spec
        { name "a" }
        { offset 112 }
        { 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 a>> 9 slot ; inline


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

M: isspacep a>> 6 slot { ptx-operand } declare ; inline


USING: accessors colors.lab slots.private ;

M: laba a>> 3 slot ; inline


USING: accessors pair-methods slots.private ;

M: no-pair-method a>> 2 slot ; inline


USING: accessors bson.constants slots.private ;

M: oid a>> 2 slot ; inline


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

M: pmevent a>> 4 slot { ptx-operand } declare ; inline


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

M: prefetch a>> 4 slot { ptx-operand } declare ; inline


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

M: prefetchu a>> 4 slot { ptx-operand } declare ; inline


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

M: ptx-2op-instruction a>> 6 slot { ptx-operand } declare ;
    inline


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

M: ptx-3op-instruction a>> 6 slot { ptx-operand } declare ;
    inline


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

M: ptx-4op-instruction a>> 6 slot { ptx-operand } declare ;
    inline


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

M: ptx-5op-instruction a>> 6 slot { ptx-operand } declare ;
    inline


USING: accessors db.tester slots.private ;

M: test-1 a>> 3 slot ; inline


USING: accessors random slots.private ;

M: zipf-distribution a>> 2 slot ; inline