nth-c-ptr ( n seq -- displaced-alien ) (original) (raw)

USING: accessors alien alien.c-types gpu.demos.bunny kernel
specialized-arrays.instances.gpu.demos.bunny.bunny-vertex-struct
specialized-arrays.private ;

M: bunny-vertex-struct-array nth-c-ptr
underlying>> \ bunny-vertex-struct array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.gpu.demos.bunny.bunny-vertex-struct
;

M: bunny-vertex-struct-vector nth-c-ptr
underlying>> nth-c-ptr ; inline

USING: alien byte-arrays specialized-arrays.private ;

M: byte-array nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.c-string
specialized-arrays.private ;

M: c-string-array nth-c-ptr
underlying>> \ c-string array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.char
specialized-arrays.private ;

M: char-array nth-c-ptr
underlying>> \ char array-accessor drop
swap ; inline

USING: accessors alien alien.c-types alien.complex kernel
specialized-arrays.instances.alien.complex.complex-double
specialized-arrays.private ;

M: complex-double-array nth-c-ptr
underlying>> \ complex-double array-accessor drop
swap ; inline

USING: accessors alien alien.c-types alien.complex kernel
specialized-arrays.instances.alien.complex.complex-float
specialized-arrays.private ;

M: complex-float-array nth-c-ptr
underlying>> \ complex-float array-accessor drop
swap ; inline

USING: accessors alien alien.c-types chipmunk.ffi kernel
specialized-arrays.instances.chipmunk.ffi.cpContact
specialized-arrays.private ;

M: cpContact-array nth-c-ptr
underlying>> \ cpContact array-accessor drop
swap ; inline

USING: accessors alien alien.c-types chipmunk.ffi kernel
specialized-arrays.instances.chipmunk.ffi.cpPolyShapeAxis
specialized-arrays.private ;

M: cpPolyShapeAxis-array nth-c-ptr
underlying>> \ cpPolyShapeAxis array-accessor drop
swap ; inline

USING: accessors alien alien.c-types chipmunk.ffi kernel
specialized-arrays.instances.chipmunk.ffi.cpVect
specialized-arrays.private ;

M: cpVect-array nth-c-ptr
underlying>> \ cpVect array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
math.vectors.simd.cords
specialized-arrays.instances.math.vectors.simd.cords.double-4
specialized-arrays.private ;

M: double-4-array nth-c-ptr
underlying>> \ double-4 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.double
specialized-arrays.private ;

M: double-array nth-c-ptr
underlying>> \ double array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel macho
specialized-arrays.instances.macho.fat_arch
specialized-arrays.private ;

M: fat_arch-array nth-c-ptr
underlying>> \ fat_arch array-accessor drop
swap ; inline

USING: accessors alien alien.c-types fftw.ffi kernel
specialized-arrays.instances.fftw.ffi.fftw_complex
specialized-arrays.private ;

M: fftw_complex-array nth-c-ptr
underlying>> \ fftw_complex array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel math.vectors.simd
specialized-arrays.instances.math.vectors.simd.float-4
specialized-arrays.private ;

M: float-4-array nth-c-ptr
underlying>> \ float-4 array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.math.vectors.simd.float-4 ;

M: float-4-vector nth-c-ptr underlying>> nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.float
specialized-arrays.private ;

M: float-array nth-c-ptr
underlying>> \ float array-accessor drop
swap ; inline

USING: accessors alien alien.c-types game.loop.benchmark kernel
specialized-arrays.instances.game.loop.benchmark.game-loop-benchmark
specialized-arrays.private ;

M: game-loop-benchmark-array nth-c-ptr
underlying>> \ game-loop-benchmark array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.game.loop.benchmark.game-loop-benchmark
;

M: game-loop-benchmark-vector nth-c-ptr
underlying>> nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel math.floats.half
specialized-arrays.instances.math.floats.half.half
specialized-arrays.private ;

M: half-array nth-c-ptr
underlying>> \ half array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.int
specialized-arrays.private ;

M: int-array nth-c-ptr
underlying>> \ int array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.int32_t
specialized-arrays.private ;

M: int32_t-array nth-c-ptr
underlying>> \ int32_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types io.files.acls.macos.ffi
kernel
specialized-arrays.instances.io.files.acls.macos.ffi.kauth_ace
specialized-arrays.private ;

M: kauth_ace-array nth-c-ptr
underlying>> \ kauth_ace array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.unix.kqueue.kevent
specialized-arrays.private unix.kqueue ;

M: kevent-array nth-c-ptr
underlying>> \ kevent array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel libusb
specialized-arrays.instances.libusb.libusb_iso_packet_descriptor
specialized-arrays.private ;

M: libusb_iso_packet_descriptor-array nth-c-ptr
underlying>> \ libusb_iso_packet_descriptor array-accessor
drop swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.long
specialized-arrays.private ;

M: long-array nth-c-ptr
underlying>> \ long array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.longlong
specialized-arrays.private ;

M: longlong-array nth-c-ptr
underlying>> \ longlong array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel macho
specialized-arrays.instances.macho.nlist
specialized-arrays.private ;

M: nlist-array nth-c-ptr
underlying>> \ nlist array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel macho
specialized-arrays.instances.macho.nlist_64
specialized-arrays.private ;

M: nlist_64-array nth-c-ptr
underlying>> \ nlist_64 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel papier.map
specialized-arrays.instances.papier.map.papier-vertex-struct
specialized-arrays.private ;

M: papier-vertex-struct-array nth-c-ptr
underlying>> \ papier-vertex-struct array-accessor drop
swap ; inline

USING: accessors alien alien.c-types fluids kernel
specialized-arrays.instances.fluids.particle_t
specialized-arrays.private ;

M: particle_t-array nth-c-ptr
underlying>> \ particle_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types benchmark.struct-arrays
kernel
specialized-arrays.instances.benchmark.struct-arrays.point
specialized-arrays.private ;

M: point-array nth-c-ptr
underlying>> \ point array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel rlgl
specialized-arrays.instances.rlgl.rlDrawCall
specialized-arrays.private ;

M: rlDrawCall-array nth-c-ptr
underlying>> \ rlDrawCall array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel rlgl
specialized-arrays.instances.rlgl.rlVertexBuffer
specialized-arrays.private ;

M: rlVertexBuffer-array nth-c-ptr
underlying>> \ rlVertexBuffer array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel macho
specialized-arrays.instances.macho.section
specialized-arrays.private ;

M: section-array nth-c-ptr
underlying>> \ section array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel macho
specialized-arrays.instances.macho.section_64
specialized-arrays.private ;

M: section_64-array nth-c-ptr
underlying>> \ section_64 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.short
specialized-arrays.private ;

M: short-array nth-c-ptr
underlying>> \ short array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.alien.c-types.short ;

M: short-vector nth-c-ptr underlying>> nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.size_t
specialized-arrays.private ;

M: size_t-array nth-c-ptr
underlying>> \ size_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.unix.statfs.macos.statfs64
specialized-arrays.private unix.statfs.macos ;

M: statfs64-array nth-c-ptr
underlying>> \ statfs64 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel ogg.theora
specialized-arrays.instances.ogg.theora.th-quant-ranges
specialized-arrays.private ;

M: th-quant-ranges-array nth-c-ptr
underlying>> \ th-quant-ranges array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.unix.time.timeval
specialized-arrays.private unix.time ;

M: timeval-array nth-c-ptr
underlying>> \ timeval array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.u16
specialized-arrays.private ;

M: u16-array nth-c-ptr
underlying>> \ u16 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.u32
specialized-arrays.private ;

M: u32-array nth-c-ptr
underlying>> \ u32 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.u64
specialized-arrays.private ;

M: u64-array nth-c-ptr
underlying>> \ u64 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.u8
specialized-arrays.private ;

M: u8-array nth-c-ptr
underlying>> \ u8 array-accessor drop swap
; inline

USING: accessors alien alien.c-types kernel math.vectors.simd
specialized-arrays.instances.math.vectors.simd.uchar-16
specialized-arrays.private ;

M: uchar-16-array nth-c-ptr
underlying>> \ uchar-16 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uchar
specialized-arrays.private ;

M: uchar-array nth-c-ptr
underlying>> \ uchar array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel math.vectors.simd
specialized-arrays.instances.math.vectors.simd.uint-4
specialized-arrays.private ;

M: uint-4-array nth-c-ptr
underlying>> \ uint-4 array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uint
specialized-arrays.private ;

M: uint-array nth-c-ptr
underlying>> \ uint array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.alien.c-types.uint ;

M: uint-vector nth-c-ptr underlying>> nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uint16_t
specialized-arrays.private ;

M: uint16_t-array nth-c-ptr
underlying>> \ uint16_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uint32_t
specialized-arrays.private ;

M: uint32_t-array nth-c-ptr
underlying>> \ uint32_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uint64_t
specialized-arrays.private ;

M: uint64_t-array nth-c-ptr
underlying>> \ uint64_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uint8_t
specialized-arrays.private ;

M: uint8_t-array nth-c-ptr
underlying>> \ uint8_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.uintptr_t
specialized-arrays.private ;

M: uintptr_t-array nth-c-ptr
underlying>> \ uintptr_t array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.ulong
specialized-arrays.private ;

M: ulong-array nth-c-ptr
underlying>> \ ulong array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.ulonglong
specialized-arrays.private ;

M: ulonglong-array nth-c-ptr
underlying>> \ ulonglong array-accessor drop
swap ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.ushort
specialized-arrays.private ;

M: ushort-array nth-c-ptr
underlying>> \ ushort array-accessor drop
swap ; inline

USING: accessors specialized-arrays.private
specialized-vectors.instances.alien.c-types.ushort ;

M: ushort-vector nth-c-ptr underlying>> nth-c-ptr ; inline

USING: accessors alien alien.c-types kernel
specialized-arrays.instances.alien.c-types.void*
specialized-arrays.private ;

M: void*-array nth-c-ptr
underlying>> \ void* array-accessor drop
swap ; inline