Update of /project/cello/cvsroot/cello/cffi-extender In directory clnet:/tmp/cvs-serv637/cffi-extender
Modified Files: arrays.lisp Log Message:
--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2006/08/31 17:34:47 1.3 +++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2006/09/05 23:05:36 1.4 @@ -169,9 +169,18 @@ (defun elti (v n) (ff-elt v :int n))
+(defun eltc (v n) + (ff-elt v :char n)) + (defun (setf elti) (value v n) (setf (ff-elt v :int n) (coerce value 'integer)))
+(defun (setf eltuc) (value v n) + (setf (ff-elt v :unsigned-char n) value)) + +(defun eltuc (v n) + (ff-elt v :unsigned-char n)) + (defun eltf (v n) (ff-elt v :float n))
@@ -194,7 +203,7 @@ `(mem-aref ,pa :pointer ,n))
(eval-when (:compile-toplevel :load-toplevel :execute) - (export '(ffx-reset + (export '(ffx-reset eltc eltuc ff-elt ff-list eltf eltd elti fgn-pa with-ff-array-elements