/* * Install all exported functions in Scheme 48. */ void s48_init_posix_syslog(void) { S48_EXPORT_FUNCTION(posix_openlog); S48_EXPORT_FUNCTION(posix_syslog); S48_EXPORT_FUNCTION(posix_setlogmask); S48_EXPORT_FUNCTION(posix_closelog); }
void s48_init_dynlink(void) { S48_EXPORT_FUNCTION(shared_object_dlopen); S48_EXPORT_FUNCTION(shared_object_dlsym); S48_EXPORT_FUNCTION(shared_object_dlclose); S48_EXPORT_FUNCTION(shared_object_call_thunk); }
/* * Install all exported functions in Scheme48. */ void s48_init_time(void) { S48_EXPORT_FUNCTION(s48_get_current_time); S48_EXPORT_FUNCTION(s48_get_timezone); time_type_binding = s48_get_imported_binding_2("os-time-type"); }
/* * Install all exported functions in Scheme48. */ void s48_init_posix_regexp(void) { /* Export our stuff. */ S48_EXPORT_FUNCTION(posix_compile_regexp); S48_EXPORT_FUNCTION(posix_regexp_match); S48_EXPORT_FUNCTION(posix_regexp_error_message); S48_EXPORT_FUNCTION(posix_free_regexp); /* Protect and import the regex-match type. */ S48_GC_PROTECT_GLOBAL(posix_regexp_match_type_binding); posix_regexp_match_type_binding = s48_get_imported_binding("posix-regexp-match-type"); }
void s48_init_socket(void) { S48_EXPORT_FUNCTION(s48_socket); S48_EXPORT_FUNCTION(s48_bind); S48_EXPORT_FUNCTION(s48_socket_number); S48_EXPORT_FUNCTION(s48_listen); S48_EXPORT_FUNCTION(s48_accept); S48_EXPORT_FUNCTION(s48_connect); S48_EXPORT_FUNCTION(s48_close_socket_half); S48_EXPORT_FUNCTION(s48_get_host_name); S48_EXPORT_FUNCTION(s48_add_pending_channel); }
/* * Install all exported functions in Scheme48. */ void s48_init_posix_errno(void) { S48_EXPORT_FUNCTION(posix_initialize_named_errnos); posix_errnos_vector_binding = s48_get_imported_binding_2("posix-errnos-vector"); }
/* * Install all exported functions in Scheme48. */ void s48_init_posix_io(void) { S48_EXPORT_FUNCTION(posix_dup); S48_EXPORT_FUNCTION(posix_dup2); S48_EXPORT_FUNCTION(posix_pipe); S48_EXPORT_FUNCTION(posix_close_on_exec_p); S48_EXPORT_FUNCTION(posix_set_close_on_exec); S48_EXPORT_FUNCTION(posix_io_flags); posix_file_options_enum_set_type_binding = s48_get_imported_binding_2("posix-file-options-enum-set-type"); }
void s48_init_dirstuff () { S48_EXPORT_FUNCTION(directory_files); S48_EXPORT_FUNCTION(scm_opendir); S48_EXPORT_FUNCTION(scm_readdir); S48_EXPORT_FUNCTION(scm_closedir); }
void scsh_init_tty() { S48_EXPORT_FUNCTION(scheme_tcgetattr); S48_EXPORT_FUNCTION(scheme_tcsetattr); S48_EXPORT_FUNCTION(sch_tcsendbreak); S48_EXPORT_FUNCTION(sch_tcdrain); S48_EXPORT_FUNCTION(sch_tcflush); S48_EXPORT_FUNCTION(sch_tcflow); S48_EXPORT_FUNCTION(sch_tcsetpgrp); S48_EXPORT_FUNCTION(sch_tcgetpgrp); S48_EXPORT_FUNCTION(open_ctty); S48_EXPORT_FUNCTION(make_ctty); S48_EXPORT_FUNCTION(pty2tty); S48_EXPORT_FUNCTION(sch_isatty); S48_EXPORT_FUNCTION(sch_ttyname); S48_EXPORT_FUNCTION(scm_ctermid); S48_EXPORT_FUNCTION(allocate_pty); }
s48_value s48_init_db(void) { S48_EXPORT_FUNCTION(df_db_open); return S48_UNSPECIFIC; }
void s48_init_flock(void) { S48_EXPORT_FUNCTION(set_lock); S48_EXPORT_FUNCTION(get_lock); }