cffi-devel May 2007

cffi-devel@common-lisp.net

17 participants
16 discussions

[cffi-devel] [PATCH] emulating LONG-LONG on ECL
by Stelian Ionescu 20 Jul '07

20 Jul '07

Attached there is a patch made against the main branch(not the newtypes one) which adds :UNSIGNED-LONG-LONG and :LONG-LONG to ECL; to be more specific: 1) it adds a new feature: CFFI:EMULATED-LONG-LONG(not sure this is a good name - see the callbacks issue below) 2) it calculates at compile time the machine endianess and pushes a new feature, either :LITTLE-ENDIAN or :BIG-ENDIAN 3) %MEM-REF and %MEM-SET are renamed to %NATIVE-MEM-REF and %NATIVE-MEM-SET while the new %MEM-REF and %MEM-SET dispatch on the effective type using CANONICALIZE-FOREIGN-TYPE(which is forward-referenced but it should be ok) 4) it adds compiler macros for %NATIVE-MEM-REF and %NATIVE-MEM-SET this patch passes the DEREF.*LONG-LONG memory tests(which I ran manually since ECL seems to have some problems in running the tests) two are the problems I've encountered: 1) callbacks don't work since actually ECL doesn't have LONG-LONG. this can be "fixed" by stating in the docs that on platforms where LONG-LONG is emulated callback simply don't work. 2) although possibly not related to CFFI, when loading IOLIB-POSIX I got this: NIL is not of type REAL. Broken at CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION. IOLIB-POSIX>> :backtrace Backtrace: CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION > eval I'll investigate further this issue. -- (sign :name "Stelian Ionescu" :aka "fe[nl]ix" :quote "Quidquid latine dictum sit, altum videtur.")

3 4

[cffi-devel] setf in with-foreign-slots cannot work with LispWorks 5.0 (64bit Linux)
by Chun Tian (binghe) 06 Jun '07

06 Jun '07

Hi, CFFI Developers I'm using CFFI in my LispWorks 5.0.2 Enterprise Edition (64bit Linux). I found follow code can not compile: (in-package :cffi) (defcstruct c-type (c-long :long)) (defvar a (foreign-alloc 'c-type)) (with-foreign-slots ((c-long) a c-type) (setf c-long 0)) ;;; Compiling file /home/binghe/src/lisp/cffi-test.lisp ... ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on ; (TOP-LEVEL-FORM 1) ; (TOP-LEVEL-FORM 2) ; (TOP-LEVEL-FORM 3) ; (TOP-LEVEL-FORM 4) ; (DEFVAR CFFI::A) **++++ Error in (TOP-LEVEL-FORM 5): Type (SIGNED-BYTE 64) not supported by SYSTEM:TYPED-AREF. ; (TOP-LEVEL-FORM 6) ; *** 1 error detected, no fasl file produced. ;;; Compilation finished with 0 warnings, 1 error. Is it a bug? -- '()

2 4

[cffi-devel] "How would you like to have your ad on 2 Million Websites ?"
by Blog＠common-lisp.net 23 May '07

23 May '07

Discover the power of the Blog Blaster! Brandnew software revolutionizes the power of online advertising -never seen before!- BRAND NEW FOR MARCH 2007! How would you like 2 Million Sites linking to your ad ? Weblog or blog population is exploding around the world, resembling the growth of e-mail users in the 1990s. Post your ads where people read them! - What if you could place your ad on all these sites ? Right, that would mean you would have millions of sites linking to your ad - and my idea actually works. I have developed a software that automatically places your ad on millions of blogs. You will receive thousands of targeted hits to your website as Blog Blaster places your ad on blogs that match your ad's category. This method has never been released to the public before. Very few, if anyone has implemented this For full details please read the attached .html file Unsubscibe: Please read the attached .txt file

1 0

[cffi-devel] "How would you like to have your ad on 2 Million Websites ?"
by Blog＠common-lisp.net 23 May '07

23 May '07

1 0

[cffi-devel] Non-top level defcallback
by Tomas Melchior 23 May '07

23 May '07

Hi, What exactly is the current state of non-top level callbacks for CFFI? Something like: (let ((x 10)) (defcallback mycallback ....)) What platforms/implementations support this? The manual only says "some Lisps". Also, is there anything analogous to lambda for defcallback? regards, Tomas.

3 2

[cffi-devel] translate-from-foreign
by Luke Crook 22 May '07

22 May '07

I'm trying to use translate-from-foreign on an enum. The enum returns :RM-TRUE which I would like to convert to T, and :RM-FALSE and :RM-WHACKED which I would like to convert to NIL. But CFFI does not seem to support translate-from- foreign for types created with DEFCENUM. Is this observation correct? (defmethod translate-from-foreign (value (type (eql 'rm-enum))) (case value (1 t) ((-1 0) nil) (otherwise (cffi:foreign-enum-keyword 'rm-enum value)))) (cffi:defcenum #.(openrm-lispify "RMenum" 'enumname) (#.(openrm-lispify "RM_WHACKED" 'enumvalue :keyword) -1) (#.(openrm-lispify "RM_FALSE" 'enumvalue :keyword) 0) (#.(openrm-lispify "RM_TRUE" 'enumvalue :keyword) 1) (#.(openrm-lispify "RM_NATIVE_OPENGL" 'enumvalue :keyword) #x010) (#.(openrm-lispify "RM_MESA_OPENGL" 'enumvalue :keyword) #x011) (#.(openrm-lispify "RM_HARDWARE" 'enumvalue :keyword) #x020) (#.(openrm-lispify "RM_SOFTWARE" 'enumvalue :keyword) #x021) ... - Luke

3 2

[cffi-devel] defcenum values not evaluated
by Lawrence Nakamura 21 May '07

21 May '07

Hi cffi-devel, In the defcenum macro, the values don't seem to be evaluated. Is this behavior a bug or a feature? On clisp, [4]> (cffi:defcenum test (:a 1) (:b (* 2 2))) *** - The value of CFFI::VALUE should be of type INTEGER. The value is: (* 2 2) thanks, Lawrence Nakamura

3 2

[cffi-devel] with-foreign-objects change
by Frank Buss 18 May '07

18 May '07

Hi, I think in src/types.lisp the macro should be (defmacro with-foreign-objects (bindings &body body)... instead of (defmacro with-foreign-objects (bindings &rest body)... because this does the right indention of the body, when auto-formatting. Regards, Frank

1 0

[cffi-devel] foreign-alloc and structure size
by Tamas K Papp 17 May '07

17 May '07

How can I query the size of a structure (defined with defcstruct) for foreign-alloc? Tamas

2 1

[cffi-devel] passing a list of numbers to double *
by Tamas K Papp 17 May '07

17 May '07

Hi, I have a function that looks like this: void myfunction(const double *values, int num_values); that expects a C array of doubles along with its length. SWIG generated the CFFI interface (cffi:defcfun ("myfunction" myfunction) :void (values :pointer) (num_values :int)) Imagine that I have a list '(1d0 2d0 3d0). What is the easiest way to call this function with these values? I am reading the CFFI documentation, but could not find this, sorry if this is an obvious question, just please point me in the right direction. Thanks, Tamas

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel May 2007