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

[cffi-devel] running examples - errors?
by Surendra Singhi 15 Dec '05

15 Dec '05

Hello, I am having trouble running the cffi examples on clisp/allegrocl on windows xp. (cffi-luis-050925-2059) First of all do I need some dll or library to run the examples? The tar ball doesn't contain anything. When I load the file through slime I get the error FFI::FOREIGN-LIBRARY-FUNCTION: no dynamic object named "sqrtf" in library :DEFAULT but loading on the command line works fine. But if from the command line I execute, [3]> (cffi-examples:sqrtf 5) *** - FFI::FOREIGN-LIBRARY-FUNCTION: no dynamic object named "sqrtf" in library :DEFAULT The following restarts are available: USE-VALUE :R1 You may input a value to be used instead. ABORT :R2 ABORT Break 1 [4]> :R2 [6]> (cffi-examples:gettimeofday) *** - FFI::FOREIGN-LIBRARY-FUNCTION: no dynamic object named "gettimeofday" in library :DEFAULT The following restarts are available: USE-VALUE :R1 You may input a value to be used instead. ABORT :R2 ABORT Break 1 [7]> Only gethostname function seems to work. Thanks. -- Surendra Singhi http://www.public.asu.edu/~sksinghi/index.html "All animals are equal, but some animals are more equal than others." - Orwell, Animal Farm, 1945

3 6

[cffi-devel] patch for uffi-compat
by Yaroslav Kavenchuk 11 Dec '05

11 Dec '05

Sorry, but I do not see in mail-list my first message. This is double uffi 1.5.5 is out This patch add new function from it File uff-compat.diff ========================================== --- uffi-compat.lisp Fri Nov 4 12:12:12 2005 +++ uffi-compat.lisp Fri Nov 4 23:47:42 2005 @@ -91,6 +91,7 @@ ;; os #:run-shell-command + #:getenv )) (in-package #:cffi-uffi-compat) @@ -503,6 +504,35 @@ ;; Taken from UFFI's src/os.lisp ;; modified from function ASDF -- Copyright Dan Barlow and Contributors +(defun getenv (var) + "Return the value of the environment variable." + #+allegro (sys::getenv (string var)) + #+clisp (sys::getenv (string var)) + #+cmu (cdr (assoc (string var) ext:*environment-list* :test #'equalp + :key #'string)) + #+gcl (si:getenv (string var)) + #+lispworks (lw:environment-variable (string var)) + #+lucid (lcl:environment-variable (string var)) + #+mcl (ccl::getenv var) + #+sbcl (sb-ext:posix-getenv var) + #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl) + (error 'not-implemented :proc (list 'getenv var))) + +(defun (setf getenv) (val var) + "Set an environment variable." + #+allegro (setf (sys::getenv (string var)) (string val)) + #+clisp (setf (sys::getenv (string var)) (string val)) + #+cmu (let ((cell (assoc (string var) ext:*environment-list* :test #'equalp + :key #'string))) + (if cell + (setf (cdr cell) (string val)) + (push (cons (intern (string var) "KEYWORD") (string val)) ext:*environment-list*))) + #+gcl (si:setenv (string var) (string val)) + #+lispworks (setf (lw:environment-variable (string var)) (string val)) + #+lucid (setf (lcl:environment-variable (string var)) (string val)) + #-(or allegro clisp cmu gcl lispworks lucid) + (error 'not-implemented :proc (list '(setf getenv) var))) + (defun run-shell-command (control-string &rest args &key output) "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and synchronously execute the result using a Bourne-compatible shell, with

2 1

[cffi-devel] Re: [clisp-list] Re: clisp/win32 and (ffi::foreign-library :default)
by Rick Taube 27 Nov '05

27 Nov '05

> > Rick, can you send a testcase to CFFI mailing list perhaps along with > the results of running CFFI's testsuite? yes of course, ill get another crack at that windows machine later today or tomorrow. but im thinking that this may be due -- in whole or in part -- to a problem with the .dll itself because i couldnt load it into lispworks personal either. (the portmidi.dll was sent to me by someone with a c compiler on xp...) i also have a CFFI interface to MidiShare that works in clisp on osx, ill download the xp midshare distribution and try that too...

1 0

[cffi-devel] Type Translators and Callbacks
by James Bielman 15 Nov '05

15 Nov '05

Hi, I'm finally able to spend some time on CFFI again, so I've been trying to get caught up with the excellent progress Luis has made on the CFFI type system. I think I'm starting to understand how the new type translator stuff works, but I'm a little wary of the :TO-C translation as used from callbacks. For example: (defcallback return-a-string :string () "Returns a string allocated in Lisp to C." (format nil "Hello, ~D." 42)) As Luis's comment in the C code portion of the callback tests indicates, C code that calls this callback has no reliable way to deallocate the memory allocated implicitly by the type translator. The only way to deallocate it is from Lisp via FOREIGN-STRING-FREE. I think this is probably not too bad if we document it very clearly, but it worries me. Making type translators not apply to the return value of callbacks would remove the possibility for a non-obvious memory leak here. Another option might be a :malloced-string type with a :TO-C translator that explicitly malloc's the buffer---or just specify that FOREIGN-STRING-ALLOC always uses malloc, I suppose. Obviously that wouldn't apply to possibly stack-allocated strings allocated by WITH-FOREIGN-STRING... In any other situation, it'd probably be better to use a result-type of :POINTER. Thoughts? James

2 3

[cffi-devel] patch for uffi-compat
by Yaroslav Kavenchuk 15 Nov '05

15 Nov '05

uffi 1.5.5 is out This patch add new function from it File uff-compat.diff ========================================== --- uffi-compat.lisp Fri Nov 4 12:12:12 2005 +++ uffi-compat.lisp Fri Nov 4 23:47:42 2005 @@ -91,6 +91,7 @@ ;; os #:run-shell-command + #:getenv )) (in-package #:cffi-uffi-compat) @@ -503,6 +504,35 @@ ;; Taken from UFFI's src/os.lisp ;; modified from function ASDF -- Copyright Dan Barlow and Contributors +(defun getenv (var) + "Return the value of the environment variable." + #+allegro (sys::getenv (string var)) + #+clisp (sys::getenv (string var)) + #+cmu (cdr (assoc (string var) ext:*environment-list* :test #'equalp + :key #'string)) + #+gcl (si:getenv (string var)) + #+lispworks (lw:environment-variable (string var)) + #+lucid (lcl:environment-variable (string var)) + #+mcl (ccl::getenv var) + #+sbcl (sb-ext:posix-getenv var) + #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl) + (error 'not-implemented :proc (list 'getenv var))) + +(defun (setf getenv) (val var) + "Set an environment variable." + #+allegro (setf (sys::getenv (string var)) (string val)) + #+clisp (setf (sys::getenv (string var)) (string val)) + #+cmu (let ((cell (assoc (string var) ext:*environment-list* :test #'equalp + :key #'string))) + (if cell + (setf (cdr cell) (string val)) + (push (cons (intern (string var) "KEYWORD") (string val)) ext:*environment-list*))) + #+gcl (si:setenv (string var) (string val)) + #+lispworks (setf (lw:environment-variable (string var)) (string val)) + #+lucid (setf (lcl:environment-variable (string var)) (string val)) + #-(or allegro clisp cmu gcl lispworks lucid) + (error 'not-implemented :proc (list '(setf getenv) var))) + (defun run-shell-command (control-string &rest args &key output) "Interpolate ARGS into CONTROL-STRING as if by FORMAT, and synchronously execute the result using a Bourne-compatible shell, with

3 2

[cffi-devel] Recent changes: darwin/ppc32 alignment, etc..
by Luís Oliveira 14 Nov '05

14 Nov '05

Hello, So, the alignment in structures is now correctly calculated under darwin/ppc. I made every cffi-sys implementation push :darwin and :ppc32 into features in order to implement this "portably." I wonder if it would make sense to define a set of machine/os features that every cffi-sys implementation should push into *features* (if not present already) for the benefit of CFFI users. Ie. being able to say #+darwin instead of #+(or macos macosx darwin- target etc..). Changelog follows: Mon Nov 14 19:41:20 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * darwin/ppc32 ABI structure alignment - Normalize the different implementation features (:powerpc, :macos, :macosx32) into :ppc32 and :darwin. - Force Allegro, CLISP, Lispworks, SBCLto return 8 as :double's alignment on darwin/ppc32 - Correctly calculate alignments for darwin/ppc32's strange ABI. - New tests: STRUCT.ALIGNMENT.[567]. Fri Nov 4 23:21:43 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * Manual: OpenMCL fails FOREIGN-GLOBALS.SET.LONG-LONG Fri Nov 4 23:03:05 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * New test foreign-globals.set.long-long Fri Nov 4 20:28:43 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * Add missing information about SBCL on linux/ppc Fri Nov 4 20:05:31 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * Add information about linux/ppc to the manual. Fri Nov 4 12:16:05 WET 2005 Luis Oliveira <loliveira(a)common-lisp.net> * pointer-address was exported twice from cffi-uffi-compatt -- 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] uffi and CUSTOM:*FOREIGN-ENCODING* from clisp
by Yaroslav Kavenchuk 14 Nov '05

14 Nov '05

Pascal Bourguignon make patch http://sourceforge.net/mailarchive/forum.php?thread_id=8889229&forum_id=6767 I test it - it is work! :) Please, append it. Thanks! File strings.diff ========================================================= --- /src/strings.lisp Fri Oct 7 03:32:50 2005 +++ /src/strings.lisp Fri Nov 4 23:56:57 2005 @@ -33,6 +33,7 @@ ;;; and vice versa. Currently this is blithely ignorant of encoding ;;; and assumes characters can fit in 8 bits. +#-clisp (defun lisp-string-to-foreign (string ptr size) "Copy at most SIZE-1 characters from a Lisp STRING to PTR. The foreign string will be null-terminated." @@ -42,6 +43,7 @@ do (setf (%mem-ref ptr :unsigned-char (post-incf i)) (char-code char)) finally (setf (%mem-ref ptr :unsigned-char i) 0))) +#-clisp (defun foreign-string-to-lisp (ptr &optional (size most-positive-fixnum) (null-terminated-p t)) "Copy at most SIZE characters from PTR into a Lisp string. @@ -52,6 +54,41 @@ for code = (mem-ref ptr :unsigned-char i) until (and null-terminated-p (zerop code)) do (write-char (code-char code) s))))) + +#+clisp +(defun lisp-string-to-foreign (string ptr size) + "Copy at most SIZE-1 characters from a Lisp STRING to PTR. +The foreign string will be null-terminated." + (decf size) + (loop + :with bytes = (ext:convert-string-to-bytes string custom:*foreign-encoding*) + :with i = 0 + :for byte :across bytes + :while (< i size) + :do (setf (%mem-ref ptr :unsigned-char (post-incf i)) byte) + :finally (setf (%mem-ref ptr :unsigned-char i) 0))) + +#+clisp +(defun clength (ptr size) + (loop + :for i :from 0 :below size + :do (when (zerop (mem-ref ptr :unsigned-char i)) + (return-from clength i)) + :finally (return-from clength size))) + +#+clisp +(defun foreign-string-to-lisp (ptr &optional (size most-positive-fixnum) + (null-terminated-p t)) + "Copy at most SIZE characters from PTR into a Lisp string. +If PTR is a null pointer, returns nil." + (unless (null-ptr-p ptr) + (loop + :with clen = (if null-terminated-p (clength ptr size) size) + :with bytes = (make-array clen :element-type '(unsigned-byte 8)) + :for i fixnum from 0 below clen + :do (setf (aref bytes i) (mem-ref ptr :unsigned-char i)) + :finally (return (ext:convert-string-from-bytes bytes + custom:*foreign-encoding*))))) ;;;# Using Foreign Strings

2 1

[cffi-devel] uffi and CUSTOM:*FOREIGN-ENCODING* from clisp
by Yaroslav Kavenchuk 04 Nov '05

04 Nov '05

odbc return error message in UTF-8 encoding (may be) I get: *** - A database error occurred: NIL / HY000 *** - Character #\u00C4 cannot be represented in the character set CHARSET:CP866 And under emacs+slime: A database error occurred: NIL / HY000 [Microsoft][Äðàéâåð ODBC Microsoft Access] Óäàëåíèå èíäåêñà íåâîçìîæíî. Îí ÿâëÿåòñÿ òåêóùèì èíäåêñîì èëè èñïîëüçóåòñÿ äëÿ óñòàíîâëåíèÿ ñâÿçè. [Condition of type CLSQL-SYS:SQL-DATABASE-ERROR] (setf CUSTOM:*FOREIGN-ENCODING* CHARSET:UTF-8) not helped How correct it? Thanks! -- WBR, Yaroslav Kavenchuk.

2 2

[cffi-devel] uffi tests
by Yaroslav Kavenchuk 04 Nov '05

04 Nov '05

I have tried banish the test from the uffi-1.5.4 under win2k (most likely in it the reason of failure of several tests): 30 out of 65 total tests failed: :GETENV.1, :GETENV.2, :TIMEOFDAY.1, :TIME.3, :C-TEST.1, :C-TEST.2, :C-TEST.3, :C-TEST.4, :C-TEST.5, :C-TEST.6, :C-TEST.7, :C-TEST.8, :CAST.1, :CAST.2, :FVAR.1, :FVAR.2, :FVAR.3, :FVAR.4, :FVAR.5, :FVAR.6, :FVAR.7, :FVAR.8, :FVARST.1, :FVARST.2, :FVARST.3, :FVARST.4, :FVARST.5, UFFI-TESTS::FVARST.6, UFFI-TESTS::FVARST.7, UFFI-TESTS::FVARST.8. *** - test-op failed Thanks! -- WBR, Yaroslav Kavenchuk.

2 1

[cffi-devel] def-foreign-type and with-foreign-object
by Yaroslav Kavenchuk 04 Nov '05

04 Nov '05

odbc-ff-interface.lisp: (in-package #:odbc) (def-foreign-type sql-handle :pointer-void) ... odbc-api.lisp: ... (defun %new-db-connection-handle (henv) (with-foreign-object (phdbc 'sql-handle) (setf (deref-pointer phdbc sql-handle) +null-handle-ptr+) (with-error-handling (:henv henv) (SQLAllocHandle $SQL_HANDLE_DBC henv phdbc) (deref-pointer phdbc 'sql-handle)))) result: *** - ODBC::%NEW-DB-CONNECTION-HANDLE-1: symbol ODBC::SQL-HANDLE has no value [4]> (describe 'ODBC::SQL-HANDLE) ODBC::SQL-HANDLE is the symbol ODBC::SQL-HANDLE, lies in #<PACKAGE ODBC>, is accessible in 1 package ODBC. #<PACKAGE ODBC> is the package named ODBC. It imports the external symbols of 2 packages COMMON-LISP, CFFI-UFFI-COMPAT and exports 43 symbols to 1 package ODBC-DBI. [5]> (apropos "SQL-HANDLE" :ODBC) ODBC::SQL-HANDLE ODBC::SQL-HANDLE-PTR Thanks! -- WBR, Yaroslav Kavenchuk.

2 1