Commit 2ceb2dca authored by liam's avatar liam

Create default values for the gsl-error condition slots

gsl-source-file and gsl-line-number.  Histogram free functions return
void, not a pointer that needs to be checked.  Clarify licenses.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3299 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent 6af6a645
GSLL is distributed under the terms of the GNU Lesser General
Public License (LGPL), with the preamble defined by Franz, Inc.
http://opensource.franz.com/preamble.html
to address specific issues about Lisp, except see below.
All the code of GSLL, except documentation strings derived from the GSL
manual, is distributed under the terms of the GNU Lesser General Public
License (LGPL), http://www.gnu.org/licenses/lgpl.html with the
preamble defined by Franz, Inc.
http://opensource.franz.com/preamble.html to address specific issues
about Lisp.
Most of the :documentation strings used as arguments to defmfun, and
some comments in the Common Lisp source code are derived from the GSL
documentation. These are usually preceeded by a comment "; FDL"
in the source code. The following applies to these:
documentation. These are licensed under the GNU FDL,
http://www.gnu.org/licenses/fdl.html. These are usually preceeded by
a comment "; FDL" in the source code. The following applies to these:
Permission is granted to copy, distribute and/or modify this
document under the terms of the GNU Free Documentation License,
......
......@@ -11,12 +11,12 @@
<div class="header">
<h1>GSLL Development</h1>
<h2>GNU Scientific Library for Lisp Development Status</h2>
<h2>GSLL Development</h2>
</div>
<h3>Goals</h3>
<p>The goal of this project is to provide as complete an interface
to the GSL as possible in as Lisp-natural a way as possible. It is
to the GSL as possible in as Lisp-natural a way as is reasonable. It is
written only in Common Lisp (no C), with access to the foreign library
through CFFI.
......@@ -51,6 +51,12 @@
It is possible that the library API will change but probably not
substantially; most of the remaining work involves added functions.
<p>
There seem to be differences in the random number generators
between amd64 and i386, so many regression tests fail as the
sequences are not the same.
<p>
In addition to the chapters below, it would be nice if the following
were done<ul>
<li>Native vectors like <code>sb-sys:vector-sap</code> in SBCL.
......@@ -77,13 +83,6 @@
me at this address: <code>lhealy</code> -at-
<code>common-lisp</code> -dot- <code>net</code>.</p>
<p>
<p>The following is the status of the project by <a
href="http://www.gnu.org/software/gsl/manual/html_node/">GSL
manual</a> chapter. When marked "Done" it means that all or a
substantial portion
that is planned that GSLL will cover has been defined and <i>some</i> of those
definitions have been tested. Improvements may still be
desirable.</p>
</div>
<h3>Regression tests</h3>
......
......@@ -11,7 +11,7 @@
<div class="header">
<h1>GSLL Documentation</h1>
<h2>GSLL</h2>
<h2>GSLL Documentation</h2>
</div>
<h3>General Advice</h3>
......@@ -79,6 +79,16 @@ are functions whose symbols are exported so that an arglist prompt
will be visible; however, the function should not be used outside a
let binding.
<h3>Data</h3>
<div class="content">
Collectively, vectors, matrices, histograms and the like are called
<i>data</i>. There many different types supported by GSL, but GSLL
has implemented only a few of these: complex, double-float,
single-float, and fixnum, because those types are defined by
the Common Lisp standard. Others may be added but it may be
difficult to do so in a portable way. There are several macros that
should make this relatively easy.
<h3>Status</h3>
<div class="content">
Consistent with the <a href="development.html">development</a>
......
;; The histogram structure
;; Liam Healy, Mon Jan 1 2007 - 11:32
;; Time-stamp: <2008-02-17 16:51:35EST histogram.lisp>
;; Time-stamp: <2008-02-19 22:33:01EST histogram.lisp>
;; $Id: $
(in-package :gsl)
......@@ -59,16 +59,14 @@
(defmfun free-histo-1 (object)
"gsl_histogram_free"
(((pointer object) :pointer))
:c-return (cr :pointer)
:return ((assign-pointer object cr))
:c-return :void
:export nil
:index (letm histogram))
(defmfun free-histo-2 (object)
"gsl_histogram2d_free"
(((pointer object) :pointer))
:c-return (cr :pointer)
:return ((assign-pointer object cr))
:c-return :void
:export nil
:index (letm histogram))
......
;; GSL errors
;; Liam Healy Sat Mar 4 2006 - 18:33
;; Time-stamp: <2008-01-14 22:22:55 liam conditions.lisp>
;; Time-stamp: <2008-02-19 22:20:37EST conditions.lisp>
;; $Id: $
(in-package :gsl)
......@@ -52,17 +52,17 @@
(32 . "End of file")))
;;; It would be nice to be able to return, or give the option to return,
;;; the portrable equivalent of #.SB-EXT:DOUBLE-FLOAT-POSITIVE-INFINITY
;;; the portable equivalent of #.SB-EXT:DOUBLE-FLOAT-POSITIVE-INFINITY
;;; for :EOVRFLW.
(define-condition gsl-error (arithmetic-error)
((gsl-errno :initarg :gsl-errno :reader gsl-errno)
(gsl-reason :initarg :gsl-reason :reader gsl-reason)
(gsl-source-file :initarg :gsl-source-file :reader gsl-source-file)
(gsl-line-number :initarg :gsl-line-number :reader gsl-line-number))
(gsl-source-file :initform nil :initarg :gsl-source-file :reader gsl-source-file)
(gsl-line-number :initform 0 :initarg :gsl-line-number :reader gsl-line-number))
(:report
(lambda (condition stream)
(format stream "~a (~a), ~a in ~a at line ~d"
(format stream "~a (~a), ~a ~@[in ~a at line ~d~]"
(rest (assoc (gsl-errno condition) *gsl-error-alist*))
(cffi:foreign-enum-keyword 'gsl-errorno (gsl-errno condition))
(gsl-reason condition)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment