steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.blas.vectors: strings

modern-harvey2
Doug Coleman 2017-12-28 18:51:32 -08:00
parent bb07cd3d48
commit 41859c47e7
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/math/blas/vectors/vectors.factor
View File

@ -3,7 +3,7 @@ arrays ascii byte-arrays combinators combinators.short-circuit
fry kernel math math.blas.ffi math.complex math.functions fry kernel math math.blas.ffi math.complex math.functions
math.order sequences sequences.private functors words locals math.order sequences sequences.private functors words locals
parser prettyprint.backend prettyprint.custom specialized-arrays parser prettyprint.backend prettyprint.custom specialized-arrays
functors2 ; functors2 strings ;
FROM: alien.c-types => float ; FROM: alien.c-types => float ;
SPECIALIZED-ARRAY: float SPECIALIZED-ARRAY: float
SPECIALIZED-ARRAY: double SPECIALIZED-ARRAY: double
@ -129,7 +129,7 @@ M: blas-vector-base virtual@
: arg>double ( f -- f ) ; inline : arg>double ( f -- f ) ; inline
<< <<
INLINE-FUNCTOR: blas-vector ( type: name t: name -- ) [[ INLINE-FUNCTOR: blas-vector ( type: name t: string -- ) [[
TUPLE: ${type}-blas-vector < blas-vector-base ; TUPLE: ${type}-blas-vector < blas-vector-base ;
: <${type}-blas-vector> ( underlying length inc -- vector ) ${type}-blas-vector boa ; inline : <${type}-blas-vector> ( underlying length inc -- vector ) ${type}-blas-vector boa ; inline
@ -172,9 +172,9 @@ INLINE-FUNCTOR: blas-vector ( type: name t: name -- ) [[
<< <<
INLINE-FUNCTOR: real-blas-vector ( type: name t: name -- ) [[ INLINE-FUNCTOR: real-blas-vector ( type: name t: string -- ) [[
<< <<
BLAS-VECTOR: ${type} ${t} BLAS-VECTOR: ${type} "${t}"
>> >>
M: ${type}-blas-vector V. M: ${type}-blas-vector V.
@ -191,9 +191,9 @@ INLINE-FUNCTOR: real-blas-vector ( type: name t: name -- ) [[
<< <<
INLINE-FUNCTOR: complex-blas-vector ( type: name c: name s: name -- ) [[ INLINE-FUNCTOR: complex-blas-vector ( type: name c: string s: string -- ) [[
<< <<
BLAS-VECTOR: ${type} ${c} BLAS-VECTOR: ${type} "${c}"
>> >>
M: ${type}-blas-vector V. M: ${type}-blas-vector V.
@ -208,10 +208,10 @@ INLINE-FUNCTOR: complex-blas-vector ( type: name c: name s: name -- ) [[
]] ]]
>> >>
COMPLEX-BLAS-VECTOR: complex-float C S COMPLEX-BLAS-VECTOR: complex-float "C" "S"
COMPLEX-BLAS-VECTOR: complex-double Z D COMPLEX-BLAS-VECTOR: complex-double "Z" "D"
REAL-BLAS-VECTOR: float S REAL-BLAS-VECTOR: float "S"
REAL-BLAS-VECTOR: double D REAL-BLAS-VECTOR: double "D"
M: blas-vector-base >pprint-sequence ; M: blas-vector-base >pprint-sequence ;
M: blas-vector-base pprint* pprint-object ; M: blas-vector-base pprint* pprint-object ;