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

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

10 Mar '12

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). 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) 在 2010-9-28，06:41， james anderson 写道： > good morning; > > i have worked out enough of a cffi-mcl to be able to accomplish the immediate goal - to use the cl-zmq zeromq ffi binding.[1] > in case someone wants to carry it further, it's posted along with a mcl-compatible zmq version,[2] which eliminates un-ported dependencies. > > --- > [1] : http://repo.or.cz/w/cl-zmq.git > [2] : http://github.com/lisp/de.setf.zeromq > > On 2010-09-22, at 08:29 , Chun Tian (binghe) wrote: > >> I've read these documents. MCL 4.0's FFI seems based on the function "define-entry-point" which then depends on "ppc-ff-call", both of them are still available in MCL 5.x, and the related MCL source code is "lib/deftrap.lisp", which was last modified in 2005. >> >> However, I think "define-entry-point" is not the preferred way any more: >> >> ; Change log >> ; >> ; put back define-entry-point and things it depends on - though MCL doesn't use it users may >> ; ------ 5.2b2 >> >> I think CFFI people, if want to support MCL, should research "deftrap.lisp" and figure out the preferred way to do the work. But for me, a USOCKET maintainer, I'd like to use this interface directly to implement UDP networking, which was lack from OpenTransport. >> >> --binghe >> >> 在 2010-9-22，13:30， james anderson 写道： >> >>> there are two sources. >>> >>> if you go to ftp.clozure.com, you will find the 5.2 release and a copy of the documentation for 4.0. >>> i know of no revised documentation for 5.2. other than that, there is always the source. >>> i believe 5.2 has a very different calling mechanism then 4.0, as it uses a different os x facility to manage foreign libraries. >>> >>> the biggest '?' is turning off the gc for the dynamic extent of any foreign calls which pass lisp data. i do not know if that is possible in mcl, but it could be faked by moving the data to/from temporary external storage just to get it working. >>> two little question marks are the data type size calculations and the call-back protocol. >>> since the source is there, there's nothing stopping me from adapting the clozure-specific code to work in mcl. >>> i was just hoping to avoid having to wrap my head around those bits. >>> >>> >>> On 2010-09-22, at 04:45 , Chun Tian (binghe) wrote: >>> >>>> Never know how to do FFI in Digitool MCL ... Where can I find some API documents? >>>> >>>> --binghe >>>> >>>> 在 2010-9-22，05:36， james anderson 写道： >>>> >>>>> good morning; >>>>> >>>>> has anyone ported cffi to mcl? >>>>> >>>>> >>>>> _______________________________________________ >>>>> info-mcl mailing list >>>>> info-mcl(a)clozure.com >>>>> http://clozure.com/mailman/listinfo/info-mcl >>>> >>>> _______________________________________________ >>>> info-mcl mailing list >>>> info-mcl(a)clozure.com >>>> http://clozure.com/mailman/listinfo/info-mcl >>> >>> _______________________________________________ >>> info-mcl mailing list >>> info-mcl(a)clozure.com >>> http://clozure.com/mailman/listinfo/info-mcl >> >> _______________________________________________ >> info-mcl mailing list >> info-mcl(a)clozure.com >> http://clozure.com/mailman/listinfo/info-mcl > > _______________________________________________ > info-mcl mailing list > info-mcl(a)clozure.com > http://clozure.com/mailman/listinfo/info-mcl

2 3

[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