b<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: b<< ( value object -- )

Methods

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

M: CGAffineTransform b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 8 }
        { 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 b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 2 }
        { 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 b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 8 }
        { class object }
        { type c-string }
    } write-struct-slot ; inline


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

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


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

M: bar.red b<<
    [
        dup
        [ ptx-operand? ]
        [ t ]
        if*
        [ maybe{ ptx-operand } bad-slot-value ]
        unless
    ] dip 8 set-slot ; inline


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

M: bar.sync b<<
    [
        dup
        [ ptx-operand? ]
        [ t ]
        if*
        [ maybe{ ptx-operand } bad-slot-value ]
        unless
    ] dip 5 set-slot ; inline


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

M: cfrac b<< 4 set-slot ; inline


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

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


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

M: cpArbiter b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 24 }
        { class c-ptr }
        { type pointer: cpShape }
    } write-struct-slot ; inline


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

M: cpBB b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 8 }
        { class float }
        { initial 0.0 }
        { type cpFloat }
    } write-struct-slot ; inline


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

M: cpCollisionHandler b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 4 }
        { class fixnum }
        { initial 0 }
        { type cpCollisionType }
    } write-struct-slot ; inline


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

M: cpConstraint b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 16 }
        { class c-ptr }
        { type pointer: cpBody }
    } write-struct-slot ; inline


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

M: cpSegmentShape b<<
    T{ struct-slot-spec
        { name "b" }
        { offset 128 }
        { 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 b<< 2 set-slot ; inline


USING: accessors colors.lab slots.private ;

M: laba b<< 4 set-slot ; inline


USING: accessors bson.constants slots.private ;

M: oid b<< 3 set-slot ; inline


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

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


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

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


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

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


USING: accessors db.tester slots.private ;

M: test-1 b<< 4 set-slot ; inline