Do callbacks work ? - i tried to compile something with this in it (was
in windows example):
(ffi:defcallback (wndproc-proxy :stdcall)
:int ((hnd :pointer-void) (umsg :unsigned-int)
(wparam :unsigned-int) (lparam :int))
(let* ((wndproc 'a))
(unless wndproc
(error "Cannot find a registered Windows prodecure for object ~S" hnd))
(print "HI")))
and received the below.
;;; Warning:
;;; in file test.lisp, position 0
;;; at (DEFCALLBACK (WNDPROC-PROXY STDCALL) ...)
;;; ! The variable LPARAM is not used.
;;; Warning:
;;; in file test.lisp, position 0
;;; at (DEFCALLBACK (WNDPROC-PROXY STDCALL) ...)
;;; ! The variable WPARAM is not used.
;;; Warning:
;;; in file test.lisp, position 0
;;; at (DEFCALLBACK (WNDPROC-PROXY STDCALL) ...)
;;; ! The variable UMSG is not used.
;;; End of Pass 1.
;;; Note:
;;; Refusing to propagate C-INLINE
;;; Emitting code for WNDPROC-PROXY.
;;; Warning:
;;; ! Object found in array but not used
;;; a
;;; Note:
;;; Invoking external command:
;;; gcc "-I/usr/local/include/" -D_GNU_SOURCE -D_FILE_OFFSET_BITS=64
-g -O2 -fPIC -Dlinux -O2 -w -c "/home/seth/.repo/test.c" -o
"/home/seth/.repo/test.o"
In file included from /home/seth/.repo/test.c:6:
/home/seth/.repo/test.h:42: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or
‘__attribute__’ before ‘ecl_callback_0’
/home/seth/.repo/test.c:25: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or
‘__attribute__’ before ‘ecl_callback_0’
/home/seth/.repo/test.c: In function ‘init_fas_CODE’:
/home/seth/.repo/test.c:69: error: ‘ecl_callback_0’ undeclared (first
use in this function)
/home/seth/.repo/test.c:69: error: (Each undeclared identifier is
reported only once
/home/seth/.repo/test.c:69: error: for each function it appears in.)
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
