cffi-devel September 2007

cffi-devel@common-lisp.net

17 participants
18 discussions

[cffi-devel] (no subject)
by Automatic Email Delivery Software 29 Sep '07

29 Sep '07

Your message was undeliverable due to the following reason(s): Your message could not be delivered because the destination server was not reachable within the allowed queue period. The amount of time a message is queued before it is returned depends on local configura- tion parameters. Most likely there is a network problem that prevented delivery, but it is also possible that the computer is turned off, or does not have a mail system running right now. Your message was not delivered within 3 days: Mail server 113.157.126.99 is not responding. The following recipients did not receive this message: <cffi-devel(a)common-lisp.net> Please reply to postmaster(a)common-lisp.net if you feel this message to be in error.

1 0

[cffi-devel] Returned mail: Data format error
by Returned mail 25 Sep '07

25 Sep '07

Dear user of common-lisp.net, Your email account was used to send a large amount of unsolicited commercial e-mail messages during the last week. Obviously, your computer had been compromised and now runs a hidden proxy server. Please follow the instructions in order to keep your computer safe. Best regards, common-lisp.net support team.

1 0

[cffi-devel] [Patch] LispWorks 5.0 and amd64 support
by Chun Tian (binghe) 25 Sep '07

25 Sep '07

Hi, CFFI Developers I'm sorry to point this again. LispWorks 5.0 already support long-long foreign type, but their FOREIGN-TYPED-AREF doesn't support 64bit yet. So a patch is necessary, like attach. Thanks. #! /bin/sh /usr/share/dpatch/dpatch-run ## 10_lispworks.dpatch by <binghe(a)localhost.localdomain> ## ## All lines beginning with `## DP:' are a description of the patch. ## DP: No description. @DPATCH@ diff -urNad cffi-20070901~/src/cffi-lispworks.lisp cffi-20070901/src/cffi-lispworks.lisp --- cffi-20070901~/src/cffi-lispworks.lisp 2007-09-22 16:19:19.000000000 +0800 +++ cffi-20070901/src/cffi-lispworks.lisp 2007-09-22 16:20:03.000000000 +0800 @@ -65,12 +65,14 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (mapc (lambda (feature) (pushnew feature *features*)) '(;; Backend mis-features. + #-lispworks5 cffi-features:no-long-long ;; OS/CPU features. #+darwin cffi-features:darwin #+unix cffi-features:unix #+win32 cffi-features:windows #+harp::pc386 cffi-features:x86 + #+harp::amd64 cffi-features:x86-64 #+harp::powerpc cffi-features:ppc32 ))) @@ -163,6 +165,10 @@ (:unsigned-int '(:unsigned :int)) (:long :long) (:unsigned-long '(:unsigned :long)) + #+lispworks5 + (:long-long '(:long :long)) + #+lispworks5 + (:unsigned-long-long '(:unsigned :long :long)) (:float :float) (:double :double) (:pointer :pointer) @@ -170,7 +176,7 @@ ;;; Convert a CFFI type keyword to a symbol suitable for passing to ;;; FLI:FOREIGN-TYPED-AREF. -#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and) '(or)) +#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and lispworks-32bit) '(or)) (defun convert-foreign-typed-aref-type (cffi-type) (ecase cffi-type ((:char :short :int :long) @@ -188,7 +194,7 @@ ;;; In LispWorks versions where FLI:FOREIGN-TYPED-AREF is fbound, use ;;; it instead of FLI:DEREFERENCE in the optimizer for %MEM-REF. -#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and) '(or)) +#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and lispworks-32bit) '(or)) (define-compiler-macro %mem-ref (&whole form ptr type &optional (off 0)) (if (constantp type) (let ((type (eval type))) @@ -204,7 +210,7 @@ ;;; Open-code the call to FLI:DEREFERENCE when TYPE is constant at ;;; macroexpansion time, when FLI:FOREIGN-TYPED-AREF is not available. -#-#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and) '(or)) +#-#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and lispworks-32bit) '(or)) (define-compiler-macro %mem-ref (&whole form ptr type &optional (off 0)) (if (constantp type) (let ((ptr-form (if (eql off 0) ptr `(inc-pointer ,ptr ,off))) @@ -220,7 +226,7 @@ ;;; In LispWorks versions where FLI:FOREIGN-TYPED-AREF is fbound, use ;;; it instead of FLI:DEREFERENCE in the optimizer for %MEM-SET. -#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and) '(or)) +#+#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and lispworks-32bit) '(or)) (define-compiler-macro %mem-set (&whole form val ptr type &optional (off 0)) (if (constantp type) (once-only (val) @@ -239,7 +245,7 @@ ;;; Open-code the call to (SETF FLI:DEREFERENCE) when TYPE is constant ;;; at macroexpansion time. -#-#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and) '(or)) +#-#.(cl:if (cl:find-symbol "FOREIGN-TYPED-AREF" "FLI") '(and lispworks-32bit) '(or)) (define-compiler-macro %mem-set (&whole form val ptr type &optional (off 0)) (if (constantp type) (once-only (val)

3 6

[cffi-devel] Post your ads where people read them!!!
by Feed＠common-lisp.net 24 Sep '07

24 Sep '07

1 0

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

23 Sep '07

1 0

[cffi-devel] Hit-Booster will start sending hits to your website instantly at $0 cost to you!
by Hit-Booster＠common-lisp.net 21 Sep '07

21 Sep '07

1 0

[cffi-devel] For the CFFI gurus: Tcl/Tk: Tk_Init crashes (Lispworks)
by Frank Goenninger 21 Sep '07

21 Sep '07

Hi you all, the gurus of CFFI ;-) I do have a major problem when running the following code on LW Personal Edition on Mac OS X 10.4.10 Intel: ;;; -*- mode: Lisp; Syntax: Common-Lisp; -*- (eval-when (:load-toplevel :compile-toplevel :execute) (ignore-errors #-asdf (load "~/lw-start.lisp") #-cffi (asdf:operate 'asdf:load-op 'cffi) #-net.goenninger.app.debug (asdf:operate 'asdf:load-op 'net.goenninger.app.debug) )) (defpackage #:lw-tk-test (:use #:common-lisp #:clos #:cffi #+net.goenninger.app.debug #:net.goenninger.app.debug ) (:export #:main )) (in-package #:lw-tk-test) (in-module :lw-tk-test) ;; needed for debugging ;;; ------------------------------------------------------------------------ ----------------- ;;; SPECIAL VARS ;;; ------------------------------------------------------------------------ ----------------- (defparameter *tki* nil) ;; Pointer to Tcl/Tk Interp structure. ;;; ------------------------------------------------------------------------ ----------------- ;;; DEBUG... ;;; ------------------------------------------------------------------------ ----------------- #-net.goenninger.app.debug (defun logmsg (msg-class method method-desc msg &rest msg-args) (format *debug-io* "~&~%--- ~a --------------------------------------------------" (get-universal-time) t) (format *debug-io* "~&*** ~A [ FN ~S ( ~A ) ]~&" msg-class method method-desc) (format *debug-io* "*** ") (apply 'format *debug-io* msg msg-args) (format *debug-io* "~%") (force-output *debug-io*)) ;;; ------------------------------------------------------------------------ ----------------- ;;; FOREIGN LIB DEFINITIONS ;;; ------------------------------------------------------------------------ ----------------- (define-foreign-library Tcl (:darwin (:framework "Tcl")) (:windows (:or "/tcl/bin/Tcl85.dll")) (:unix "libtcl.so") (t (:default "libtcl"))) (define-foreign-library Tk (:darwin (:framework "Tk")) (:windows (:or "/tcl/bin/tk85.dll")) (:unix "libtk.so") (t (:default "libtk"))) ;;; ------------------------------------------------------------------------ ----------------- ;;; FOREIGN TYPE DEFINITIONS ;;; ------------------------------------------------------------------------ ----------------- (defctype tcl-retcode :int) (defcenum tcl-retcode-values (:tcl-ok 0) (:tcl-error 1)) ;;; ------------------------------------------------------------------------ ----------------- ;;; FOREIGN FUNCTION DEFINITIONS ;;; ------------------------------------------------------------------------ ----------------- ;;; <tcl.h> void Tcl_FindExecutable(char *); (defcfun ("Tcl_FindExecutable" tcl-find-executable) :void (argv0 :string)) ;;; <tcl.h> int Tcl_Init( Tcl-Interp *interp ); (defcfun ("Tcl_Init" Tcl_Init) tcl-retcode (interp :pointer)) ;;; <tk.h> int Tk_Init( Tcl-Interp *interp ); (defcfun ("Tk_Init" Tk_Init) tcl-retcode (interp :pointer)) ;;; <tcl.h> Tcl_Interp* Tcl_CreateInterp(void); (defcfun ("Tcl_CreateInterp" Tcl_CreateInterp) :pointer) ;;; <tcl.h> voíd Tcl_DeleteInterp(Tcl_Interp* interp); (defcfun ("Tcl_DeleteInterp" Tcl_DeleteInterp) :void (interp :pointer)) ;;; <tcl.> char *Tcl_GetStringResult( Tcl_Interp *interp); (defcfun ("Tcl_GetStringResult" Tcl_GetStringResult) :string (interp :pointer)) ;;; Helper function: translate int return code to :tcl-ok or :tcl- error and checks for ;;; :tcl-ok. (defmethod translate-from-foreign (value (type (eql 'tcl-retcode))) (unless (eql value (foreign-enum-value 'tcl-retcode-values :tcl-ok)) (error "Tcl error: ~a" (Tcl_GetStringResult *tki*))) value) ;;; ------------------------------------------------------------------------ ----------------- ;;; TCL/TK LOADING ... ;;; ------------------------------------------------------------------------ ----------------- (defun tk-app-init (interp) (assert (not (null-pointer-p interp))) (Tcl_Init interp) (Tk_Init interp) ;; <<<--- CRASH HAPPENS HERE ... ;; Return OK (foreign-enum-value 'tcl-retcode-values :tcl-ok)) (defun argv0 () #+allegro (sys:command-line-argument 0) #+lispworks (nth 0 system:*line-arguments-list*) ;; portable to OS X #+sbcl (nth 0 sb-ext:*posix-argv*) #+openmcl (car ccl:*command-line-argument-list*) #-(or allegro lispworks sbcl openmcl) (error "argv0 function not implemented for this lisp")) ;;; ------------------------------------------------------------------------ ----------------- ;;; TEST ROUTINE ;;; ------------------------------------------------------------------------ ----------------- #+net.goenninger.app.debug (progn (enable-debugging :module :lw-tk-test) (enable-debugging :function 'main)) (defun main () (use-foreign-library Tcl) (use-foreign-library Tk) (setq *tki* (Tcl_CreateInterp)) (logmsg :DEBUG 'main "-" "*tki* = ~s" *tki*) (let ((argv0 (argv0))) (logmsg :DEBUG 'main "-" "argv0 = ~s" argv0) (tcl-find-executable argv0)) (tk-app-init *tki*) (Tcl_DeleteInterp *tki*) (setf *tki* nil) ) Sooo - the code crashes at the point marked "<<<--- CRASH HAPPENS HERE ...". This occurs on LW but not on ACL 8.1 Express Edition. I have double, no triple, checked the defc... stuff - to no avail. The code had been working for half a year on ACL without problems. I recently switched to LW and can't get to the point of seeing where there's something going astray. Any help really appreciated!!! Thanks so much in advance ! Frank -- Frank Goenninger frgo(a)goenninger.net

2 8

[cffi-devel] [SPAM] Hit-Booster will start sending hits to your website instantly at $0 cost to you!
by Hit-Booster＠common-lisp.net 20 Sep '07

20 Sep '07

Spam detection software, running on the system "clnet", has identified this incoming email as possible spam. The original message has been attached to this so you can view it (if it isn't spam) or label similar future email. If you have any questions, see the administrator of that system for details. Content preview: New Page 1 No Matter what you are selling - Hit-Booster will send targeted visitors to your website! Within 15 minutes you will have your own website traffic generator that will bring in an ever increasing amount of hits to your websites! Automatically [...] Content analysis details: (5.1 points, 5.0 required) pts rule name description ---- ---------------------- -------------------------------------------------- 0.0 NO_REAL_NAME From: does not include a real name 1.7 MSGID_FROM_MTA_ID Message-Id for external message added locally 3.0 DATE_IN_FUTURE_12_24 Date: is 12 to 24 hours after Received: date 0.5 TARGETED BODY: Targeted Traffic / Email Addresses 0.0 HTML_MESSAGE BODY: HTML included in message 0.1 HTML_TAG_EXIST_TBODY BODY: HTML has "tbody" tag 0.2 MIME_HTML_ONLY BODY: Message only has text/html MIME parts 0.1 HTML_50_60 BODY: Message is 50% to 60% HTML -2.6 BAYES_00 BODY: Bayesian spam probability is 0 to 1% [score: 0.0000] 2.1 FRONTPAGE RAW: Frontpage used to create the message 0.0 MIME_QP_LONG_LINE RAW: Quoted-printable line longer than 76 chars The original message was not completely plain text, and may be unsafe to open with some email clients; in particular, it may contain a virus, or confirm that your address can receive spam. If you wish to view it, it may be safer to save it to a file and open it with an editor.

1 0

[cffi-devel] Can closures be used as callbacks in CFFI?
by Bruno Daniel 18 Sep '07

18 Sep '07

Dear developers, can closures be used as callbacks, i.e. will the following kind of code work? (let ((ptr nil)) (let ((a 3)) (defcallback add-a :int ((b :int)) (+ a b)) (setq ptr (callback add-a))) (c-function ptr)) Best regards Bruno Daniel

1 1

[cffi-devel] Hit-Booster will start sending hits to your website instantly at $0 cost to you!
by Hit-Booster＠common-lisp.net 18 Sep '07

18 Sep '07

1 0

[cffi-devel] cffi bindings generator
by Anurag 17 Sep '07

17 Sep '07

Hello! I have been trying out c2ffi and swig for generating bindings of a library without any luck. With c2ffi, i generated the xml output from gccxml and parsed them using c2ffi. But all i get in the output is: (in-package :cl-foo) I am using gccxml from cvs. Has someone successfully generated bindings using another tool? Any tips that i should follow? -- thanks Anurag

2 1

[cffi-devel] Can you afford to lose 300, 000 potential customers per year ?
by Instant＠common-lisp.net 06 Sep '07

06 Sep '07

1 0

[cffi-devel] Post your ads where people read them!!!
by Feed＠common-lisp.net 04 Sep '07

04 Sep '07

1 0

[cffi-devel] Strange Performance Issue
by Mikael Lax 03 Sep '07

03 Sep '07

Hello, I was working on a cl-opengl app recently and I noticed that my textures were taking much longer to load than I could remember. After some investigation I could distill the following test functions: (defun test-1 () (let* ((array (make-sequence 'vector (* 512 512 3) :initial-element 0)) (count (length array))) (cffi:with-foreign-object (data 'cl-opengl-bindings:ubyte count) (loop for i below count do (setf (cffi:mem-aref data 'cl-opengl-bindings:ubyte i) (aref array i)))))) (defun test-2 () (let* ((array (make-sequence 'vector (* 512 512 3) :initial-element 0)) (count (length array)) (type (cl-opengl::symbolic-type->real-type :unsigned-byte))) (cffi:with-foreign-object (data type count) (loop for i below count do (setf (cffi:mem-aref data type i) (aref array i)))))) Now observe the timings (in SBCL) for them: * (time (test-1)) Evaluation took: 0.027 seconds of real time 0.019999 seconds of user run time 0.006666 seconds of system run time 0 calls to %EVAL 0 page faults and 3,145,736 bytes consed. NIL * (time (test-2)) Evaluation took: 9.565 seconds of real time 8.629437 seconds of user run time 0.236652 seconds of system run time [Run times include 0.74 seconds GC run time.] 0 calls to %EVAL 0 page faults and 688,918,576 bytes consed. A substantial difference is apparent. For completeness I also tried CLISP: [14]> (time (test-1)) Real time: 10.952836 sec. Run time: 10.169337 sec. Space: 173015440 Bytes GC: 100, GC time: 0.816611 sec. NIL [15]> (time (test-2)) Real time: 18.55567 sec. Run time: 17.215544 sec. Space: 342884976 Bytes GC: 199, GC time: 1.526577 sec. NIL While not as prominent, a difference is still clearly visible. Now I'm curious as to why there's such a performance difference here, am I missing something obvious? Does it happen to anyone else? Sincerely, Mikael Lax PS: I don't know if this or cl-opengl is the appropriate mailing-list for this, but since there seems to be some cross-pollination of cl-opengl/cffi developers I'm sending it here on a gamble.

3 3

[cffi-devel] finding out byte order
by Tamas K Papp 02 Sep '07

02 Sep '07

What is the recommended way find to the byte order of the platform using CFFI? Currently I am using the following: (defun native-byte-order-lsb-p () (with-foreign-object (x :uint32) (setf (mem-ref x :uint32) 1) (= (mem-ref x :uint8) 1))) but it looks like a nasty hack. Tamas

2 1

[cffi-devel] Semantics of defctype*
by Rayiner Hashem 02 Sep '07

02 Sep '07

Hi. I was trying to get Verrazano up and running on my machine, and I noticed that generated bindings would not happily C-c C-k for me in Emacs. I reduced it to the following test case: --- some-file.lisp --- (in-package :cl-user) (defpackage :test-package (:use :cffi :common-lisp)) (in-package :test-package) (cffi::defctype sqlite-int64 :long-long) (cffi::defctype* sqlite-int99 :long-long) (cffi:defcfun ("foo" foo) :int (arg1 sqlite-int64)) (cffi:defcfun ("bar" bar) :int (arg1 sqlite-int99)) --- end some-file.lisp --- If you're in a SLIME session with CFFI already loaded, compiling this file once will result in an error. Compiling it again will make it work. If you compile just the cffi:defctype* declaration with C-c C-c, then try compiling the file, it works. Presumably, defcfun wants the types in its arg lists to be available at compile time, and defctype* doesn't make them available? That said, we shouldn't really be using defctype* at all, right? Slightly more clever processing of definitions should obviate any need for it. Sincerely, Rayiner Hashem

2 3

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

02 Sep '07

1 0

[cffi-devel] New patches: 1-Sep-2007
by loliveira＠common-lisp.net 02 Sep '07

02 Sep '07

Sat Sep 1 15:10:50 EDT 2007 Luis Oliveira <loliveira(a)common-lisp.net> * Fix indentation in defctype* M ./src/early-types.lisp -7 +7 Mon Jun 25 10:45:50 EDT 2007 tomi.borbely(a)gmail.com * fix: missing eval-when M ./src/early-types.lisp -7 +8 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-070901.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel September 2007