short-vector


Vocabulary
specialized-vectors.instances.alien.c-types.short

Definition
USING: sequences.private
specialized-arrays.instances.alien.c-types.short ;

IN: specialized-vectors.instances.alien.c-types.short

TUPLE: short-vector
{ underlying short-array initial: short-array{ } }
{ length array-capacity initial: 0 } ;


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

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


USING: prettyprint.custom
specialized-vectors.instances.alien.c-types.short ;

M: short-vector >pprint-sequence ;


USING: alien kernel math sequences
specialized-vectors.instances.alien.c-types.short ;

M: short-vector byte-length
[ length ] [ element-size ] bi * ; inline


USING: growable kernel
specialized-vectors.instances.alien.c-types.short ;

M: short-vector contract 2drop ; inline


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

M: short-vector direct-like drop <direct-short-array> ; inline


USING: alien alien.c-types kernel
specialized-vectors.instances.alien.c-types.short ;

M: short-vector element-size drop \ short heap-size ; inline


USING: classes kernel sequences
specialized-vectors.instances.alien.c-types.short ;

M: short-vector equal?
over short-vector instance? [ sequence= ] [ 2drop f ] if ;


USING: classes kernel sequences
specialized-arrays.instances.alien.c-types.short
specialized-vectors.instances.alien.c-types.short ;

M: short-vector like
drop dup short-vector instance? [
dup short-array instance?
[ dup length short-vector boa ] [ >short-vector ] if
] unless ; inline


USING: kernel sequences
specialized-vectors.instances.alien.c-types.short ;

M: short-vector new-resizable drop <short-vector> ; inline


USING: kernel math sequences
specialized-arrays.instances.alien.c-types.short
specialized-vectors.instances.alien.c-types.short ;

M: short-vector new-sequence
drop [ <short-array> ] [ >fixnum ] bi short-vector boa ;
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: prettyprint.custom
specialized-vectors.instances.alien.c-types.short ;

M: short-vector pprint* pprint-object ;


USING: kernel prettyprint.custom
specialized-vectors.instances.alien.c-types.short ;

M: short-vector pprint-delims drop \ short-vector{ \ } ;