void Scm_Init_gauche__izc(void)
{
ScmModule *mod;
/* Register this DSO to Gauche */
SCM_INIT_EXTENSION(izc);
/* Create the module if it doesn't exist yet. */
mod = SCM_MODULE(SCM_FIND_MODULE("izc", TRUE));
/* Create the foreign pointer class <mqueue-cpp>.
The flag SCM_FOREIGN_POINTER_KEEP_IDENTITY makes Gauche to keep
one-to-one mapping between the foreign object pointer (MQueue*)
and its wrapping ScmObj. With this flag, you can assume that
when mqueue_cleanup is called, no other ScmForeignPointer object
is pointing to the same MQueue*, thus you can delete it safely. */
CSintClass =
Scm_MakeForeignPointerClass(mod, "<csint>",
csint_print,
csint_cleanup,
SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
CSintArrayClass =
Scm_MakeForeignPointerClass(mod, "<csint-array>",
csint_array_print,
csint_array_cleanup,
SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
/* Register stub-generated procedures */
Scm_Init_izclib(mod);
}
ScmObj
Scm_Init_graphics_gd(void)
{
const char *module_name = "graphics.gd";
ScmModule *mod;
SCM_INIT_EXTENSION(graphics_gd);
mod = SCM_MODULE(SCM_FIND_MODULE(module_name, TRUE));
GraphicsGdImageClass =
Scm_MakeForeignPointerClass(mod, "<gd-image>",
NULL, graphicsGdImageCleanUp, SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
GraphicsGdFontClass =
Scm_MakeForeignPointerClass(mod, "<gd-font>",
NULL, graphicsGdFontCleanUp, SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
sym_destroyed = SCM_INTERN("destroyed?");
Scm_Init_graphics_gdlib(mod);
/* the following feature identifiers are available *after* loading. */
#ifdef GD_XPM
Scm_AddFeature("gauche.ext.graphics.gd.xpm", module_name);
#endif /* GD_XPM */
#ifdef GD_PNG
Scm_AddFeature("gauche.ext.graphics.gd.png", module_name);
#endif /* GD_PNG */
#ifdef GD_JPEG
Scm_AddFeature("gauche.ext.graphics.gd.jpeg", module_name);
#endif /* GD_JPEG */
#ifdef GD_GIF
Scm_AddFeature("gauche.ext.graphics.gd.gif", module_name);
#endif /* GD_GIF */
#ifdef GD_FREETYPE
Scm_AddFeature("gauche.ext.graphics.gd.freetype", module_name);
#endif /* GD_FREETYPE */
#ifdef GD_FONTCONFIG
Scm_AddFeature("gauche.ext.graphics.gd.fontconfig", module_name);
#endif /* GD_FONTCONFIG */
}
