c<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: c<< ( value object -- )

Methods

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

M: CGAffineTransform c<<
    T{ struct-slot-spec
        { name "c" }
        { offset 16 }
        { class float }
        { initial 0.0 }
        { type CGFloat }
    } write-struct-slot ; inline


USING: accessors colors.lch slots.private ;

M: LCHab c<< 3 set-slot ; inline


USING: accessors colors.lch slots.private ;

M: LCHuv c<< 3 set-slot ; inline


USING: accessors random.pcg slots.private ;

M: Mwc128XXA32 c<< 5 set-slot ; inline


USING: accessors random.pcg slots.private ;

M: Mwc256XXA64 c<< 5 set-slot ; inline


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

M: ast-case c<< 2 set-slot ; inline


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

M: ast-for c<< 3 set-slot ; inline


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

M: ast-try c<< 4 set-slot ; inline


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

M: atom c<<
    [
        dup
        [ ptx-operand? ]
        [ t ]
        if*
        [ maybe{ ptx-operand } bad-slot-value ]
        unless
    ] dip 10 set-slot ; inline


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

M: bar.red c<<
    [ dup ptx-operand? [ \ ptx-operand bad-slot-value ] unless ]
    dip 9 set-slot ; inline


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

M: cmwc c<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    5 set-slot ; inline


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

M: cpCircleShape c<<
    T{ struct-slot-spec
        { name "c" }
        { 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 c<< 3 set-slot ; inline


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

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


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

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


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

M: ptx-set-instruction c<<
    [
        dup
        [ ptx-operand? ]
        [ t ]
        if*
        [ maybe{ ptx-operand } bad-slot-value ]
        unless
    ] dip 10 set-slot ; inline


USING: accessors sequences.modified slots.private ;

M: scaled c<< 3 set-slot ; inline


USING: accessors db.tester slots.private ;

M: test-1 c<< 5 set-slot ; inline