NextPrevUpTopContentsIndex

:lisp-array

FLI type descriptor
Summary

A foreign type which passes the address of a Lisp array direct to C.

Package

fli

Syntax

:lisp-array &optional type

Arguments

type

A list. The default is nil .

Description

:lisp-array is a foreign type which accepts a Lisp array and passes a pointer to the first element of that array. The Lisp array may be non-simple.

It is vital that the garbage collector does not move the Lisp array, hence :lisp-array checks that the array is statically allocated.

Note also that the Lisp garbage collector does not know about the array in the C code. Therefore, if the C function retains a pointer to the array, then you must ensure the Lisp object is not collected, for example by retaining a pointer to it in Lisp.

The argument type , if non- nil , is a list ( element-type &rest dimensions ) and is used to check the element type and dimensions of the Lisp array passed.

Example

This C function fills an array of doubles from an array of single floats.

Windows version:

__declspec(dllexport) void __cdecl ProcessFloats(int count, float * fvec, double * dvec)
{
 for(--count ; count >= 0 ; count--) {
   dvec[count] = fvec[count] * fvec[count];
  }
}

Linux/Unix/Macintosh version:

void ProcessFloats(int count, float * fvec, double * dvec)
{
 for(--count ; count >= 0 ; count--) {
   dvec[count] = fvec[count] * fvec[count];
  }
}

The following Lisp code demonstrates the use of :lisp-array in a call to ProcessFloats :

(fli:define-foreign-function (process-floats 
                              "ProcessFloats")
    ((count :int)
     (fvec :lisp-array)
     (dvec :lisp-array)))
 
(defun test-process-floats (length)
  (let ((f-vector 
         (sys:in-static-area
           (make-array length
                       :element-type 'single-float
                       :initial-contents 
                       (loop for x below
                             length
                             collect
                             (coerce x 'single-float)))))
        (d-vector 
         (sys:in-static-area
           (make-array length
                       :element-type 'double-float
                       :initial-element 0.0))))
    (process-floats length f-vector d-vector)
    (dotimes (x length)
      (format t "f-vector[~D] = ~A; d-vector[~D] = ~A~%"
              x (aref f-vector x)
              x (aref d-vector x)))))

Now

(test-process-floats 3)

prints

single-array[0] = 0.0; double-array[0] = 0.0
single-array[1] = 1.0; double-array[1] = 1.0
single-array[2] = 2.0; double-array[2] = 4.0
See also

:lisp-simple-1d-array
with-dynamic-lisp-array-pointer


LispWorks Foreign Language Interface User Guide and Reference Manual - 27 Mar 2005

NextPrevUpTopContentsIndex