Embeddable Common-Lisp

Dynamic FFI

Written by jjgarcia on 2005-10

ECL's unstable version (in CVS) now contains means both to call C functions and to export functions to the C world (callbacks). Furthermore, this project, initiated by M. Goffioul, has led to an implementation that, at least on the Intel platform, does not rely on the C compiler, but on assembler code generated run time. We hope to port this to the remaining architectures: PPC, Sparc, x86_64

If you want to test it, save the code below in a file called "example.lsp" and load it in the interpreter (if on x86/Windows,Linux,FreeBSD) or compile it and load it (if on other platforms).

The output should look as follows: the first column is the input value, the second and fourth column are the output of either a callback or a C function (in this case "sin"). Other columns are provided to compare accuracy of the result.

Value 1+ (cback) lisp sin(cfun) lisp

     0        1.0        1.0        0.0        0.0
     1        2.0        2.0 .841470985 0.84147096
     2        3.0        3.0 .909297427  0.9092974
     3        4.0        4.0 .141120008    0.14112
     4        5.0        5.0 -0.7568025 -0.7568025
     5        6.0        6.0 -.95892427 -0.9589243
     6        7.0        7.0 -0.2794155 -0.2794155
     7        8.0        8.0 .656986599  0.6569866
     8        9.0        9.0 .989358247 0.98935825
     9       10.0       10.0 .412118485  0.4121185

;; Notice that the following example will work on all platforms if compiled ;; as in ;; (COMPILE-FILE "example.lisp") ;; (LOAD-FILE "example") ;; ;; However, on the x86 platform (i.e. Intel running Linux, FreeBSD, Windows, ;; etc on 32 bit modes), this example also works when loaded from the ;; interpreter. In this case, assembly code is built at run-time and there ;; is no need to have a C compiler around. Ports to other architectures are ;; being developed and any kind of help is welcome. ;;

;; ;; This is a "callback", i.e. a function that can be called from the C world. ;; We can retreive a UFFI pointer to this function using #'FFI:CALLBACK, as ;; shown below. ;; (ffi:defcallback increment :double ((x :double)) (1+ x) )

;; ;; This is a foreign function, i.e. a C function that can be called from the ;; lisp world. Here we do not need to handle pointers: a lisp function called ;; C-SIN is created that does the job of translating arguments for us. The ;; syntax here is pure UFFI. ;; (ffi:def-function ("sin" C-sin) ((x :double)) :returning :double :module :default)

(format t "Value 1+ (cback) lisp sin(cfun) lisp ~%") (format t "=====================================================~%")

(dotimes (i 10) (format t "~10D ~10f ~10f ~10f ~10f~%" i (si::call-cfun (ffi:callback 'increment) :double '(:double) (list i)) (1+ i) (C-sin i) (sin i)))