cffi-devel

cffi-devel@common-lisp.net

1113 discussions

[cffi-devel] CFFI ported to ABCL
by Luís Oliveira 14 Jun '09

14 Jun '09

Hello, I have ported CFFI to ABCL using the Java Native Access (JNA) library. This is a preliminary version that will have to be cleaned up and optimized, etc. Nevertheless, at this point it passes all of the relevant CFFI tests except one. Callbacks and shareable vectors are not implemented yet. The former seem to require functionality that is not yet present in ABCL, IIUC. If anyone is interested in playing with this port, I have uploaded a patch to <http://common-lisp.net/~loliveira/patches/cffi-abcl.diff>. It requires trivial-features 0.5. Cheers. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

1 0

[cffi-devel] CLISP (pointer-address nil) error
by Tobias Rautenkranz 12 Jun '09

12 Jun '09

Hi CLISP returns NIL as null pointer but: (cffi:pointer-address nil) gives an error. Thanks for fixing this. (see the patch below) diff -rN -u old-cffi/src/cffi-clisp.lisp new-cffi/src/cffi-clisp.lisp --- old-cffi/src/cffi-clisp.lisp 2009-06-11 21:43:09.816010652 +0200 +++ new-cffi/src/cffi-clisp.lisp 2009-06-11 21:43:09.860018215 +0200 @@ -140,7 +140,9 @@ (defun pointer-address (ptr) "Return the address pointed to by PTR." - (ffi:foreign-address-unsigned ptr)) + (if ptr + (ffi:foreign-address-unsigned ptr) + 0)) ;;;# Foreign Memory Allocation

2 1

[cffi-devel] New patches: 8-Jun-2009
by Luis Oliveira 09 Jun '09

09 Jun '09

Mon Jun 8 10:29:44 EDT 2009 Stelian Ionescu <sionescu(a)common-lisp.net> * Groveler: add support for float constants. The CONSTANT groveler form now takes an additional keyword argument TYPE, which defaults to INTEGER. In order to grovel floats, DOUBLE-FLOAT must be used. M ./grovel/grovel.lisp -5 +18 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-090608.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0

Re: [cffi-devel] stdcall callbacks on ClozureCL/win32
by Luís Oliveira 08 Jun '09

08 Jun '09

On Sat, Jun 6, 2009 at 12:40 PM, Greg Santucci<thecodewitch(a)gmail.com> wrote: > When I run (rt:do-test 'cffi-tests::callbacks.stdcall.1), I get this > printed: > > CFFI-TESTS::CALLBACKS.STDCALL.1 > > and nothing more. That's good, it means the test passed. > When I try: > > (asdf:oos 'asdf:load-op :cffi-tests) > (asdf:oos 'asdf:test-op :cffi-tests) > > Clozure crashes to its kernel debugger. Can you get a backtrace? Hopefully one of the tests is triggering the same bug you're experiencing with GLUT which I suspect is unrelated to stdcall. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/

2 6

[cffi-devel] New patches: 4-Jun-2009
by Luis Oliveira 05 Jun '09

05 Jun '09

Thu Jun 4 09:05:25 EDT 2009 Luis Oliveira <loliveira(a)common-lisp.net> * cffi-tests.asd: use trivial-features. - Using #-windows instead of #-(or win32 mswindows) which didn't work on Clozure CL. M ./cffi-tests.asd -1 +4 Thu Jun 4 08:42:41 EDT 2009 Luis Oliveira <loliveira(a)common-lisp.net> * Add stdcall support for callbacks in Clozure CL. M ./src/cffi-openmcl.lisp -2 +3 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-090604.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0

[cffi-devel] stdcall callbacks on ClozureCL/win32
by Gary Byers 04 Jun '09

04 Jun '09

Hi. In the thread starting in: <http://common-lisp.net/pipermail/cl-opengl-devel/2009-June/000585.html> someone described problems running some CL-OPENGL GLUT examples in Clozure CL on Win32. I'm not sure if this is the only problem, but it seems that the most functions defined in the FreeGLUT library use the 'stdcall' calling convention (a "Pascal"-like calling sequence where the callee is responsible for discarding args from the stack, sometimes used on Win32 for no obvious reason besides backward compatibility ...) and it seems reasonable to assume that it expects user-defined functions that it calls to follow this convention as well. Because of implementation arcana, CCL doesn't really care whether a foreign function that it calls follows 'stdcall' or 'cdecl' conventions. The caller of a callback function (defined via CCL:DEFCALLBACK or the CFFI equivalent) may very well care, and the callback machinery has to be told which conventions to follow. A callback function that accepts two 'int' arguments and returns their sum as an 'int' would be defined in CCL as: (ccl:defcallback add-two-ints (:int x :int y :int) ;; The arglist declares X and Y to be C ints and that the function returns ;; a value of type 'int'. (+ x y)) That makes the value of ADD-TWO-INTS a foreign pointer to foreign-callable code that ultimately just adds a couple of signed 32-bit integers. By default, the glue code that handles the transition from C to lisp and back again when this function is called from foreign code assumes that pretty standard C calling conventions are being followed (all args are passed on the stack and left there when the callee returns, with a possible exception involving the invisible argument used to effect structure return.) If we wanted to define a callback that followed 'stdcall' conventions, we can do so by prepending the keyword :DISCARD-STACK-ARGS to the callback's argument list: (ccl:defcallback stdcall-add-two-ints (:discard-stack-args :int x :int y :int) ;; note that there's just a :DISCARD-STACK-ARGS keyword at the front of the ;; arglist, not a key/value pair (+ x y)) I'm fairly sure that the runtime effects of :DISCARD-STACK-ARGS will only occur on Win32 (e.g., that it's a no-op on other platforms). I'd assume that anyone who's: a) more familiar with CFFI than I am and b) less lazy than I am can add support for stdcall-style callbacks to CFFI's OpenMCL/CCL-backend code, and doing so might help to get things like CL-OPENGL working on CCL/win32. If anyone has any questions abou the CCL side of this, I'd be glad to try to answer them. It looks like CFFI is generally familiar with this cdecl/stdcall stuff and has the infrastructure in place to do the right thing, but the CCL backend just doesn't implement it.

2 1

[cffi-devel] Grovel float constants
by Liam Healy 04 Jun '09

04 Jun '09

I am trying to use cffi-grovel on GSL's physical constants. For example, in http://git.savannah.gnu.org/cgit/gsl.git/tree/const/gsl_const_mksa.h, these are defined: #define GSL_CONST_MKSA_SPEED_OF_LIGHT (2.99792458e8) /* m / s */ #define GSL_CONST_MKSA_GRAVITATIONAL_CONSTANT (6.673e-11) /* m^3 / kg s^2 */ When I try to define these using CFFI-grovel (constant (+mksa-speed-of-light+ "GSL_CONST_MKSA_SPEED_OF_LIGHT")) I end up with an integer, because the C definition is cast to an integer prior to generating the constant. Is there a way to get around this, so that I can grovel float constants? Thanks, Liam

2 4

[cffi-devel] New patches: 26-May-2009
by Luis Oliveira 27 May '09

27 May '09

Tue May 26 15:47:15 EDT 2009 Luis Oliveira <loliveira(a)common-lisp.net> * cffi-manual: fix code rot in the DEFCVAR example Reported by Tobias Rautenkranz. M ./doc/cffi-manual.texinfo -2 +2 Tue May 26 15:37:11 EDT 2009 Luis Oliveira <loliveira(a)common-lisp.net> * Fix bug in FOREIGN-FUNCALL. CFFI::PARSE-ARGS-AND-TYPES was inadvertently suppressing arguments with NIL values. E.g.: (foreign-funcall "foo" :foo a :bar nil :baz b :void) was compiled as (foreign-funcall "foo" :foo a :baz b :void). Reported by "D.I." M ./src/functions.lisp -6 +7 M ./src/package.lisp -1 +1 M ./tests/funcall.lisp +20 Tue May 26 15:09:29 EDT 2009 Luis Oliveira <loliveira(a)common-lisp.net> * Fix the FOREIGN-STRUCT-SLOT-SET compiler macro for aggregate slots. Reported by Andy Hefner. M ./src/types.lisp -2 +1 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-090526.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0

[cffi-devel] Manual: defcvar :read-only example
by Tobias Rautenkranz 26 May '09

26 May '09

Hi, The defcvar example: CFFI> (defcvar ("errno" +error-number+) :int :read-only t) in the manual should be: CFFi> (defcvar ("errno" +error-number+ :read-only t) :int)

2 1

[cffi-devel] NIL in foreign-funcall arglist
by D. I. 26 May '09

26 May '09

Hi there. Your current implementation of "parse-args-and-types" in src/function.lisp use destructuring clause in "loop" and tests the end(as i understood) of the arguments list by comparing second value with nil (defun parse-args-and-types (args) "Returns 4 values. Types, canonicalized types, args and return type." (let ((return-type :void)) (loop for (type arg) on args by #'cddr if arg collect type into types and collect (canonicalize-foreign-type type) into ctypes and collect arg into fargs else do (setf return-type type) finally (return (values types ctypes fargs return-type))))) but it also causes foreign-funcall to skip argument if it's value is NIL: (define-foreign-type ptr-type () () (:actual-type :pointer) (:simple-parser some-type)) (defmethod translate-to-foreign (val (type ptr-type)) (if (null val) (null-pointer) val)) (foreign-funcall "f" :uint x some-type nil :uint y :void) ==> (LET ((#:G13879 X)) (LET ((#:G13880 Y)) (CFFI-SYS:%FOREIGN-FUNCALL "f" (:UNSIGNED-INT #:G13879 :UNSIGNED-INT #:G13880 :VOID) :CALLING-CONVENTION :CDECL :LIBRARY :DEFAULT))) Shouldn't that function be written like this(for example)? (defun parse-args-and-types (args) "Returns 4 values. Types, canonicalized types, args and return type." (let* ((len (length args)) (return-type (if (oddp len) (car (last args)) :void))) (loop repeat (floor len 2) for (type arg) on args by #'cddr collect type into types collect (canonicalize-foreign-type type) into ctypes collect arg into fargs finally (return (values types ctypes fargs return-type))))) p.s. sorry for my bad english :)

2 1

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel