(define-complex-blas-vector) ( TYPE C S -- )

Vocabulary

math.blas.vectors

Inputs

TYPE	an object
C	an object
S	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-complex-blas-vector) ( TYPE C S -- )
    [ TYPE present write "-blas-vector" write ]
    with-string-writer parse-word :> VECTOR
    [ C present write "DOTU" write ] with-string-writer
    parse-word :> XDOTU
    [ C present write "DOTC" write ] with-string-writer
    parse-word :> XDOTC
    [ S present write C present write "NRM2" write ]
    with-string-writer parse-word :> XXNRM2
    [ S present write C present write "ASUM" write ]
    with-string-writer parse-word :> XXASUM VECTOR \ V.
    create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-dot) XDOTU } } }
    fake-quotations> first define*
    VECTOR \ V.conj create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-dot) XDOTC } } }
    fake-quotations> first define*
    VECTOR \ Vnorm create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-nrm2) XXNRM2 } } }
    fake-quotations> first define*
    VECTOR \ Vasum create-method-in dup \ method set
    T{ fake-quotation { seq { (prepare-nrm2) XXASUM } } }
    fake-quotations> first define* ;