September 2006 - cffi-devel - mailman3.common-lisp.net

[cffi-devel] Typification and optimization in cffi-sbcl.lisp
by Yaroslav Kavenchuk 12 Oct '06

12 Oct '06

For example: from (defun pointer-eq (ptr1 ptr2) "Return true if PTR1 and PTR2 point to the same address." (sb-sys:sap= ptr1 ptr2)) to (declaim (inline pointer-eq)) (defun pointer-eq (ptr1 ptr2) "Return true if PTR1 and PTR2 point to the same address." (declare (type system-area-pointer ptr1 ptr2)) (sb-sys:sap= ptr1 ptr2)) This is need? Do it? And for other files? Thanks! -- WBR, Yaroslav Kavenchuk.

3 5

[cffi-devel] Re: CFFI defcallback closures?
by Luís Oliveira 05 Oct '06

05 Oct '06

On 9/25/06, Lars Brinkhoff <lars(a)nocrew.org> wrote: > Can CFFI defcallbacks be closures, e.g. > > (let ((x 42)) > (defcallback foo :int ((y :int)) > (+ x y))) Unfortunately, last time I checked, not all Lisps support non top-level DEFCALLBACKs. See: <http://common-lisp.net/project/cffi/manual/html_node/defcallback.html> -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

3 5

[cffi-devel] New patches: 25-Sep-2006
by loliveira＠common-lisp.net 27 Sep '06

27 Sep '06

Mon Sep 25 10:13:45 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * bindings.lisp: load-directory - Use pathname-device and pathname-host to more accurately get the current directory on, for example, windows. Bug report and initial fix by Yaroslav Kavenchuk. M ./tests/bindings.lisp -1 +3 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060925.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

2 1

[cffi-devel] patch for tests/bindings.lisp
by Yaroslav Kavenchuk 25 Sep '06

25 Sep '06

Need when runtime device and cffi device is different. diff -rN -u old-cffi/tests/bindings.lisp new-cffi/tests/bindings.lisp --- old-cffi/tests/bindings.lisp 2006-09-25 13:54:24 +0000 +++ new-cffi/tests/bindings.lisp 2006-09-25 13:54:26 +0000 @@ -38,7 +38,8 @@ ;;; ASDF extensions loaded. (defun load-directory () (let ((here #.(or *compile-file-truename* *load-truename*))) - (make-pathname :directory (pathname-directory here)))) + (make-pathname :directory (pathname-directory here) + #+win32 :device #+win32 (pathname-device here)))) #-(:and :ecl (:not :dffi)) (let ((*foreign-library-directories* (list (load-directory)))) -- WBR, Yaroslav Kavenchuk.

3 2

[cffi-devel] with-pointer-to-vector-data
by rpgoldman＠sift.info 22 Sep '06

22 Sep '06

I was trying to use Edi Weitz' drakma http client the other day, and found that it depends on cl+ssl which, in turn, uses CFFI's with-pointer-to-vector-data. I run ACL, and with-pointer-to-vector-data is commented out in cffi-allegro. I *believe* that the following definition is what's needed, but have not been able to test it well enough to be sure (I don't really know what might kill it); it was mostly assembled by stumbling through the Franz FF interface documentation. IIUC, we needn't do anything to get a pointer for the C code to use, the important thing is to avoid having the lisp gc move the byte vector around, which is accomplished by the use of register-lisp-value. HTH, R for cffi-allegro.lisp: (defun make-shareable-byte-vector (size) "Create a Lisp vector of SIZE bytes that can be passed to WITH-POINTER-TO-VECTOR-DATA." (make-array size :element-type '(unsigned-byte 8))) ;;; this is a crazy whack at trying to make the shared vectors work. ;;; The support functions just make sure that the vector doesn't get ;;; moved around, so we have a stable pointer, and then I think ;;; passing the vector will Just Work\tm. [2006/09/11:rpg] (defmacro with-pointer-to-vector-data ((ptr-var vector) &body body) "Bind PTR-VAR to a foreign pointer to the data in VECTOR." `(unwind-protect (progn (foreign-functions:register-lisp-value ,vector) (let ((,ptr-var ,vector)) ,@body)) (foreign-functions:unregister-lisp-value ,vector)))

3 3

[cffi-devel] c-string encoding
by Yaroslav Kavenchuk 13 Sep '06

13 Sep '06

The next release of the sbcl will support the external formats in SB-ALIEN for c-string. What about implement of it in the cffi? There is any code (for the further development)? Thanks! -- WBR, Yaroslav Kavenchuk.

3 3

[cffi-devel] New patches: 12-Sep-2006
by loliveira＠common-lisp.net 13 Sep '06

13 Sep '06

Tue Sep 12 12:03:27 EDT 2006 Daniel Dickison <danieldickison(a)gmail.com> * Fixed typo in %callback M ./src/cffi-ecl.lisp -1 +1 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060912.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] Typo in cffi-ecl.lisp %callback
by Daniel Dickison 12 Sep '06

12 Sep '06

There is a trivial mistake in the ECL implementation of %callback -- this patch fixes it. I hope this is the right place to send this. Daniel

2 1

[cffi-devel] New patches: 9-Sep-2006
by loliveira＠common-lisp.net 10 Sep '06

10 Sep '06

Sat Sep 9 21:55:47 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * uffi-compat: implement missing macro DEF-POINTER-VAR Reported by Ricardo Alves. M ./uffi-compat/uffi-compat.lisp +5 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060909.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] CLSQL 3.7.1, CFFI and Oracle
by Ricardo Boccato Alves 10 Sep '06

10 Sep '06

Hi, I updated clsql to version 3.7.1 and it is not working (for Oracle) anymore using CFFI (updated from darcs repo today). I tried CLISP versions 1.39 and Allegro 8.0 on windows XP. The problem happens when I try to connect. The error message is: "Symbol "DEF-POINTER-VAR" not found in the CFFI-UFFI-COMPAT package." I think that this macro is missing. I copied the macro def-pointer-var from uffi's objects.lisp to uffi-compat.lisp... ;;; Define a special variable, like DEFVAR, that will be initialized ;;; to a pointer which may need to be reset when a saved image is ;;; loaded. This is needed for OpenMCL, which sets pointers to "dead ;;; macptrs" when a saved image is loaded. ;; This may possibly be needed for sbcl's SAVE-LISP-AND-DIE (defmacro def-pointer-var (name value &optional doc) #-openmcl `(defvar ,name ,value ,@(if doc (list doc))) #+openmcl `(ccl::defloadvar ,name ,value ,doc)) ..and added #:def-pointer-var to cffi-user-compat's export symbols. Now it seems to work buy I am not sure it is the best solution. []s, Ricardo Boccato Alves.

2 1