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

[cffi-devel] [PATCH] Return proper clisp value.
by David Brown 14 Feb '08

14 Feb '08

Without this, with-pointer-to-vector-data always results in NIL, which isn't nearly as useful. New patches: [Return proper clisp value. David Brown <lisp(a)davidb.org>**20080210085127 with-pointer-to-vector-data wasn't returning the result of its BODY. ] { hunk ./src/cffi-clisp.lisp 240 - ,@body - ;; copy-out - (loop for i below ,size-var do - (setf (aref ,vector-var i) - (%mem-ref ,ptr-var :unsigned-char i))))))) + (unwind-protect + ,@body + ;; copy-out + (loop for i below ,size-var do + (setf (aref ,vector-var i) + (%mem-ref ,ptr-var :unsigned-char i)))))))) } Context: [cffi-openmcl: fix test for cffi-features:darwin Luis Oliveira <loliveira(a)common-lisp.net>**20071214010923 - Check for :darwin-target instead of :darwinppc-target. ] [Fix indentation in defctype* Luis Oliveira <loliveira(a)common-lisp.net>**20070901191050] [fix: missing eval-when tomi.borbely(a)gmail.com**20070625144550] [Don't discard DEFCFUN docstrings. Luis Oliveira <loliveira(a)common-lisp.net>**20070820131701 - Pass them to the underlying DEFUN or DEFMACRO. - Add tests. ] [Minor indentation fixes to cffi-allegro.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070816140803 - Also use (eval size) instead of checking for (integerp size) in the previous patch for Allegro 8.1 support. ] [Add AllegroCL 8.1 support masayuki.onjo(a)gmail.com**20070816035650] [Fix stdcall tests. Luis Oliveira <loliveira(a)common-lisp.net>**20070730205407] [Handle docstrings properly in DEFCFUN. Luis Oliveira <loliveira(a)common-lisp.net>**20070730060953 - DEFCFUN would complain when given a docstring but no argument list. - Add test. ] [Get rid of SBCL warnings in tests/foreign-globals.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070730022547] [Make libtest work with MSVC8 Luis Oliveira <loliveira(a)common-lisp.net>**20070727221628] [Remove tabs from cffi-ecl.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070719182543] [Slight change to :SIMPLE-PARSER's semantics Luis Oliveira <loliveira(a)common-lisp.net>**20070719182519] [cffi-uffi-compat: fix deref-pointer Luis Oliveira <loliveira(a)common-lisp.net>**20070620173741 Bug reported by Aurelio Bignoli. ] [New type alias: cffi:foreign-pointer Luis Oliveira <loliveira(a)common-lisp.net>**20070618141413 - foreign-pointer: deftyped to sb-sys:system-area-pointer, ccl:macptr, etc. - manual: document it. - new tests: pointerp.1 and pointerp.2. ] [manual: fix :pointer documentation Luis Oliveira <loliveira(a)common-lisp.net>**20070618141334] [Fix check-for-typedef-cycles Luis Oliveira <loliveira(a)common-lisp.net>**20070608015901 Patch courtesy of Douglas Crosher. ] [Check for possible cycles created with DEFCTYPE[*] Luis Oliveira <loliveira(a)common-lisp.net>**20070607201117 Bug reported by Attila Lendvai. ] [Export DEFINE-PARSE-METHOD Luis Oliveira <loliveira(a)common-lisp.net>**20070607005840 Bug reported by Chun Tian. ] [Add DEFCTYPE* for Verrazano. Luis Oliveira <loliveira(a)common-lisp.net>**20070605215554] [gmake, sparc/hppa and libraries.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070601035026 - cffi-tests.asd: use gmake on solaris too. - new cffi-features: sparc[64] and hppa[64], SCL-only. (updated the respective test) - libraries.lisp: handle ERROR instead of SIMPLE-ERROR. - tests/bindings.lisp: bugfix? Patch courtesy of Douglas Crosher. ] [with-foreign-objects: use &body instead of &rest Luis Oliveira <loliveira(a)common-lisp.net>**20070601034243 Reported by Frank Buss. ] [libraries.lisp: use *QUERY-IO* for the USE-VALUE restart Luis Oliveira <loliveira(a)common-lisp.net>**20070601034150] [New documentation example using defcstruct and :count Luis Oliveira <loliveira(a)common-lisp.net>**20070601033804] [Misc whitespace and reformating changes Luis Oliveira <loliveira(a)common-lisp.net>**20070601033709] [load-foreign-library-path: show useful error messages Luis Oliveira <loliveira(a)common-lisp.net>**20070601033126] [Unexported and undocumented array type and operators Luis Oliveira <loliveira(a)common-lisp.net>**20070416213326 Based on code by Vasilis M. <http://article.gmane.org/gmane.lisp.cffi.devel/283> ] [Add :class option to defcstruct Luis Oliveira <loliveira(a)common-lisp.net>**20070416205312] [fix conflict Luis Oliveira <loliveira(a)common-lisp.net>**20070415182619] [tests/Makefile: x86_64 changes Luis Oliveira <loliveira(a)common-lisp.net>**20070404060214] [New example: mapping.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070413141102] [manual: add new *foreign-library-directories* example Luis Oliveira <loliveira(a)common-lisp.net>**20070413135416] [Update status in cffi-scl.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070413134343] [Update comments in cffi-corman.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20070413134241] [New TODO item about multiple versions of the manual Luis Oliveira <loliveira(a)common-lisp.net>**20070413134202] [cffi-lispworks: don't pass NIL to register-module Luis Oliveira <loliveira(a)common-lisp.net>**20070329052606 Bug reported by Jack Unrue. ] [defctype and define-foreign-type: warn if type name is a keyword or CL symbol. Luis Oliveira <loliveira(a)common-lisp.net>**20070317001532] [Documentation update Luis Oliveira <loliveira(a)common-lisp.net>**20070222003330 - doc/Makefile: split spec and manual targets. - First documentation update reflecting the type system changes. Not complete yet. - Mention cffi-grovel. - Fix h4 margins in style.css. ] [Type system overhaul Luis Oliveira <loliveira(a)common-lisp.net>**20070219011856 The changes are summarized here: http://article.gmane.org/gmane.lisp.cffi.devel/1029 Also adapted tests and examples and uffi-compat. ] [New file: uffi-compat/uffi.asd Luis Oliveira <loliveira(a)common-lisp.net>**20070222005213] [Update TODO list Luis Oliveira <loliveira(a)common-lisp.net>**20070222004917 Removed some stuff that's already been implemented, etc... ] [Simplify load-foreign-library-error. Luis Oliveira <loliveira(a)common-lisp.net>**20070222000828] [Fix load-foreign-library bug Luis Oliveira <loliveira(a)common-lisp.net>**20070214195457 load-foreign-library wasn't accepting non-symbol library designators correctly. Bug reported by Stelian Ionescu. ] [Update documentation with stdcall/namespace/close-foreign-library changes Luis Oliveira <loliveira(a)common-lisp.net>**20070214144215] [Fix conflict Luis Oliveira <loliveira(a)common-lisp.net>**20070214132212] [Generate more meaningful errors for invalid enums Luis Oliveira <loliveira(a)common-lisp.net>**20070214125726 Reported by Lars Nostdal. ] [Remove finalizers. Users can use trivial-garbage instead. Luis Oliveira <loliveira(a)common-lisp.net>**20070214125318] [stdcall, namespaces, close-foreign-library Luis Oliveira <loliveira(a)common-lisp.net>**20070214124058 Three new features: - stdcall (defcfun, foreign-funcall(-pointer), defcallback) - namespaces, associate foreigns vars and functions to a specific library. (CLISP and Lispworks only) - close-foreign-library actually works now. Backwards incompatible changes: - define-foreign-library's syntax changed slightly, can't load more than one foreign library per define-foreign-library form anymore. - defcvar's syntax changed. - foreign-funcall can't funcall pointers anymore. Use foreign-funcall-pointer for that. ] [clisp: copy-in/out implementation of with-pointer-to-vector-data Luis Oliveira <loliveira(a)common-lisp.net>**20061220221141 Patch courtesy of Stelian Ionescu. ] [Correctly handle duplicate loading of libraries in CMUCL. Luis Oliveira <loliveira(a)common-lisp.net>**20061219194553 Patch courtesy of Stelian Ionescu. ] [Fix WITH-POINTER-TO-VECTOR-DATA on recent SBCLs Luis Oliveira <loliveira(a)common-lisp.net>**20061208085224 Patch courtesy of Stelian Ionescu. ] [Bugfixes for ECL/DFFI Luis Oliveira <loliveira(a)common-lisp.net>**20061203032620 Patch courtesy of Juan Jose Garcia-Ripoll. ] [Fix typo in strings.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20061117033535] [New function: CFFI-SYS:NATIVE-NAMESTRING Luis Oliveira <loliveira(a)common-lisp.net>**20061117033120 - Use it to load foreign libraries. Using plain CL:NAMESTRING was causing trouble with OpenMCL where (namestring #p"foo.bar.baz") returns "foo\\.bar.baz". ] [CMUCL: pick up new callback trampolines after loading core Luis Oliveira <loliveira(a)common-lisp.net>**20061117032832 Patch courtesy of Bart Botta. ] [Use ECL's RT. Luis Oliveira <loliveira(a)common-lisp.net>**20061013002817] [Add declarations to cffi-sbcl.lisp Luis Oliveira <loliveira(a)common-lisp.net>**20061012224706 Patch courtesy of Yaroslav Kavenchuk. ] [ECL port update Luis Oliveira <loliveira(a)common-lisp.net>**20061012220014 - Fixed the port to architectures without dynamical FFI. - Tests with too large number of arguments (> 34) are marked as expected to fail. Patch courtesy of Juan Jose Garcia-Ripoll. ] [bindings.lisp: load-directory Luis Oliveira <loliveira(a)common-lisp.net>**20060925141345 - 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. ] [Fixed typo in %callback Daniel Dickison <danieldickison(a)gmail.com>**20060912160327] [uffi-compat: implement missing macro DEF-POINTER-VAR Luis Oliveira <loliveira(a)common-lisp.net>**20060910015547 Reported by Ricardo Alves. ] [Forgot to increment the version number in the .asd file again. Luis Oliveira <loliveira(a)common-lisp.net>**20060908205602] [TAG 0.9.2 Luis Oliveira <loliveira(a)common-lisp.net>**20060908205321] Patch bundle hash: 1f0dea411e0b6b5d03a0b746d2f72a87d66243bb

2 1

[cffi-devel] Web manual out of date?
by Liam Healy 20 Jan '08

20 Jan '08

The CFFI manual online seems to be out of date. The syntax described at http://common-lisp.net/project/cffi/manual/html_node/defcvar.html#defcvar was changed nearly a year ago. Would it be possible to get updated HTML docs online? Liam

2 1

[cffi-devel] Re: Problem loading a library with cffi
by Luís Oliveira 15 Jan '08

15 Jan '08

On 15/01/2008, Mauricio Toro <mauriciotorob(a)gmail.com> wrote: > Error: Unable to load foreign library: > /home/mauriciotoro/Desktop/GECOL2/gecol20/glue.so > > This wrapper used CFFI. How can I get futher information about > why cannot load the foreign library? Unless you're using a very old version, CFFI should tell you why it failed to load the foreign library. Also, try loading that library with another Lisp, e.g. SBCL. If that doesn't help either, write a small C program that calls dlopen(). HTH -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

1 0

[cffi-devel] Bug: FF interface changed slightly in ACL 8.1
by "Marc Halbrügge" 15 Jan '08

15 Jan '08

Hi! cffi 0.9.2 doesn't work correctly with Allegro CL 8.1 There's at least one problem in with-foreign-pointer: ACL's with-stack-fobject wants keyword arguments since 8.1 http://www.franz.com/support/documentation/current/doc/operators/ff/with-st… solution: change line 140 in cffi-allegro.lisp from (ff:with-stack-fobject (,var :char :c ,size-var) to (ff:with-stack-fobject (,var :char :allocation :c :size ,size-var) There might be more problems, I'm just reporting the one that I stumbled upon today. Greetings Marc

2 4

[cffi-devel] DarcsWeb link didn't work
by Jonathan Johansen 08 Jan '08

08 Jan '08

Hi All, I got this error when I clicked on the DarcsWeb link in the digest email. Cheers, Jon

2 1

[cffi-devel] New patches: 6-Jan-2008
by loliveira＠common-lisp.net 07 Jan '08

07 Jan '08

Thu Dec 13 20:09:23 EST 2007 Luis Oliveira <loliveira(a)common-lisp.net> * cffi-openmcl: fix test for cffi-features:darwin - Check for :darwin-target instead of :darwinppc-target. M ./src/cffi-openmcl.lisp -4 +4 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-080106.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] clisp on windows
by Andy Chambers 08 Dec '07

08 Dec '07

Hi, I'm having some problems with cffi on clisp/windows. Some of the examples don't seem to work and I can't get the tests to run. If I load the cffi-examples system, (getenv "PATH") works fine but (sqrtf 4.0) throws a simple-undefined-function condition and (run-examples) crashes the running lisp. How long should the tests take to run? I did... make test-clisp ...and got the first few lines of output C:\Program Files\clisp-2.42\systems\cffi>make test-clisp ;; Loading file C:\home\.clisprc.lisp ... ;; Loading file C:\Program Files\clisp-2.42\asdf.lisp ... ;; Loaded file C:\Program Files\clisp-2.42\asdf.lisp ;; Loaded file C:\home\.clisprc.lisp ;; Loading file tests\run-tests.lisp ... ;;; -------- Running tests in CLISP -------- but then nothing for a couple of minutes Looking at cffi-tests.asd, I can't see how it would get past "run-cffi-tests". Any pointers? Cheers, Andy

2 1

[cffi-devel] Blast your ad to millions of blogs
by BlogBlaster＠common-lisp.net 05 Dec '07

05 Dec '07

1 0

[cffi-devel] How to pass foreign pointer to c function
by fungsin 05 Dec '07

05 Dec '07

I'm having problem figuring out how to pass a foreign static pointer to a c function using cffi. I use SWIG to generate binding for readline This is the meta keymap defined in keymap.h extern KEYMAP_ENTRY_ARRAY emacs_meta_keymap; which I need to pass as the second argument to extern int rl_bind_key_in_map PARAMS((int, rl_command_func_t *, Keymap)); In the example below, I can use rl_bind_key without any problem. (in-package :cl-user) (cffi:defcallback rl-magic-tab :int ((rep :int) (chord :int)) (rl::rl_insert 1 (char-code #\t)) (rl::rl_insert 1 (char-code #\a) (rl::rl_insert 1 (char-code #\b)))) CL-USER > (rl_initialize) CL-USER > (rl::rl_bind_key (char-code #\tab) (cffi:callback rl-magic-tab)) However, when I tried to pass rl::emacs_meta_keymap as is or via (cffi:convert- to-foreign rl::emacs_meta_keymap :pointer) as the 2nd argument to rl_bind_key_in_map I get exceptions (both in lispworks and clisp) CL-USER > (rl::rl_bind_key_in_map (char-code #\,) (cffi:callback rl-magic-tab) (cffi:convert-to-foreign rl::emacs_meta_keymap :pointer)) Error: Signal B [code 0] at B7FA6C90 {inside foreign code} eax 0 ; ebx B7FBB42C ; ecx 160 ; edx B7FBB9D4 esp BFADA9A4 ; ebp BFADA9AC ; esi 2004DC82 ; edi B7FBBDE0 1 (abort) Return to level 0. 2 Restart top-level loop. CL-USER > (rl::rl_bind_key_in_map (char-code #\,) (cffi:callback rl-magic-tab) rl::emacs_meta_keymap) Error: Signal B [code 0] at B7FA6C90 {inside foreign code} eax 0 ; ebx B7FBB42C ; ecx 160 ; edx B7FBB9D4 esp BFADA8F4 ; ebp BFADA8FC ; esi 2004DC82 ; edi 0 1 (abort) Return to level 0. 2 Restart top-level loop. If I wrap readline's rl_bind_key_in_map with a c function, then I can call it but it's cumbersome. #include <readline/keymaps.h> #include <readline/readline.h> extern int rl_bind_meta_key (int key, rl_command_func_t *func) { return rl_bind_key_in_map (key, func, emacs_meta_keymap); } (cffi:defcfun ("rl_bind_meta_key" rl_bind_meta_key) :int (arg0 :int) (arg1 :pointer)) CL-USER > (rl_bind_meta_key (char-code #\,) (cffi:callback rl-magic-tab)) Below is a portion of the cffi readline binding ;;SWIG example (in-package :rl) (cffi:defcfun ("rl_initialize" rl_initialize) :int) (cffi:defcfun ("readline" readline) :string (arg0 :string)) (cffi:defcfun ("rl_insert" rl_insert) :int (arg0 :int) (arg1 :int)) ;; extern int rl_bind_key PARAMS((int, rl_command_func_t *)); (cffi:defcfun ("rl_bind_key" rl_bind_key) :int (arg0 :int) (arg1 :pointer)) ;; extern KEYMAP_ENTRY_ARRAY emacs_standard_keymap, emacs_meta_keymap, emacs_ctlx_keymap; (cffi:defcvar ("emacs_meta_keymap" emacs_meta_keymap) :pointer) ;; extern int rl_bind_key_in_map PARAMS((int, rl_command_func_t *, Keymap)); (cffi:defcfun ("rl_bind_key_in_map" rl_bind_key_in_map) :int (arg0 :int) (arg1 :pointer) (arg2 :pointer)) Thanks fungsin

2 1

[cffi-devel] CFFI-USER: Dereferencing an address to a pointer array ... ?
by Frank Goenninger 17 Nov '07

17 Nov '07

Hi all: I have in C in a library: typedef struct __tsPMDevInfo { ... some slots in here; don't matter ... } tsPMDevInfo, *ptsPMDevInfoPtr; // ------------------------------------------------------------------------ // nFindPMs -- Find PM Devices on all available serials // ------------------------------------------------------------------------ - int nFindPMs( ptsPMDevInfoPtr **pppsPMDevInfoArray, int *pnNrPMsFound ) { int nRC = 0; ptsPMDevInfoPtr *ppsPMDevInfoArray = NULL; .... Here, memory gets allocated and ppsPMDevInfoArray points to an array of pointers to struct tsPMDevInfo ! if( pppsPMDevInfoArray != NULL ) *pppsPMDevInfoArray = ppsPMDevInfoArray; if( pnNrPMsFound != NULL ) *pnNrPMsFound = nNrPMs; if( nNrPMs > 0 ) nRC = PMIO_RC_OK; else nRC = PMIO_RC_NO_PM_FOUND; return nRC; } In Lisp-land I do (simplified): (defcfun ("nFindPMs" %nFindPMs) pmio-rc (ppsPMDevInfoPtr :pointer) (pnNrPMs :pointer)) (defun find-pms (ppsPMDevInfoPtr pnNrPMs) (%nFindPMs ppsPMDevInfoPtr pnNrPMs)) I do get a valid value for the nr of PMs back with (mem-ref pnNrPMs :int 0) But I am unable to get a valid foreign pointer back for ppsPMDevInfoPtr : (mem-ref ppsPMDebInfoPtr :pointer 0) always returns an invalid value (no valid memory address). So, the question is: How do I return a pointer to an array of pointers ? In C land everything is OK and the pointer array is valid: check via ppsPMDebInfoPtr[0] -> This is the pointer to a valid struct tsPMDevInfo. Thx for any pointers ;-) !!! Frank

1 1