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

[cffi-devel] Passing struct by value, kind of
by Markus Flambard 27 Jul '08

27 Jul '08

Hello lispers! I know that CFFI doesn't support passing structs by value. What I'm wondering is, is it possible to squeeze in a small struct by instead passing it as an int (or something) of the same size as the struct? Example: struct MyStruct { int32 x, y; }; int myFunction(struct MyStruct s); Could I force/lie to CFFI and declare 's' to be of type int64 and pass it that way? I tried something similar, but then CFFI (well, ClozureCL) just couldn't resolve the function symbol.. -- Markus Flambard 6A63 2761 0A9E E510 DDAF C796 A3DF AB90 9C7C AD5C

2 2

[cffi-devel] New patches: 23-Jul-2008
by loliveira＠common-lisp.net 24 Jul '08

24 Jul '08

Wed Jul 23 00:47:29 EDT 2008 Stephen Compall <scompall(a)nocandysw.com> * Expand body only once for uffi:with-cstring. M ./uffi-compat/uffi-compat.lisp -7 +7 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-080723.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0

[cffi-devel] [PATCH] Expand body only once for uffi:with-cstring.
by Stephen Compall 23 Jul '08

23 Jul '08

Got an explosion in CLSQL-PostgreSQL with a uffi:with-cstrings expansion, as 7 strings makes 128 copies of the body. On the theory that the compiler can inline flets far easier than factor them, this patch puts the body in an flet and calls the resulting function from the two contexts `with-cstring' creates. -- a Mr. Fleming wishes to study bugs in smelly cheese; a Polish woman wishes to sift through tons of Central African ore to find minute quantities of a substance she says will glow in the dark; a Mr. Kepler wants to hear the songs the planets sing. --Carl Sagan, "The Demon-Haunted World"

2 1

[cffi-devel] Conflicting symbols problem on OpenMCL/CCL when loading CFFI
by Daniel Katz 02 Jul '08

02 Jul '08

Hi - I just tried to load the latest CFFI from darcs into CCL 1.2, and I got a symbol conflict between CCL:COPY-FILE and ALEXANDRIA.0.DEV:COPY- FILE: > CL-USER> (asdf:oos 'asdf:load-op :cffi) > ; loading system definition from /Users/dkatz/dev/lisp/libs/clbuild/ > systems/cffi.asd into #<Package "ASDF0"> > ; registering #<SYSTEM CFFI #x8754B3E> as CFFI > ; loading system definition from /Users/dkatz/dev/lisp/libs/clbuild/ > systems/babel.asd into #<Package "ASDF0"> > ; registering #<SYSTEM BABEL #x87910EE> as BABEL > ; loading system definition from /Users/dkatz/dev/lisp/libs/clbuild/ > systems/alexandria.asd into #<Package "ASDF0"> > ; registering #<SYSTEM :ALEXANDRIA #x87BA8B6> as ALEXANDRIA > ; loading system definition from /Users/dkatz/dev/lisp/libs/clbuild/ > systems/trivial-features.asd into #<Package "ASDF0"> > ; registering #<SYSTEM TRIVIAL-FEATURES #x86F53D6> as TRIVIAL-FEATURES > > Using #<Package "CCL"> in #<Package "CFFI-SYS"> > would cause name conflicts with symbols inherited by that package: > ALEXANDRIA.0.DEV:COPY-FILE COPY-FILE > > [Condition of type CCL::USE-PACKAGE-CONFLICT-ERROR] > > Restarts: > 0: [CONTINUE] Try again to use #<Package "CCL"> in #<Package "CFFI- > SYS"> > 1: [RESOLVE-BY-SHADOWING-IMPORT] SHADOWING-IMPORT one of each pair > of conflicting symbols. > 2: [RETRY-COMPILE-FILE] Retry compiling #P"/Users/dkatz/dev/lisp/ > libs/clbuild/source/cffi/src/cffi-openmcl.lisp" > 3: [SKIP-COMPILE-FILE] Skip compiling #P"/Users/dkatz/dev/lisp/ > libs/clbuild/source/cffi/src/cffi-openmcl.lisp" > 4: [RETRY] Retry performing #<COMPILE-OP NIL #x85D71C6> on #<CL- > SOURCE-FILE "cffi-openmcl" #x85C588E>. > 5: [ACCEPT] Continue, treating #<COMPILE-OP NIL #x85D71C6> on #<CL- > SOURCE-FILE "cffi-openmcl" #x85C588E> as having been successful. > 6: [ABORT] Return to SLIME's top level. > 7: [ABORT-BREAK] Reset this process > 8: [ABORT] Kill this process > > Backtrace: > 0: (CCL::USE-PACKAGE-1 #<Package "CFFI-SYS"> #<Package "CCL">) > 1: (USE-PACKAGE '("ALEXANDRIA" "CFFI-UTILS" "CCL" "COMMON-LISP") > #<Package "CFFI-SYS">) > 2: (CCL::%DEFINE-PACKAGE "CFFI-SYS" 'NIL 'NIL 'NIL 'NIL 'NIL > '("ALEXANDRIA" "CFFI-UTILS" "CCL" "COMMON-LISP") 'NIL 'NIL '("% > CALLBACK" "%DEFCALLBACK" "%FOREIGN-SYMBOL-POINTER" > "WITH-POINTER-TO-VECTOR-DATA" "MAKE-SHAREABLE-BYTE-VECTOR" > "NATIVE-NAMESTRING" "%CLOSE-FOREIGN-LIBRARY" > "%LOAD-FOREIGN-LIBRARY" "%FOREIGN-TYPE-SIZE" > "%FOREIGN-TYPE-ALIGNMENT" ...) 'NIL) When I look in the CFFI code, the problem seems to come from cffi-- openmcl.lisp where ALEXANDRIA and CCL are both being :use-d without any shadowing. As far as I can tell, there are no calls to either COPY-FILE function anywhere in the CFFI code, so it seems to me that choosing one of these functions to shadow the other should be a simple affair since it shouldn't matter at all which one is chosen.. Would it be possible to get this fixed? Thanks. Dan

2 2

[cffi-devel] Re: CFFI + Slime + std::cout
by Stephen Compall 28 Jun '08

28 Jun '08

The following message is a courtesy copy of an article that has been posted to comp.lang.lisp as well. Sohail Somani <sohail(a)taggedtype.net> writes: > How can I get Slime to relay the output (through std::cout) of a C++ > function called through CFFI through to the REPL? This is really a CFFI question, and you may wish to send further followups to the CFFI list instead. Create a C++ shared library with a few elements, then load and initialize it using CFFI: 1. A subclass of std::ostream that holds a void(*)(const char*) as an instance variable, forwarding all output received to that function. 2. A function like extern "C" void init_mylispcout (void (*writer) (const char*)); that replaces std::cout with an instance of #1. I forget whether C++ allows you to change std::cout. 3. A CFFI callback in Lisp to be passed to #2, that writes the output on some Lisp stream. 4. A CFFI defcfun on #2. -- But you know how reluctant paranormal phenomena are to reveal themselves when skeptics are present. --Robert Sheaffer, SkI 9/2003

1 0

[cffi-devel] strange behaviour of CFFI with LW on OS X
by Antoine Allombert 25 Jun '08

25 Jun '08

Hello everybody, I face a weird situation with LW and CFFI on OS X 10.4. When I evaluate the form : > (cffi:with-foreign-pointer (ptr 2) (setf (cffi:mem-ref ptr :int 0) 0) (setf (cffi:mem-ref ptr :int 1) 1) (let ((i 0)) (loop for i from 0 below 2 collect (cffi:mem-ref ptr :int i)))) The result is : (256 1) The first value of the pointer has been turned from 0 to 256. I tried other similar tests using explicit "foreign-alloc" with similar results. Note that in each case, the last modified place of the pointer keeps his right value while the value of the other places of the pointer are changed. I use the correct package. So I am wondering if it could be a problem in my system. Any idea or ptoposition welcome. Regards.

3 6

[cffi-devel] WITH-FOREIGN-STRING allocates on heap?
by Hans Hübner 20 Jun '08

20 Jun '08

Hi, is there a good reason why WITH-FOREIGN-STRING allocates the buffer on the heap instead of using WITH-FOREIGN-OBJECT, which will allocate on the stack on platforms that support it? Thanks, -Hans

5 5

[cffi-devel] Re: First usages of CFFI
by Marko Tapio Manninen 17 Jun '08

17 Jun '08

Thanks you for help. That made a trick. I managed to create a small server that responds well with cffi and libevent now. -Marko Stephen Compall kirjoitti 17.6.2008 kello 20.07: > Marko Tapio Manninen <mmstud(a)gmail.com> writes: > >> Thank you for comments. I have advanced with this (actually almost >> ready compared to my starting point), but still im getting an error, >> when server is running and i am trying to get response from it. > > Note the return type here: > >> (defcfun ("evhttp_send_reply" %evhttp-send-reply) :void >> (req evhttp-request) >> (flag :int) >> (msg :string) >> (buf evbuffer)) >> >> ;;; unwind-protect to create evbuffer-new??? >> >> (defcallback generic-handler :pointer ((req :pointer) (arg :pointer)) >> (let ((buf (%evbuffer-new))) >> (if (null buf) >> (format t "Failed to create response buffer") >> (progn >> (%evbuffer-add-printf buf "Requested: %sn" (%evhttp-request-uri >> req)) >> (%evhttp-send-reply req HTTP_OK "OK" buf))))) > > what you answer above from this callback, and what you declared the > return type of the callback to be. > > -- > But you know how reluctant paranormal phenomena are to reveal > themselves when skeptics are present. --Robert Sheaffer, SkI 9/2003

1 0

[cffi-devel] First usages of CFFI
by Marko Tapio Manninen 17 Jun '08

17 Jun '08

Hi, so far i have compiled some programs, that use CFFI, but now id like to create my own. As usual i counter my limits of knowledge and hope to find some answers here. I'm using libevent library (later doing same with libev), that has a simple event based server application, which i want to use from ccl / sbcl. I'll put two c functions first, and then some header information and finally some lisp code i have created. Im particularry interested getting some comments, how the work should be done. Yet there re two parts of the code, where i have stuck and they are: void evhttp_set_gencb(struct evhttp *http, void (*cb)(struct evhttp_request *, void *), void *cbarg) {} (defcfun ("evhttp_set_gencb" %evhttp-set-gencb) :void (http evhttp) ???) Actually same part occurs on evbuffer: void (*cb)(struct evbuffer *, size_t, size_t, void *); Regards, -Marko -------------------------------------------------------------------------------------------------------------------------------------- // ACTUAL APPLICATION void generic_handler(struct evhttp_request *req, void *arg) { struct evbuffer *buf; buf = evbuffer_new(); if (buf == NULL) err(1, "failed to create response buffer"); evbuffer_add_printf(buf, "Requested: %sn", evhttp_request_uri(req)); evhttp_send_reply(req, HTTP_OK, "OK", buf); } int main(int argc, char **argv) { struct evhttp *httpd; event_init(); httpd = evhttp_start("0.0.0.0", 5007); /* Set a callback for requests to "/specific". */ /* evhttp_set_cb(httpd, "/specific", another_handler, NULL); */ /* Set a callback for all other requests. */ evhttp_set_gencb(httpd, generic_handler, NULL); event_dispatch(); /* Not reached in this code as it is now. */ evhttp_free(httpd); return 0; } // SOME C CODE TO DEFINE #define HTTP_OK 200 struct evhttp; struct evhttp_request; struct evbuffer { u_char *buffer; u_char *orig_buffer; size_t misalign; size_t totallen; size_t off; void (*cb)(struct evbuffer *, size_t, size_t, void *); void *cbarg; }; struct event_base * event_init(void) {} struct evhttp * evhttp_start(const char *address, u_short port) {} void evhttp_free(struct evhttp* http) {} void evhttp_set_gencb(struct evhttp *http, void (*cb)(struct evhttp_request *, void *), void *cbarg) {} // LISP PART (cffi:define-foreign-library libevent (:darwin "libevent.dylib") (t (:default "libevent"))) (cffi:use-foreign-library libevent) (defconstant HTTP_OK 200) (defconstant HTTP_NOCONTENT 204) (defconstant HTTP_MOVEPERM 301) (defconstant HTTP_MOVETEMP 302) (defconstant HTTP_NOTMODIFIED 304) (defconstant HTTP_BADREQUEST 400) (defconstant HTTP_NOTFOUND 404) (defconstant HTTP_SERVUNAVAIL 503) (defctype size-t :unsigned-int) (defcstruct evbuffer (*buffer :unsigned-char) (*orig_buffer :unsigned-char) (misalign size-t) (totallen size-t) (off size-t) (*cb :pointer) ; struct? (*cbarg :pointer)) (defcstruct event-base) (defcstruct evhttp-request) (defcstruct evhttp) (defcfun ("evbuffer_new" %evbuffer-new) :pointer) (defcfun ("evbuffer_add_printf" %evbuffer-add-printf) :void (buf evbuffer) (msg :string) (uri :string)) (defcfun ("evhttp_request_uri" %evhttp-request-uri) :string (req evhttp-request)) (defcfun ("evhttp_send_reply" %evhttp-send-reply) :void (req evhttp-request) (flag :int) (msg :string) (buf evbuffer)) ;;; unwind-protect to create evbuffer-new? (defun generic-handler (req &optional (arg nil)) (let ((buf (%evbuffer-new))) (if (null buf) (error "Failed to create response buffer") (progn (%evbuffer-add-printf buf "Requested: %sn" (%evhttp-request-uri req)) (%evhttp-send-reply req HTTP_OK "OK" buf))))) (defcfun ("event_init" %event-init) :event-base) (defcfun ("evhttp_start" %evhttp-start) :evhttp (address :char) (port :unsigned-short)) (defcfun ("evhttp_set_gencb" %evhttp-set-gencb) :void (http evhttp) ???) (defcfun ("event_dispatch" %event-dispatch) :int) (defcfun ("evhttp_free" %evhttp-free) :void (http evhttp)) ;;; MAIN SERVER START UP FUNCTION ;(server "0.0.0.0" 5009) (defun server (host port) (%event-init) (let ((httpd %evhttp-start host port) (%evhttp-set-gencb httpd #'generic-handler nil) (%event-dispatch) (%evhttp-free httpd))))

2 1

[cffi-devel] New patches: 15-Jun-2008
by loliveira＠common-lisp.net 16 Jun '08

16 Jun '08

Sun Jun 15 20:06:10 EDT 2008 Luis Oliveira <loliveira(a)common-lisp.net> * tests/Makefile: deal with BSD systems properly Suggestion and initial patch courtesy of Josh Elsasser. ./tests/Makefile -> ./tests/GNUmakefile M ./cffi-tests.asd -4 +3 M ./tests/GNUmakefile -1 +1 A ./tests/Makefile An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-080615.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi-cffi;a=summary

1 0