p<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: p<< ( value object -- )

Methods

USING: accessors cpu.arm.32.assembler.private slots.private ;

M: addressing p<< 3 set-slot ; inline


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

M: cpBody p<<
    T{ struct-slot-spec
        { name "p" }
        { offset 48 }
        { class cpVect }
        { initial S{ cpVect { x 0.0 } { y 0.0 } } }
        { type cpVect }
    } write-struct-slot ; inline


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

M: cpContact p<<
    T{ struct-slot-spec
        { name "p" }
        { offset 0 }
        { class cpVect }
        { initial S{ cpVect { x 0.0 } { y 0.0 } } }
        { type cpVect }
    } write-struct-slot ; inline


USING: accessors slots.private svg ;

M: curveto p<< 4 set-slot ; inline


USING: accessors slots.private svg ;

M: elliptical-arc p<< 6 set-slot ; inline


USING: accessors compiler.tree.propagation.constraints
slots.private ;

M: equivalence p<< 2 set-slot ; inline


USING: accessors compiler.tree.propagation.constraints
slots.private ;

M: implication p<< 2 set-slot ; inline


USING: accessors slots.private svg ;

M: lineto p<< 2 set-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private lua ;

M: luaL_Buffer p<<
    T{ struct-slot-spec
        { name "p" }
        { offset 0 }
        { class c-ptr }
        { type pointer: char }
    } write-struct-slot ; inline


USING: accessors gml.b-rep slots.private ;

M: makeEV-record p<< 4 set-slot ; inline


USING: accessors gml.b-rep slots.private ;

M: makeEVone-record p<< 3 set-slot ; inline


USING: accessors slots.private svg ;

M: moveto p<< 2 set-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private fluids kernel ;

M: particle_t p<<
    T{ struct-slot-spec
        { name "p" }
        { offset 0 }
        { class object }
        { type { float 2 } }
    } write-struct-slot ; inline


USING: accessors slots.private svg ;

M: quadratic-bezier-curveto p<< 3 set-slot ; inline


USING: accessors slots.private svg ;

M: smooth-curveto p<< 3 set-slot ; inline


USING: accessors slots.private svg ;

M: smooth-quadratic-bezier-curveto p<< 2 set-slot ; inline