cffi-devel

cffi-devel@common-lisp.net

1113 discussions

[cffi-devel] using cffi with db
by Patrick X 29 Apr '06

29 Apr '06

? I'm rather new to Foreign Functions can it be uses to call other C files like db.h or would it be better to load the libdb.so file. As what's the difference. -- (let ((x (get 'SBCL))) (eq x cl-user)) => true -------------------------------------------------- Suppressed minds have no *free-dome*

2 1

[cffi-devel] CFFI and GSL (spline function) help needed
by Heiko Schroeter 27 Apr '06

27 Apr '06

Hello, i want to use the GSL spline functionallity from within SBCL using the CFFI interface. So far i can do the "simple" functions returning pointers and/or values like the BESSEL function for example. Now i 'am trying to setup an interface for the spline function but cannot manage to handle the "gsl_interp_cpline" pointer in lisp correctly. I did copy the needed parts here for simplicity: /***************** gsl_types.h ************************/ <snip> # define GSL_VAR extern <snap> /***************** gsl_interp.h ***********************/ /* evaluation accelerator */ typedef struct { size_t cache; /* cache of index */ size_t miss_count; /* keep statistics */ size_t hit_count; } gsl_interp_accel; /* interpolation object type */ typedef struct { const char * name; unsigned int min_size; void * (*alloc) (size_t size); int (*init) (void *, const double xa[], const double ya[], size_t size); int (*eval) (const void *, const double xa[], const double ya[], size_t size, double x, gsl_interp_accel *, double * y); int (*eval_deriv) (const void *, const double xa[], const double ya[], size_t size, double x, gsl_interp_accel *, double * y_p); int (*eval_deriv2) (const void *, const double xa[], const double ya[], size_t size, double x, gsl_interp_accel *, double * y_pp); int (*eval_integ) (const void *, const double xa[], const double ya[], size_t size, gsl_interp_accel *, double a, double b, double * result); void (*free) (void *); } gsl_interp_type; /* general interpolation object */ typedef struct { const gsl_interp_type * type; double xmin; double xmax; size_t size; void * state; } gsl_interp; /* available types */ GSL_VAR const gsl_interp_type * gsl_interp_cspline; gsl_interp_accel * gsl_interp_accel_alloc(void); /********************** gsl_spline.h *********************************/ /* general interpolation object */ typedef struct { gsl_interp * interp; double * x; double * y; size_t size; } gsl_spline; gsl_spline * gsl_spline_alloc(const gsl_interp_type * T, size_t size); /********************* example.c **************************************/ <snip> gsl_interp_accel *acc = gsl_interp_accel_alloc (); gsl_spline *spline = gsl_spline_alloc (gsl_interp_cspline, 10); <snap> /*********************************************************************/ My lisp translation so far: (defpackage :cffi-user (:use :common-lisp :cffi)) (in-package :cffi-user) (pushnew #P"/usr/local/lib/" *foreign-library-directories* :test #'equal) (define-foreign-library libgslcblas (:unix (:or "libgslcblas.so.0.0.0" "libgslcblas.so.0")) (t (:default "libgslcblas"))) (use-foreign-library libgslcblas) (define-foreign-library libgsl (:unix (:or "libgsl.so.0.9.0" "libgsl.so.0")) (t (:default "libgsl"))) (use-foreign-library libgsl) ;;;; just to test the interface (defcfun "gsl_sf_bessel_J0" :double (x :double)) (format t "~A~%" (gsl-sf-bessel-J0 5d0)) ;;;; ok so far (defcfun "gsl_interp_accel_alloc" :void) (defparameter *gsl-int-acc-alloc* (gsl-interp-accel-alloc)) ;;;; looks ok so far (defctype gsl-cspline :pointer) <--- trouble (defcfun "gsl_spline_alloc" :pointer (ptr :pointer) (n :int)) (defparameter *gsl-spline-alloc* (gsl-spline-alloc gsl-cspline 10)) My problem is that i cannot set this typed struc pointer "gsl_interp_cpline" correctly. Memory allocation ? What is the "magic" trick here ? Heiko

2 2

[cffi-devel] `lambda-callback'
by Lars Rune Nøstdal 27 Apr '06

27 Apr '06

Hello cffi'ers, I've been using this lately: (defvar *lambda-callbacks* nil "TODO: Clean up later somehow?") (defmacro lambda-callback (return-type args &body body) (let ((name (read-from-string (symbol-name (gensym))))) `(progn (defcallback ,name ,return-type ,args ,@body) (push ',name *lambda-callbacks*) (callback ,name)))) ..maybe something like this could be included in cffi? :) -- mvh, Lars Rune Nøstdal http://lars.nostdal.org/

2 2

[cffi-devel] Cannot call function with char** arg
by Nikolai Nespor 26 Apr '06

26 Apr '06

Hi all, I'm trying to develop a CFFI binding for librrd, but I'm stuck right at the begining. The function signature I'm trying to call is int rrd_create(int, char **); My test C code look's like this #include <stdio.h> #include <stdlib.h> #include <string.h> #include <rrd.h> int main(int argc, char** argv) { char* c[6]; c[0] = "create"; c[1] = "test.rrd"; c[2] = "--step=300"; c[3] = "DS:a:GAUGE:600:U:U"; c[4] = "DS:b:GAUGE:600:U:U"; c[5] = "RRA:AVERAGE:0.5:1:300"; if (rrd_create(6, c) < 0) (void) fprintf(stderr, "librrd call failed: %s\n", rrd_get_error()); return (0); } Using SBCL 0.9.9 and CFFI 0.9.0 on x86 I came up with the following LISP code (after doing the necessary housekeeping to load librrd) (defvar *cmd* (list "test.rrd" "--step=300" "DS:a:GAUGE:600:U:U" "DS:b:GAUGE:600:U:U" "RRA:AVERAGE:0.5:1:300")) (cffi:defcfun "rrd_create" :int (argcount :int) (args :pointer)) (cffi:with-foreign-pointer (ptr (+ (reduce #'+ (map 'vector #'length *cmd*)) (length *cmd*) 6)) (cffi:lisp-string-to-foreign "dummy" ptr 6) ; librrd needs a dummy fst arg (let ((curptr (cffi:inc-pointer ptr 6))) (dolist (param *cmd*) (let ((size (1+ (length param)))) (cffi:lisp-string-to-foreign param curptr size) (setf curptr (cffi:inc-pointer curptr size))))) (rrd-create 6 ptr)) But I get this error memory fault [Condition of type SB-KERNEL::MEMORY-FAULT-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (SB-KERNEL::MEMORY-FAULT-ERROR) 1: ("foreign function: call_into_lisp") 2: ("foreign function: post_signal_tramp") 3: ("foreign function: getsubopt") 4: ("foreign function: getopt_long") 5: ("foreign function: rrd_create") 6: (RRD-CREATE 6 #.(SB-SYS:INT-SAP #X08269100)) 7: (NIL) 8: (SB-INT:EVAL-IN-LEXENV (CFFI-SYS:WITH-FOREIGN-POINTER (PTR (+ # # 6)) (CFFI:LISP-STRING-TO-FOREIGN "dummy" PTR 6) (LET (#) (DOLIST # #)) (RRD-CREATE 6 PTR)) #<NULL-LEXENV>) --more-- I tried various other ways but did not suceed and now I'm stuck. TIA Nikolai -- Ich verwalte sie. Ich zähle sie und zähle sie wieder. Das ist nicht leicht. Aber ich bin ein ernsthafter Mann. \\ ---> Antoine de Saint-Exupery, "Der kleine Prinz"

3 5

[cffi-devel] Help needed: Tcl/Tk via CFFI (OSX 10.4.6 Intel, AllegroCL)
by Frank Goenninger 26 Apr '06

26 Apr '06

Hi! Thanks for looking into this ... I want to call the functions Tcl_CreateInterp and Tcl_Eval from Lisp. So I defined the libs and the functions : CODE: (in-package :cl-user) (defpackage :org.gt.test.cffi-tcltk (:use #:common-lisp) (:nicknames :gt.cffi-tcltk) (:export #:test-it ;; test function )) (in-package #:org.gt.test.cffi-tcltk) (eval-when (:load-toplevel :compile-toplevel :execute) #+asdf (progn #-cffi (progn (asdf:operate 'asdf:load-op :cffi) (use-package :cffi)) ) ) (eval-when (:load-toplevel :execute) (progn (define-foreign-library Tcl (:darwin (:framework "Tcl"))) (define-foreign-library Tk (:darwin (:framework "Tk"))) ) ) (eval-when (:load-toplevel :compile :execute) (progn ;; See also: ;; http://aspn.activestate.com/ASPN/docs/ActiveTcl_/8.4/tcl/ TclLib/Eval.htm ;; Tcl_CreateInterp (defcfun ("Tcl_CreateInterp" %Tcl_CreateInterp) :pointer) (defun Tcl_CreateInterp () (%Tcl_CreateInterp)) ;; Tcl_EvalFile (defcfun ("Tcl_EvalFile" %Tcl_EvalFile) :int (interp :pointer) (filename-cstr :pointer)) (defun Tcl_EvalFile (interp filename) (with-foreign-pointer (filename-cstr (length filename) strlen) (setf (mem-ref filename-cstr :char (1- strlen)) 0) (lisp-string-to-foreign filename filename-cstr strlen) %Tcl_EvalFile interp filename-cstr)) ;; Tcl_Eval (defcfun ("Tcl_Eval" %Tcl_Eval) :int (interp :pointer) (script-cstr :pointer)) (defun Tcl_Eval (interp script) (with-foreign-pointer (script-cstr (length script) strlen) (setf (mem-ref script-cstr :char (1- strlen)) 0) (lisp-string-to-foreign script script-cstr strlen) %Tcl_Eval interp script-cstr)) ) ) --- Now, we should be able to call the functions as expected: CODE: ;; Initialization mgmt - required to avoid multiple library loads (defvar *initialized* nil) (defun set-initialized () (setq *initialized* t)) (defun reset-initialized () (setq *initialized* nil)) ;; Tcl/Tk functions: execute a file and execute a script (defun exec-file (filename) (unless *initialized* ;; Could be simplified (use-foreign-library Tcl) (use-foreign-library Tk) (set-initialized)) (let* ((tcl-interp (Tcl_CreateInterp)) (rc (Tcl_EvalFile tcl-interp filename))) (format t "~%Tcl_EvalFile returned ~D~%" rc))) (defun exec-script (script) (unless *initialized* ;; Could be simplified (use-foreign-library Tcl) (use-foreign-library Tk) (set-initialized)) (let* ((tcl-interp (Tcl_CreateInterp)) (rc (Tcl_Eval tcl-interp script))) (format t "~%Tcl_Eval returned ~D~%" rc))) ;; We test just the script here (defun test-it () (exec-script "puts \"Hi !\"")) ;; Hmmm - no output generated. Why ? --- When calling the test function with: CL-USER > (gt.cffi-tcltk:test-it) I do not see any output anywhere. I also see that the returned value is like an error value ... I am on OS X 10.4.6 (Intel) with CFFI latest tarball and AllegroCL8.0. Any help really appreciated !!! Cheers Frank

5 7

[cffi-devel] Re: clsql and clisp
by Luís Oliveira 26 Apr '06

26 Apr '06

On 2006-apr-26, at 13:47, Daniel Marcenac wrote: > I'm having the same kind of problems that you state in the > [cffi-devel] uffi-compat and clsql post on november 2005. > The information seem to be quite scarce on the net that's why I'm > writing directly to you. I've got the cffi-luis-051221-1051.tar.gz > file but I still have the same problem regarding foreign-library- > types... Try a more recent CFFI perhaps. Say, 0.9.1. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/ Equipa Portuguesa do Translation Project http://www.iro.umontreal.ca/translation/registry.cgi?team=pt

1 0

[cffi-devel] CFFI fails to load libs on 64bit machine
by Heiko Schroeter 26 Apr '06

26 Apr '06

Hello, i'am using the CFFI on 32-bit machines without any problem. Switching to a 64-bit platform breaks the loading of a lib. uname -a: Linux master 2.6.8-24-smp #1 SMP Wed Oct 6 09:16:23 UTC 2004 x86_64 x86_64 x86_64 GNU/Linux /etc/SuSE-release: SuSE Linux 9.2 (x86-64) VERSION = 9.2 sbcl: SBCL 0.9.11 library: libgslcblas.so.0 (libc6,x86-64) => /usr/lib/libgslcblas.so.0 libgslcblas.so (libc6,x86-64) => /usr/lib/libgslcblas.so libgsl.so.0 (libc6,x86-64) => /usr/lib/libgsl.so.0 libgsl.so (libc6,x86-64) => /usr/lib/libgsl.so ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; The small lisp prog: (defpackage :cffi-user (:use :common-lisp :cffi)) (in-package :cffi-user) (pushnew #P"/usr/local/lib/" *foreign-library-directories* :test #'equal) ; alternative 1 (define-foreign-library libgslcblas (:unix (:or "libgslcblas.so.0.0.0" "libgslcblas.so.0")) (t (:default "libgslcblas"))) ; alternative 2 (define-foreign-library libgslcblas (t (:default "libgslcblas"))) (use-foreign-library libgslcblas) <---the error happens here (define-foreign-library libgsl (:unix (:or "libgsl.so.0.9.0" "libgsl.so.0")) (t (:default "libgsl"))) (use-foreign-library libgsl) ;;;; (defcfun "gsl_sf_bessel_J0" :double (x :double)) (time (format t "~A~%" (gsl-sf-bessel-J0 5d0))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; END The error message: Unable to load foreign library: libgslcblas.so [Condition of type LOAD-FOREIGN-LIBRARY-ERROR] 0: (CFFI::HANDLE-LOAD-FOREIGN-LIBRARY-ERROR "libgslcblas.so" "Unable to load foreign library: ~A" "libgslcblas.so") It doesn't matter if i use alternative 1 or 2. Is it a general matter that CFFI cannot handle 64-bit libs ? Regards Heiko

2 4

[cffi-devel] cffi-tests build error on sbcl
by Yaroslav Kavenchuk 26 Apr '06

26 Apr '06

SBCL 0.9.11.34 ; compiling file "C:\\CL\\lib\\cffi\\tests\\misc-types.lisp" (written 14 APR 2006 11:59:12 PM): ; compiling (IN-PACKAGE #:CFFI-TESTS) ... ; compiling (DEFCFUN ("abs" ETRACKER-ABS) ...) ; ; caught ERROR: ; (during macroexpansion of (DEFCFUN ("abs" ETRACKER-ABS) ...)) ; There is no method on #<STANDARD-GENERIC-FUNCTION EXPAND-TO-FOREIGN (3)> with ; no qualifiers and specializers ; (#<BUILT-IN-CLASS T> #<SB-MOP:EQL-SPECIALIZER {BD32631}>). Is it bug in cffi-tests or in sbcl? (previous cffi-tests version build without errors) Thanks! -- WBR, Yaroslav Kavenchuk.

2 2

[cffi-devel] trouble loading libraries on debian
by hbabcockos1＠mac.com 25 Apr '06

25 Apr '06

Hello, I'm having trouble loading libraries using CFFI 0.9.0 on debian. Example: The test script: (defpackage #:test (:use #:common-lisp #:cffi)) (in-package #:test) (defun load-library () (define-foreign-library libc (t (:default "libc"))) (use-foreign-library libc) (format t "libc loaded~%")) (load-library) Gives: Unable to load foreign library: libc.so [Condition of type LOAD-FOREIGN-LIBRARY-ERROR] Restarts: 0: [RETRY] Try loading the foreign library again. 1: [USE-VALUE] Use another library instead. 2: [ABORT-REQUEST] Abort handling SLIME request. 3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B1BED31}>) Backtrace: 0: (CFFI::HANDLE-LOAD-FOREIGN-LIBRARY-ERROR "libc.so" "Unable to load foreign library: ~A" "libc.so") 1: (LOAD-FOREIGN-LIBRARY LIBC) 2: (LOAD-LIBRARY) 3: (SB-INT:EVAL-IN-LEXENV (LOAD-LIBRARY) #<NULL-LEXENV>) 4: (SWANK::EVAL-REGION "(load-library) " T) 5: ((LAMBDA NIL)) 6: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {B75B0C5}>) 7: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {B75B0C5}>) 8: (SB-INT:EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(load-library) ") #<NULL-LEXENV>) 9: ((LAMBDA NIL)) 10: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B75AA35}>) 11: ((LAMBDA NIL)) 12: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {A9F13C5}>) 13: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B75A8E5}>) 14: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B01AC89}> #<FUNCTION (LAMBDA NIL) {A9F13C5}>) 15: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {B01AC89}>) 16: ((LAMBDA NIL)) 17: ((LAMBDA NIL)) 18: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {B1DA0B5}>) 19: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B1DA0C5}>) 20: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {B01AC89}> #<CLOSURE (LAMBDA NIL) {B1DA0B5}>) 21: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {B1DA095}>) 22: ((LAMBDA NIL)) 23: ("foreign function: call_into_lisp") 24: ("foreign function: funcall0") 25: ("foreign function: new_thread_trampoline") 26: ("foreign function: #xB7FCECED") It is hard to imagine that it can't find the library so I'd guess it is some problem with the loader? dlopen? I'm using SBCL 0.9.11 & debian 2.6.15-1-686 #2 Mon Mar 6 15:27:08 UTC 2006 i686 GNU/Linux Suggestions? Thanks, -Hazen

3 3

[cffi-devel] New patches: 24-Apr-2006
by loliveira＠common-lisp.net 25 Apr '06

25 Apr '06

Mon Apr 24 13:36:20 EDT 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Make corman's finalizers thread-safe (hopefully) M ./src/cffi-corman.lisp -8 +16 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-060424.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel