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

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

18 Oct '07

1 0

[cffi-devel] How do I debug a memory fault?
by Liam Healy 17 Oct '07

17 Oct '07

I am using CFFI in SBCL on Debian GNU/Linux etch (amd64). I have had a great deal of success interfacing to the GNU scientific library (GSL). Usually, when I get a "memory fault" I quickly can see my mistake in defining the interface, and once fixed, the error goes away. I can't figure this one out however. The interface is: gsl_odeiv_step * gsl_odeiv_step_alloc (const gsl_odeiv_step_type * T, size_t dim) I attempt to call this with a predefined pointer, (describe *step-rk8pd*) #.(SB-SYS:INT-SAP #X2B31DAEB0328) is a SB-SYS:SYSTEM-AREA-POINTER. and I get a memory fault. What is the best way to debug this? Thanks for any tips. Liam (FOREIGN-FUNCALL "gsl_odeiv_step_alloc" :POINTER *step-rk8pd* :SIZE 2 :POINTER) memory fault [Condition of type SB-KERNEL::MEMORY-FAULT-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {100385EF71}>) Backtrace: 0: (SB-KERNEL::MEMORY-FAULT-ERROR) 1: ("foreign function: call_into_lisp") 2: ("foreign function: post_signal_tramp") 3: ("foreign function: gsl_odeiv_step_alloc") 4: (SB-INT:EVAL-IN-LEXENV (FOREIGN-FUNCALL "gsl_odeiv_step_alloc" :POINTER *STEP-RK8PD* :SIZE 2 :POINTER) #<NULL-LEXENV>) 5: (SWANK::EVAL-REGION "(FOREIGN-FUNCALL \"gsl_odeiv_step_alloc\" :POINTER *step-rk8pd* :SIZE 2 :POINTER) " T)

3 4

[cffi-devel] Feed Blaster puts your ad right to the screens of millions in 15 Minutes !
by Feed＠common-lisp.net 14 Oct '07

14 Oct '07

1 0

[cffi-devel] Problems with structs
by Felip Alàez Nadal 13 Oct '07

13 Oct '07

Hello: I have a problem with cffi and I don't know if I'm doing something wrong or if It's a bug. I'm writting a ffi interface to a windowing kit. When testing It I became in problems. The windowing kit has a struct called Rect with the following definition: struct Rect { int x; int y; int width; int height; }; plus a functional interface to create Rect objects: Rect app_new_rect(int x , int y , int w , int h ) ; That function works well because I can run the examples of the toolkit and I see the windows. But when I create the cffi interface, I have problems. The cffi interface for app_new_rect is: (cffi:defcstruct Rect (x :int) (y :int) (width :int) (height :int)) (cffi:defcfun ("app_new_rect" app_new_rect) Rect (x :int) (y :int) (width :int) (height :int)) The problem is that when I use the Rect object that this function creates, I get segmentation faults. Ex: CL-USER> (setq r (app_new_rect 0 0 200 300 ) ) #.(SB-SYS:INT-SAP #X00000000) CL-USER> (with-foreign-slots ( (x y width height ) r Rect ) (list x y width height ) ) Unhandled memory fault at #x0. [Condition of type SB-SYS:MEMORY-FAULT-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {1002886941}>) Backtrace: 0: (SB-SYS:MEMORY-FAULT-ERROR) 1: (SB-SYS:MEMORY-FAULT-ERROR) 2: ("foreign function: call_into_lisp") 3: ("foreign function: post_signal_tramp") 4: (NIL) 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-FOREIGN-SLOTS ((X Y WIDTH HEIGHT) R RECT) (LIST X Y WIDTH HEIGHT)) #<NULL-LEXENV>) When I had that problem, I tried to write a Lisp-only function to create Rect objects , to not use app_new_rect at all. I wrote the next function: (defun rect ( x y width height ) (cffi:with-foreign-object ( ptr 'rect ) (setf (cffi:foreign-slot-value ptr 'rect 'x ) x ) (setf (cffi:foreign-slot-value ptr 'rect 'y ) y ) (setf (cffi:foreign-slot-value ptr 'rect 'width ) width ) (setf (cffi:foreign-slot-value ptr 'rect 'height ) height ) ptr ) ) But my surprise is that this doesn't set correctly the values of the slots. See the following output from slime: CL-USER> (setq my-little-rectangle (rect 0 0 200 300 ) ) ; in: LAMBDA NIL ; (SETQ MY-LITTLE-RECTANGLE (RECT 0 0 200 300)) ; ; caught WARNING: ; undefined variable: MY-LITTLE-RECTANGLE ; ; caught WARNING: ; This variable is undefined: ; MY-LITTLE-RECTANGLE ; ; compilation unit finished ; caught 2 WARNING conditions #.(SB-SYS:INT-SAP #X2ACC75E76FE8) CL-USER> (with-foreign-slots ( (x y width height ) my-little-rectangle Rect ) (list x y width height ) ) ; in: LAMBDA NIL ; (LET ((#:PTR2816 MY-LITTLE-RECTANGLE)) ; (SYMBOL-MACROLET ((X (FOREIGN-SLOT-VALUE #:PTR2816 'RECT 'X)) ; (Y (FOREIGN-SLOT-VALUE #:PTR2816 'RECT 'Y)) ; (WIDTH (FOREIGN-SLOT-VALUE #:PTR2816 'RECT 'WIDTH)) ; (HEIGHT (FOREIGN-SLOT-VALUE #:PTR2816 'RECT 'HEIGHT))) ; (LIST X Y WIDTH HEIGHT))) ; ; caught WARNING: ; undefined variable: MY-LITTLE-RECTANGLE ; ; caught WARNING: ; This variable is undefined: ; MY-LITTLE-RECTANGLE ; ; compilation unit finished ; caught 2 WARNING conditions (1192261452 0 785098 0) The output from the last input should be (0 0 200 300) but I get (1192261452 0 785098 0 ). As the Rect object is used for drawing, nothing works for me. Please, can anyone explain me what I'm doing wrong? I use an AMD64 on OpenSuse 10.1 x86_64, plus sbcl-1.0.9-x86_64 and cffi_0.9.2 . I've tested also the snapshot cffi-070901 and I get the same problem. Thank you. -- Felip Alàez Nadal

2 1

[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