a<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: a<< ( value object -- )

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 }
    } write-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 }
    } write-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 }
    } write-struct-slot ; inline


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

M: bar.arrive a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 4 set-slot ; inline


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

M: bar.sync a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 4 set-slot ; inline


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

M: cfrac a<< 3 set-slot ; inline


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

M: cmwc a<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    3 set-slot ; 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 }
    } write-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 }
    } write-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 }
    } write-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 }
    } write-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 }
    } write-struct-slot ; inline


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

M: cpu a<< 9 set-slot ; inline


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

M: isspacep a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 6 set-slot ; inline


USING: accessors colors.lab slots.private ;

M: laba a<< 3 set-slot ; inline


USING: accessors bson.constants slots.private ;

M: oid a<< 2 set-slot ; inline


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

M: pmevent a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 4 set-slot ; inline


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

M: prefetch a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 4 set-slot ; inline


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

M: prefetchu a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 4 set-slot ; inline


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

M: ptx-2op-instruction a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 6 set-slot ; inline


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

M: ptx-3op-instruction a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 6 set-slot ; inline


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

M: ptx-4op-instruction a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 6 set-slot ; inline


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

M: ptx-5op-instruction a<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 6 set-slot ; inline


USING: accessors db.tester slots.private ;

M: test-1 a<< 3 set-slot ; inline


USING: accessors random slots.private ;

M: zipf-distribution a<< 2 set-slot ; inline