char-16

Vocabulary

math.vectors.simd

Definition

IN: math.vectors.simd

TUPLE: char-16 < simd-128 ; final

Methods

USING: classes kernel math.vectors.simd math.vectors.simd.cords
sequences.cords ;

M: char-16 cord-append
    2dup [ char-16 instance? ] both?
    [ char-32 boa ] [ generic-cord boa ] if ; inline


USING: kernel math.vectors.simd sequences ;

M: char-16 length drop 16 ; inline


USING: classes kernel math.vectors.simd sequences ;

M: char-16 like
    drop dup \ char-16 instance? [ >char-16 ] unless ; inline


USING: kernel math.vectors.simd math.vectors.simd.private ;

M: char-16 new-underlying drop \ char-16 boa ; inline


USING: cpu.architecture generic kernel math.vectors.simd
math.vectors.simd.intrinsics math.vectors.simd.private
sequences.private ;

M: char-16 nth-unsafe
    swap \ char-16-rep
    [ (simd-select) ]
    [ M\ char-16 nth-unsafe (call-next-method) ] vx->x-op ;
    inline


USING: kernel math.vectors.simd prettyprint.custom ;

M: char-16 pprint-delims drop \ char-16{ \ } ;


USING: accessors alien.c-types math.vectors.simd
math.vectors.simd.private sequences.private ;

M: char-16 set-nth-unsafe
    underlying>> char set-vector-element ; inline


USING: alien.c-types kernel math.vectors.simd ;

M: char-16 simd-element-type drop char ; inline


USING: cpu.architecture kernel math.vectors.simd ;

M: char-16 simd-rep drop char-16-rep ; inline


USING: kernel math.vectors.simd ;

M: char-16 simd-with drop char-16-with ; inline


USING: cpu.architecture generic math.vectors math.vectors.simd
math.vectors.simd.intrinsics math.vectors.simd.private ;

M: char-16 v*hs+
    char-16-rep
    [ (simd-v*hs+) ] [ M\ char-16 v*hs+ (call-next-method) ]
    vv->v-op short-8-cast ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: char-16 vabsdiff ( a b -- w )
    a char-16? [
        a underlying>> b underlying>> "absdiff" char-16-rep
        (simd-binary) uchar-16 boa
    ] [ a bad-simd-vector ] if ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: char-16 vmul-wide ( a b -- lo hi )
    a char-16? [
        a underlying>> b underlying>> char-16-rep
        (simd-mul-wide-head) short-8 boa
        a underlying>> b underlying>> char-16-rep
        (simd-mul-wide-tail) short-8 boa
    ] [ a bad-simd-vector ] if ; inline


USING: accessors cpu.architecture kernel math.vectors
math.vectors.simd math.vectors.simd.intrinsics ;

M:: char-16 vshift ( a counts -- w )
    a char-16? [
        a underlying>> counts underlying>> "shift" char-16-rep
        (simd-binary) char-16 boa
    ] [
        a uchar-16? [
            a underlying>> counts underlying>> "shift"
            uchar-16-rep (simd-binary) uchar-16 boa
        ] [ a bad-simd-vector ] if
    ] if ; inline