if ( ! g_module_supported() ) g_error("gtkNode requires working gmodule");
if ( ! g_module_supported() ) g_critical("gtkNode requires working gmodule");
static gboolean get_fpointer(char *cmd, ei_x_buff *xbuf, gpointer* poi) {  extern GModule* gmod;    if ( ! g_module_supported() ) g_error("gtkNode requires working gmodule");    if ( ! gmod ) gmod = g_module_open(NULL,0); /* "gtkNode_gtk.so" */    g_module_symbol(gmod, cmd, poi);  if ( ! poi ) {    g_warning("could not find '%s'.", cmd);    gn_enc_2_error(xbuf, "no_such_function");    ei_x_encode_atom(xbuf, cmd);    return FALSE;  }  return TRUE;}