basis/math/blas/syntax/syntax.factor

   1 USING: kernel math.blas.vectors math.blas.matrices parser
   2 arrays prettyprint.backend sequences ;
   3 IN: math.blas.syntax
   4
   5 : svector{
   6     \ } [ >float-blas-vector ] parse-literal ; parsing
   7 : dvector{
   8     \ } [ >double-blas-vector ] parse-literal ; parsing
   9 : cvector{
  10     \ } [ >float-complex-blas-vector ] parse-literal ; parsing
  11 : zvector{
  12     \ } [ >double-complex-blas-vector ] parse-literal ; parsing
  13
  14 : smatrix{
  15     \ } [ >float-blas-matrix ] parse-literal ; parsing
  16 : dmatrix{
  17     \ } [ >double-blas-matrix ] parse-literal ; parsing
  18 : cmatrix{
  19     \ } [ >float-complex-blas-matrix ] parse-literal ; parsing
  20 : zmatrix{
  21     \ } [ >double-complex-blas-matrix ] parse-literal ; parsing
  22
  23 M: float-blas-vector pprint-delims
  24     drop \ svector{ \ } ;
  25 M: double-blas-vector pprint-delims
  26     drop \ dvector{ \ } ;
  27 M: float-complex-blas-vector pprint-delims
  28     drop \ cvector{ \ } ;
  29 M: double-complex-blas-vector pprint-delims
  30     drop \ zvector{ \ } ;
  31
  32 M: float-blas-matrix pprint-delims
  33     drop \ smatrix{ \ } ;
  34 M: double-blas-matrix pprint-delims
  35     drop \ dmatrix{ \ } ;
  36 M: float-complex-blas-matrix pprint-delims
  37     drop \ cmatrix{ \ } ;
  38 M: double-complex-blas-matrix pprint-delims
  39     drop \ zmatrix{ \ } ;
  40
  41 M: blas-vector-base >pprint-sequence ;
  42 M: blas-vector-base pprint* pprint-object ;
  43 M: blas-matrix-base >pprint-sequence Mrows ;
  44 M: blas-matrix-base pprint* pprint-object ;