scsh-0.6/scsh/syscalls.c

1012 lines
25 KiB
C

/* This is an Scheme48/C interface file,
** automatically generated by cig.
*/
#include <stdio.h>
#include <stdlib.h> /* For malloc. */
#include "libcig.h"
#include <sys/signal.h>
#include <sys/types.h>
#include <sys/times.h>
#include <sys/time.h>
#include <fcntl.h> /* for O_RDWR */
#include <sys/stat.h>
#include <netdb.h>
#include <pwd.h>
#include <unistd.h>
/* Make sure foreign-function stubs interface to the C funs correctly: */
#include "dirstuff1.h"
#include "fdports1.h"
#include "select1.h"
#include "syscalls1.h"
#include "userinfo1.h"
extern int errno;
#define errno_on_zero_or_false(x) ((x) ? SCHFALSE : ENTER_FIXNUM(errno))
#define errno_or_false(x) (((x) == -1) ? ENTER_FIXNUM(errno) : SCHFALSE)
#define False_on_zero(x) ((x) ? ENTER_FIXNUM(x) : SCHFALSE)
scheme_value df_scheme_exec(long nargs, scheme_value *args)
{
extern int scheme_exec(const char *, scheme_value , scheme_value );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "scheme_exec");
r1 = scheme_exec(cig_string_body(args[2]), args[1], args[0]);
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_exit(long nargs, scheme_value *args)
{
extern void exit(int );
cig_check_nargs(1, nargs, "exit");
exit(EXTRACT_FIXNUM(args[0]));
return SCHFALSE;
}
scheme_value df__exit(long nargs, scheme_value *args)
{
extern void _exit(int );
cig_check_nargs(1, nargs, "_exit");
_exit(EXTRACT_FIXNUM(args[0]));
return SCHFALSE;
}
scheme_value df_fork(long nargs, scheme_value *args)
{
extern pid_t fork(void);
scheme_value ret1;
pid_t r1;
cig_check_nargs(1, nargs, "fork");
r1 = fork();
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_wait_pid(long nargs, scheme_value *args)
{
extern scheme_value wait_pid(int , int , int *, int *);
scheme_value ret1;
scheme_value r1;
int r2;
int r3;
cig_check_nargs(3, nargs, "wait_pid");
r1 = wait_pid(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), &r2, &r3);
ret1 = r1;
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
return ret1;
}
scheme_value df_chdir(long nargs, scheme_value *args)
{
extern int chdir(const char *);
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "chdir");
r1 = chdir(cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_scheme_cwd(long nargs, scheme_value *args)
{
extern int scheme_cwd(const char **);
scheme_value ret1;
int r1;
const char *r2;
cig_check_nargs(1, nargs, "scheme_cwd");
r1 = scheme_cwd(&r2);
ret1 = False_on_zero(r1);
{AlienVal(CAR(VECTOR_REF(*args,0))) = (long) r2; CDR(VECTOR_REF(*args,0)) = strlen_or_false(r2);}
return ret1;
}
scheme_value df_getgid(long nargs, scheme_value *args)
{
extern gid_t getgid(void);
scheme_value ret1;
gid_t r1;
cig_check_nargs(0, nargs, "getgid");
r1 = getgid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_getegid(long nargs, scheme_value *args)
{
extern gid_t getegid(void);
scheme_value ret1;
gid_t r1;
cig_check_nargs(0, nargs, "getegid");
r1 = getegid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_setgid(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "setgid");
r1 = setgid(EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_num_supp_groups(long nargs, scheme_value *args)
{
extern int num_supp_groups(void);
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "num_supp_groups");
r1 = num_supp_groups();
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_get_groups(long nargs, scheme_value *args)
{
extern int get_groups(scheme_value );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "get_groups");
r1 = get_groups(args[1]);
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_getuid(long nargs, scheme_value *args)
{
extern uid_t getuid(void);
scheme_value ret1;
uid_t r1;
cig_check_nargs(0, nargs, "getuid");
r1 = getuid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_geteuid(long nargs, scheme_value *args)
{
extern uid_t geteuid(void);
scheme_value ret1;
uid_t r1;
cig_check_nargs(0, nargs, "geteuid");
r1 = geteuid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_setuid(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "setuid");
r1 = setuid(EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_my_username(long nargs, scheme_value *args)
{
extern char *my_username(void);
scheme_value ret1;
char *r1;
cig_check_nargs(1, nargs, "my_username");
r1 = my_username();
ret1 = VECTOR_REF(*args,0);
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
return ret1;
}
scheme_value df_getpid(long nargs, scheme_value *args)
{
extern pid_t getpid(void);
scheme_value ret1;
pid_t r1;
cig_check_nargs(0, nargs, "getpid");
r1 = getpid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_getppid(long nargs, scheme_value *args)
{
extern pid_t getppid(void);
scheme_value ret1;
pid_t r1;
cig_check_nargs(0, nargs, "getppid");
r1 = getppid();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_getpgrp(long nargs, scheme_value *args)
{
extern pid_t getpgrp(void);
scheme_value ret1;
pid_t r1;
cig_check_nargs(0, nargs, "getpgrp");
r1 = getpgrp();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_setpgid(long nargs, scheme_value *args)
{
extern int setpgid(pid_t , pid_t );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "setpgid");
r1 = setpgid(EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_setsid(long nargs, scheme_value *args)
{
extern pid_t setsid(void);
scheme_value ret1;
pid_t r1;
cig_check_nargs(1, nargs, "setsid");
r1 = setsid();
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_umask(long nargs, scheme_value *args)
{
scheme_value ret1;
mode_t r1;
cig_check_nargs(1, nargs, "umask");
r1 = umask(EXTRACT_FIXNUM(args[0]));
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_process_times(long nargs, scheme_value *args)
{
extern int process_times(int *, int *, int *, int *);
scheme_value ret1;
int r1;
int r2;
int r3;
int r4;
int r5;
cig_check_nargs(1, nargs, "process_times");
r1 = process_times(&r2, &r3, &r4, &r5);
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
VECTOR_REF(*args,3) = ENTER_FIXNUM(r5);
return ret1;
}
scheme_value df_cpu_clock_ticks_per_sec(long nargs, scheme_value *args)
{
extern int cpu_clock_ticks_per_sec(void);
scheme_value ret1;
int r1;
cig_check_nargs(0, nargs, "cpu_clock_ticks_per_sec");
r1 = cpu_clock_ticks_per_sec();
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_chmod(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "chmod");
r1 = chmod(cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_fchmod(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "fchmod");
r1 = fchmod(EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_chown(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "chown");
r1 = chown(cig_string_body(args[2]), EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_fchown(long nargs, scheme_value *args)
{
extern int fchown(int , uid_t , gid_t );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "fchown");
r1 = fchown(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_access(long nargs, scheme_value *args)
{
extern int access(const char *, int );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "access");
r1 = access(cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = ENTER_BOOLEAN(r1);
return ret1;
}
scheme_value df_link(long nargs, scheme_value *args)
{
extern int link(const char *, const char *);
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "link");
r1 = link(cig_string_body(args[1]), cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_mkfifo(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "mkfifo");
r1 = mkfifo(cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_mkdir(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "mkdir");
r1 = mkdir(cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_scm_readlink(long nargs, scheme_value *args)
{
extern const char *scm_readlink(const char *);
scheme_value ret1;
const char *r1;
cig_check_nargs(2, nargs, "scm_readlink");
r1 = scm_readlink(cig_string_body(args[1]));
ret1 = errno_on_zero_or_false(r1);
{AlienVal(CAR(VECTOR_REF(*args,0))) = (long) r1; CDR(VECTOR_REF(*args,0)) = strlen_or_false(r1);}
return ret1;
}
scheme_value df_rename(long nargs, scheme_value *args)
{
extern int rename(const char *, const char *);
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "rename");
r1 = rename(cig_string_body(args[1]), cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_rmdir(long nargs, scheme_value *args)
{
extern int rmdir(const char *);
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "rmdir");
r1 = rmdir(cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_scm_utime(long nargs, scheme_value *args)
{
extern int scm_utime(const char *, int , int , int , int );
scheme_value ret1;
int r1;
cig_check_nargs(5, nargs, "scm_utime");
r1 = scm_utime(cig_string_body(args[4]), EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_scm_utime_now(long nargs, scheme_value *args)
{
extern int scm_utime_now(const char *);
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "scm_utime_now");
r1 = scm_utime_now(cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_scheme_stat(long nargs, scheme_value *args)
{
extern int scheme_stat(const char *, scheme_value , int );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "scheme_stat");
r1 = scheme_stat(cig_string_body(args[2]), args[1], EXTRACT_BOOLEAN(args[0]));
ret1 = False_on_zero(r1);
return ret1;
}
scheme_value df_scheme_fstat(long nargs, scheme_value *args)
{
extern int scheme_fstat(int , scheme_value );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "scheme_fstat");
r1 = scheme_fstat(EXTRACT_FIXNUM(args[1]), args[0]);
ret1 = False_on_zero(r1);
return ret1;
}
scheme_value df_symlink(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "symlink");
r1 = symlink(cig_string_body(args[1]), cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_truncate(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "truncate");
r1 = truncate(cig_string_body(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_ftruncate(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "ftruncate");
r1 = ftruncate(EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_unlink(long nargs, scheme_value *args)
{
extern int unlink(const char *);
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "unlink");
r1 = unlink(cig_string_body(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_fsync(long nargs, scheme_value *args)
{
extern int fsync(int );
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "fsync");
r1 = fsync(EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_sync(long nargs, scheme_value *args)
{
cig_check_nargs(0, nargs, "sync");
sync();
return SCHFALSE;
}
scheme_value df_close(long nargs, scheme_value *args)
{
extern int close(int );
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "close");
r1 = close(EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_dup(long nargs, scheme_value *args)
{
extern int dup(int );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "dup");
r1 = dup(EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_dup2(long nargs, scheme_value *args)
{
extern int dup2(int , int );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "dup2");
r1 = dup2(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_lseek(long nargs, scheme_value *args)
{
extern off_t lseek(int , off_t , int );
scheme_value ret1;
off_t r1;
cig_check_nargs(4, nargs, "lseek");
r1 = lseek(EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_char_ready_fdes(long nargs, scheme_value *args)
{
extern scheme_value char_ready_fdes(int );
scheme_value ret1;
scheme_value r1;
cig_check_nargs(1, nargs, "char_ready_fdes");
r1 = char_ready_fdes(EXTRACT_FIXNUM(args[0]));
ret1 = r1;
return ret1;
}
scheme_value df_open(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(4, nargs, "open");
r1 = open(cig_string_body(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_scheme_pipe(long nargs, scheme_value *args)
{
extern int scheme_pipe(int *, int *);
scheme_value ret1;
int r1;
int r2;
int r3;
cig_check_nargs(1, nargs, "scheme_pipe");
r1 = scheme_pipe(&r2, &r3);
ret1 = False_on_zero(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
return ret1;
}
scheme_value df_read_fdes_char(long nargs, scheme_value *args)
{
extern scheme_value read_fdes_char(int );
scheme_value ret1;
scheme_value r1;
cig_check_nargs(1, nargs, "read_fdes_char");
r1 = read_fdes_char(EXTRACT_FIXNUM(args[0]));
ret1 = r1;
return ret1;
}
scheme_value df_write_fdes_char(long nargs, scheme_value *args)
{
extern int write_fdes_char(char , int );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "write_fdes_char");
r1 = write_fdes_char(EXTRACT_CHAR(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_read_fdes_substring(long nargs, scheme_value *args)
{
extern int read_fdes_substring(scheme_value , int , int , int );
scheme_value ret1;
int r1;
cig_check_nargs(5, nargs, "read_fdes_substring");
r1 = read_fdes_substring(args[4], EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_write_fdes_substring(long nargs, scheme_value *args)
{
extern int write_fdes_substring(scheme_value , int , int , int );
scheme_value ret1;
int r1;
cig_check_nargs(5, nargs, "write_fdes_substring");
r1 = write_fdes_substring(args[4], EXTRACT_FIXNUM(args[3]), EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_kill(long nargs, scheme_value *args)
{
extern int kill(pid_t , int );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "kill");
r1 = kill(EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_pause(long nargs, scheme_value *args)
{
cig_check_nargs(0, nargs, "pause");
pause();
return SCHFALSE;
}
scheme_value df_alarm(long nargs, scheme_value *args)
{
extern unsigned int alarm(unsigned int );
scheme_value ret1;
unsigned int r1;
cig_check_nargs(1, nargs, "alarm");
r1 = alarm(EXTRACT_FIXNUM(args[0]));
ret1 = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_user_info_uid(long nargs, scheme_value *args)
{
extern int user_info_uid(uid_t , char **, gid_t *, char **, char **);
scheme_value ret1;
int r1;
char *r2;
gid_t r3;
char *r4;
char *r5;
cig_check_nargs(2, nargs, "user_info_uid");
r1 = user_info_uid(EXTRACT_FIXNUM(args[1]), &r2, &r3, &r4, &r5);
ret1 = ENTER_BOOLEAN(r1);
{AlienVal(CAR(VECTOR_REF(*args,0))) = (long) r2; CDR(VECTOR_REF(*args,0)) = strlen_or_false(r2);}
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
{AlienVal(CAR(VECTOR_REF(*args,2))) = (long) r4; CDR(VECTOR_REF(*args,2)) = strlen_or_false(r4);}
{AlienVal(CAR(VECTOR_REF(*args,3))) = (long) r5; CDR(VECTOR_REF(*args,3)) = strlen_or_false(r5);}
return ret1;
}
scheme_value df_user_info_name(long nargs, scheme_value *args)
{
extern int user_info_name(const char *, uid_t *, gid_t *, char **, char **);
scheme_value ret1;
int r1;
uid_t r2;
gid_t r3;
char *r4;
char *r5;
cig_check_nargs(2, nargs, "user_info_name");
r1 = user_info_name(cig_string_body(args[1]), &r2, &r3, &r4, &r5);
ret1 = ENTER_BOOLEAN(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
{AlienVal(CAR(VECTOR_REF(*args,2))) = (long) r4; CDR(VECTOR_REF(*args,2)) = strlen_or_false(r4);}
{AlienVal(CAR(VECTOR_REF(*args,3))) = (long) r5; CDR(VECTOR_REF(*args,3)) = strlen_or_false(r5);}
return ret1;
}
scheme_value df_group_info_gid(long nargs, scheme_value *args)
{
extern int group_info_gid(int , char **, char** *, int *);
scheme_value ret1;
int r1;
char *r2;
char** r3;
int r4;
cig_check_nargs(2, nargs, "group_info_gid");
r1 = group_info_gid(EXTRACT_FIXNUM(args[1]), &r2, &r3, &r4);
ret1 = ENTER_BOOLEAN(r1);
{AlienVal(CAR(VECTOR_REF(*args,0))) = (long) r2; CDR(VECTOR_REF(*args,0)) = strlen_or_false(r2);}
AlienVal(VECTOR_REF(*args,1)) = (long) r3;
VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
return ret1;
}
scheme_value df_group_info_name(long nargs, scheme_value *args)
{
extern int group_info_name(const char *, int *, char** *, int *);
scheme_value ret1;
int r1;
int r2;
char** r3;
int r4;
cig_check_nargs(2, nargs, "group_info_name");
r1 = group_info_name(cig_string_body(args[1]), &r2, &r3, &r4);
ret1 = ENTER_BOOLEAN(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r2);
AlienVal(VECTOR_REF(*args,1)) = (long) r3;
VECTOR_REF(*args,2) = ENTER_FIXNUM(r4);
return ret1;
}
scheme_value df_open_dir(long nargs, scheme_value *args)
{
extern int open_dir(const char *, char** *, int *);
scheme_value ret1;
int r1;
char** r2;
int r3;
cig_check_nargs(2, nargs, "open_dir");
r1 = open_dir(cig_string_body(args[1]), &r2, &r3);
ret1 = False_on_zero(r1);
AlienVal(VECTOR_REF(*args,0)) = (long) r2;
VECTOR_REF(*args,1) = ENTER_FIXNUM(r3);
return ret1;
}
scheme_value df_scm_sort_filevec(long nargs, scheme_value *args)
{
extern void scm_sort_filevec(const char** , int );
cig_check_nargs(2, nargs, "scm_sort_filevec");
scm_sort_filevec((const char** )AlienVal(args[1]), EXTRACT_FIXNUM(args[0]));
return SCHFALSE;
}
scheme_value df_filter_stringvec(long nargs, scheme_value *args)
{
extern char *filter_stringvec(const char *, char const ** , int *);
scheme_value ret1;
char *r1;
int r2;
cig_check_nargs(3, nargs, "filter_stringvec");
r1 = filter_stringvec(cig_string_body(args[2]), (char const ** )AlienVal(args[1]), &r2);
ret1 = VECTOR_REF(*args,0);
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
VECTOR_REF(*args,1) = ENTER_FIXNUM(r2);
return ret1;
}
scheme_value df_scm_envvec(long nargs, scheme_value *args)
{
extern char** scm_envvec(int *);
scheme_value ret1;
char** r1;
int r2;
cig_check_nargs(1, nargs, "scm_envvec");
r1 = scm_envvec(&r2);
ret1 = VECTOR_REF(*args,0);
AlienVal(ret1) = (long) r1;
VECTOR_REF(*args,1) = ENTER_FIXNUM(r2);
return ret1;
}
scheme_value df_install_env(long nargs, scheme_value *args)
{
extern int install_env(scheme_value );
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "install_env");
r1 = install_env(args[0]);
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_getenv(long nargs, scheme_value *args)
{
extern char *getenv(const char *);
scheme_value ret1;
char *r1;
cig_check_nargs(2, nargs, "getenv");
r1 = getenv(cig_string_body(args[1]));
ret1 = VECTOR_REF(*args,0);
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
return ret1;
}
#define errno_on_nonzero_or_false(x) ((x) ? ENTER_FIXNUM(errno) : SCHFALSE)
scheme_value df_putenv(long nargs, scheme_value *args)
{
scheme_value ret1;
int r1;
cig_check_nargs(1, nargs, "putenv");
r1 = putenv(scheme2c_strcpy(args[0]));
ret1 = errno_on_nonzero_or_false(r1);
return ret1;
}
scheme_value df_delete_env(long nargs, scheme_value *args)
{
extern void delete_env(const char *);
cig_check_nargs(1, nargs, "delete_env");
delete_env(cig_string_body(args[0]));
return SCHFALSE;
}
scheme_value df_set_cloexec(long nargs, scheme_value *args)
{
extern int set_cloexec(int , int );
scheme_value ret1;
int r1;
cig_check_nargs(2, nargs, "set_cloexec");
r1 = set_cloexec(EXTRACT_FIXNUM(args[1]), EXTRACT_BOOLEAN(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_fcntl_read(long nargs, scheme_value *args)
{
extern int fcntl_read(int , int );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "fcntl_read");
r1 = fcntl_read(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]));
ret1 = errno_or_false(r1);
VECTOR_REF(*args,0) = ENTER_FIXNUM(r1);
return ret1;
}
scheme_value df_fcntl_write(long nargs, scheme_value *args)
{
extern int fcntl_write(int , int , int );
scheme_value ret1;
int r1;
cig_check_nargs(3, nargs, "fcntl_write");
r1 = fcntl_write(EXTRACT_FIXNUM(args[2]), EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = errno_or_false(r1);
return ret1;
}
scheme_value df_sleep_until(long nargs, scheme_value *args)
{
extern scheme_value sleep_until(int , int );
scheme_value ret1;
scheme_value r1;
cig_check_nargs(2, nargs, "sleep_until");
r1 = sleep_until(EXTRACT_FIXNUM(args[1]), EXTRACT_FIXNUM(args[0]));
ret1 = r1;
return ret1;
}
scheme_value df_scm_gethostname(long nargs, scheme_value *args)
{
extern char *scm_gethostname(void);
scheme_value ret1;
char *r1;
cig_check_nargs(1, nargs, "scm_gethostname");
r1 = scm_gethostname();
ret1 = VECTOR_REF(*args,0);
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
return ret1;
}
scheme_value df_errno_msg(long nargs, scheme_value *args)
{
extern char *errno_msg(int );
scheme_value ret1;
char *r1;
cig_check_nargs(2, nargs, "errno_msg");
r1 = errno_msg(EXTRACT_FIXNUM(args[1]));
ret1 = VECTOR_REF(*args,0);
{AlienVal(CAR(ret1)) = (long) r1; CDR(ret1) = strlen_or_false(r1);}
return ret1;
}