Merge branch 'master' of git://factorcode.org/git/factor
commit
05ff26d523
|
@ -3,13 +3,14 @@ IN: math.blas.cblas
|
||||||
|
|
||||||
<<
|
<<
|
||||||
: load-atlas ( -- )
|
: load-atlas ( -- )
|
||||||
"atlas" "libatlas.so" "cdecl" add-library
|
"atlas" "libatlas.so" "cdecl" add-library ;
|
||||||
"atlas" load-library drop ;
|
: load-blas ( -- )
|
||||||
|
"blas" "libblas.so" "cdecl" add-library ;
|
||||||
|
|
||||||
"cblas" {
|
"cblas" {
|
||||||
{ [ os macosx? ] [ "libblas.dylib" "cdecl" add-library ] }
|
{ [ os macosx? ] [ "libblas.dylib" "cdecl" add-library ] }
|
||||||
{ [ os windows? ] [ "blas.dll" "cdecl" add-library ] }
|
{ [ os windows? ] [ "blas.dll" "cdecl" add-library ] }
|
||||||
{ [ os openbsd? ] [ "libcblas.so" "cdecl" add-library ] }
|
{ [ os openbsd? ] [ "libcblas.so" "cdecl" add-library load-blas ] }
|
||||||
{ [ os freebsd? ] [ "libcblas.so" "cdecl" add-library load-atlas ] }
|
{ [ os freebsd? ] [ "libcblas.so" "cdecl" add-library load-atlas ] }
|
||||||
[ "libblas.so" "cdecl" add-library ]
|
[ "libblas.so" "cdecl" add-library ]
|
||||||
} cond
|
} cond
|
||||||
|
@ -18,25 +19,25 @@ IN: math.blas.cblas
|
||||||
LIBRARY: cblas
|
LIBRARY: cblas
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_ORDER
|
TYPEDEF: int CBLAS_ORDER
|
||||||
: CblasRowMajor 101 ; inline
|
CONSTANT: CblasRowMajor 101
|
||||||
: CblasColMajor 102 ; inline
|
CONSTANT: CblasColMajor 102
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_TRANSPOSE
|
TYPEDEF: int CBLAS_TRANSPOSE
|
||||||
: CblasNoTrans 111 ; inline
|
CONSTANT: CblasNoTrans 111
|
||||||
: CblasTrans 112 ; inline
|
CONSTANT: CblasTrans 112
|
||||||
: CblasConjTrans 113 ; inline
|
CONSTANT: CblasConjTrans 113
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_UPLO
|
TYPEDEF: int CBLAS_UPLO
|
||||||
: CblasUpper 121 ; inline
|
CONSTANT: CblasUpper 121
|
||||||
: CblasLower 122 ; inline
|
CONSTANT: CblasLower 122
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_DIAG
|
TYPEDEF: int CBLAS_DIAG
|
||||||
: CblasNonUnit 131 ; inline
|
CONSTANT: CblasNonUnit 131
|
||||||
: CblasUnit 132 ; inline
|
CONSTANT: CblasUnit 132
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_SIDE
|
TYPEDEF: int CBLAS_SIDE
|
||||||
: CblasLeft 141 ; inline
|
CONSTANT: CblasLeft 141
|
||||||
: CblasRight 142 ; inline
|
CONSTANT: CblasRight 142
|
||||||
|
|
||||||
TYPEDEF: int CBLAS_INDEX
|
TYPEDEF: int CBLAS_INDEX
|
||||||
|
|
||||||
|
|
|
@ -1,3 +1,4 @@
|
||||||
|
! (c)2009 Joe Groff, see BSD license
|
||||||
USING: accessors arrays assocs fry kernel math math.affine-transforms math.constants
|
USING: accessors arrays assocs fry kernel math math.affine-transforms math.constants
|
||||||
math.functions math.parser math.vectors memoize peg.ebnf sequences sequences.squish
|
math.functions math.parser math.vectors memoize peg.ebnf sequences sequences.squish
|
||||||
splitting strings xml.data xml.utilities ;
|
splitting strings xml.data xml.utilities ;
|
||||||
|
|
Loading…
Reference in New Issue