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)