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

[cffi-devel] How would you "CFFI define" this ?
by Frank Goenninger 19 Dec '10

19 Dec '10

Hi all! I have a more complex typedef: typedef struct amqp_frame_t_ { uint8_t frame_type; /* 0 means no event */ amqp_channel_t channel; union { amqp_method_t method; struct { uint16_t class_id; uint64_t body_size; void *decoded; amqp_bytes_t raw; } properties; amqp_bytes_t body_fragment; struct { uint8_t transport_high; uint8_t transport_low; uint8_t protocol_version_major; uint8_t protocol_version_minor; } protocol_header; } payload; } amqp_frame_t; I am struggling with the contained structs properties and payload ... How to define them??? Thanks for any hints! Regards Frank

2 2

[cffi-devel] Is the cffi darcs repo broken? [Dec 15 2010]
by Alfredo Di Napoli 15 Dec '10

15 Dec '10

Hi to everyone, How can I successfully install cffi through clbuild since the darcs repository is broken? Is there a way to install with clbuild by tarball or git? Bye, Alfredo

3 2

[cffi-devel] mapping for define
by pepone.onrez 15 Dec '10

15 Dec '10

Hi, I want to know what would be the correct approach for map C style flags #define IFF_UP 0x1 /* interface is up */ #define IFF_BROADCAST 0x2 /* broadcast address valid */ and how to use then later: struct ifaddrs* curr = ... if(curr->ifa_flags & IFF_UP){...} /*Especially what will be the equivalent lisp*/ Regards, Jose

4 4

[cffi-devel] getifaddrs loop
by pepone.onrez 13 Dec '10

13 Dec '10

Hi, I don't understand why my loop crashes, Here is my grovel definition for ifaddrs struct: (cstruct ifaddrs "struct ifaddrs" (next "ifa_next" :type :pointer) (name "ifa_name" :type :string) (flags "ifa_flags" :type :unsigned-int) (address "ifa_addr" :type :pointer) (netmask "ifa_netmask" :type :pointer) (broadcast "ifa_broadaddr" :type :pointer) (point-to-point-destination "ifa_dstaddr" :type :pointer) (data "ifa_data" :type :pointer)) Here is my loop, i was expecting next to be a null pointer after the first vmnet8 CL-USER> (cffi:with-foreign-object (p :pointer) (getifaddrs p) (do () ((cffi:null-pointer-p p)) (format t "Interface: ~a~%" (cffi:foreign-slot-value (cffi:mem-ref p :pointer) 'ifaddrs 'name)) (setf p (cffi:foreign-slot-value p 'ifaddrs 'next)))) Interface: lo Interface: sit0 Interface: eth0 Interface: wlan0 Interface: vmnet1 Interface: vmnet8 Interface: lo Interface: wlan0 Interface: vmnet1 Interface: vmnet8 Interface: lo Interface: wlan0 Interface: vmnet1 Interface: vmnet8 ; Evaluation aborted on #<SB-SYS:MEMORY-FAULT-ERROR {BF604E1}>. Regards, Jose

1 1

[cffi-devel] calling getifaddrs
by pepone.onrez 12 Dec '10

12 Dec '10

Hi, I'm new to CFFI and also to Common Lisp, i trying to use CFFI to call getifaddrs function. I have defined a cffi-grovel for ifaddrss struct (cstruct ifaddrs "struct ifaddrs" (next "ifa_next" :type :pointer) (name "ifa_name" :type :pointer) (flags "ifa_flags" :type :unsigned-int) (address "ifa_addr" :type :pointer) (netmask "ifa_netmask" :type :pointer) (broadcast "ifa_broadaddr" :type :pointer) (point-to-point-destination "ifa_dstaddr" :type :pointer) (data "ifa_data" :type :pointer)) In my package i define getifaddrs (cffi:defcfun "getifaddrs" :int "" (ifap :pointer)) I try to access the name slot of ifaddrs struct but nothing seems to work, not sure what i doing wrong (cffi:with-foreign-object (ifa 'ifaddrs) (ice-cffi:getifaddrs ifa) (cffi:foreign-string-to-lisp (cffi:foreign-slot-value ifa 'ifaddrs 'name))) 0: (SB-SYS:MEMORY-FAULT-ERROR) 1: ("foreign function: call_into_lisp") 2: ("foreign function: post_signal_tramp") 3: (CFFI::FOREIGN-STRING-LENGTH #.(SB-SYS:INT-SAP #X00000060) :ENCODING :UTF-8 :OFFSET 0) 4: (CFFI:FOREIGN-STRING-TO-LISP #.(SB-SYS:INT-SAP #X00000060) :OFFSET 0 :COUNT NIL :MAX-CHARS 536870908 :ENCODING NIL) (cffi:with-foreign-pointer (ifa (cffi:foreign-type-size :pointer)) (ice-cffi:getifaddrs ifa) (cffi:foreign-string-to-lisp (cffi:foreign-slot-value ifa 'ifaddrs 'name))) 0: ((LAMBDA (BABEL-ENCODINGS::SRC BABEL-ENCODINGS::START BABEL-ENCODINGS::END BABEL-ENCODINGS::DEST BABEL-ENCODINGS::D-START)) #.(SB-SYS:INT-SAP #X080819B8) 0 9 "^@^@^@^@^@^@^@^@^@" 0) 1: (CFFI:FOREIGN-STRING-TO-LISP #.(SB-SYS:INT-SAP #X080819B8) :OFFSET 0 :COUNT NIL :MAX-CHARS 536870908 :ENCODING NIL) any help will be appreciated. Jose

2 2

[cffi-devel] Lisp type for word size
by Tobias C Rittweiler 25 Oct '10

25 Oct '10

Does CFFI contain a Lisp type which represents the machine's word size? I guess it could be defined as (deftype word-size () `(unsigned-byte ,(* 8 (foreign-type-size :long)))) Are there any caveats? E.g. what about a 32bit Lisp implementation on a 64bit architecture? Perhaps the type should rather be defined in each backend. -T.

3 3

Re: [cffi-devel] [info-mcl] Digitool MCL support for CFFI (was Re: ? cffi)
by Chun Tian (binghe) 02 Oct '10

02 Oct '10

Forward some important words from James Anderson (as he's not member of CFFI mailing list ...) """ in a more serious tone, i had (and still have) no intention to use the call-back control path, (for zeromq, it's just the wrong thing to want to do) so i did not investigate whether the sketch i wrote does the right thing. if there is someone who could implement that from a position of knowledge, and otherwise pass a careful eye over the rest of it, then there would be something which purports to be complete. at that point, would make sense to ask of the cffi implementers, how (and whether) a mcl-specific dependency would be tolerable in the test environment, and use the bsd library to be able to run the test suite. """ Hope this works. --binghe 在 2010-10-2，16:52， james anderson 写道： > good morning; > > On 2010-10-02, at 07:21 , Chun Tian (binghe) wrote: > >> Hi, CFFI developers >> >> Digitool MCL was a old&famous Common Lisp implementation on PPC Mac OS. Recently it was ported into Intel Mac OS X by running in Rosetta (a PPC emulator by Apple). So there're people still using this platform even when Clozure CL is a better choice. >> >> Attach is two patches, one is a CFFI MCL support patch made by James Anderson, the other is a trivial patch for MCL support of trivial-features made by me. With these two patch, CFFI can now be loaded into Digitool MCL. >> >> This work seems work with James' own project which is based on CFFI. But CFFI-TESTS cannot run at this time, because ASDF:RUN-SHELL-COMMAND doesn't support MCL (I don't know how to fix this right now). > > there is a version of asdf:run-shell-command in the bsd module of de.setf.utilities (see www.github.com/lisp) which could be used for this purpose, but that would either add a dependency, so i didn't want to solve that part. > >> IOlib also cannot work in MCL because Gray Streams wasn't supported by MCL yet ... >> >> However, I hope CFFI maintainer could merge this patch and let other MCL users help improving exist work. >> >> Chun Tian (binghe)

1 0

[cffi-devel] offer of code contribution - with-array-as-foreign-pointer
by JTK 13 Sep '10

13 Sep '10

Hello, I'm using cffi, and I need to perform the common task of passing Lisp arrays to foreign code. This task comes up a lot in scientific code, matrix math, image processing, etc. Normally, it involves a lot of boilerplate to allocate a pointer, copy data Lisp to foreign memory, copy the data back, and deallocate the memory. Getting the copying to run fast can be tricky. Hence I wrote a package to automate it. It maintains a set of specialized copying functions to copy from array of Lisp type X to foreign memory of type Y. On SBCL, copying doesn't cons and is reasonably fast (~200 MB a second, there and back) I've put the package here: http://www.megaupload.com/?d=CX1XFMU6 Sorry for the megaupload, and its imposed delay, but I didn't want to spam the list with a 100K file. The package includes a MANUAL.txt and a test package. I'd be happy to have this included in a user contrib section of CFFI, if the maintainers think it would be useful. Here's an example the main macro does: (LET ((U (MAKE-ARRAY 100 :ELEMENT-TYPE 'SINGLE-FLOAT :INITIAL-ELEMENT 1.0))) ;; (WITH-ARRAY-AS-FOREIGN-POINTER (U PU :FLOAT ;; LISP-VAR POINTER-VAR CFFI-FOREIGN-TYPE :LISP-TYPE SINGLE-FLOAT ;; promise U is a single-float array :START 2 ;; begin at index 2 of of Lisp array :END 7 ;; last index used is 6 :COPY-TO-FOREIGN T ;; put contents of Lisp into foreign memory :COPY-FROM-FOREIGN T) ;; copy back from FFI space to lisp array ;; ;; at this point, PU is a foreign pointer containing data copied ;; from the array starting at element 1 and ending at 6, of type :FLOAT. (SOME-FOREIGN-FUNCTION PU)) ;; ;; at end, all foreign memory is deallocated, and U has been copied ;; back from foreign space, but the 0th element of U is untouched ;; because START was 1, not 0 ) -John

4 13

[cffi-devel] more flexible name translation
by Greg Pfeil 06 Sep '10

06 Sep '10

Here's a patch that makes name translation between lisp and foreign names more flexible. I often find that I'm using libraries that don't use underscore_separated_names, and rather than always doing (defcfun (some-fun "someFun") ...) I end up doing local hacks so I can just define the translation rules once and only use the (symbol "string") style for exceptions. This patch makes those local hacks less hacky. It means in my wrapper, I can define methods on CFFI:LISP-NAME and CFFI:FOREIGN-NAME (as in http://github.com/sellout/CL-LLVM/blob/master/cffi.lisp) to create custom translations (specialized on the package, so other wrappers can use their own translations).

2 1

Re: [cffi-devel] uffi compatible library
by Gustavo 06 Sep '10

06 Sep '10

Those don't fail, but: UFFI-TESTS> (let ((native-string "test string")) (uffi:with-foreign-string (fs native-string) (ensure-char-character (deref-pointer fs :char)))) #\t UFFI-TESTS> (let ((native-string "test string")) (uffi:with-foreign-string (fs native-string) (deref-pointer fs :char))) 116 The latter would return #\t in uffi-compat. Em 22 de agosto de 2010 18:25, Luís Oliveira <luismbo(a)gmail.com> escreveu: 2010/8/10 Gustavo <gugamilare(a)gmail.com>: > > I found one inconsistency in uffi's documentation. Uffi's doc says that > > dereferencing types :char and :unsigned-char return characters where > > actually it returns integers (at least here). > > Does that mean these tests fail for you? > <http://git.b9.com/?p=uffi.git;a=blob;f=tests/objects.lisp> > > -- > Luís Oliveira > http://r42.eu/~luis/ <http://r42.eu/%7Eluis/> >

2 1