December 2006 - cffi-devel - mailman3.common-lisp.net

[cffi-devel] WITH-POINTER-TO-VECTOR-DATA ?
by Luke Crook 19 Dec '06

19 Dec '06

I'm trying to optimize memory access to an SDL_Surface in the lispbuilder-sdl project. An SDL_Surface is basically a foreign array. Reading and writing individual pixels involves calling MEM-AREF to access an integer value at a specific offset in the SDL_Surface array. This is fine for individual pixel reads and writes but sub-optimal for a rotation function where there is a read and corresponding write for each pixel in the surface (For example a 320x240 resolution surface requires a total of 153,600 calls to MEM-AREF in order to perform a rotation.) Can I use WITH-POINTER-TO-VECTOR-DATA to somehow speed this up? Thanks, - Luke

2 1

[cffi-devel] something is wrong...
by Dmitri Hrapof 10 Dec '06

10 Dec '06

Hello! I'm trying to use libfreetype.so via CFFI. What I hacked up so far is located here: http://www.common-lisp.ru/cleft.asd http://www.common-lisp.ru/cleft.lisp The code like that works: (with-freetype lib (with-face lib (face "/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf") (docharmap (code face) (format t "~a " (code-char code))))) and prints out all glyphs in a font. However, the following doesn't do what I want: (with-freetype lib (with-face lib (face "/usr/share/fonts/truetype/ttf-bitstream-vera/Vera.ttf") (set-char-size face (* 16 64) (* 16 64) 300 300) (glyph-pixarray face (char-code #\a)))) It returns #2A() Looks like the whole bitmap structure is set to zeros. I think I'm following FreeType and CFFI tutorials closely and I can't explain what's wrong... Thank you for your help, Dmitri

1 1

[cffi-devel] New patches: 8-Dec-2006
by loliveira＠common-lisp.net 08 Dec '06

08 Dec '06

Fri Dec 8 03:52:24 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Fix WITH-POINTER-TO-VECTOR-DATA on recent SBCLs Patch courtesy of Stelian Ionescu. M ./src/cffi-sbcl.lisp -1 +1 Sat Dec 2 22:26:20 EST 2006 Luis Oliveira <loliveira(a)common-lisp.net> * Bugfixes for ECL/DFFI Patch courtesy of Juan Jose Garcia-Ripoll. M ./src/cffi-ecl.lisp -3 +5 An updated tarball of CFFI's source can be downloaded here: http://common-lisp.net/project/cffi/tarballs/cffi-061208.tar.gz Darcsweb URL: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cffi;a=summary

1 0

[cffi-devel] [PATCH] fix with-foreign-slots
by Stelian Ionescu 08 Dec '06

08 Dec '06

there's a problem with WITH-FOREIGN-SLOTS that shows up when a c-struct is defined in one package and used from another one. here's an example: (in-package :cl-user) (defpackage :internals (:use :cl :cffi)) (defpackage :mypackage (:use :cl :cffi)) (in-package :internals) (defcstruct foo (x :int)) (in-package :mypackage) (with-foreign-object (fooptr 'internals::foo) (with-foreign-slots ((x) fooptr internals::foo) x)) (with-foreign-slots ((x) fooptr internals::foo) x) gets expanded to (LET ((#:PTR2455 FOOPTR)) (SYMBOL-MACROLET ((X (FOREIGN-SLOT-VALUE #:PTR2455 'INTERNALS::FOO 'X))) X)) instead of (LET ((#:PTR2455 FOOPTR)) (SYMBOL-MACROLET ((X (FOREIGN-SLOT-VALUE #:PTR2455 'INTERNALS::FOO 'INTERNALS::X))) X)) ; ^^^^^^^^^^^ the attached patch fixes this -- (sign :name "Stelian Ionescu" :aka "fe[nl]ix" :quote "Quidquid latine dictum sit, altum sonatur.")

2 2

[cffi-devel] [PATCH] fix with-pointer-to-vector-data on sbcl
by Stelian Ionescu 08 Dec '06

08 Dec '06

I've attached a fix for WITH-POINTER-TO-VECTOR-DATA on recent SBCLs -- (sign :name "Stelian Ionescu" :aka "fe[nl]ix" :quote "Quidquid latine dictum sit, altum sonatur.")

2 1

[cffi-devel] Problems with ECL+CFFI
by Tomi Neste 08 Dec '06

08 Dec '06

I have run into some problems with the cffi-061116 tarball and cvs ECL. When trying to load the cffi-examples I get 'The variable CFFI-SYS::ARG-VALUES is unbound.' error. It looks like a typo(?) in cffi-ecl.lisp: PRODUCE-FUNCTION-POINTER-CALL. After fixing that the examples compile fine but trying any of the them gives errors like '"gethostname" is not of type SI:FOREIGN-DATA.' -------------------- T. Neste

3 3