Skip to content
Snippets Groups Projects
Commit 22389994 authored by Liam Healy's avatar Liam Healy
Browse files

Use new macros from FSBV

Use new macros define-equivalent-type, defconvert, and defenumeration
from FSBV.
parent b537df47
No related branches found
No related tags found
No related merge requests found
;; Number types used by GSL functions, and specification conversion ;; Number types used by GSL functions, and specification conversion
;; Liam Healy 2008-12-31 21:06:34EST types.lisp ;; Liam Healy 2008-12-31 21:06:34EST types.lisp
;; Time-stamp: <2010-06-27 18:03:22EDT types.lisp> ;; Time-stamp: <2010-12-19 11:42:56EST types.lisp>
;; ;;
;; Copyright 2008, 2009 Liam M. Healy ;; Copyright 2008, 2009, 2010 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -24,13 +24,15 @@ ...@@ -24,13 +24,15 @@
;;;; Unsigned address types size_t ;;;; Unsigned address types size_t
;;;;**************************************************************************** ;;;;****************************************************************************
(fsbv:defconvert (sizet :constructor values))
(case (cffi:foreign-type-size :long) (case (cffi:foreign-type-size :long)
(8 (8
(push :int64 *features*) (push :int64 *features*)
#+fsbv (fsbv:defsynonym sizet :uint64)) #+fsbv (fsbv:define-equivalent-type sizet :uint64))
(4 (4
(push :int32 *features*) (push :int32 *features*)
#+fsbv (fsbv:defsynonym sizet :uint32))) #+fsbv (fsbv:define-equivalent-type sizet :uint32)))
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Type specification conversion ;;;; Type specification conversion
......
;; BLAS level 2, Matrix-vector operations ;; BLAS level 2, Matrix-vector operations
;; Liam Healy, Wed Apr 26 2006 - 21:08 ;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2010-07-07 14:25:00EDT blas2.lisp> ;; Time-stamp: <2010-12-19 11:24:07EST blas2.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -27,14 +27,12 @@ ...@@ -27,14 +27,12 @@
;;;; Options ;;;; Options
;;;;**************************************************************************** ;;;;****************************************************************************
#+fsbv #+fsbv (fsbv:defenumeration cblas-transpose)
(fsbv:defcenum-aux cblas-transpose) ;;; Eventually, #-fsbv (cffi:defconvert-cenum cblas-transpose)
#+fsbv #+fsbv (fsbv:defenumeration cblas-uplo)
(fsbv:defcenum-aux cblas-uplo)
#+fsbv #+fsbv (fsbv:defenumeration cblas-diag)
(fsbv:defcenum-aux cblas-diag)
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Functions ;;;; Functions
......
;; BLAS level 3, Matrix-matrix operations ;; BLAS level 3, Matrix-matrix operations
;; Liam Healy, Wed Apr 26 2006 - 21:08 ;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2010-07-07 14:25:00EDT blas3.lisp> ;; Time-stamp: <2010-12-19 11:25:19EST blas3.lisp>
;; ;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
;; ;;
;; This program is free software: you can redistribute it and/or modify ;; This program is free software: you can redistribute it and/or modify
...@@ -26,8 +26,8 @@ ...@@ -26,8 +26,8 @@
;;;; Options ;;;; Options
;;;;**************************************************************************** ;;;;****************************************************************************
#+fsbv #+fsbv (fsbv:defenumeration cblas-side)
(fsbv:defcenum-aux cblas-side) ;;; Eventually, #-fsbv (cffi:defconvert-cenum cblas-side)
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Functions ;;;; Functions
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment