/*================================================================
* Initialization
*/
void Scm_Init_libgauche_glut(void)
{
ScmModule *mod;
SCM_INIT_EXTENSION(libgauche_glut);
mod = SCM_MODULE(SCM_FIND_MODULE("gl.glut", TRUE));
Scm_Init_glut_lib(mod);
/* Callback table */
ScmGlutCallbackTable = Scm_MakeHashTableSimple(SCM_HASH_EQV, 0);
/* Glut built-in fonts */
#define DEFFONT(name) Scm_DefineConst(mod, SCM_SYMBOL(SCM_INTERN(#name)), makeGlutFont(name))
/* Stroke font constants (use these in GLUT program). */
DEFFONT(GLUT_STROKE_ROMAN);
DEFFONT(GLUT_STROKE_MONO_ROMAN);
/* Bitmap font constants (use these in GLUT program). */
DEFFONT(GLUT_BITMAP_9_BY_15);
DEFFONT(GLUT_BITMAP_8_BY_13);
DEFFONT(GLUT_BITMAP_TIMES_ROMAN_10);
DEFFONT(GLUT_BITMAP_TIMES_ROMAN_24);
#if (GLUT_API_VERSION >= 3)
DEFFONT(GLUT_BITMAP_HELVETICA_10);
DEFFONT(GLUT_BITMAP_HELVETICA_12);
DEFFONT(GLUT_BITMAP_HELVETICA_18);
#endif
}
/*=============================================================
* External API
*/
void Scm_ProfilerStart(void)
{
ScmVM *vm = Scm_VM();
ScmObj templat = Scm_StringAppendC(SCM_STRING(Scm_TmpDir()),
"/gauche-profXXXXXX", -1, -1);
char *templat_buf = Scm_GetString(SCM_STRING(templat)); /*mutable copy*/
if (!vm->prof) {
vm->prof = SCM_NEW(ScmVMProfiler);
vm->prof->state = SCM_PROFILER_INACTIVE;
vm->prof->samplerFd = Scm_Mkstemp(templat_buf);
vm->prof->currentSample = 0;
vm->prof->totalSamples = 0;
vm->prof->errorOccurred = 0;
vm->prof->currentCount = 0;
vm->prof->statHash =
SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0));
#if defined(GAUCHE_WINDOWS)
vm->prof->hTargetThread = NULL;
vm->prof->hObserverThread = NULL;
vm->prof->hTimerEvent = NULL;
vm->prof->samplerFileName = templat_buf;
#else /* !GAUCHE_WINDOWS */
unlink(templat_buf); /* keep anonymous tmpfile */
#endif /* !GAUCHE_WINDOWS */
} else if (vm->prof->samplerFd < 0) {
vm->prof->samplerFd = Scm_Mkstemp(templat_buf);
#if defined(GAUCHE_WINDOWS)
vm->prof->samplerFileName = templat_buf;
#else /* !GAUCHE_WINDOWS */
unlink(templat_buf);
#endif /* !GAUCHE_WINDOWS */
}
if (vm->prof->state == SCM_PROFILER_RUNNING) return;
vm->prof->state = SCM_PROFILER_RUNNING;
vm->profilerRunning = TRUE;
/* NB: this should be done globally!!! */
#if defined(GAUCHE_WINDOWS)
if (!DuplicateHandle(GetCurrentProcess(),
GetCurrentThread(),
GetCurrentProcess(),
&vm->prof->hTargetThread,
0, FALSE, DUPLICATE_SAME_ACCESS)) {
vm->prof->hTargetThread = NULL;
Scm_SysError("DuplicateHandle failed");
}
#else /* !GAUCHE_WINDOWS */
struct sigaction act;
act.sa_handler = sampler_sample;
sigfillset(&act.sa_mask);
act.sa_flags = SA_RESTART;
if (sigaction(SIGPROF, &act, NULL) < 0) {
Scm_SysError("sigaction failed");
}
#endif /* !GAUCHE_WINDOWS */
ITIMER_START();
}
/* Write/ss main driver
This should never be called recursively.
We modify port->flags and port->writeState; they are cleaned up
by the caller even if we throw an error during write. */
static void write_ss(ScmObj obj, ScmPort *port, ScmWriteContext *ctx)
{
SCM_ASSERT(port->writeState == NULL);
/* pass 1 */
port->flags |= SCM_PORT_WALKING;
if (SCM_WRITE_MODE(ctx)==SCM_WRITE_SHARED) port->flags |= SCM_PORT_WRITESS;
ScmWriteState *s = Scm_MakeWriteState(NULL);
s->sharedTable = SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0));
port->writeState = s;
write_walk(obj, port);
port->flags &= ~(SCM_PORT_WALKING|SCM_PORT_WRITESS);
/* pass 2 */
write_rec(obj, port, ctx);
cleanup_port_write_state(port);
}
void Scm_ProfilerReset(void)
{
ScmVM *vm = Scm_VM();
if (vm->prof == NULL) return;
if (vm->prof->state == SCM_PROFILER_INACTIVE) return;
if (vm->prof->state == SCM_PROFILER_RUNNING) Scm_ProfilerStop();
if (vm->prof->samplerFd >= 0) {
close(vm->prof->samplerFd);
vm->prof->samplerFd = -1;
}
vm->prof->totalSamples = 0;
vm->prof->currentSample = 0;
vm->prof->errorOccurred = 0;
vm->prof->currentCount = 0;
vm->prof->statHash =
SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0));
vm->prof->state = SCM_PROFILER_INACTIVE;
}
/*=============================================================
* External API
*/
void Scm_ProfilerStart(void)
{
ScmVM *vm = Scm_VM();
ScmObj templat = Scm_StringAppendC(SCM_STRING(Scm_TmpDir()),
"/gauche-profXXXXXX", -1, -1);
char *templat_buf = Scm_GetString(SCM_STRING(templat)); /*mutable copy*/
if (!vm->prof) {
vm->prof = SCM_NEW(ScmVMProfiler);
vm->prof->state = SCM_PROFILER_INACTIVE;
vm->prof->samplerFd = Scm_Mkstemp(templat_buf);
vm->prof->currentSample = 0;
vm->prof->totalSamples = 0;
vm->prof->errorOccurred = 0;
vm->prof->currentCount = 0;
vm->prof->statHash =
SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0));
unlink(templat_buf); /* keep anonymous tmpfile */
} else if (vm->prof->samplerFd < 0) {
vm->prof->samplerFd = Scm_Mkstemp(templat_buf);
unlink(templat_buf);
}
if (vm->prof->state == SCM_PROFILER_RUNNING) return;
vm->prof->state = SCM_PROFILER_RUNNING;
vm->profilerRunning = TRUE;
/* NB: this should be done globally!!! */
struct sigaction act;
act.sa_handler = sampler_sample;
sigfillset(&act.sa_mask);
act.sa_flags = SA_RESTART;
if (sigaction(SIGPROF, &act, NULL) < 0) {
Scm_SysError("sigaction failed");
}
ITIMER_START();
}
void Scm_ProfilerReset(void)
{
ScmVM *vm = Scm_VM();
if (vm->prof == NULL) return;
if (vm->prof->state == SCM_PROFILER_INACTIVE) return;
if (vm->prof->state == SCM_PROFILER_RUNNING) Scm_ProfilerStop();
if (vm->prof->samplerFd >= 0) {
close(vm->prof->samplerFd);
vm->prof->samplerFd = -1;
#if defined(GAUCHE_WINDOWS)
unlink(vm->prof->samplerFileName);
#endif /* GAUCHE_WINDOWS */
}
vm->prof->totalSamples = 0;
vm->prof->currentSample = 0;
vm->prof->errorOccurred = 0;
vm->prof->currentCount = 0;
vm->prof->statHash =
SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 0));
vm->prof->state = SCM_PROFILER_INACTIVE;
}
void Scm__InitSymbol(void)
{
SCM_INTERNAL_MUTEX_INIT(obtable_mutex);
obtable = SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_STRING, 4096));
init_builtin_syms();
}
