scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cig generated files...

This commit is contained in:
mainzelm 2000-10-19 08:37:34 +00:00
parent 28ba525f4b
commit 21cb7839bd
3 changed files with 116 additions and 270 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scsh/network.c
View File

@ -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) s48_value df_socket(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec)
{ {
extern int socket(int , int , int ); extern int socket(int , int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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 df_listen(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_shutdown(s48_value g1, s48_value g2)
{ {
extern int shutdown(int , int ); extern int shutdown(int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_scheme_socket_pair(s48_value g1, s48_value mv_vec)
{ {
extern int scheme_socket_pair(int , int *, int *); extern int scheme_socket_pair(int , int *, int *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; int r1;
int r2; int r2 = 0;
int r3; 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) 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 ); extern int scheme_getsockopt(int , int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) 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 *); extern int scheme_getsockopt_linger(int , int , int , int *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) 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 *); extern int scheme_getsockopt_timeout(int , int , int , int *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) 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 ); extern int scheme_setsockopt(int , int , int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) 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 ); extern int scheme_setsockopt_linger(int , int , int , int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) 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 ); extern int scheme_setsockopt_timeout(int , int , int , int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_veclen(s48_value g1)
{ {
extern s48_value veclen(const long * ); extern s48_value veclen(const long * );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;

32
scsh/sighandlers.c
View File

@ -15,12 +15,16 @@ extern int errno;
s48_value df_sig2interrupt(s48_value g1) s48_value df_sig2interrupt(s48_value g1)
{ {
extern int sig2interrupt(int ); extern int sig2interrupt(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
S48_GC_PROTECT_1(ret1);
r1 = sig2interrupt(s48_extract_integer(g1)); r1 = sig2interrupt(s48_extract_integer(g1));
ret1 = s48_enter_integer(r1); ret1 = s48_enter_integer(r1);
S48_GC_UNPROTECT();
return ret1; 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) 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 *); 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; s48_value r1;
int r2; int r2 = 0;
int r3; 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); r1 = scsh_set_sig(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), &r2, &r3);
ret1 = r1; ret1 = r1;
S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3)); S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
s48_value df_scsh_get_sig(s48_value g1, s48_value mv_vec) s48_value df_scsh_get_sig(s48_value g1, s48_value mv_vec)
{ {
extern s48_value scsh_get_sig(int , int *, int *); 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; s48_value r1;
int r2; int r2 = 0;
int r3; int r3 = 0;
S48_GC_PROTECT_2(mv_vec,ret1);
r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3); r1 = scsh_get_sig(s48_extract_fixnum(g1), &r2, &r3);
ret1 = r1; ret1 = r1;
S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2));
S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3)); S48_VECTOR_SET(mv_vec,1,s48_enter_integer(r3));
S48_GC_UNPROTECT();
return ret1; return ret1;
} }
@ -77,12 +89,16 @@ s48_value df_install_scsh_handlers(void)
s48_value df_get_int_handlers(void) s48_value df_get_int_handlers(void)
{ {
extern s48_value 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_value r1;
S48_GC_PROTECT_1(ret1);
r1 = get_int_handlers(); r1 = get_int_handlers();
ret1 = r1; ret1 = r1;
S48_GC_UNPROTECT();
return ret1; return ret1;
} }

324
scsh/syscalls.c
View File

@ -32,7 +32,7 @@ extern int errno;
s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3) s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3)
{ {
extern int scheme_exec(const char *, s48_value , s48_value ); extern int scheme_exec(const char *, s48_value , s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -45,45 +45,10 @@ s48_value df_scheme_exec(s48_value g1, s48_value g2, s48_value g3)
return ret1; 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) s48_value df_chdir(s48_value g1)
{ {
extern int chdir(const char *); extern int chdir(const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -99,10 +64,10 @@ s48_value df_chdir(s48_value g1)
s48_value df_scheme_cwd(s48_value mv_vec) s48_value df_scheme_cwd(s48_value mv_vec)
{ {
extern int scheme_cwd(const char **); extern int scheme_cwd(const char **);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) s48_value df_getgid(void)
{ {
extern gid_t getgid(void); extern gid_t getgid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
gid_t r1; gid_t r1;
@ -133,7 +98,7 @@ s48_value df_getgid(void)
s48_value df_getegid(void) s48_value df_getegid(void)
{ {
extern gid_t getegid(void); extern gid_t getegid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
gid_t r1; gid_t r1;
@ -149,7 +114,7 @@ s48_value df_getegid(void)
s48_value df_setgid(s48_value g1) s48_value df_setgid(s48_value g1)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -165,7 +130,7 @@ s48_value df_setgid(s48_value g1)
s48_value df_num_supp_groups(s48_value mv_vec) s48_value df_num_supp_groups(s48_value mv_vec)
{ {
extern int num_supp_groups(void); extern int num_supp_groups(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) s48_value df_get_groups(s48_value g1, s48_value mv_vec)
{ {
extern int get_groups(s48_value ); extern int get_groups(s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; int r1;
@ -199,7 +164,7 @@ s48_value df_get_groups(s48_value g1, s48_value mv_vec)
s48_value df_getuid(void) s48_value df_getuid(void)
{ {
extern uid_t getuid(void); extern uid_t getuid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
uid_t r1; uid_t r1;
@ -215,7 +180,7 @@ s48_value df_getuid(void)
s48_value df_geteuid(void) s48_value df_geteuid(void)
{ {
extern uid_t geteuid(void); extern uid_t geteuid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
uid_t r1; uid_t r1;
@ -231,7 +196,7 @@ s48_value df_geteuid(void)
s48_value df_setuid(s48_value g1) s48_value df_setuid(s48_value g1)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -247,7 +212,7 @@ s48_value df_setuid(s48_value g1)
s48_value df_getpid(void) s48_value df_getpid(void)
{ {
extern pid_t getpid(void); extern pid_t getpid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
pid_t r1; pid_t r1;
@ -263,7 +228,7 @@ s48_value df_getpid(void)
s48_value df_getppid(void) s48_value df_getppid(void)
{ {
extern pid_t getppid(void); extern pid_t getppid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
pid_t r1; pid_t r1;
@ -279,7 +244,7 @@ s48_value df_getppid(void)
s48_value df_getpgrp(void) s48_value df_getpgrp(void)
{ {
extern pid_t getpgrp(void); extern pid_t getpgrp(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
pid_t r1; pid_t r1;
@ -295,7 +260,7 @@ s48_value df_getpgrp(void)
s48_value df_setpgid(s48_value g1, s48_value g2) s48_value df_setpgid(s48_value g1, s48_value g2)
{ {
extern int setpgid(pid_t , pid_t ); extern int setpgid(pid_t , pid_t );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -311,7 +276,7 @@ s48_value df_setpgid(s48_value g1, s48_value g2)
s48_value df_setsid(s48_value mv_vec) s48_value df_setsid(s48_value mv_vec)
{ {
extern pid_t setsid(void); extern pid_t setsid(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
pid_t r1; pid_t r1;
@ -328,7 +293,7 @@ s48_value df_setsid(s48_value mv_vec)
s48_value df_umask(s48_value g1) s48_value df_umask(s48_value g1)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
mode_t r1; mode_t r1;
@ -344,13 +309,13 @@ s48_value df_umask(s48_value g1)
s48_value df_process_times(s48_value mv_vec) s48_value df_process_times(s48_value mv_vec)
{ {
extern int process_times(clock_t *, clock_t *, clock_t *, clock_t *); 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); S48_DECLARE_GC_PROTECT(2);
int r1; int r1;
clock_t r2; clock_t r2 = 0;
clock_t r3; clock_t r3 = 0;
clock_t r4; clock_t r4 = 0;
clock_t r5; 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) s48_value df_cpu_clock_ticks_per_sec(void)
{ {
extern int 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); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_chmod(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_fchmod(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_chown(s48_value g1, s48_value g2, s48_value g3)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_fchown(s48_value g1, s48_value g2, s48_value g3)
{ {
extern int fchown(int , uid_t , gid_t ); extern int fchown(int , uid_t , gid_t );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_access(s48_value g1, s48_value g2)
{ {
extern int access(const char *, int ); extern int access(const char *, int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_link(s48_value g1, s48_value g2)
{ {
extern int link(const char *, const char *); extern int link(const char *, const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_mkfifo(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_mkdir(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -509,28 +474,10 @@ s48_value df_mkdir(s48_value g1, s48_value g2)
return ret1; 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) s48_value df_rename(s48_value g1, s48_value g2)
{ {
extern int rename(const char *, const char *); extern int rename(const char *, const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -546,7 +493,7 @@ s48_value df_rename(s48_value g1, s48_value g2)
s48_value df_rmdir(s48_value g1) s48_value df_rmdir(s48_value g1)
{ {
extern int rmdir(const char *); extern int rmdir(const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_scm_utime(s48_value g1, s48_value g2, s48_value g3)
{ {
extern int scm_utime(const char *, time_t , time_t ); extern int scm_utime(const char *, time_t , time_t );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_scm_utime_now(s48_value g1)
{ {
extern int scm_utime_now(const char *); extern int scm_utime_now(const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_scheme_stat(s48_value g1, s48_value g2, s48_value g3)
{ {
extern int scheme_stat(const char *, s48_value , int ); extern int scheme_stat(const char *, s48_value , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_scheme_fstat(s48_value g1, s48_value g2)
{ {
extern int scheme_fstat(int , s48_value ); extern int scheme_fstat(int , s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_symlink(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_truncate(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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 df_ftruncate(s48_value g1, s48_value g2)
{ {
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -674,7 +621,7 @@ s48_value df_ftruncate(s48_value g1, s48_value g2)
s48_value df_unlink(s48_value g1) s48_value df_unlink(s48_value g1)
{ {
extern int unlink(const char *); extern int unlink(const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -690,7 +637,7 @@ s48_value df_unlink(s48_value g1)
s48_value df_fsync(s48_value g1) s48_value df_fsync(s48_value g1)
{ {
extern int fsync(int ); extern int fsync(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -715,7 +662,7 @@ s48_value df_sync(void)
s48_value df_close(s48_value g1) s48_value df_close(s48_value g1)
{ {
extern int close(int ); extern int close(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; int r1;
@ -731,7 +678,7 @@ s48_value df_close(s48_value g1)
s48_value df_dup(s48_value g1, s48_value mv_vec) s48_value df_dup(s48_value g1, s48_value mv_vec)
{ {
extern int dup(int ); extern int dup(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) s48_value df_dup2(s48_value g1, s48_value g2, s48_value mv_vec)
{ {
extern int dup2(int , int ); extern int dup2(int , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) 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 ); extern off_t lseek(int , off_t , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
off_t r1; 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) s48_value df_char_ready_fdes(s48_value g1)
{ {
extern s48_value char_ready_fdes(int ); extern s48_value char_ready_fdes(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; 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 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); S48_DECLARE_GC_PROTECT(2);
int r1; 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; 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) s48_value df_read_fdes_char(s48_value g1)
{ {
extern s48_value read_fdes_char(int ); extern s48_value read_fdes_char(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; 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) s48_value df_write_fdes_char(s48_value g1, s48_value g2)
{ {
extern int write_fdes_char(char , int ); extern int write_fdes_char(char , int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) 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 ); 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); S48_DECLARE_GC_PROTECT(2);
ssize_t r1; 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) 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 ); 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); S48_DECLARE_GC_PROTECT(2);
ssize_t r1; 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; 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) 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) s48_value df_open_dir(s48_value g1, s48_value mv_vec)
{ {
extern int open_dir(const char *, char** *, int *); extern int open_dir(const char *, char** *, int *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; int r1;
char** r2; char** r2 = 0;
int r3; 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) s48_value df_scm_envvec(void)
{ {
extern s48_value scm_envvec(void); extern s48_value scm_envvec(void);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;
@ -971,7 +882,7 @@ s48_value df_scm_envvec(void)
s48_value df_install_env(s48_value g1) s48_value df_install_env(s48_value g1)
{ {
extern int install_env(s48_value ); extern int install_env(s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
int r1; 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) s48_value df_create_env(s48_value g1, s48_value mv_vec)
{ {
extern int create_env(s48_value , s48_value *); extern int create_env(s48_value , s48_value *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
int r1; 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) s48_value df_free_envvec(s48_value g1)
{ {
extern s48_value free_envvec(s48_value ); extern s48_value free_envvec(s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; 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) s48_value df_envvec_setenv(s48_value g1, s48_value g2)
{ {
extern s48_value envvec_setenv(s48_value , s48_value ); extern s48_value envvec_setenv(s48_value , s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; 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) s48_value df_getenv(s48_value g1, s48_value mv_vec)
{ {
extern char *getenv(const char *); extern char *getenv(const char *);
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
char *r1; 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) s48_value df_delete_env(s48_value g1)
{ {
extern s48_value delete_env(s48_value ); extern s48_value delete_env(s48_value );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;
@ -1078,59 +989,10 @@ s48_value df_delete_env(s48_value g1)
return ret1; 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) s48_value df_sleep_until(s48_value g1)
{ {
extern s48_value sleep_until(time_t ); extern s48_value sleep_until(time_t );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(1); S48_DECLARE_GC_PROTECT(1);
s48_value r1; s48_value r1;
@ -1143,26 +1005,10 @@ s48_value df_sleep_until(s48_value g1)
return ret1; 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) s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
{ {
extern char *errno_msg(int ); extern char *errno_msg(int );
s48_value ret1; s48_value ret1 = S48_FALSE;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
char *r1; char *r1;
@ -1176,28 +1022,12 @@ s48_value df_errno_msg(s48_value g1, s48_value mv_vec)
return ret1; 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_value s48_init_syscalls(void)
{ {
S48_EXPORT_FUNCTION(df_scheme_exec); S48_EXPORT_FUNCTION(df_scheme_exec);
S48_EXPORT_FUNCTION(df_exit); S48_EXPORT_FUNCTION(scsh_exit);
S48_EXPORT_FUNCTION(df__exit); S48_EXPORT_FUNCTION(scsh__exit);
S48_EXPORT_FUNCTION(df_fork); S48_EXPORT_FUNCTION(scsh_fork);
S48_EXPORT_FUNCTION(wait_pid); S48_EXPORT_FUNCTION(wait_pid);
S48_EXPORT_FUNCTION(df_chdir); S48_EXPORT_FUNCTION(df_chdir);
S48_EXPORT_FUNCTION(df_scheme_cwd); 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_link);
S48_EXPORT_FUNCTION(df_mkfifo); S48_EXPORT_FUNCTION(df_mkfifo);
S48_EXPORT_FUNCTION(df_mkdir); 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_rename);
S48_EXPORT_FUNCTION(df_rmdir); S48_EXPORT_FUNCTION(df_rmdir);
S48_EXPORT_FUNCTION(df_scm_utime); 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_lseek);
S48_EXPORT_FUNCTION(df_char_ready_fdes); S48_EXPORT_FUNCTION(df_char_ready_fdes);
S48_EXPORT_FUNCTION(df_open); 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_read_fdes_char);
S48_EXPORT_FUNCTION(df_write_fdes_char); S48_EXPORT_FUNCTION(df_write_fdes_char);
S48_EXPORT_FUNCTION(df_read_fdes_substring); S48_EXPORT_FUNCTION(df_read_fdes_substring);
S48_EXPORT_FUNCTION(df_write_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_pause);
S48_EXPORT_FUNCTION(df_open_dir); S48_EXPORT_FUNCTION(df_open_dir);
S48_EXPORT_FUNCTION(df_scm_sort_filevec); 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_envvec_setenv);
S48_EXPORT_FUNCTION(df_getenv); S48_EXPORT_FUNCTION(df_getenv);
S48_EXPORT_FUNCTION(df_delete_env); S48_EXPORT_FUNCTION(df_delete_env);
S48_EXPORT_FUNCTION(df_set_cloexec); S48_EXPORT_FUNCTION(set_cloexec);
S48_EXPORT_FUNCTION(df_fcntl_read); S48_EXPORT_FUNCTION(fcntl_read);
S48_EXPORT_FUNCTION(df_fcntl_write); S48_EXPORT_FUNCTION(fcntl_write);
S48_EXPORT_FUNCTION(df_sleep_until); 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_errno_msg);
S48_EXPORT_FUNCTION(df_scm_crypt); S48_EXPORT_FUNCTION(scm_crypt);
return S48_UNSPECIFIC; return S48_UNSPECIFIC;
} }