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

[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 22 Sep '07

22 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 20 Sep '07

20 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