C++ (Cpp) S48_EXPORT_FUNCTION Beispiele

Beispiel #1

Datei: syslog.c Projekt: eval-apply/s48

/*
 * 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);
}

Beispiel #2

Datei: dynlink.c Projekt: eval-apply/s48

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);
}

Beispiel #3

Datei: time.c Projekt: eval-apply/s48

/*
 * 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");
}

Beispiel #4

Datei: regexp1.c Projekt: cardmagic/lucash

/*
 * 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");
}

Beispiel #5

Datei: socket.c Projekt: cardmagic/lucash

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);
}

Beispiel #6

Datei: errno.c Projekt: eval-apply/s48

/*
 * 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");
}

Beispiel #7

Datei: io.c Projekt: yarec/s48

/*
 * 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");
}

Beispiel #8

Datei: dirstuff1.c Projekt: cardmagic/lucash

void s48_init_dirstuff () {
    S48_EXPORT_FUNCTION(directory_files);
    S48_EXPORT_FUNCTION(scm_opendir);
    S48_EXPORT_FUNCTION(scm_readdir);
    S48_EXPORT_FUNCTION(scm_closedir);
}

Beispiel #9

Datei: tty.c Projekt: james-m-henderson/scsh

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);
}

Beispiel #10

Datei: db.c Projekt: cardmagic/lucash

s48_value s48_init_db(void)
{
    S48_EXPORT_FUNCTION(df_db_open);

    return S48_UNSPECIFIC;
}

Beispiel #11

Datei: flock1.c Projekt: cardmagic/lucash

void s48_init_flock(void)
{
    S48_EXPORT_FUNCTION(set_lock);
    S48_EXPORT_FUNCTION(get_lock);
}