Cig generated files...
This commit is contained in:
parent
28ba525f4b
commit
21cb7839bd
|
@ -22,7 +22,7 @@ extern int h_errno;
|
|||
s48_value df_socket(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern int socket(int , int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -39,7 +39,7 @@ s48_value df_socket(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
|||
s48_value df_listen(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -55,7 +55,7 @@ s48_value df_listen(s48_value g1, s48_value g2)
|
|||
s48_value df_shutdown(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int shutdown(int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -71,11 +71,11 @@ s48_value df_shutdown(s48_value g1, s48_value g2)
|
|||
s48_value df_scheme_socket_pair(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_socket_pair(int , int *, int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
int r2;
|
||||
int r3;
|
||||
int r2 = 0;
|
||||
int r3 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -91,7 +91,7 @@ s48_value df_scheme_socket_pair(s48_value g1, s48_value mv_vec)
|
|||
s48_value df_scheme_getsockopt(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_getsockopt(int , int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -108,10 +108,10 @@ s48_value df_scheme_getsockopt(s48_value g1, s48_value g2, s48_value g3, s48_val
|
|||
s48_value df_scheme_getsockopt_linger(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_getsockopt_linger(int , int , int , int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
int r2;
|
||||
int r2 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -127,10 +127,10 @@ s48_value df_scheme_getsockopt_linger(s48_value g1, s48_value g2, s48_value g3,
|
|||
s48_value df_scheme_getsockopt_timeout(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_getsockopt_timeout(int , int , int , int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
int r2;
|
||||
int r2 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -146,7 +146,7 @@ s48_value df_scheme_getsockopt_timeout(s48_value g1, s48_value g2, s48_value g3,
|
|||
s48_value df_scheme_setsockopt(s48_value g1, s48_value g2, s48_value g3, s48_value g4)
|
||||
{
|
||||
extern int scheme_setsockopt(int , int , int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -162,7 +162,7 @@ s48_value df_scheme_setsockopt(s48_value g1, s48_value g2, s48_value g3, s48_val
|
|||
s48_value df_scheme_setsockopt_linger(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5)
|
||||
{
|
||||
extern int scheme_setsockopt_linger(int , int , int , int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -178,7 +178,7 @@ s48_value df_scheme_setsockopt_linger(s48_value g1, s48_value g2, s48_value g3,
|
|||
s48_value df_scheme_setsockopt_timeout(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5)
|
||||
{
|
||||
extern int scheme_setsockopt_timeout(int , int , int , int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -194,7 +194,7 @@ s48_value df_scheme_setsockopt_timeout(s48_value g1, s48_value g2, s48_value g3,
|
|||
s48_value df_veclen(s48_value g1)
|
||||
{
|
||||
extern s48_value veclen(const long * );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
|
|
@ -15,12 +15,16 @@ extern int errno;
|
|||
s48_value df_sig2interrupt(s48_value g1)
|
||||
{
|
||||
extern int sig2interrupt(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = sig2interrupt(s48_extract_integer(g1));
|
||||
ret1 = s48_enter_integer(r1);
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
|
@ -36,32 +40,40 @@ s48_value df_do_default_sigaction(s48_value g1)
|
|||
s48_value df_scsh_set_sig(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern s48_value scsh_set_sig(int , int , int , int *, int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
s48_value r1;
|
||||
int r2;
|
||||
int r3;
|
||||
int r2 = 0;
|
||||
int r3 = 0;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = scsh_set_sig(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), &r2, &r3);
|
||||
ret1 = r1;
|
||||
S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
|
||||
S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_scsh_get_sig(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern s48_value scsh_get_sig(int , int *, int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
s48_value r1;
|
||||
int r2;
|
||||
int r3;
|
||||
int r2 = 0;
|
||||
int r3 = 0;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3);
|
||||
ret1 = r1;
|
||||
S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
|
||||
S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
|
@ -77,12 +89,16 @@ s48_value df_install_scsh_handlers(void)
|
|||
s48_value df_get_int_handlers(void)
|
||||
{
|
||||
extern s48_value get_int_handlers(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = get_int_handlers();
|
||||
ret1 = r1;
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
|
|
324
scsh/syscalls.c
324
scsh/syscalls.c
|
@ -32,7 +32,7 @@ extern int errno;
|
|||
s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
extern int scheme_exec(const char *, s48_value , s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -45,45 +45,10 @@ s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_exit(s48_value g1)
|
||||
{
|
||||
extern void exit(int );
|
||||
|
||||
|
||||
exit(s48_extract_fixnum(g1));
|
||||
return S48_FALSE;
|
||||
}
|
||||
|
||||
s48_value df__exit(s48_value g1)
|
||||
{
|
||||
extern void _exit(int );
|
||||
|
||||
|
||||
_exit(s48_extract_fixnum(g1));
|
||||
return S48_FALSE;
|
||||
}
|
||||
|
||||
s48_value df_fork(s48_value mv_vec)
|
||||
{
|
||||
extern pid_t fork(void);
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
pid_t r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = fork();
|
||||
ret1 = errno_or_false(r1);
|
||||
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_chdir(s48_value g1)
|
||||
{
|
||||
extern int chdir(const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -99,10 +64,10 @@ s48_value df_chdir(s48_value g1)
|
|||
s48_value df_scheme_cwd(s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_cwd(const char **);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
const char *r2;
|
||||
const char *r2 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -117,7 +82,7 @@ s48_value df_scheme_cwd(s48_value mv_vec)
|
|||
s48_value df_getgid(void)
|
||||
{
|
||||
extern gid_t getgid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
gid_t r1;
|
||||
|
||||
|
@ -133,7 +98,7 @@ s48_value df_getgid(void)
|
|||
s48_value df_getegid(void)
|
||||
{
|
||||
extern gid_t getegid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
gid_t r1;
|
||||
|
||||
|
@ -149,7 +114,7 @@ s48_value df_getegid(void)
|
|||
s48_value df_setgid(s48_value g1)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -165,7 +130,7 @@ s48_value df_setgid(s48_value g1)
|
|||
s48_value df_num_supp_groups(s48_value mv_vec)
|
||||
{
|
||||
extern int num_supp_groups(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -182,7 +147,7 @@ s48_value df_num_supp_groups(s48_value mv_vec)
|
|||
s48_value df_get_groups(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern int get_groups(s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -199,7 +164,7 @@ s48_value df_get_groups(s48_value g1, s48_value mv_vec)
|
|||
s48_value df_getuid(void)
|
||||
{
|
||||
extern uid_t getuid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
uid_t r1;
|
||||
|
||||
|
@ -215,7 +180,7 @@ s48_value df_getuid(void)
|
|||
s48_value df_geteuid(void)
|
||||
{
|
||||
extern uid_t geteuid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
uid_t r1;
|
||||
|
||||
|
@ -231,7 +196,7 @@ s48_value df_geteuid(void)
|
|||
s48_value df_setuid(s48_value g1)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -247,7 +212,7 @@ s48_value df_setuid(s48_value g1)
|
|||
s48_value df_getpid(void)
|
||||
{
|
||||
extern pid_t getpid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
pid_t r1;
|
||||
|
||||
|
@ -263,7 +228,7 @@ s48_value df_getpid(void)
|
|||
s48_value df_getppid(void)
|
||||
{
|
||||
extern pid_t getppid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
pid_t r1;
|
||||
|
||||
|
@ -279,7 +244,7 @@ s48_value df_getppid(void)
|
|||
s48_value df_getpgrp(void)
|
||||
{
|
||||
extern pid_t getpgrp(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
pid_t r1;
|
||||
|
||||
|
@ -295,7 +260,7 @@ s48_value df_getpgrp(void)
|
|||
s48_value df_setpgid(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int setpgid(pid_t , pid_t );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -311,7 +276,7 @@ s48_value df_setpgid(s48_value g1, s48_value g2)
|
|||
s48_value df_setsid(s48_value mv_vec)
|
||||
{
|
||||
extern pid_t setsid(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
pid_t r1;
|
||||
|
||||
|
@ -328,7 +293,7 @@ s48_value df_setsid(s48_value mv_vec)
|
|||
s48_value df_umask(s48_value g1)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
mode_t r1;
|
||||
|
||||
|
@ -344,13 +309,13 @@ s48_value df_umask(s48_value g1)
|
|||
s48_value df_process_times(s48_value mv_vec)
|
||||
{
|
||||
extern int process_times(clock_t *, clock_t *, clock_t *, clock_t *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
clock_t r2;
|
||||
clock_t r3;
|
||||
clock_t r4;
|
||||
clock_t r5;
|
||||
clock_t r2 = 0;
|
||||
clock_t r3 = 0;
|
||||
clock_t r4 = 0;
|
||||
clock_t r5 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -368,7 +333,7 @@ s48_value df_process_times(s48_value mv_vec)
|
|||
s48_value df_cpu_clock_ticks_per_sec(void)
|
||||
{
|
||||
extern int cpu_clock_ticks_per_sec(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -384,7 +349,7 @@ s48_value df_cpu_clock_ticks_per_sec(void)
|
|||
s48_value df_chmod(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -400,7 +365,7 @@ s48_value df_chmod(s48_value g1, s48_value g2)
|
|||
s48_value df_fchmod(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -416,7 +381,7 @@ s48_value df_fchmod(s48_value g1, s48_value g2)
|
|||
s48_value df_chown(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -432,7 +397,7 @@ s48_value df_chown(s48_value g1, s48_value g2, s48_value g3)
|
|||
s48_value df_fchown(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
extern int fchown(int , uid_t , gid_t );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -448,7 +413,7 @@ s48_value df_fchown(s48_value g1, s48_value g2, s48_value g3)
|
|||
s48_value df_access(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int access(const char *, int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -464,7 +429,7 @@ s48_value df_access(s48_value g1, s48_value g2)
|
|||
s48_value df_link(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int link(const char *, const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -480,7 +445,7 @@ s48_value df_link(s48_value g1, s48_value g2)
|
|||
s48_value df_mkfifo(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -496,7 +461,7 @@ s48_value df_mkfifo(s48_value g1, s48_value g2)
|
|||
s48_value df_mkdir(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -509,28 +474,10 @@ s48_value df_mkdir(s48_value g1, s48_value g2)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_scm_readlink(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern s48_value scm_readlink(const char *, s48_value *);
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
s48_value r1;
|
||||
s48_value r2;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = scm_readlink(s48_extract_string(g1), &r2);
|
||||
ret1 = r1;
|
||||
S48_VECTOR_SET(mv_vec,0,r2);
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_rename(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int rename(const char *, const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -546,7 +493,7 @@ s48_value df_rename(s48_value g1, s48_value g2)
|
|||
s48_value df_rmdir(s48_value g1)
|
||||
{
|
||||
extern int rmdir(const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -562,7 +509,7 @@ s48_value df_rmdir(s48_value g1)
|
|||
s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
extern int scm_utime(const char *, time_t , time_t );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -578,7 +525,7 @@ s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3)
|
|||
s48_value df_scm_utime_now(s48_value g1)
|
||||
{
|
||||
extern int scm_utime_now(const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -594,7 +541,7 @@ s48_value df_scm_utime_now(s48_value g1)
|
|||
s48_value df_scheme_stat(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
extern int scheme_stat(const char *, s48_value , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -610,7 +557,7 @@ s48_value df_scheme_stat(s48_value g1, s48_value g2, s48_value g3)
|
|||
s48_value df_scheme_fstat(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int scheme_fstat(int , s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -626,7 +573,7 @@ s48_value df_scheme_fstat(s48_value g1, s48_value g2)
|
|||
s48_value df_symlink(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -642,7 +589,7 @@ s48_value df_symlink(s48_value g1, s48_value g2)
|
|||
s48_value df_truncate(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -658,7 +605,7 @@ s48_value df_truncate(s48_value g1, s48_value g2)
|
|||
s48_value df_ftruncate(s48_value g1, s48_value g2)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -674,7 +621,7 @@ s48_value df_ftruncate(s48_value g1, s48_value g2)
|
|||
s48_value df_unlink(s48_value g1)
|
||||
{
|
||||
extern int unlink(const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -690,7 +637,7 @@ s48_value df_unlink(s48_value g1)
|
|||
s48_value df_fsync(s48_value g1)
|
||||
{
|
||||
extern int fsync(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -715,7 +662,7 @@ s48_value df_sync(void)
|
|||
s48_value df_close(s48_value g1)
|
||||
{
|
||||
extern int close(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -731,7 +678,7 @@ s48_value df_close(s48_value g1)
|
|||
s48_value df_dup(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern int dup(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -748,7 +695,7 @@ s48_value df_dup(s48_value g1, s48_value mv_vec)
|
|||
s48_value df_dup2(s48_value g1, s48_value g2, s48_value mv_vec)
|
||||
{
|
||||
extern int dup2(int , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -765,7 +712,7 @@ s48_value df_dup2(s48_value g1, s48_value g2, s48_value mv_vec)
|
|||
s48_value df_lseek(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
extern off_t lseek(int , off_t , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
off_t r1;
|
||||
|
||||
|
@ -782,7 +729,7 @@ s48_value df_lseek(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
|||
s48_value df_char_ready_fdes(s48_value g1)
|
||||
{
|
||||
extern s48_value char_ready_fdes(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -798,7 +745,7 @@ s48_value df_char_ready_fdes(s48_value g1)
|
|||
s48_value df_open(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
||||
{
|
||||
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
@ -812,30 +759,10 @@ s48_value df_open(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_scheme_pipe(s48_value mv_vec)
|
||||
{
|
||||
extern int scheme_pipe(int *, int *);
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
int r2;
|
||||
int r3;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = scheme_pipe(&r2, &r3);
|
||||
ret1 = False_on_zero(r1);
|
||||
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2));
|
||||
S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3));
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_read_fdes_char(s48_value g1)
|
||||
{
|
||||
extern s48_value read_fdes_char(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -851,7 +778,7 @@ s48_value df_read_fdes_char(s48_value g1)
|
|||
s48_value df_write_fdes_char(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int write_fdes_char(char , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -867,7 +794,7 @@ s48_value df_write_fdes_char(s48_value g1, s48_value g2)
|
|||
s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
|
||||
{
|
||||
extern ssize_t read_fdes_substring(s48_value , size_t , size_t , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
ssize_t r1;
|
||||
|
||||
|
@ -884,7 +811,7 @@ s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_v
|
|||
s48_value df_write_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value mv_vec)
|
||||
{
|
||||
extern ssize_t write_fdes_substring(s48_value , size_t , size_t , int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
ssize_t r1;
|
||||
|
||||
|
@ -898,22 +825,6 @@ s48_value df_write_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_kill(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int kill(pid_t , int );
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = kill(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
||||
ret1 = errno_or_false(r1);
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_pause(void)
|
||||
{
|
||||
|
||||
|
@ -926,11 +837,11 @@ s48_value df_pause(void)
|
|||
s48_value df_open_dir(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern int open_dir(const char *, char** *, int *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
char** r2;
|
||||
int r3;
|
||||
char** r2 = 0;
|
||||
int r3 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -955,7 +866,7 @@ s48_value df_scm_sort_filevec(s48_value g1, s48_value g2)
|
|||
s48_value df_scm_envvec(void)
|
||||
{
|
||||
extern s48_value scm_envvec(void);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -971,7 +882,7 @@ s48_value df_scm_envvec(void)
|
|||
s48_value df_install_env(s48_value g1)
|
||||
{
|
||||
extern int install_env(s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
@ -987,10 +898,10 @@ s48_value df_install_env(s48_value g1)
|
|||
s48_value df_create_env(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern int create_env(s48_value , s48_value *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
s48_value r2;
|
||||
s48_value r2 = 0;
|
||||
|
||||
|
||||
|
||||
|
@ -1014,7 +925,7 @@ s48_value df_align_env(s48_value g1)
|
|||
s48_value df_free_envvec(s48_value g1)
|
||||
{
|
||||
extern s48_value free_envvec(s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -1030,7 +941,7 @@ s48_value df_free_envvec(s48_value g1)
|
|||
s48_value df_envvec_setenv(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern s48_value envvec_setenv(s48_value , s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -1046,7 +957,7 @@ s48_value df_envvec_setenv(s48_value g1, s48_value g2)
|
|||
s48_value df_getenv(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern char *getenv(const char *);
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
char *r1;
|
||||
|
||||
|
@ -1065,7 +976,7 @@ s48_value df_getenv(s48_value g1, s48_value mv_vec)
|
|||
s48_value df_delete_env(s48_value g1)
|
||||
{
|
||||
extern s48_value delete_env(s48_value );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -1078,59 +989,10 @@ s48_value df_delete_env(s48_value g1)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_set_cloexec(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern int set_cloexec(int , int );
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = set_cloexec(s48_extract_fixnum(g1), EXTRACT_BOOLEAN(g2));
|
||||
ret1 = errno_or_false(r1);
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_fcntl_read(s48_value g1, s48_value g2, s48_value mv_vec)
|
||||
{
|
||||
extern int fcntl_read(int , int );
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
int r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_2(mv_vec,ret1);
|
||||
r1 = fcntl_read(s48_extract_fixnum(g1), s48_extract_fixnum(g2));
|
||||
ret1 = errno_or_false(r1);
|
||||
S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1));
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_fcntl_write(s48_value g1, s48_value g2, s48_value g3)
|
||||
{
|
||||
extern int fcntl_write(int , int , int );
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
int r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = fcntl_write(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3));
|
||||
ret1 = errno_or_false(r1);
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_sleep_until(s48_value g1)
|
||||
{
|
||||
extern s48_value sleep_until(time_t );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
@ -1143,26 +1005,10 @@ s48_value df_sleep_until(s48_value g1)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_scm_gethostname(void)
|
||||
{
|
||||
extern s48_value scm_gethostname(void);
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = scm_gethostname();
|
||||
ret1 = r1;
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
|
||||
{
|
||||
extern char *errno_msg(int );
|
||||
s48_value ret1;
|
||||
s48_value ret1 = S48_FALSE;
|
||||
S48_DECLARE_GC_PROTECT(2);
|
||||
char *r1;
|
||||
|
||||
|
@ -1176,28 +1022,12 @@ s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
|
|||
return ret1;
|
||||
}
|
||||
|
||||
s48_value df_scm_crypt(s48_value g1, s48_value g2)
|
||||
{
|
||||
extern s48_value scm_crypt(s48_value , s48_value );
|
||||
s48_value ret1;
|
||||
S48_DECLARE_GC_PROTECT(1);
|
||||
s48_value r1;
|
||||
|
||||
|
||||
|
||||
S48_GC_PROTECT_1(ret1);
|
||||
r1 = scm_crypt(g1, g2);
|
||||
ret1 = r1;
|
||||
S48_GC_UNPROTECT();
|
||||
return ret1;
|
||||
}
|
||||
|
||||
s48_value s48_init_syscalls(void)
|
||||
{
|
||||
S48_EXPORT_FUNCTION(df_scheme_exec);
|
||||
S48_EXPORT_FUNCTION(df_exit);
|
||||
S48_EXPORT_FUNCTION(df__exit);
|
||||
S48_EXPORT_FUNCTION(df_fork);
|
||||
S48_EXPORT_FUNCTION(scsh_exit);
|
||||
S48_EXPORT_FUNCTION(scsh__exit);
|
||||
S48_EXPORT_FUNCTION(scsh_fork);
|
||||
S48_EXPORT_FUNCTION(wait_pid);
|
||||
S48_EXPORT_FUNCTION(df_chdir);
|
||||
S48_EXPORT_FUNCTION(df_scheme_cwd);
|
||||
|
@ -1225,7 +1055,7 @@ s48_value s48_init_syscalls(void)
|
|||
S48_EXPORT_FUNCTION(df_link);
|
||||
S48_EXPORT_FUNCTION(df_mkfifo);
|
||||
S48_EXPORT_FUNCTION(df_mkdir);
|
||||
S48_EXPORT_FUNCTION(df_scm_readlink);
|
||||
S48_EXPORT_FUNCTION(scm_readlink);
|
||||
S48_EXPORT_FUNCTION(df_rename);
|
||||
S48_EXPORT_FUNCTION(df_rmdir);
|
||||
S48_EXPORT_FUNCTION(df_scm_utime);
|
||||
|
@ -1244,12 +1074,12 @@ s48_value s48_init_syscalls(void)
|
|||
S48_EXPORT_FUNCTION(df_lseek);
|
||||
S48_EXPORT_FUNCTION(df_char_ready_fdes);
|
||||
S48_EXPORT_FUNCTION(df_open);
|
||||
S48_EXPORT_FUNCTION(df_scheme_pipe);
|
||||
S48_EXPORT_FUNCTION(scheme_pipe);
|
||||
S48_EXPORT_FUNCTION(df_read_fdes_char);
|
||||
S48_EXPORT_FUNCTION(df_write_fdes_char);
|
||||
S48_EXPORT_FUNCTION(df_read_fdes_substring);
|
||||
S48_EXPORT_FUNCTION(df_write_fdes_substring);
|
||||
S48_EXPORT_FUNCTION(df_kill);
|
||||
S48_EXPORT_FUNCTION(scsh_kill);
|
||||
S48_EXPORT_FUNCTION(df_pause);
|
||||
S48_EXPORT_FUNCTION(df_open_dir);
|
||||
S48_EXPORT_FUNCTION(df_scm_sort_filevec);
|
||||
|
@ -1261,13 +1091,13 @@ s48_value s48_init_syscalls(void)
|
|||
S48_EXPORT_FUNCTION(df_envvec_setenv);
|
||||
S48_EXPORT_FUNCTION(df_getenv);
|
||||
S48_EXPORT_FUNCTION(df_delete_env);
|
||||
S48_EXPORT_FUNCTION(df_set_cloexec);
|
||||
S48_EXPORT_FUNCTION(df_fcntl_read);
|
||||
S48_EXPORT_FUNCTION(df_fcntl_write);
|
||||
S48_EXPORT_FUNCTION(set_cloexec);
|
||||
S48_EXPORT_FUNCTION(fcntl_read);
|
||||
S48_EXPORT_FUNCTION(fcntl_write);
|
||||
S48_EXPORT_FUNCTION(df_sleep_until);
|
||||
S48_EXPORT_FUNCTION(df_scm_gethostname);
|
||||
S48_EXPORT_FUNCTION(scm_gethostname);
|
||||
S48_EXPORT_FUNCTION(df_errno_msg);
|
||||
S48_EXPORT_FUNCTION(df_scm_crypt);
|
||||
S48_EXPORT_FUNCTION(scm_crypt);
|
||||
|
||||
return S48_UNSPECIFIC;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue