define-simd-128 ( T -- )

Vocabulary

math.vectors.simd.private

Inputs

T

an object

Outputs

None

Definition

USING: alien.c-types arrays classes.parser classes.tuple
cpu.architecture effects functors.backend functors.private
generic generic.parser io io.streams.string kernel
math.vectors.simd namespaces parser present sequences words ;

IN: math.vectors.simd.private

:: define-simd-128 ( T -- )
    [ T present write ] with-string-writer create-class-in :> A
    [ T present write "-rep" write ] with-string-writer
    parse-word :> A-rep
    [ ">" write T present write ] with-string-writer
    create-word-in :> >A
    [ T present write "-boa" write ] with-string-writer
    create-word-in :> A-boa
    [ T present write "-with" write ] with-string-writer
    create-word-in :> A-with
    [ T present write "-cast" write ] with-string-writer
    create-word-in :> A-cast
    [ T present write "{" write ] with-string-writer
    create-word-in :> A{ A-rep rep-component-type :> ELT A-rep
    rep-length :> N ELT c-type-class "coercer" word-prop [ ] or
    :> COERCER N "n" <array> { "v" } <effect>
    :> BOA-EFFECT A \ simd-128 { } define-tuple-class*
    last-word make-final A \ new-underlying create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop \ A boa } } }
    fake-quotations> first define* last-word make-inline
    A \ simd-rep create-method-in dup \ method set
    T{ fake-quotation { seq { drop A-rep } } } fake-quotations>
    first define* last-word make-inline
    A \ simd-element-type create-method-in dup \ method set
    T{ fake-quotation { seq { drop ELT } } } fake-quotations>
    first define* last-word make-inline
    A \ simd-with create-method-in dup \ method set
    T{ fake-quotation { seq { drop A-with } } } fake-quotations>
    first define* ~119 more~ ;