Esempi in C++ (Cpp) per S48_EXPORT_FUNCTION

Esempio n. 1

File: syslog.c Progetto: 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);
}

Esempio n. 2

File: dynlink.c Progetto: 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);
}

Esempio n. 3

File: time.c Progetto: 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");
}

Esempio n. 4

File: regexp1.c Progetto: 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");
}

Esempio n. 5

File: socket.c Progetto: 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);
}

Esempio n. 6

File: errno.c Progetto: 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");
}

Esempio n. 7

File: io.c Progetto: 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");
}

Esempio n. 8

File: dirstuff1.c Progetto: 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);
}

Esempio n. 9

File: tty.c Progetto: 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);
}

Esempio n. 10

File: db.c Progetto: cardmagic/lucash

s48_value s48_init_db(void)
{
    S48_EXPORT_FUNCTION(df_db_open);

    return S48_UNSPECIFIC;
}

Esempio n. 11

File: flock1.c Progetto: cardmagic/lucash

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