(define-blas-matrix) ( TYPE T U C -- )

Vocabulary

math.blas.matrices

Inputs

TYPE	an object
T	an object
U	an object
C	an object

Outputs

None

Definition

USING: ascii classes.parser functors.backend functors.private
generic generic.parser io io.streams.string kernel
math.blas.matrices.private math.blas.vectors
math.blas.vectors.private namespaces parser present sequences
words ;

IN: math.blas.matrices

:: (define-blas-matrix) ( TYPE T U C -- )
    [ TYPE present write "-blas-vector" write ]
    with-string-writer parse-word :> VECTOR
    [ "<" write TYPE present write "-blas-vector>" write ]
    with-string-writer parse-word :> <VECTOR>
    [ T present write "GEMV" write ] with-string-writer
    parse-word :> XGEMV
    [ T present write "GEMM" write ] with-string-writer
    parse-word :> XGEMM
    [ T present write "GER" write U present write ]
    with-string-writer parse-word :> XGERU
    [ T present write "GER" write C present write ]
    with-string-writer parse-word :> XGERC
    [ TYPE present write "-blas-matrix" write ]
    with-string-writer create-class-in :> MATRIX
    [ "<" write TYPE present write "-blas-matrix>" write ]
    with-string-writer create-word-in :> <MATRIX>
    [ ">" write TYPE present write "-blas-matrix" write ]
    with-string-writer create-word-in :> >MATRIX T >lower :> t
    [ t present write "matrix{" write ] with-string-writer
    create-word-in :> XMATRIX{ MATRIX \ blas-matrix-base
    { } define-tuple-class* <MATRIX>
    T{ fake-quotation { seq { MATRIX boa } } } fake-quotations>
    first ( underlying ld rows cols transpose -- matrix )
    define-declared* last-word make-inline
    MATRIX \ element-type create-method-in dup \ method set
    T{ fake-quotation { seq { drop TYPE } } } fake-quotations>
    first define* MATRIX \ (blas-matrix-like) create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop <MATRIX> } } }
    fake-quotations> first define*
    VECTOR \ (blas-matrix-like) create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop <MATRIX> } } }
    fake-quotations> first define*
    MATRIX \ (blas-vector-like) create-method-in
    dup \ method set
    T{ fake-quotation { seq { drop <VECTOR> } } }
    fake-quotations> first define* >MATRIX T{ fake-quotation
        { seq
            {
                T{ fake-quotation { seq ~array~ } }
                (>matrix)
                <MATRIX>
            }
        }
    } fake-quotations> first ~57 more~ ;