From f66d7ca13ae6bd3d3a2baad193ba50741ddad4bb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 7 Nov 2014 09:00:24 -0500
Subject: wrappers: Add GSL wrapper.

* Makefile.am (WRAPPER_SOURCES): Add it.
* sly/wrappers/gsl.scm: New file.
---
 Makefile.am          |  1 +
 sly/wrappers/gsl.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 sly/wrappers/gsl.scm

diff --git a/Makefile.am b/Makefile.am
index 397f639..5dc36fc 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -62,6 +62,7 @@ SOURCES = 					\
 WRAPPER_SOURCES =				\
   sly/wrappers/freeimage.scm			\
   sly/wrappers/gl.scm				\
+  sly/wrappers/gsl.scm				\
   sly/wrappers/util.scm
 
 sly/config.scm: Makefile
diff --git a/sly/wrappers/gsl.scm b/sly/wrappers/gsl.scm
new file mode 100644
index 0000000..da35b2c
--- /dev/null
+++ b/sly/wrappers/gsl.scm
@@ -0,0 +1,49 @@
+;;; 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)
+  #:export (cblas-row-major
+            cblas-no-trans
+            cblas-sgemm))
+
+;;;
+;;; 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))
-- 
cgit v1.2.3