45 lines
1.4 KiB
Factor
45 lines
1.4 KiB
Factor
USING: kernel math.blas.vectors math.blas.matrices parser
|
|
arrays prettyprint.backend prettyprint.custom sequences ;
|
|
IN: math.blas.syntax
|
|
|
|
: svector{
|
|
\ } [ >float-blas-vector ] parse-literal ; parsing
|
|
: dvector{
|
|
\ } [ >double-blas-vector ] parse-literal ; parsing
|
|
: cvector{
|
|
\ } [ >float-complex-blas-vector ] parse-literal ; parsing
|
|
: zvector{
|
|
\ } [ >double-complex-blas-vector ] parse-literal ; parsing
|
|
|
|
: smatrix{
|
|
\ } [ >float-blas-matrix ] parse-literal ; parsing
|
|
: dmatrix{
|
|
\ } [ >double-blas-matrix ] parse-literal ; parsing
|
|
: cmatrix{
|
|
\ } [ >float-complex-blas-matrix ] parse-literal ; parsing
|
|
: zmatrix{
|
|
\ } [ >double-complex-blas-matrix ] parse-literal ; parsing
|
|
|
|
M: float-blas-vector pprint-delims
|
|
drop \ svector{ \ } ;
|
|
M: double-blas-vector pprint-delims
|
|
drop \ dvector{ \ } ;
|
|
M: float-complex-blas-vector pprint-delims
|
|
drop \ cvector{ \ } ;
|
|
M: double-complex-blas-vector pprint-delims
|
|
drop \ zvector{ \ } ;
|
|
|
|
M: float-blas-matrix pprint-delims
|
|
drop \ smatrix{ \ } ;
|
|
M: double-blas-matrix pprint-delims
|
|
drop \ dmatrix{ \ } ;
|
|
M: float-complex-blas-matrix pprint-delims
|
|
drop \ cmatrix{ \ } ;
|
|
M: double-complex-blas-matrix pprint-delims
|
|
drop \ zmatrix{ \ } ;
|
|
|
|
M: blas-vector-base >pprint-sequence ;
|
|
M: blas-vector-base pprint* pprint-object ;
|
|
M: blas-matrix-base >pprint-sequence Mrows ;
|
|
M: blas-matrix-base pprint* pprint-object ;
|