[cl-gsl-cvs] CVS update: cl-gsl/ffi.lisp

[cl-gsl-cvs at common-lisp.net]

Update of /project/cl-gsl/cvsroot/cl-gsl
In directory common-lisp.net:/tmp/cvs-serv4147

Modified Files:
	ffi.lisp 
Log Message:
Added permutation structure and pointer.

Date: Sun May  1 00:34:25 2005
Author: edenny

Index: cl-gsl/ffi.lisp
diff -u cl-gsl/ffi.lisp:1.5 cl-gsl/ffi.lisp:1.6
--- cl-gsl/ffi.lisp:1.5	Mon Apr 18 02:50:33 2005
+++ cl-gsl/ffi.lisp	Sun May  1 00:34:25 2005
@@ -56,20 +56,22 @@
 
 ;; ----------------------------------------------------------------------
 
-;; TODO: size_t may not always be unsigned long, could also be unsigned int
-;; on some systems?
 (define-foreign-type size-t :unsigned-long)
 
 (def-foreign-struct gsl-complex
     (dat (:array :double 2)))
 
 (def-foreign-struct gsl-poly-complex-workspace
-    (nc :unsigned-long)
+    (nc size-t)
     (matrix (* :double)))
 
 (def-foreign-struct gsl-complex-float
     (dat (:array :float 2)))
 
+(def-foreign-struct gsl-permutation-struct
+    (size size-t)
+    (data (* size-t)))
+
 ;; ----------------------------------------------------------------------
 
 (defmacro def-block-vector-matrix-struct% (struct-postfix data-type)
@@ -136,6 +138,8 @@
                  (gsl-matrix-complex-float-ptr '(* gsl-matrix-complex-float))
 
                  (size-t-ptr '(* size-t))
+
+                 (gsl-permutation-ptr '(* gsl-permutation-struct))
                  ))))
 
 (register-foreign-types)