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
;; 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
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -24,13 +24,15 @@
;;;; Unsigned address types size_t
;;;;****************************************************************************
(fsbv:defconvert (sizet :constructor values))
(case (cffi:foreign-type-size :long)
(8
(push :int64 *features*)
#+fsbv (fsbv:defsynonym sizet :uint64))
#+fsbv (fsbv:define-equivalent-type sizet :uint64))
(4
(push :int32 *features*)
#+fsbv (fsbv:defsynonym sizet :uint32)))
#+fsbv (fsbv:define-equivalent-type sizet :uint32)))
;;;;****************************************************************************
;;;; Type specification conversion
......
;; BLAS level 2, Matrix-vector operations
;; 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
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -27,14 +27,12 @@
;;;; Options
;;;;****************************************************************************
#+fsbv
(fsbv:defcenum-aux cblas-transpose)
#+fsbv (fsbv:defenumeration cblas-transpose)
;;; Eventually, #-fsbv (cffi:defconvert-cenum cblas-transpose)
#+fsbv
(fsbv:defcenum-aux cblas-uplo)
#+fsbv (fsbv:defenumeration cblas-uplo)
#+fsbv
(fsbv:defcenum-aux cblas-diag)
#+fsbv (fsbv:defenumeration cblas-diag)
;;;;****************************************************************************
;;;; Functions
......
;; BLAS level 3, Matrix-matrix operations
;; 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
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -26,8 +26,8 @@
;;;; Options
;;;;****************************************************************************
#+fsbv
(fsbv:defcenum-aux cblas-side)
#+fsbv (fsbv:defenumeration cblas-side)
;;; Eventually, #-fsbv (cffi:defconvert-cenum cblas-side)
;;;;****************************************************************************
;;;; 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