void init_subr_socket(object_heap_t* heap)
{
#define DEFSUBR(SYM, FUNC) heap->intern_system_subr(SYM, FUNC)
DEFSUBR("socket?", subr_socket_pred);
DEFSUBR("make-socket", subr_make_socket);
DEFSUBR("socket-send", subr_socket_send);
DEFSUBR("socket-recv", subr_socket_recv);
DEFSUBR("socket-close", subr_socket_close);
DEFSUBR("socket-shutdown", subr_socket_shutdown);
DEFSUBR("socket->port", subr_socket_port);
DEFSUBR("socket-port", subr_socket_port);
DEFSUBR("socket-accept", subr_socket_accept);
}
void
syms_of_signal (void)
{
DEFSUBR (Fwaiting_for_user_input_p);
}
void
init_subr_thread(object_heap_t* heap)
{
#define DEFSUBR(SYM, FUNC) heap->intern_system_subr(SYM, FUNC)
DEFSUBR("spawn", subr_spawn);
DEFSUBR("spawn-heap-limit", subr_spawn_heap_limit);
DEFSUBR("spawn-timeout", subr_spawn_timeout);
DEFSUBR("make-shared-queue", subr_make_shared_queue);
DEFSUBR("shared-queue-shutdown", subr_shared_queue_shutdown);
DEFSUBR("shared-queue-push!", subr_shared_queue_push);
DEFSUBR("shared-queue-pop!", subr_shared_queue_pop);
DEFSUBR("shared-queue?", subr_shared_queue_pred);
DEFSUBR("timeout-object?", subr_timeout_object_pred);
DEFSUBR("shutdown-object?", subr_shutdown_object_pred);
DEFSUBR("make-shared-bag", subr_make_shared_bag);
DEFSUBR("shared-bag?", subr_shared_bag_pred);
DEFSUBR("shared-bag-put!", subr_shared_bag_put);
DEFSUBR("shared-bag-get!", subr_shared_bag_get);
DEFSUBR("on-primordial-thread?", subr_on_primordial_thread_pred);
DEFSUBR("local-heap-object?", subr_local_heap_object_pred);
DEFSUBR("display-thread-status", subr_display_thread_status);
DEFSUBR("serializable?", subr_serializable_pred);
}
