From 21cb7839bd17556a6d2186f1ce8d19f840181df7 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Thu, 19 Oct 2000 08:37:34 +0000 Subject: [PATCH] Cig generated files... --- scsh/network.c | 30 ++--- scsh/sighandlers.c | 32 +++-- scsh/syscalls.c | 324 +++++++++++---------------------------------- 3 files changed, 116 insertions(+), 270 deletions(-) diff --git a/scsh/network.c b/scsh/network.c index e923b73..57c214c 100644 --- a/scsh/network.c +++ b/scsh/network.c @@ -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; diff --git a/scsh/sighandlers.c b/scsh/sighandlers.c index 2088d6f..fab1a94 100644 --- a/scsh/sighandlers.c +++ b/scsh/sighandlers.c @@ -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; } diff --git a/scsh/syscalls.c b/scsh/syscalls.c index 9c5f864..e5e9c52 100644 --- a/scsh/syscalls.c +++ b/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; }