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

[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] 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

[cffi-devel] How would You like to divert 1000s of fresh new visitors daily.
by Instant＠common-lisp.net 05 Nov '07

05 Nov '07

Can you afford to lose 300,000 potential customers per year ? How would You like to divert 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others At $0 cost to you...? ...iNSTANT BOOSTER diverts 1000s of fresh, new visitors daily to Your web site or affiliate web site from Google, Yahoo, MSN and others at $0 cost to you! ...No matter what you are selling or offering - INTSANT BOOSTER will pull in hordes of potential customers to your website - instantly! http://www.promote-busines.com/instantbooster/ http://www.promote-busines.com/remove/

1 0

[cffi-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 02 Nov '07

02 Nov '07

Feed Blaster puts your ad right to the screens of millions in 15 Minutes ! More and more people are subscribing to feeds every day and there are millions who are already subscribed. Thus, your ad will reach a very broad range of potential customers with each use of Feed Blaster! Feed Blaster is the first & only submitter that can submit your ads to thousands of feeds within a few minutes! Post your ads where people read them! - What if you could place your ad into all these feeds ? Right, that would mean you would have millions of sites linking to your ad - and millions of users reading your message within minutes - and my idea actually works. http://www.promote-bz.net/feedblaster/ Unsubscribe http://www.promote-bz.net/remove/

1 0