[plt-scheme] Using a DLL with a extension (mzgtk2)

From: Hans Oesterholt-Dijkema (hdnews at gawab.com)
Date: Wed Jan 11 14:33:31 EST 2006

Fixed it.

adding

#ifdef CODEFRAGMENT_DYNAMIC_LOAD
#pragma export on
#endif

extern Scheme_Object *scheme_reload(Scheme_Env *env) {
    Scheme_Env *menv = 
scheme_primitive_module(scheme_intern_symbol("mzgtk2_init"), env);
    scheme_finish_primitive_module(menv);
    return scheme_void;
}

extern Scheme_Object *scheme_initialize(Scheme_Env *env) {
    return scheme_reload(env);
}

extern Scheme_Object *scheme_module_name(void) {
    return scheme_intern_symbol((char*)"mzgtk2_init");
}

#ifdef CODEFRAGMENT_DYNAMIC_LOAD
#pragma export off
#endif

into the shared library code.

solved my problems so far.

Best whishes,

Hans



Posted on the users mailing list.