Handbook
Glossary
location<< ( value object -- )
Vocabulary
accessors
Inputs
value
an
object
object
an
object
Outputs
None
Definition
IN:
accessors
GENERIC:
location<<
( value object -- )
Methods
USING:
accessors
classes.struct
classes.struct.private
core-foundation
math
;
M:
CFRange
location<<
T{
struct-slot-spec
{
name
"location"
}
{
offset 0
}
{
class
integer
}
{
initial 0
}
{
type
CFIndex
}
}
write-struct-slot
;
inline
USING:
accessors
classes.struct
classes.struct.private
cocoa.types
math
;
M:
NSRange
location<<
T{
struct-slot-spec
{
name
"location"
}
{
offset 0
}
{
class
integer
}
{
initial 0
}
{
type
NSUInteger
}
}
write-struct-slot
;
inline
USING:
accessors
benchmark.nbody-simd
classes.struct
classes.struct.private
math.vectors.simd.cords
;
M:
body
location<<
T{
struct-slot-spec
{
name
"location"
}
{
offset 0
}
{
class
double-4
}
{
initial
double-4{
0.0 0.0 0.0 0.0
}
}
{
type
double-4
}
}
write-struct-slot
;
inline
USING:
accessors
benchmark.nbody
kernel
slots
slots.private
specialized-arrays.instances.alien.c-types.double
;
M:
body
location<<
[
dup
double-array?
[
\
double-array
bad-slot-value
]
unless
]
dip
2
set-slot
;
inline
USING:
accessors
alien.libraries.finder.macos.private
slots.private
;
M:
framework-info
location<<
2
set-slot
;
inline
USING:
accessors
jamshred.oint
slots.private
;
M:
oint
location<<
2
set-slot
;
inline
USING:
accessors
arrays
kernel
slots
slots.private
tetris.piece
;
M:
piece
location<<
[
dup
array?
[
\
array
bad-slot-value
]
unless
]
dip
4
set-slot
;
inline
USING:
accessors
kernel
math.vectors.simd
slots
slots.private
terrain
;
M:
player
location<<
[
dup
float-4?
[
\
float-4
bad-slot-value
]
unless
]
dip
2
set-slot
;
inline
USING:
accessors
db.errors
slots.private
;
M:
sql-error
location<<
2
set-slot
;
inline
USING:
accessors
slots.private
twitter
;
M:
twitter-user
location<<
6
set-slot
;
inline
USING:
accessors
gpu.util.wasd
slots.private
;
M:
wasd-world
location<<
50
set-slot
;
inline