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)