/*========================================================================*/
void scheme_init_place(Scheme_Env *env)
{
Scheme_Env *plenv;
#ifdef MZ_PRECISE_GC
register_traversers();
#endif
plenv = scheme_primitive_module(scheme_intern_symbol("#%place"), env);
GLOBAL_PRIM_W_ARITY("place-enabled?", scheme_place_enabled, 0, 0, plenv);
GLOBAL_PRIM_W_ARITY("place-shared?", scheme_place_shared, 1, 1, plenv);
PLACE_PRIM_W_ARITY("place", scheme_place, 2, 2, plenv);
PLACE_PRIM_W_ARITY("place-sleep", scheme_place_sleep, 1, 1, plenv);
PLACE_PRIM_W_ARITY("place-wait", scheme_place_wait, 1, 1, plenv);
PLACE_PRIM_W_ARITY("place?", scheme_place_p, 1, 1, plenv);
PLACE_PRIM_W_ARITY("place-channel", scheme_place_channel, 0, 0, plenv);
PLACE_PRIM_W_ARITY("place-channel-send", scheme_place_send, 1, 2, plenv);
PLACE_PRIM_W_ARITY("place-channel-recv", scheme_place_recv, 1, 1, plenv);
PLACE_PRIM_W_ARITY("place-channel?", scheme_place_channel_p, 1, 1, plenv);
#ifdef MZ_USE_PLACES
REGISTER_SO(scheme_def_place_exit_proc);
scheme_def_place_exit_proc = scheme_make_prim_w_arity(def_place_exit_handler_proc, "default-place-exit-handler", 1, 1);
#endif
scheme_finish_primitive_module(plenv);
}
void scheme_init_sema(Scheme_Env *env)
{
Scheme_Object *o;
#ifdef MZ_PRECISE_GC
register_traversers();
#endif
scheme_add_global_constant("make-semaphore",
scheme_make_prim_w_arity(make_sema,
"make-semaphore",
0, 1),
env);
scheme_add_global_constant("semaphore?",
scheme_make_folding_prim(semap,
"semaphore?",
1, 1, 1),
env);
scheme_add_global_constant("semaphore-post",
scheme_make_prim_w_arity(hit_sema,
"semaphore-post",
1, 1),
env);
scheme_add_global_constant("semaphore-try-wait?",
scheme_make_prim_w_arity(block_sema_p,
"semaphore-try-wait?",
1, 1),
env);
scheme_add_global_constant("semaphore-wait",
scheme_make_prim_w_arity(block_sema,
"semaphore-wait",
1, 1),
env);
scheme_add_global_constant("semaphore-wait/enable-break",
scheme_make_prim_w_arity(block_sema_breakable,
"semaphore-wait/enable-break",
1, 1),
env);
scheme_add_global_constant("semaphore-peek-evt",
scheme_make_prim_w_arity(make_sema_repost,
"semaphore-peek-evt",
1, 1),
env);
scheme_add_global_constant("make-channel",
scheme_make_prim_w_arity(make_channel,
"make-channel",
0, 0),
env);
scheme_add_global_constant("channel-put-evt",
scheme_make_prim_w_arity(make_channel_put,
"channel-put-evt",
2, 2),
env);
scheme_add_global_constant("channel?",
scheme_make_folding_prim(channel_p,
"channel?",
1, 1, 1),
env);
scheme_add_global_constant("thread-send",
scheme_make_prim_w_arity(thread_send,
"thread-send",
2, 3),
env);
scheme_add_global_constant("thread-receive",
scheme_make_prim_w_arity(thread_receive,
"thread-receive",
0, 0),
env);
scheme_add_global_constant("thread-try-receive",
scheme_make_prim_w_arity(thread_try_receive,
"thread-try-receive",
0, 0),
env);
scheme_add_global_constant("thread-receive-evt",
scheme_make_prim_w_arity(thread_receive_evt,
"thread-receive-evt",
0, 0),
env);
scheme_add_global_constant("thread-rewind-receive",
scheme_make_prim_w_arity(thread_rewind_receive,
"thread-rewind-receive",
1, 1),
env);
scheme_add_global_constant("alarm-evt",
scheme_make_prim_w_arity(make_alarm,
"alarm-evt",
1, 1),
env);
scheme_add_global_constant("system-idle-evt",
scheme_make_prim_w_arity(make_sys_idle,
"system-idle-evt",
0, 0),
env);
REGISTER_SO(scheme_always_ready_evt);
scheme_always_ready_evt = scheme_alloc_small_object();
scheme_always_ready_evt->type = scheme_always_evt_type;
scheme_add_global_constant("always-evt", scheme_always_ready_evt, env);
o = scheme_alloc_small_object();
o->type = scheme_never_evt_type;
scheme_add_global_constant("never-evt", o, env);
REGISTER_SO(thread_recv_evt);
o = scheme_alloc_small_object();
o->type = scheme_thread_recv_evt_type;
thread_recv_evt = o;
scheme_add_evt(scheme_sema_type, sema_ready, NULL, NULL, 0);
scheme_add_evt_through_sema(scheme_semaphore_repost_type, sema_for_repost, NULL);
scheme_add_evt(scheme_channel_type, (Scheme_Ready_Fun)channel_get_ready, NULL, NULL, 1);
scheme_add_evt(scheme_channel_put_type, (Scheme_Ready_Fun)channel_put_ready, NULL, NULL, 1);
scheme_add_evt(scheme_channel_syncer_type, (Scheme_Ready_Fun)channel_syncer_ready, NULL, NULL, 0);
scheme_add_evt(scheme_alarm_type, (Scheme_Ready_Fun)alarm_ready, NULL, NULL, 0);
scheme_add_evt(scheme_always_evt_type, always_ready, NULL, NULL, 0);
scheme_add_evt(scheme_never_evt_type, never_ready, NULL, NULL, 0);
scheme_add_evt(scheme_thread_recv_evt_type, (Scheme_Ready_Fun)thread_recv_ready, NULL, NULL, 0);
}
void scheme_init_letrec_check()
{
#ifdef MZ_PRECISE_GC
register_traversers();
#endif
}
void scheme_init_sfs()
{
#ifdef MZ_PRECISE_GC
register_traversers();
#endif
}
