static ScmObj mutex_allocate(ScmClass *klass, ScmObj initargs)
{
ScmMutex *mutex = SCM_NEW_INSTANCE(ScmMutex, klass);
SCM_INTERNAL_MUTEX_INIT(mutex->mutex);
SCM_INTERNAL_COND_INIT(mutex->cv);
Scm_RegisterFinalizer(SCM_OBJ(mutex), mutex_finalize, NULL);
mutex->name = SCM_FALSE;
mutex->specific = SCM_UNDEFINED;
mutex->locked = FALSE;
mutex->owner = NULL;
mutex->locker_proc = mutex->unlocker_proc = SCM_FALSE;
return SCM_OBJ(mutex);
}
SCM_EXTENSION_ENTRY void Scm_Init_gauche__charconv(void)
{
SCM_INIT_EXTENSION(gauche__charconv);
ScmModule *mod = SCM_FIND_MODULE("gauche.charconv", SCM_FIND_MODULE_CREATE);
guess.procs = NULL;
(void)SCM_INTERNAL_MUTEX_INIT(guess.mutex);
#if defined(GAUCHE_CHAR_ENCODING_UTF_8)
ucsconv.ucs2char = ucsconv.char2ucs = NULL;
#elif defined(GAUCHE_CHAR_ENCODING_EUC_JP)
ucsconv.ucs2char = jconv_open("EUCJP", "UTF-8");
ucsconv.char2ucs = jconv_open("UTF-8", "EUCJP");
#elif defined(GAUCHE_CHAR_ENCODING_SJIS)
ucsconv.ucs2char = jconv_open("SJIS", "UTF-8");
ucsconv.char2ucs = jconv_open("UTF-8", "SJIS");
#else
ucsconv.ucs2char = ucsconv.char2ucs = NULL;
#endif
(void)SCM_INTERNAL_MUTEX_INIT(ucsconv.mutex);
Scm_Init_convguess();
Scm_Init_convaux();
Scm__InstallCharconvHooks(ucstochar, chartoucs);
Scm__InstallCodingAwarePortHook(coding_aware_conv);
}
ScmObj Scm_MakePromise(int forced, ScmObj code)
{
ScmPromise *p = SCM_NEW(ScmPromise);
ScmPromiseContent *c = SCM_NEW(ScmPromiseContent);
SCM_SET_CLASS(p, SCM_CLASS_PROMISE);
SCM_INTERNAL_MUTEX_INIT(c->mutex);
c->owner = NULL;
c->count = 0;
c->forced = forced;
c->code = code;
p->content = c;
p->kind = SCM_FALSE;
return SCM_OBJ(p);
}
/*
* Entry point of initlalizing Gauche runtime
*/
void Scm_Init(const char *signature)
{
/* make sure the main program links the same version of libgauche */
if (strcmp(signature, GAUCHE_SIGNATURE) != 0) {
Scm_Panic("libgauche ABI version mismatch: libgauche %s, expected %s",
GAUCHE_SIGNATURE, signature);
}
/* Some platforms require this. It is harmless if GC is
already initialized, so we call it here just in case. */
GC_init();
/* Set up GC parameters. We need to call finalizers at the safe
point of VM loop, so we disable auto finalizer invocation, and
ask GC to call us back when finalizers are queued. */
GC_oom_fn = oom_handler;
GC_finalize_on_demand = TRUE;
GC_finalizer_notifier = finalizable;
(void)SCM_INTERNAL_MUTEX_INIT(cond_features.mutex);
/* Initialize components. The order is important, for some components
rely on the other components to be initialized. */
Scm__InitParameter();
Scm__InitVM();
Scm__InitSymbol();
Scm__InitModule();
Scm__InitNumber();
Scm__InitChar();
Scm__InitClass();
Scm__InitModulePost();
Scm__InitCollection();
Scm__InitExceptions();
Scm__InitProc();
Scm__InitPort();
Scm__InitWrite();
Scm__InitCode();
Scm__InitMacro();
Scm__InitLoad();
Scm__InitRegexp();
Scm__InitRead();
Scm__InitSignal();
Scm__InitSystem();
Scm_Init_libalpha();
Scm_Init_libbool();
Scm_Init_libchar();
Scm_Init_libcode();
Scm_Init_libdict();
Scm_Init_libeval();
Scm_Init_libexc();
Scm_Init_libfmt();
Scm_Init_libio();
Scm_Init_liblazy();
Scm_Init_liblist();
Scm_Init_libmisc();
Scm_Init_libmod();
Scm_Init_libnum();
Scm_Init_libobj();
Scm_Init_libproc();
Scm_Init_librx();
Scm_Init_libstr();
Scm_Init_libsym();
Scm_Init_libsys();
Scm_Init_libvec();
Scm_Init_compile();
Scm_Init_libomega();
Scm__InitCompaux();
Scm_SelectModule(Scm_GaucheModule());
Scm__InitAutoloads();
Scm_SelectModule(Scm_UserModule());
/* Final setup of cond-features alist. */
init_cond_features();
#ifdef GAUCHE_USE_PTHREADS
/* a trick to make sure the gc thread object is linked */
ptr_pthread_create = (int (*)(void))GC_pthread_create;
#endif
}
void Scm__InitSymbol(void)
{
SCM_INTERNAL_MUTEX_INIT(obtable_mutex);
obtable = SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_STRING, 4096));
init_builtin_syms();
}
