int
mono_once (mono_once_t *once, void (*once_init) (void))
{
int thr_ret;
if (!once->complete) {
pthread_cleanup_push ((void(*)(void *))pthread_mutex_unlock,
(void *)&once->mutex);
thr_ret = pthread_mutex_lock (&once->mutex);
g_assert (thr_ret == 0);
if (!once->complete) {
once_init ();
once->complete = TRUE;
}
thr_ret = pthread_mutex_unlock (&once->mutex);
g_assert (thr_ret == 0);
pthread_cleanup_pop (0);
}
return 0;
}
rt_public void eif_rtinit(int argc, EIF_NATIVE_CHAR **argv, EIF_NATIVE_CHAR **envp)
{
char *eif_timeout;
/* Retrieve root argument if any and update `argc' accordingly. */
eif_retrieve_root(&argc, argv);
#ifdef EIF_WINDOWS
set_windows_exception_filter();
#if defined(_MSC_VER) && _MSC_VER >= 1400 /* version 14.0+ (MSVC 8.0+) */
/* Ensures consistent behavior across all our platforms where we
* get 2-digit exponent up to 99 and then 3-digit exponent for 100 and
* above. */
(void) _set_output_format(_TWO_DIGIT_EXPONENT);
#endif
#endif
#ifdef BOEHM_GC
GC_register_displacement (OVERHEAD);
#endif
ieee_init();
starting_working_directory = (char *) eif_malloc (PATH_MAX + 1);
/* Initialize directory to an empty string by default. */
starting_working_directory [0] = '\0';
ufill(); /* Get urgent memory chunks */
#if defined(DEBUG) && (EIF_OS != EIF_OS_VXWORKS) && !defined(EIF_WINDOWS)
/* The following install signal handlers for signals USR1 and USR2. Both
* raise an immediate scanning of memory and dumping of the free list usage
* and other statistics. The difference is that USR1 also performrs a full
* GC cycle before runnning the diagnosis. If memck() is programmed to
* panic when inconsistencies are detected, this may raise a system failure
* due to race condition. There is nothing the user can do about it, except
* pray--RAM.
*/
esignal(SIGUSR1, mem_diagnose);
esignal(SIGUSR2, mem_diagnose);
#endif
/* Check if the user wants to override the default timeout value
* for interprocess communications (IPC). This new value is specified in
* the ISE_TIMEOUT environment variable
*/
eif_timeout = getenv("ISE_TIMEOUT");
if ((eif_timeout != NULL) && (strlen(eif_timeout) > 0)) { /* Environment variable set */
TIMEOUT = (unsigned) atoi(eif_timeout);
} else {
TIMEOUT = 30;
}
eoption = egc_foption;
#ifdef WORKBENCH
xinitint(); /* Interpreter initialization */
esystem = egc_fsystem;
eif_par_table = egc_partab;
eif_par_table_size = egc_partab_size;
eorg_table = egc_forg_table;
pattern = egc_fpattern;
debug_initialize(); /* Initialize debug information (breakpoints ...) */
/* In workbench mode, we have a slight problem: when we link ewb in
* workbench mode, since ewb is a child from ised, the run-time will
* assume, wrongly, that the executable is started in debug mode. Therefore,
* we need a special run-time, with no debugging hooks involved.
*/
#ifndef NOHOOK
winit(); /* Did we start under ewb control? */
#endif
/* Initialize dynamically computed variables (i.e. system dependent)
* Then we may call update. Eventually, when debugging the
* application, the values loaded from the update file will be overridden
* by the workbench (via winit).
*/
egc_einit(); /* Various static initializations */
fcount = scount;
{
char temp = 0;
int i;
for (i=1;i<argc;i++) {
if (0 == rt_nstrcmp (argv[i], rt_nmakestr("-ignore_updt"))) {
temp = (char) 1;
break;
}
}
update(temp, argv[0]);
} /* Read melted information
* Note: the `update' function takes
* care of the initialization of the
* temporary descriptor structures
*/
create_desc(); /* Create descriptor (call) tables */
#else
/*
* Initialize the finalized system with the static data structures.
*/
esystem = egc_fsystem;
eif_par_table = egc_partab;
eif_par_table_size = egc_partab_size;
eif_gen_conf_init (eif_par_table_size);
nbref = egc_fnbref;
esize = egc_fsize;
#endif
#if !defined CUSTOM || defined NEED_UMAIN_H
umain(argc, argv, envp); /* User's initializations */
#endif
#if !defined CUSTOM || defined NEED_ARGV_H
rt_arg_init(argc, argv); /* Save copy for class ARGUMENTS */
#endif
eif_environ = envp; /* Save pointer to environment variable storage */
once_init();
#if defined(EIF_THREADS) && defined(WORKBENCH)
notify_root_thread();
#endif
initprf(); /* Initialize profiler. */
init_emnger(); /* Initialize ISE_EXCEPTION_MANAGER */
init_scp_manager(); /* Initialize ISE_SCOOP_MANAGER */
/* Initialize our root class. */
eif_init_root();
}
