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

[cffi-devel] New patches: 16-Mar-2006
by loliveira＠common-lisp.net 17 Mar '06

17 Mar '06

Thu Mar 16 06:55:05 EST 2006 Stephen Compall <scompall(a)nocandysw.com> * small manual fixes - Add convert-to-foreign, convert-from-foreign, and free-converted-object to the master menu. - (load-foreign-library): Add note about specifying directories in paths. - (defcfun): Typo in syntax. M ./TODO -2 M ./doc/cffi-manual.texinfo -6 +14 Thu Mar 16 06:45:54 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Lispworks: use regression-test instead of rt. M ./tests/callbacks.lisp -2 +2 Thu Mar 16 06:40:28 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * SCL update + new cffi-sys primitive - New cffi-sys primitive: canonicalize-symbol-name-case. Use this instead of read-from-string. Also new tests for this. - cffi-scl.lisp: correct the evaluation order of %MEM-REF and %MEM-SET. Have 'foreign-symbol-pointer return 'nil if the symbol is not found. - uffi-compat.lisp: better support for SCL. - defcfun.lisp (defcfun.undefined): package at time of eval may differ from the compile time package. Patch courtesy of Douglas Crosher. M ./src/cffi-allegro.lisp +9 M ./src/cffi-clisp.lisp +7 M ./src/cffi-cmucl.lisp +7 M ./src/cffi-corman.lisp +7 M ./src/cffi-ecl.lisp +7 M ./src/cffi-gcl.lisp +7 M ./src/cffi-lispworks.lisp +7 M ./src/cffi-openmcl.lisp +7 M ./src/cffi-sbcl.lisp +7 M ./src/cffi-scl.lisp -14 +24 M ./src/foreign-vars.lisp -5 +3 M ./src/functions.lisp -1 +1 M ./tests/foreign-globals.lisp +84 M ./tests/libtest.c +19 M ./uffi-compat/uffi-compat.lisp -12 +16 Thu Mar 16 06:28:18 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * when (and ecl (not dffi)) cffi:load-foreign-library doesn't work - mention this in the manual. - make l-f-l signal an error on non-dffi ecl platforms. M ./doc/cffi-manual.texinfo +11 M ./src/cffi-ecl.lisp -1 +3 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060316.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] Re: unnamed callback (closures?)
by Jan Rychter 16 Mar '06

16 Mar '06

[resending directly as it seems messages posted through Gmane don't make it to the list :-/ ] >>>>> "Luís" == Luís Oliveira <luismbo(a)gmail.com>: Luís> "Hoehle, Joerg-Cyril" <Joerg-Cyril.Hoehle(a)t-systems.com> writes: >> In CLISP, every closure can be turned into a callback, and this is >> valuable since it allows to retrieve context information out of the >> closure. Is cffi's limitation caused by some implementations? Luís> To my knowledge, yes. AFAICT, only SBCL/x86 and CLISP support Luís> that. Luís> Regarding the behaviour of CFFI:DEFCALLBACK as a non-toplevel Luís> form, not only will it set it globally, the callback itself won't Luís> be generated at runtime on most Lisp, IIRC. I've just ran into the same problem. I really really need closures as callbacks. I've tried the naive approach: (defmacro object-event-callback-add (obj type function) `(foreign-funcall "evas_object_event_callback_add" :pointer ,obj callback-type ,(foreign-enum-value 'callback-type type) :pointer (get-callback (defcallback ,(gensym "CB") :void ((data :pointer) (cb-e evas) (cb-obj object) (cb-event :pointer)) (funcall ,function cb-e cb-obj cb-event))) :pointer (null-pointer))) ... but that's a half-baked solution with too many limitations and only works in a simple example that you run once. What are the problems with unnamed callbacks? My guess was that they will never get garbage-collected, but how about storing all of these in a table somewhere and explicitly freeing them after they are no longer needed? In my case I do have a way of finding out when a callback is no longer needed, and I suspect this is the case for many other applications. I mostly develop on SBCL/x86 and ECL, so even if a solution worked on these platforms only, I'd be really happy. --J.

5 12

[cffi-devel] [patch] small manual updates
by Stephen Compall 16 Mar '06

16 Mar '06

Been trying to work on code for the past week or so, so not many manual changes since the last one. Anyway, here are a few fixes: Wed Mar 15 13:18:49 CST 2006 Stephen Compall <scompall(a)nocandysw.com> * small manual fixes - Add convert-to-foreign, convert-from-foreign, and free-converted-object to the master menu. - (load-foreign-library): Add note about specifying directories in paths. - (defcfun): Typo in syntax. -- Stephen Compall http://scompall.nocandysw.com/blog

2 2

[cffi-devel] creating two-dimensional arrays
by hbabcockos1＠mac.com 16 Mar '06

16 Mar '06

Hello, What is the right way to create a 2D array to pass to a c-function that expects **arr? I tried: (defun make-matrix (lisp-mat) "Creates a two-dimensional c array, initializes with lisp matrix" (let* ((x-dim (array-dimension lisp-mat 0)) (y-dim (array-dimension lisp-mat 1)) (c-mat (foreign-alloc :pointer :count y-dim))) (dotimes (y y-dim) (let ((cur (foreign-alloc :double :count x-dim))) (setf (mem-aref c-mat :pointer y) cur) (dotimes (x x-dim) (setf (mem-aref cur :double y) (coerce (aref lisp-mat x y) 'double-float))))) c-mat)) To pass the argument z to the c-function: c_plmesh(PLFLT *x, PLFLT *y, PLFLT **z, PLINT nx, PLINT ny, PLINT opt); (PLFLT is of type double & PLINT is of type int) But some of the values appear to get mangled in transit. Thanks, -Hazen (CFFI 0.9.0, SBCL 0.9.9, OS-X 10.4)

2 2

[cffi-devel] char** ??
by Goenninger, Frank 15 Mar '06

15 Mar '06

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Hi all you CFFI hackers: I am currently trying to get GLUT to work via CFFI. There I have the following C function declaration: extern void glutInit(int *argcp, char **argv); Hmm - now I am asking myself: 1. Do I have to define a new type as Integer Pointer ? Same also for char ** ? 2. How do I avoid defining new types while still being able to define this function via defcfun ? Or, in other words, how would you define this function with defcfun ?? Thanks for any pointers ;-) Cheers, Frank -----BEGIN PGP SIGNATURE----- Version: PGP Desktop 9.0.5 (Build 5050) iQIVAwUBRBhcyGAKVUddnkqnAQrPUQ//TegvAbvahD9igy7yPtvdWnk92tv96wTt 9QafBaFtLHnxOevR9s5J+KhXSz512Vhtt73MaNAll69wbZJKCl9ZD9taTXfnRhbk AA4Am3YZAPl8/QyMVKLwuDjkd9as+MIVWimcJrah/9Bi+h0/ySWlxAoYcP8XCz48 zMjp5LDVqupJ17nnLpwawn9FbSN2sGXjP3K8wlzdrlrVQnWHvS0+6ln1ioDrjH3Z 9V9HvCYO1diJc56T0lPmDVzK9tNyyljpvy8Ga3ePvRRvTToaYeXhXI1fkioYgmya PZN44hNivPYMmY4cpVbOzPmQg63JqTnHqxSIuaqa/rf60s0q/0zCiBji+GTSfIrw k38ucmEJqzd+p9Us6qISxwvTMc6+E4HUoH7KBAtMkleUk7hOSnjMO3WvB+jefRki YFk56e/bwTW+MPre/96xefGSXeDvJ3+h/mlmKCF+Ug2s5tOikk45YiFl9iwSaB00 KKjUkVym9rVzN1iDVk9QgiiB2evpYejrTi62A4qUz20d12+BpegEPgEmo3swOpS4 ypKn6sWYLduQ46kkap87+ZJz9hqa37JmOTzk4gMYryR9FJ5OXeBo0BKMHAkn17gf fA5EuskNfg7t5A+BSB18bA1VaSXvSvyryIcm7elHuQPkWSy0nwd81dFrhqYzxdxX dr2D0uRLokk= =Z2cP -----END PGP SIGNATURE-----

3 2

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

14 Mar '06

Tue Feb 28 23:33:49 EST 2006 Stephen Compall <scompall(a)nocandysw.com> * manual: convert-* interface, optimizing translators overview optimized - (Wrapper generators): Add comment about the 30-90% figure. - Reword `Pointers' to be shorter/clearer. - Promote `Optimizing Type Translators' to a full section, a few other things here, most conspicuously expanding on the note about expand-* method definition time. - (Tutorial-Conclusion): Not a first draft anymore. - Document convert-to-foreign, convert-from-foreign, and free-converted-object. M ./doc/cffi-manual.texinfo -40 +226 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060313.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] manual: convert-* interface, optimizing translators overview
by Stephen Compall 13 Mar '06

13 Mar '06

Darcs patch at http://csserver.evansville.edu/~sc87/cffi/convert-and-expand-doc-6s11.darcs… Tue Feb 28 22:33:49 CST 2006 Stephen Compall <scompall(a)nocandysw.com> * manual: convert-* interface, optimizing translators overview optimized - (Wrapper generators): Add comment about the 30-90% figure. - Reword `Pointers' to be shorter/clearer. - Promote `Optimizing Type Translators' to a full section, a few other things here, most conspicuously expanding on the note about expand-* method definition time. - (Tutorial-Conclusion): Not a first draft anymore. - Document convert-to-foreign, convert-from-foreign, and free-converted-object. -- Stephen Compall http://scompall.nocandysw.com/blog

2 1

[cffi-devel] question about defcfun
by Hazen Babcock 01 Mar '06

01 Mar '06

Hello, I'm having some difficulty passing arguments to defcfun. This is likely due to my incomplete knowledge of lisp, so hopefully someone can point me in the right direction. Given the following code: defpackage :cffi-test (:use :common-lisp :cffi)) (in-package :cffi-test) (defun strip-args (args) (let ((new-args nil)) (dolist (elm (car args)) (setf new-args (append new-args (list (subseq elm 0 2))))) new-args)) (defun make-defcfun-call (c-name lisp-name returns &rest args) `(defcfun (,c-name ,lisp-name) ,returns ,@(strip-args args))) (defmacro pl-defcfun (name returns &rest args) (make-defcfun-call (elt name 0) (elt name 1) returns args)) (defmacro pl-defcfun-2 (name returns &rest args) (make-defcfun-call (elt name 0) (make-symbol (format nil "bar- ~A" (elt name 1))) returns args)) This creates a function called l-foo: (pl-defcfun ("c-foo" l-foo) :void (x :char) (y :char)) This should create a function call bar-l-foo (or maybe #|bar-l- foo|?), but doesn't appear to (as judged by my not getting a function prototype at the slime REPL). (pl-defcfun-2 ("c-foo" l-foo) :void (x :char) (y :char)) Maybe defcfun is not getting the right kind of symbol? I am running SBCL 0.9.9 with a few week old version of slime from cvs on OS-X 10.4. Thanks for your help, -Hazen

2 1

[cffi-devel] New patches: 28-Feb-2006
by loliveira＠common-lisp.net 01 Mar '06

01 Mar '06

Tue Feb 28 14:36:23 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Remove known issues sub-section from the manual. - Listing the expected failures in the manual is too much trouble. Removed those. - Also, renamed "The Scieneer Common Lisp" to "Scieneer CL" for consistency. M ./doc/cffi-manual.texinfo -70 +26 Tue Feb 28 14:16:42 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * TODO item about a pointer type, suggested by Jörg Höhle M ./TODO +3 Tue Feb 28 11:26:38 EST 2006 Stephen Compall <scompall(a)nocandysw.com> * manual: strings, foreign allocation, add `Wrapper generators' - Explain the difference between mem-aref and mem-ref by analogy with C operators. - Use ::= instead of = in with-foreign-object's syntax. - (Strings): Explain that it is portable code. - (Other Types): Don't use metasyntactic variables in Lisp examples. - Add `Wrapper generators' section on Verrazano et al. - (Foreign Type Translators): Use Please note: instead of Note: to suppress makeinfo warning. M ./doc/cffi-manual.texinfo -12 +77 Mon Feb 27 14:48:54 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * More testing - Make defcfun.undefined an expected failure for SBCL on non linkage-table platforms. - New file: tests/misc.lisp. - Added a couple of tests for cffi-features. M ./cffi-tests.asd -1 +2 M ./tests/defcfun.lisp -3 +5 A ./tests/misc.lisp Mon Feb 27 14:48:13 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * TODO item about our use of EVAL M ./TODO -1 +3 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060228.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0