(define-real-blas-vector) ( TYPE T -- )

Vocabulary

math.blas.vectors

Inputs

TYPE	an object
T	an object

Outputs

None

Definition

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

IN: math.blas.vectors

:: (define-real-blas-vector) ( TYPE T -- )
    [ TYPE present write "-blas-vector" write ]
    with-string-writer parse-word :> VECTOR
    [ T present write "DOT" write ] with-string-writer
    parse-word :> XDOT
    [ T present write "NRM2" write ] with-string-writer
    parse-word :> XNRM2
    [ T present write "ASUM" write ] with-string-writer
    parse-word :> XASUM VECTOR \ V. create-method-in
    dup \ method set
    T{ fake-quotation { seq { (prepare-dot) XDOT } } }
    fake-quotations> first define*
    VECTOR \ V.conj create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-dot) XDOT } } }
    fake-quotations> first define*
    VECTOR \ Vnorm create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-nrm2) XNRM2 } } }
    fake-quotations> first define*
    VECTOR \ Vasum create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-nrm2) XASUM } } }
    fake-quotations> first define* ;