Re: [Chicken-users] Calling out to C causing hang

[Chris Double]

On Tue, 08 Apr 2003 01:10, you wrote:
> Not exactly a problem, but you have to make ABSOLUTELY SURE
> that the do_event() (in your example) is a `foreign-callback-lambda[*]'.
> That's essential! `foreign-lambda*' is wrong.

I'm using wrappers generated from SWIG. Here's part of the swig interface:

--------------8<--------------
%module simplex
#{
#}

#include typemaps.i

extern void do_event(void* display);
--------------8<--------------

SWIG seems to generate a C file that describes everything. Here's the relevant 
portions for do_event:

static void simplex_wrap_do_event(int,C_word,C_word,C_word) C_noret;
static void simplex_wrap_do_event (int argc, C_word closure, C_word 
continuation, C_word scm1) {
    C_word resultobj;
    void *arg1 = (void *) 0 ;
    
    C_check_for_interrupt;
    C_trace("do-event");
    swig_convert_ptr(scm1,(void **) &arg1, 0, SWIG_POINTER_EXCEPTION);
    do_event(arg1);
    
    
    resultobj = C_SCHEME_UNDEFINED;
    
    C_kontinue (continuation, resultobj);
}

static void swig_init_helper (C_word continuation) {
   ...
    sym = C_intern (&a, 16, "simplex:do-event");
    C_mutate ((C_word*)sym+1, (*a=C_CLOSURE_TYPE|1,
         a[1]=(C_word)simplex_wrap_do_event, tmp=(C_word)a, a+=2, tmp));
 ...


How do I tell if this is doing the right thing?

Chris.