cffi-devel February 2010

cffi-devel@common-lisp.net

5 participants
7 discussions

[cffi-devel] Foreign structures by value
by Liam Healy 26 Aug '10

26 Aug '10

I have written Foreign Structures By Value (FSBV) to allow calling foreign functions while passing or returning structures by value. It uses CFFI and libffi. It currently provides two macros for users, fsbv:defcstruct and fsbv:foreign-funcall, which are used exactly like their CFFI counterparts. It works for small test cases I've tried, but probably could use some improvement. If the keepers of CFFI are interested, I would be happy for it to be included in CFFI. In the meantime, it can be found here: http://repo.or.cz/w/fsbv.git Thank you. Liam

2 3

[cffi-devel] Memory fault using CFFI
by Andrew Kirkpatrick 22 Aug '10

22 Aug '10

Hi, It seems that in many cases when I call code in a library that results in a loaded foreign library function being called, I get a memory fault. Typically this error appears in my slime REPL: Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. 0: ; Evaluation aborted. The 11 errors appear in my *inferior-lisp* buffer, each one similar to: CORRUPTION WARNING in SBCL pid 3239(tid 3039865744): Memory fault at 100020 (pc=0x9c77963, sp=0xb52f6110) The integrity of this image is possibly compromised. Continuing with fingers crossed. Crossed fingers or not, from that point on the lisp image is unstable. It happens when I try to use Elephant to open a BDB store, or when I use CL-SQLITE directly to open a database. However I just discovered that I can successfully run the hello-world.lisp example in CLG. I'm using clbuild on 32bit x86 Ubuntu 9.10, that I used to install SBCL 1.0.35.1 and the latest (according to clbuild) CFFI. Looking closer at CFFI, it fails one test unexpectedly. I'm quite baffled and googling and asking on #lisp draws a blank. The failed test is below. Any ideas? Test DEFCFUN.BFF.2 failed Form: (SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060) -32334.0 3158055028 (MAKE-POINTER 242315091) 4288001754991016425 -21047.0d0 287.0d0 18722 243379286 -8677366518541007140 581399424 -13872 4240394881 1353358999 226 969197676 -26207.0d0 6484 11150 1241680089902988480 106068320 61865 2253 (MAKE-POINTER 866809333) -31613 35616 11715 1393601698 8940888681199591845 (MAKE-POINTER 1524606024) 805638893 3315410736 3432596795 (MAKE-POINTER 1490355706) 696175657106383698 -25438.0 1294381547 26724 (MAKE-POINTER 3196569545) 2506913373410783697 -4405955718732597856 4075932032 3224670123 2183829215657835866 1318320964 -22 -3786.0d0 -2017024146 1579225515 -626617701 -1456 (MAKE-POINTER 3561444187) 395687791 1968033632506257320 -1847773261 48853 142937735275669133 -17974.0 (MAKE-POINTER 2791749948) -14140.0 2707 3691328585 3306.0 1132012981 303633191773289330 (MAKE-POINTER 981183954) 9114.0d0 8664374572369470 -19013.0d0 -10288.0d0 -3679345119891954339 (MAKE-POINTER 3538786709) 23761 -154264605 (MAKE-POINTER 2694396308) 7023 997.0d0 1009561368 241 (MAKE-POINTER 2612292671) 48 1431872408 -32675.0d0 (MAKE-POINTER 1587599336) 958916472 -9857.0d0 111 -14370.0d0 -7308 -967514912 488790941 2146978095 -24111.0d0 13711 86681861 717987770 111 1013402998690933877 17234.0d0 -8772.0 3959216275 -8711 (MAKE-POINTER 3142780851) 9480.0 -3820453146461186120 1616574376 -3336232268263990050 -1906114671562979758 -27925.0d0 9695970875869913114 27033.0d0 1096518219 -12 104 3392025403 -27911 60 89 509297051 -533066551 29158.0 110 54 -9802.0d0 593950442165910888 -79) Expected value: 7758614658402721936 Actual value: 7758614624042983568. Thanks! -- Andrew Kirkpatrick "The first rule of Perl Club... has subscript 0. Unless you changed $[. But don't!" -- blazar on perlmonks.org

2 1

[cffi-devel] foreign-string-to-lisp should use keywords
by Leslie P. Polzer 01 May '10

01 May '10

A minor nit I found while passing a custom encoding to this function. It's quite cumbersome to have to specify the other optional arguments to this function just to change one of them. Using keywords would also have the benefit of matching the lambda list of lisp-string-to-foreign. Leslie

3 2

[cffi-devel] Program hanging on foreign-funcall
by Jakob Reschke 04 Mar '10

04 Mar '10

Hello, I'm writing a binding to Agar (http://libagar.com), an SDL GUI library (among other things), but I'm facing a problem: AG_Editable objects can be bound to a text buffer so the text entered into the editable widget is written into that buffer and vice versa. The buffer can be set with void AG_EditableSetString(AG_Editable *ed, char *text); The following C Program works fine: #include <agar/core.h> #include <agar/gui.h> int main(int argc, char **argv) { AG_InitCore("myprog", 0); AG_InitVideo(320, 240, 32, 0); char buffer[100]; /* text buffer */ AG_Window *win = AG_WindowNew(0); AG_Textbox *tb = AG_TextboxNew(win, 0, "testbox:"); AG_Editable *ed = tb->ed; AG_WindowShow(win); AG_EditableBindUTF8(ed, &buffer, 100); /* no hang here */ AG_EditableSetString(ed, "foobar"); AG_EventLoop(); return 0; } Whereas the following CFFI Lisp, which is supposed to be equivalent, at the REPL does not: (with-core-and-video (cffi:with-foreign-object (buffer :char 100) (let* ((win (cffi::foreign-funcall "AG_WindowNew" :int 0 :pointer)) (tb (cffi::foreign-funcall "AG_TextboxNew" :pointer win :int 0 :string "box:" :pointer)) (ed (cffi::foreign-slot-value tb 'ag-cffi::textbox 'ag-cffi::editable))) (ag:window-show win) ;; hangs here: (cffi::foreign-funcall "AG_EditableBindUTF8" :pointer ed :pointer buffer :int 100 :void) (cffi::foreign-funcall "AG_EditableSetString" :pointer ed :string "foobar" :void) (cffi::foreign-funcall "AG_EventLoop_FixedFPS" :void)))) The program hangs at the line with the according comment. The window shows up but doesn't get into the event loop, there are no error conditions and if I interrupt in Slime with C-c C-c (which works), the backtrace always reads "bogus stack frame" > "foreign function" > "foreign function" > (lambda ()) > (sb-int:simple-eval-in-lexenv ...) > ... What could cause this and how do I fix it? Or did I do something wrong? Best regards, Jakob

1 1

[cffi-devel] [PATCH] [RFC] Unloading libraries for delivery
by Francisco Vides Fernández 27 Feb '10

27 Feb '10

Hello! I'm having the very same trouble that is described in the following messages: http://common-lisp.net/pipermail/cffi-devel/2009-January/003048.html http://common-lisp.net/pipermail/cffi-devel/2009-January/003049.html http://common-lisp.net/pipermail/cffi-devel/2009-January/003050.html http://common-lisp.net/pipermail/cffi-devel/2009-July/003196.html I need to deliver an image that contains some foreign libraries. Now I'm going to test John Fremlin's solution, I think that will do for now, but: Will this solution or something equivalent be included in CFFI trunk? Thanks for such a nice piece of work! +----------------- | Francisco Vides Fernández <fvides(a)dedaloingenieros.com> | Gerente | Teléfono fijo: 952 60 29 59 | Fax: 952 60 29 59 | Dédalo Ingenieros http://www.dedaloingenieros.com/ | PGP: http://pgp.rediris.es:11371/pks/lookup?op=index&search=0xB1299C15 +------

1 0

[cffi-devel] New patches: 19-Feb-2010
by Luis Oliveira 20 Feb '10

20 Feb '10

Fri Feb 19 12:33:53 EST 2010 Stelian Ionescu <sionescu(a)cddr.org> * Remove unused C macro SIGNED_ from common.h M ./grovel/common.h -1 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-100219.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0

[cffi-devel] Fix CFFI-UFFI-compat on ECL
by Michael Raskin 01 Feb '10

01 Feb '10

Hello. I am trying to simplify ASDF-Install'ing Cells-GTK on different platforms. When trying with ECL, I find the following problem: CFFI defines uffi-compat package with "uffi" alias. Comment even expresses doubt whether it is a good idea. ECL has its own UFFI. So CFFI should either not declare such nickname for ECL or remove the alias from "FFI" package. I think the second is a better (although marginally more complex) behavior, because it increases portability and reduces number of people who notice implementation quirks of UFFI package. I include sample patch to remove this alias. I hope something like that will get into the next release.. Thanks Michael Raskin --- /home/raskin/.sbcl/site/cffi_0.10.5/uffi-compat/uffi-compat.lisp 2009-06-16 20:20:08.000000000 +0400 +++ /home/raskin/.ecl/site/cffi_0.10.5/uffi-compat/uffi-compat.lisp 2010-01-29 10:58:24.000000000 +0300 @@ -28,6 +28,10 @@ ;;; Code borrowed from UFFI is Copyright (c) Kevin M. Rosenberg. +#+ecl (eval-when (:compile-toplevel :execute :load-toplevel) + (rename-package :ffi :ffi + (remove "UFFI" (package-nicknames :ffi) :test 'equal))) + (defpackage #:cffi-uffi-compat (:nicknames #:uffi) ;; is this a good idea? (:use #:cl)

3 7

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel February 2010