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

[cffi-devel] trouble loading libraries on debian
by hbabcockos1＠mac.com 25 Apr '06

25 Apr '06

Hello, I'm having trouble loading libraries using CFFI 0.9.0 on debian. Example: The test script: (defpackage #:test (:use #:common-lisp #:cffi)) (in-package #:test) (defun load-library () (define-foreign-library libc (t (:default "libc"))) (use-foreign-library libc) (format t "libc loaded~%")) (load-library) Gives: Unable to load foreign library: libc.so [Condition of type LOAD-FOREIGN-LIBRARY-ERROR] Restarts: 0: [RETRY] Try loading the foreign library again. 1: [USE-VALUE] Use another library instead. 2: [ABORT-REQUEST] Abort handling SLIME request. 3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B1BED31}>) Backtrace: 0: (CFFI::HANDLE-LOAD-FOREIGN-LIBRARY-ERROR "libc.so" "Unable to load foreign library: ~A" "libc.so") 1: (LOAD-FOREIGN-LIBRARY LIBC) 2: (LOAD-LIBRARY) 3: (SB-INT:EVAL-IN-LEXENV (LOAD-LIBRARY) #<NULL-LEXENV>) 4: (SWANK::EVAL-REGION "(load-library) " T) 5: ((LAMBDA NIL)) 6: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {B75B0C5}>) 7: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {B75B0C5}>) 8: (SB-INT:EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(load-library) ") #<NULL-LEXENV>) 9: ((LAMBDA NIL)) 10: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B75AA35}>) 11: ((LAMBDA NIL)) 12: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {A9F13C5}>) 13: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B75A8E5}>) 14: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B01AC89}> #<FUNCTION (LAMBDA NIL) {A9F13C5}>) 15: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {B01AC89}>) 16: ((LAMBDA NIL)) 17: ((LAMBDA NIL)) 18: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B1DA0B5}>) 19: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B1DA0C5}>) 20: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B1DA0B5}>) 21: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {B1DA095}>) 22: ((LAMBDA NIL)) 23: ("foreign function: call_into_lisp") 24: ("foreign function: funcall0") 25: ("foreign function: new_thread_trampoline") 26: ("foreign function: #xB7FCECED") It is hard to imagine that it can't find the library so I'd guess it is some problem with the loader? dlopen? I'm using SBCL 0.9.11 & debian 2.6.15-1-686 #2 Mon Mar 6 15:27:08 UTC 2006 i686 GNU/Linux Suggestions? Thanks, -Hazen

3 3

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

25 Apr '06

Mon Apr 24 13:36:20 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Make corman's finalizers thread-safe (hopefully) M ./src/cffi-corman.lisp -8 +16 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060424.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[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 03 Apr '06

03 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