/* Exports from syscalls1.c. */

s48_value wait_pid(pid_t pid, int flags, pid_t *result_pid, int *status);

int scheme_exec(const char *prog, s48_value argv, s48_value env);

int scheme_pipe(int *r, int *w);

char const *scm_readlink(const char *path);

int scm_utime(char const *path, time_t ac, time_t  mod);

int scm_utime_now(char const *path);

int scheme_cwd(const char **dirp);

int process_times(clock_t *utime, clock_t *stime, 
		  clock_t *cutime, clock_t *cstime);

int cpu_clock_ticks_per_sec();

s48_value read_fdes_char(int fd);

int write_fdes_char(char c, int fd);

ssize_t read_fdes_substring(s48_value buf, size_t start, size_t end, int fd);

int read_stream_substring(s48_value buf, int start, int end, FILE *f);

ssize_t write_fdes_substring(s48_value buf, size_t start, size_t end, int fd);

int write_stream_substring(s48_value buf, int start, int end, FILE *f);

int scheme_stat(const char *path, s48_value vec, int chase_p);

int scheme_fstat(int fd, s48_value vec);

int num_supp_groups(void);

int get_groups(s48_value gvec);

int put_env(const char *s);

char** scm_envvec(int *len);

int install_env(s48_value vec);

void delete_env(const char *var);

char *scm_gethostname(void);

char *errno_msg(int i);

int fcntl_read(int fd, int command);

int fcntl_write(int fd, int command, int value);