From 67805dde9f7e6f33869fff52166e40ed671bf1bd Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 9 Jan 2001 15:57:06 +0000 Subject: [PATCH] Snapshot of cig generated files. --- scsh/flock.c | 18 ++++++++---------- scsh/network.c | 1 - scsh/select.c | 4 +--- scsh/syscalls.c | 7 ++++--- scsh/tty.c | 42 ++++++++++++++++++++---------------------- 5 files changed, 33 insertions(+), 39 deletions(-) diff --git a/scsh/flock.c b/scsh/flock.c index 64d15ba..b99ea4d 100644 --- a/scsh/flock.c +++ b/scsh/flock.c @@ -21,7 +21,7 @@ extern int errno; s48_value df_set_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6) { extern int set_lock(int , int , int , int , int , int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -37,14 +37,14 @@ s48_value df_set_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s4 s48_value df_get_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value mv_vec) { extern int get_lock(int , int , int , int , int , int , int *, int *, int *, int *, int *); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); int r1; - int r2; - int r3; - int r4; - int r5; - int r6; + int r2 = 0; + int r3 = 0; + int r4 = 0; + int r5 = 0; + int r6 = 0; @@ -60,10 +60,8 @@ s48_value df_get_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s4 return ret1; } -s48_value s48_init_flock(void) +void s48_init_flock(void) { S48_EXPORT_FUNCTION(df_set_lock); S48_EXPORT_FUNCTION(df_get_lock); - - return S48_UNSPECIFIC; } diff --git a/scsh/network.c b/scsh/network.c index ea4ba22..43202da 100644 --- a/scsh/network.c +++ b/scsh/network.c @@ -95,5 +95,4 @@ void s48_init_network(void) S48_EXPORT_FUNCTION(scheme_serv_name2serv_info); S48_EXPORT_FUNCTION(scheme_proto_num2proto_info); S48_EXPORT_FUNCTION(scheme_proto_name2proto_info); - } diff --git a/scsh/select.c b/scsh/select.c index 5f7fe2f..22d06f4 100644 --- a/scsh/select.c +++ b/scsh/select.c @@ -54,10 +54,8 @@ s48_value df_select_filter(s48_value g1, s48_value g2, s48_value g3, s48_value g return ret1; } -s48_value s48_init_select(void) +void s48_init_select(void) { S48_EXPORT_FUNCTION(df_select_copyback); S48_EXPORT_FUNCTION(df_select_filter); - - return S48_UNSPECIFIC; } diff --git a/scsh/syscalls.c b/scsh/syscalls.c index f3e59f2..7063191 100644 --- a/scsh/syscalls.c +++ b/scsh/syscalls.c @@ -810,7 +810,7 @@ s48_value df_errno_msg(s48_value g1, s48_value mv_vec) return ret1; } -s48_value s48_init_syscalls(void) +void s48_init_syscalls(void) { S48_EXPORT_FUNCTION(scheme_exec); S48_EXPORT_FUNCTION(scsh_exit); @@ -887,6 +887,7 @@ s48_value s48_init_syscalls(void) S48_EXPORT_FUNCTION(scm_gethostname); S48_EXPORT_FUNCTION(df_errno_msg); S48_EXPORT_FUNCTION(scm_crypt); - - return S48_UNSPECIFIC; + S48_EXPORT_FUNCTION(scm_openlog); + S48_EXPORT_FUNCTION(scm_syslog); + S48_EXPORT_FUNCTION(scm_closelog); } diff --git a/scsh/tty.c b/scsh/tty.c index 4b34d8f..15602fd 100644 --- a/scsh/tty.c +++ b/scsh/tty.c @@ -22,15 +22,15 @@ extern int errno; s48_value df_scheme_tcgetattr(s48_value g1, s48_value g2, s48_value mv_vec) { extern int scheme_tcgetattr(int , char *, int *, int *, int *, int *, int *, int *); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); int r1; - int r2; - int r3; - int r4; - int r5; - int r6; - int r7; + int r2 = 0; + int r3 = 0; + int r4 = 0; + int r5 = 0; + int r6 = 0; + int r7 = 0; @@ -50,7 +50,7 @@ s48_value df_scheme_tcgetattr(s48_value g1, s48_value g2, s48_value mv_vec) s48_value df_scheme_tcgetattrB(s48_value g1, s48_value g2, s48_value g3) { extern int scheme_tcgetattrB(int , char *, s48_value ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -66,7 +66,7 @@ s48_value df_scheme_tcgetattrB(s48_value g1, s48_value g2, s48_value g3) s48_value df_scheme_tcsetattr(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value g7, s48_value g8, s48_value g9, s48_value g10, s48_value g11) { extern int scheme_tcsetattr(int , int , const char *, int , int , int , int , int , int , int , int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -82,7 +82,7 @@ s48_value df_scheme_tcsetattr(s48_value g1, s48_value g2, s48_value g3, s48_valu s48_value df_tcsendbreak(s48_value g1, s48_value g2) { extern int tcsendbreak(int , int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -98,7 +98,7 @@ s48_value df_tcsendbreak(s48_value g1, s48_value g2) s48_value df_tcdrain(s48_value g1) { - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -114,7 +114,7 @@ s48_value df_tcdrain(s48_value g1) s48_value df_tcflush(s48_value g1, s48_value g2) { - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -130,7 +130,7 @@ s48_value df_tcflush(s48_value g1, s48_value g2) s48_value df_tcflow(s48_value g1, s48_value g2) { - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -146,7 +146,7 @@ s48_value df_tcflow(s48_value g1, s48_value g2) s48_value df_tcsetpgrp(s48_value g1, s48_value g2) { - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -162,7 +162,7 @@ s48_value df_tcsetpgrp(s48_value g1, s48_value g2) s48_value df_tcgetpgrp(s48_value g1, s48_value mv_vec) { - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); pid_t r1; @@ -179,7 +179,7 @@ s48_value df_tcgetpgrp(s48_value g1, s48_value mv_vec) s48_value df_open_ctty(s48_value g1, s48_value g2, s48_value mv_vec) { extern int open_ctty(const char *, int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); int r1; @@ -196,7 +196,7 @@ s48_value df_open_ctty(s48_value g1, s48_value g2, s48_value mv_vec) s48_value df_isatty(s48_value g1) { extern int isatty(int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(1); int r1; @@ -212,7 +212,7 @@ s48_value df_isatty(s48_value g1) s48_value df_ttyname(s48_value g1, s48_value mv_vec) { extern char *ttyname(int ); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); char *r1; @@ -229,7 +229,7 @@ s48_value df_ttyname(s48_value g1, s48_value mv_vec) s48_value df_scm_ctermid(s48_value mv_vec) { extern char *scm_ctermid(void); - s48_value ret1; + s48_value ret1 = S48_FALSE; S48_DECLARE_GC_PROTECT(2); char *r1; @@ -243,7 +243,7 @@ s48_value df_scm_ctermid(s48_value mv_vec) return ret1; } -s48_value s48_init_tty(void) +void s48_init_tty(void) { S48_EXPORT_FUNCTION(df_scheme_tcgetattr); S48_EXPORT_FUNCTION(df_scheme_tcgetattrB); @@ -258,6 +258,4 @@ s48_value s48_init_tty(void) S48_EXPORT_FUNCTION(df_isatty); S48_EXPORT_FUNCTION(df_ttyname); S48_EXPORT_FUNCTION(df_scm_ctermid); - - return S48_UNSPECIFIC; }