summaryrefslogtreecommitdiff
path: root/sly/wrappers
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-02-11 21:29:54 -0500
committerDavid Thompson <dthompson2@worcester.edu>2016-02-11 21:33:05 -0500
commitdc21596b5bcc06342e0a9c647a79de256ab5c56a (patch)
tree972d71a458dcdffe650fc3d03ac7145047a727cb /sly/wrappers
parent1a375482bf71287801fb4258c6387d92236b6fab (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.scm55
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))