diff options
author | David Thompson <dthompson2@worcester.edu> | 2016-02-11 21:29:54 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2016-02-11 21:33:05 -0500 |
commit | dc21596b5bcc06342e0a9c647a79de256ab5c56a (patch) | |
tree | 972d71a458dcdffe650fc3d03ac7145047a727cb /sly/wrappers | |
parent | 1a375482bf71287801fb4258c6387d92236b6fab (diff) |
Remove GSL dependency.
* sly/config.scm.in (%libgslcblas): Delete.
* sly/wrappers/gsl.scm: Delete.
* Makefile.am (WRAPPER_SOURCES): Remove it.
* configure.ac: Remove GSL configuration.
Diffstat (limited to 'sly/wrappers')
-rw-r--r-- | sly/wrappers/gsl.scm | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/sly/wrappers/gsl.scm b/sly/wrappers/gsl.scm deleted file mode 100644 index 3146757..0000000 --- a/sly/wrappers/gsl.scm +++ /dev/null @@ -1,55 +0,0 @@ -;;; Sly -;;; Copyright (C) 2014 David Thompson <davet@gnu.org> -;;; -;;; Sly is free software: you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation, either version 3 of the License, or -;;; (at your option) any later version. -;;; -;;; Sly is distributed in the hope that it will be useful, but WITHOUT -;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public -;;; License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see -;;; <http://www.gnu.org/licenses/>. - -;;; Commentary: -;; -;; Wrapper for functions from the GNU Scientific Library. -;; -;;; Code: - -(define-module (sly wrappers gsl) - #:use-module (system foreign) - #:use-module (sly config) - #:export (cblas-row-major - cblas-no-trans - cblas-sgemm - cblas-sgemv)) - -;;; -;;; Constants -;;; - -(define cblas-row-major 101) -(define cblas-no-trans 111) - -;;; -;;; GSL CBLAS Functions -;;; - -(define libgslcblas (dynamic-link %libgslcblas)) - -(define-syntax-rule (define-foreign name ret string-name args) - (define name - (pointer->procedure ret (dynamic-func string-name libgslcblas) args))) - -(define-foreign cblas-sgemm - void "cblas_sgemm" (list int int int int int int float '* - int '* int float '* int)) - -(define-foreign cblas-sgemv - void "cblas_sgemv" (list int int int int float '* int '* - int float '* int)) |