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

[cffi-devel] New patches: 23-Apr-2006
by loliveira＠common-lisp.net 24 Apr '06

24 Apr '06

Sun Apr 23 22:53:57 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Add support for finalizers - New functions: finalize and cancel-finalization. - New cffi-"feature": no-finalizers. Only ECL pushes this. - Document new functions. M ./doc/cffi-manual.texinfo -2 +108 M ./src/cffi-allegro.lisp -1 +27 M ./src/cffi-clisp.lisp -1 +27 M ./src/cffi-cmucl.lisp -1 +19 M ./src/cffi-corman.lisp -1 +32 M ./src/cffi-ecl.lisp -1 +13 M ./src/cffi-lispworks.lisp -1 +32 M ./src/cffi-openmcl.lisp -1 +31 M ./src/cffi-sbcl.lisp -1 +19 M ./src/cffi-scl.lisp -1 +21 M ./src/features.lisp +1 M ./src/package.lisp +4 Sun Apr 23 22:53:20 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Include stdint.h in libtest.c M ./tests/libtest.c +1 Sun Apr 23 22:51:19 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Oops, forgot to bump the version number. M ./cffi.asd -1 +1 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060423.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

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

21 Apr '06

Mon Apr 17 21:13:51 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> tagged 0.9.1 Mon Apr 17 21:13:09 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Make release.sh more suitable for versioned releases M ./scripts/release.sh -3 +3 Mon Apr 17 21:10:01 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * More minor changes to cffi-tests - add asdf:test-op to the cffi system - mark a couple more cmucl failures - get rid of the warning in libtest.c about comparing void* and function pointer M ./cffi.asd +4 M ./tests/callbacks.lisp -2 +2 M ./tests/libtest.c -4 +4 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060417.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

3 6

[cffi-devel] patch for more compatibility tests with sbcl
by Yaroslav Kavenchuk 20 Apr '06

20 Apr '06

$ diff -u cffi-tests.asd.orig cffi-tests.asd --- cffi-tests.asd.orig Tue Feb 28 19:09:58 2006 +++ cffi-tests.asd Thu Apr 20 13:05:43 2006 @@ -51,7 +51,7 @@ (defsystem cffi-tests :description "Unit tests for CFFI." - :depends-on (cffi rt) + :depends-on (cffi #-sbcl rt #+sbcl sb-rt) :components ((:module "tests" :serial t @@ -71,7 +71,7 @@ (:file "misc"))))) (defmethod perform ((o test-op) (c (eql (find-system :cffi-tests)))) - (or (funcall (intern (symbol-name '#:do-tests) '#:regression-test)) + (or (funcall (intern (symbol-name '#:do-tests) #-sbcl '#:rt #+sbcl '#:sb-rt)) (error "test-op failed."))) ;;; vim: ft=lisp et $ diff -u callbacks.lisp.orig callbacks.lisp --- callbacks.lisp.orig Thu Mar 16 11:44:56 2006 +++ callbacks.lisp Thu Apr 20 13:07:23 2006 @@ -144,7 +144,8 @@ #-cffi-features:no-long-long (progn - #+openmcl (push 'callbacks.long-long rt::*expected-failures*) + #+openmcl (push 'callbacks.long-long #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest callbacks.long-long (expect-long-long-sum (callback sum-long-long)) @@ -313,7 +314,8 @@ (reduce #'+ args))) #+(or openmcl (and cffi-features:darwin (or allegro cmu lispworks))) -(push 'callbacks.bff.1 regression-test::*expected-failures*) +(push 'callbacks.bff.1 #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest callbacks.bff.1 (call-sum-127-no-ll (callback sum-127-no-ll)) @@ -378,7 +380,8 @@ a119 a120 a121 (values (floor a122)) a123 a124 a125 a126 a127)) #+(or openmcl (and cffi-features:darwin cmu)) - (push 'callbacks.bff.2 rt::*expected-failures*) + (push 'callbacks.bff.2 #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest callbacks.bff.2 (call-sum-127 (callback sum-127)) @@ -409,7 +412,8 @@ (defcfun "call_double26" :double (f :pointer)) #+(and cffi-features:darwin allegro) -(pushnew 'callbacks.double26 rt::*expected-failures*) +(pushnew 'callbacks.double26 #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest callbacks.double26 (call-double26 (callback double26)) @@ -445,14 +449,16 @@ (defcfun "call_float26" :float (f :pointer)) #+(and cffi-features:darwin (or lispworks openmcl)) -(pushnew 'callbacks.float26 regression-test::*expected-failures*) +(pushnew 'callbacks.float26 #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest callbacks.float26 (call-float26 (callback float26)) 130.0) #+(and cffi-features:darwin (or lispworks openmcl)) -(pushnew 'callbacks.float26.funcall regression-test::*expected-failures*) +(pushnew 'callbacks.float26.funcall #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) #-cffi-features:no-foreign-funcall (deftest callbacks.float26.funcall $ diff -u foreign-globals.lisp.orig foreign-globals.lisp --- foreign-globals.lisp.orig Thu Apr 20 12:59:17 2006 +++ foreign-globals.lisp Thu Apr 20 12:58:38 2006 @@ -95,7 +95,8 @@ #-cffi-features:no-long-long (progn - #+openmcl (push 'foreign-globals.set.long-long rt::*expected-failures*) + #+openmcl (push 'foreign-globals.set.long-long #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest foreign-globals.ref.long-long *var-long-long* $ diff -u memory.lisp.orig memory.lisp --- memory.lisp.orig Sat Feb 25 03:55:08 2006 +++ memory.lisp Thu Apr 20 13:01:58 2006 @@ -78,7 +78,8 @@ #-cffi-features:no-long-long (progn #+(and cffi-features:darwin openmcl) - (pushnew 'deref.long-long rt::*expected-failures*) + (pushnew 'deref.long-long #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest deref.long-long (with-foreign-object (p :long-long) @@ -454,7 +455,8 @@ #-cffi-features:no-long-long (progn #+(and cffi-features:darwin openmcl) - (pushnew 'deref.nonconst.long-long rt::*expected-failures*) + (pushnew 'deref.nonconst.long-long #-sbcl rt::*expected-failures* + #+sbcl sb-rt::*expected-failures*) (deftest deref.nonconst.long-long (let ((type :long-long)) $ diff -u package.lisp.orig package.lisp --- package.lisp.orig Thu Feb 16 08:34:54 2006 +++ package.lisp Thu Apr 20 13:03:27 2006 @@ -28,5 +28,5 @@ (in-package #:cl-user) (defpackage #:cffi-tests - (:use #:cl #:cffi #:cffi-sys #:regression-test) + (:use #:cl #:cffi #:cffi-sys #-sbcl #:rt #+sbcl #:sb-rt) (:export #:do-tests)) $ diff -u random-tester.lisp.orig random-tester.lisp --- random-tester.lisp.orig Tue Feb 14 05:14:46 2006 +++ random-tester.lisp Thu Apr 20 13:08:41 2006 @@ -36,7 +36,7 @@ ;;; this code can generate. (defpackage #:cffi-random-tester - (:use #:cl #:cffi #:regression-test)) + (:use #:cl #:cffi #-sbcl #:rt #+sbcl #:sb-rt)) (in-package #:cffi-random-tester) (defstruct (c-type (:conc-name type-)) -- WBR, Yaroslav Kavenchuk.

2 1

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

15 Apr '06

Fri Apr 14 17:01:37 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Add 'all' target to doc/Makefile M ./doc/Makefile +2 Fri Apr 14 17:00:17 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * update tests - update dll version. - add some CMUCL/darwin failures. M ./tests/bindings.lisp -1 +1 M ./tests/callbacks.lisp -3 +15 M ./tests/defcfun.lisp +1 M ./tests/funcall.lisp -1 M ./tests/libtest.c -1 +1 Fri Apr 14 16:58:10 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * non-toplevel defcallback forms - Add note to the manual about non-toplevel defcallback forms. - Add a test for this (comment out, since it's not portable). M ./doc/cffi-manual.texinfo +3 M ./tests/callbacks.lisp +11 Fri Apr 14 16:49:18 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * foreign-symbol-pointer changes - Remove second argument from foreign-symbol-pointer. - Update foreign-symbol-pointer documentation in the manual. - New tests: funcall.f-s-p.1 and foreign-symbol-pointer.[12]. M ./doc/cffi-manual.texinfo -18 +12 M ./src/cffi-allegro.lisp -4 +2 M ./src/cffi-clisp.lisp -17 +6 M ./src/cffi-cmucl.lisp -4 +7 M ./src/cffi-corman.lisp -4 +2 M ./src/cffi-ecl.lisp -3 +1 M ./src/cffi-lispworks.lisp -4 +2 M ./src/cffi-openmcl.lisp -4 +2 M ./src/cffi-sbcl.lisp -8 +4 M ./src/cffi-scl.lisp -4 +2 M ./src/foreign-vars.lisp -6 +3 M ./tests/funcall.lisp +5 M ./tests/libtest.c +20 M ./tests/misc.lisp +16 Fri Apr 14 16:48:52 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * New TODO item: warn about :void M ./TODO +1 Mon Mar 27 12:36:32 EST 2006 Stephen Compall <scompall(a)nocandysw.com> * remove *runtime-translator-form* from the interface - Remove *runtime-translator-form* from the public interface, in favor of (call-next-method). - Describe this change in the manual, including some text from the option 1 patch. - Be clear that ALLOC-PARAM is thrown out by %expand-type-to-foreign. M ./doc/cffi-manual.texinfo -14 +33 M ./src/early-types.lisp -27 +34 M ./src/package.lisp -1 M ./tests/misc-types.lisp -1 +1 Wed Mar 1 14:41:22 EST 2006 Stephen Compall <scompall(a)nocandysw.com> * demonstrate differing behavior between foreign-dyn expansions - change expand-type-to-foreign-dyn for foreign-typedef to not short-circuit expand-type-to-foreign when falling back (see paste 17379) - add tests showing that you can change the foreign-dyn expansion semantics by providing an expand-to-foreign method that falls back M ./src/early-types.lisp -1 +1 M ./tests/misc-types.lisp +43 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060414.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] foreign-symbol-pointer weirdness
by Samium Gromoff 12 Apr '06

12 Apr '06

here is the scenario: (defpackage :lispverse (:use :common-lisp :cffi)) (in-package :lispverse) (define-foreign-library libverse (:unix (:or "/home/deepfire/source/% EXTRN/uni-verse/=src/verse/libverse.so")) (t (:default "libverse"))) (use-foreign-library libverse) (let ((foreign-ptr (foreign-symbol-pointer "verse_send_connect_accept" :code))) (format t "foreign-ptr contents: ") (dotimes (i 16) (format t "~2,'0X " (the (unsigned-byte 8) (mem-ref foreign-ptr :uint8 i)))) (format t "~%")) This code gives different printouts on CLISP/CMUCL/SBCL backends: CLISP: foreign-ptr contents: 55 89 E5 83 EC 28 8B 45 0C 89 44 24 04 8D 45 F8 CMUCL: foreign-ptr contents: E9 26 AE C3 F9 90 00 00 00 00 00 00 00 00 00 00 SBCL: foreign-ptr contents: E9 CE A2 A1 47 90 00 00 00 00 00 00 00 00 00 00 This amounts to foreign-symbol-pointer finding different things on different lisps, in the same shared library. The CLISP way appears to be correct, according to objdump: 0001a43b <verse_send_connect_accept>: 1a43b: 55 push %ebp 1a43c: 89 e5 mov %esp,%ebp 1a43e: 83 ec 28 sub $0x28,%esp 1a441: 8b 45 0c mov 0xc(%ebp),%eax 1a444: 89 44 24 04 mov %eax,0x4(%esp) 1a448: 8d 45 f8 lea 0xfffffff8(%ebp),%eax 1a44b: 89 04 24 mov %eax,(%esp) ... libverse.so is attached. regards, Samium Gromoff

2 4

[cffi-devel] New patches: 2-Apr-2006
by loliveira＠common-lisp.net 03 Apr '06

03 Apr '06

Thu Mar 30 16:50:53 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * sbcl/win32: mark defcfun.undefined as an expected failure M ./tests/defcfun.lisp -1 +1 Thu Mar 30 16:48:16 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * cmucl: top-level-lambda-max - Use (setf c::top-level-lambda-max 0) allowing compilation of bindings without loading foreign libraries first. - Change USE-FOREIGN-LIBRARY accordingly. This avoids the error we got when loading a library twice (first at compile-time, then at load-time). M ./src/cffi-cmucl.lisp -2 +6 M ./src/libraries.lisp -5 +3 Thu Mar 30 16:46:40 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Small doc changes. - Rewrite paragraph about :float and :double. - Fix typo in defbitfield example. M ./doc/cffi-manual.texinfo -9 +7 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060402.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] [PATCH] Correcting %load-foreign-library for CMUCL
by Vladimir Sekissov 02 Apr '06

02 Apr '06

Good day, This little patch corrects behaviour of %LOAD-FOREIGN-LIBRARY under CMUCL. SYS::LOAD-OBJECT-FILE always throw an error if it can't load foreign library and returns NIL if library is already loaded. Tested with CMUCL-19c under Linux and FreeBSD. Best Regards, Vladimir Sekissov

2 1

[cffi-devel] %expand-type-to-foreign-dyn vs *runtime-translator-form*
by Stephen Compall 31 Mar '06

31 Mar '06

I was looking at the new type translator expansion interface and noticed that one would experience different behavior depending on method definitions. I'll use expand-to-foreign-dyn as an example: If a translation method is available [for some defn thereof], as found by compute-applicable-methods, but that method answered *runtime-translator-form*, the final result of the expander would be something like `(multiple-value-bind (,var ,param) (translate-type-to-foreign ,value ,type) (unwind-protect (progn ,@body) (free-type-translated-object ,var ,type ,param))) Otherwise, both implementations of expand-type-to-foreign-dyn would short-circuit the generic function call and return `(let ((,var ,(expand-type-to-foreign value type))) ,@body) Though only if by similar heuristic they found that a one-way expander was available. I've rearranged things here to combine the cases, eliminate the *runtime-translator-form* exportation, and make the code simpler. Currently, both cases are collapsed into the former expansion. However, this breaks some misc-types.expand tests, as it breaks this guarantee listed in that file: Ensure that macroexpansion-time translators are called where this is guaranteed (defcfun, defcvar, foreign-funcall and defcallback) Now, expand-to-foreign is undocumented (:), so I am not sure what its semantics are supposed to be anyway. (In particular, I don't see whether the expand-type-* specializations for foreign-typedef are following the actual-type chain.) If it is precisely like a compiler macro, this can easily be fixed by changing translate-type-to-foreign to expand-type-to-foreign in the current expansion, and things will work nicely. However, I must be able to call free-type-translated-object on the results of the forward-expanded form for this to work. Can I rely on this guarantee, so that I can in return reoffer the aforementioned guarantee? -- Stephen Compall http://scompall.nocandysw.com/blog

2 13

[cffi-devel] sbcl on mingw: Test CFFI-TESTS::DEFCFUN.UNDEFINED failed
by Yaroslav Kavenchuk 30 Mar '06

30 Mar '06

SBCL 0.9.9.37 on mingw, cffi-060225.tar.gz * (asdf:operate 'asdf:load-op :cffi) ... Test CFFI-TESTS::DEFCFUN.UNDEFINED failed Form: (PROGN (EVAL '(CFFI:DEFCFUN "undefined_foreign_function" :VOID)) (COMPILE 'CFFI-TESTS::UNDEFINED-FOREIGN-FUNCTION) T) Expected value: T Actual value: #<UNDEFINED-ALIEN-ERROR undefined_foreign_function {B45E8E9}>. Thanks. -- WBR, Yaroslav Kavenchuk.

3 5

[cffi-devel] A slight documentation disambiguation?
by Samium Gromoff 29 Mar '06

29 Mar '06

Apropos the built-in types section, would it make sense to replace a slightly ambiguous sentence mixing three things: "On most systems, the :float type represents a C float and a Lisp single-float. :double represents a C double and a Lisp double-float." with two separate sentences: "On all systems the :float type represents a C float, :double represents a C double." and "On most systems, the :float type a Lisp single-float, :double represents a Lisp double-float." ? respectfully, Samium Gromoff

2 1