cffi-devel April 2006

cffi-devel@common-lisp.net

17 participants
19 discussions

[cffi-devel] Re: [Sbcl-devel] encoding of alien c-string once again
by Juho Snellman 22 May '06

22 May '06

[ CC:d to cffi-devel, in case the FFI experts have any opinions on external-format handling. ] Yaroslav Kavenchuk <kavenchuk(a)jenty.by> writes: > I have impudence to offer dear community patch for non-ascii encoding > of alien c-string once again. > > (Maybe me have forgotten? :) Thanks. There are some issues with this patch. * On non-windows platforms we need to naturalize a string to find out the default external format, and after this change we need to know the default external format to naturalize a string. But that's easy to fix. * Also, the patch can't be used stand-alone, since other SBCL internals (e.g. pathname handling) assume that a c-string alien type will be naturalized to a simple-base-string. What's the right thing to do here? Add a new alien-type that does the conversion, and leave c-string as-is, or change to change the behaviour of c-string? * I'm not sure that the interface is quite right. It seems probable that at one point or another somebody will need to use multiple external formats at once (ebcdic for pathnames and latin-1 for a database connection, or something). So we might need to be able to parametrize the external format to be used when defining the types. As a silly example: (define-alien-routine strdup (c-string :external-format :latin-1) (str (c-string :external-format :utf-8))) (Hmm... maybe using a keyword parameter for this is excessive, and an optional would do). James, Luis, would something like this be useful for CFFI? Would the proposed interface work for you? Any opinions on the c-string issue mentioned above? A patch implementing this functionality (including Yaroslav's work): http://jsnell.iki.fi/tmp/alien-again.diff -- Juho Snellman

4 4

[cffi-devel] CFFI and CLSQL
by Ricardo Boccato 04 May '06

04 May '06

Hi, I am trying to use CLSQL with CFFI and I bumped into an error while trying to connect to an Oracle 9i database. I am using clisp but the same error ocurred with allegro 7 (trial). Basically, issuing the command: (asdf:oos 'asdf:load-op :clsql-oracle) yields this at the debugger: APPLY: too few arguments given to #<compiled-function #:|150 152 (cffi:define-foreign-type uffi-char (base-type) ...)-10-1-1|> [Condition of type system::simple-program-error] I found out that making the following changes to the code seems to solve the problem... computador:~/lib/cffi$ darcs diff diff -rN old-cffi/uffi-compat/uffi-compat.lisp new-cffi/uffi-compat/uffi-compat.lisp 112,113c112,113 < (:char '(uffi-char :char)) < (:unsigned-char '(uffi-char :unsigned-char)) --- > (:char :char) > (:unsigned-char :unsigned-char) ...but since I am new to lisp (and to cffi...and to clsql...;-) I really have no idea of what I am doing. :-) Thanks very much. []s, Ricardo Boccato Alves.

2 1

[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 25 Apr '06

25 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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cffi-devel April 2006