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{ \ } ;