From 88b21d81b5d50bfb7adbd7d2707f19259b4f53ff Mon Sep 17 00:00:00 2001 From: marting Date: Thu, 4 Nov 1999 16:00:28 +0000 Subject: [PATCH] These files are generated by cig with GC_PROTECT-support --- scsh/flock.c | 22 ++- scsh/network.c | 112 ++++++++++++++- scsh/rdelim.c | 8 ++ scsh/select.c | 8 ++ scsh/syscalls.c | 372 +++++++++++++++++++++++++++++++++++++++++++++--- scsh/time.c | 20 +++ scsh/tty.c | 52 +++++++ 7 files changed, 560 insertions(+), 34 deletions(-) diff --git a/scsh/flock.c b/scsh/flock.c index 2d2b078..64d15ba 100644 --- a/scsh/flock.c +++ b/scsh/flock.c @@ -22,11 +22,15 @@ s48_value df_set_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s4 { extern int set_lock(int , int , int , int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; - r1 = set_lock(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6)); + + S48_GC_PROTECT_1(ret1); + r1 = set_lock(s48_extract_integer(g1), s48_extract_integer(g2), s48_extract_integer(g3), s48_extract_integer(g4), s48_extract_integer(g5), s48_extract_integer(g6)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -34,6 +38,7 @@ s48_value df_get_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s4 { extern int get_lock(int , int , int , int , int , int , int *, int *, int *, int *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; int r2; int r3; @@ -42,13 +47,16 @@ s48_value df_get_lock(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s4 int r6; - r1 = get_lock(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), &r2, &r3, &r4, &r5, &r6); + + S48_GC_PROTECT_2(mv_vec,ret1); + r1 = get_lock(s48_extract_integer(g1), s48_extract_integer(g2), s48_extract_integer(g3), s48_extract_integer(g4), s48_extract_integer(g5), s48_extract_integer(g6), &r2, &r3, &r4, &r5, &r6); ret1 = errno_or_false(r1); - S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); - S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); - S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); - S48_VECTOR_SET(mv_vec,3,s48_enter_fixnum(r5)); - S48_VECTOR_SET(mv_vec,4,s48_enter_fixnum(r6)); + 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,2,s48_enter_integer(r4)); + S48_VECTOR_SET(mv_vec,3,s48_enter_integer(r5)); + S48_VECTOR_SET(mv_vec,4,s48_enter_integer(r6)); + S48_GC_UNPROTECT(); return ret1; } diff --git a/scsh/network.c b/scsh/network.c index d79fee5..e0fe548 100644 --- a/scsh/network.c +++ b/scsh/network.c @@ -23,12 +23,16 @@ 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_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = socket(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -36,11 +40,15 @@ s48_value df_scheme_bind(s48_value g1, s48_value g2, s48_value g3) { extern int scheme_bind(int , int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_bind(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -48,11 +56,15 @@ s48_value df_scheme_connect(s48_value g1, s48_value g2, s48_value g3) { extern int scheme_connect(int , int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_connect(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -60,11 +72,15 @@ s48_value df_listen(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = listen(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -72,12 +88,16 @@ s48_value df_scheme_accept(s48_value g1, s48_value g2, s48_value g3, s48_value m { extern int scheme_accept(int , int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_accept(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -85,11 +105,15 @@ s48_value df_scheme_peer_name(s48_value g1, s48_value g2, s48_value g3) { extern int scheme_peer_name(int , int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_peer_name(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -97,11 +121,15 @@ s48_value df_scheme_socket_name(s48_value g1, s48_value g2, s48_value g3) { extern int scheme_socket_name(int , int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_socket_name(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3); ret1 = False_on_zero(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -109,11 +137,15 @@ s48_value df_shutdown(s48_value g1, s48_value g2) { extern int shutdown(int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = shutdown(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -121,41 +153,53 @@ 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_DECLARE_GC_PROTECT(2); int r1; int r2; int r3; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_socket_pair(s48_extract_fixnum(g1), &r2, &r3); ret1 = errno_or_false(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_recv_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value mv_vec) { - extern int recv_substring(int , int , s48_value , int , int , s48_value ); + extern ssize_t recv_substring(int , int , s48_value , size_t , size_t , s48_value ); s48_value ret1; - int r1; + S48_DECLARE_GC_PROTECT(2); + ssize_t r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = recv_substring(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3, s48_extract_fixnum(g4), s48_extract_fixnum(g5), g6); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } s48_value df_send_substring(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s48_value g5, s48_value g6, s48_value g7, s48_value mv_vec) { - extern int send_substring(int , int , s48_value , int , int , int , s48_value ); + extern ssize_t send_substring(int , int , s48_value , size_t , size_t , int , s48_value ); s48_value ret1; - int r1; + S48_DECLARE_GC_PROTECT(2); + ssize_t r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = send_substring(s48_extract_fixnum(g1), s48_extract_fixnum(g2), g3, s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), g7); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -163,12 +207,16 @@ s48_value df_scheme_getsockopt(s48_value g1, s48_value g2, s48_value g3, s48_val { extern int scheme_getsockopt(int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_getsockopt(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -176,14 +224,18 @@ s48_value df_scheme_getsockopt_linger(s48_value g1, s48_value g2, s48_value g3, { extern int scheme_getsockopt_linger(int , int , int , int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; int r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_getsockopt_linger(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), &r2); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -191,14 +243,18 @@ s48_value df_scheme_getsockopt_timeout(s48_value g1, s48_value g2, s48_value g3, { extern int scheme_getsockopt_timeout(int , int , int , int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; int r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_getsockopt_timeout(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), &r2); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -206,11 +262,15 @@ s48_value df_scheme_setsockopt(s48_value g1, s48_value g2, s48_value g3, s48_val { extern int scheme_setsockopt(int , int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_setsockopt(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -218,11 +278,15 @@ s48_value df_scheme_setsockopt_linger(s48_value g1, s48_value g2, s48_value g3, { extern int scheme_setsockopt_linger(int , int , int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_setsockopt_linger(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -230,11 +294,15 @@ s48_value df_scheme_setsockopt_timeout(s48_value g1, s48_value g2, s48_value g3, { extern int scheme_setsockopt_timeout(int , int , int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_setsockopt_timeout(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -242,17 +310,21 @@ s48_value df_scheme_host_address2host_info(s48_value g1, s48_value mv_vec) { extern int scheme_host_address2host_info(s48_value , char **, char** *, char** *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; char** r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_host_address2host_info(g1, &r2, &r3, &r4); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign SetAlienVal(S48_VECTOR_REF(mv_vec,2),(long) r4);//simple-assign + S48_GC_UNPROTECT(); return ret1; } @@ -260,17 +332,21 @@ s48_value df_scheme_host_name2host_info(s48_value g1, s48_value mv_vec) { extern int scheme_host_name2host_info(const char *, char **, char** *, char** *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; char** r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_host_name2host_info(s48_extract_string(g1), &r2, &r3, &r4); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign SetAlienVal(S48_VECTOR_REF(mv_vec,2),(long) r4);//simple-assign + S48_GC_UNPROTECT(); return ret1; } @@ -278,15 +354,19 @@ s48_value df_scheme_net_address2net_info(s48_value g1, s48_value g2, s48_value m { extern int scheme_net_address2net_info(s48_value , s48_value , char **, char** *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_net_address2net_info(g1, g2, &r2, &r3); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign + S48_GC_UNPROTECT(); return ret1; } @@ -294,15 +374,19 @@ s48_value df_scheme_net_name2net_info(s48_value g1, s48_value g2, s48_value mv_v { extern int scheme_net_name2net_info(const char *, s48_value , char **, char** *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_net_name2net_info(s48_extract_string(g1), g2, &r2, &r3); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign + S48_GC_UNPROTECT(); return ret1; } @@ -310,6 +394,7 @@ s48_value df_scheme_serv_port2serv_info(s48_value g1, s48_value g2, s48_value mv { extern int scheme_serv_port2serv_info(int , const char *, char **, char** *, int *, char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; @@ -317,12 +402,15 @@ s48_value df_scheme_serv_port2serv_info(s48_value g1, s48_value g2, s48_value mv char *r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_serv_port2serv_info(s48_extract_fixnum(g1), s48_extract_string(g2), &r2, &r3, &r4, &r5); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,3)),(long) r5); S48_SET_CDR(S48_VECTOR_REF(mv_vec,3),strlen_or_false(r5));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -330,6 +418,7 @@ s48_value df_scheme_serv_name2serv_info(s48_value g1, s48_value g2, s48_value mv { extern int scheme_serv_name2serv_info(const char *, const char *, char **, char** *, int *, char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; @@ -337,12 +426,15 @@ s48_value df_scheme_serv_name2serv_info(s48_value g1, s48_value g2, s48_value mv char *r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_serv_name2serv_info(s48_extract_string(g1), s48_extract_string(g2), &r2, &r3, &r4, &r5); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,3)),(long) r5); S48_SET_CDR(S48_VECTOR_REF(mv_vec,3),strlen_or_false(r5));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -350,17 +442,21 @@ s48_value df_scheme_proto_num2proto_info(s48_value g1, s48_value mv_vec) { extern int scheme_proto_num2proto_info(int , char **, char** *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_proto_num2proto_info(s48_extract_fixnum(g1), &r2, &r3, &r4); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } @@ -368,17 +464,21 @@ s48_value df_scheme_proto_name2proto_info(s48_value g1, s48_value mv_vec) { extern int scheme_proto_name2proto_info(const char *, char **, char** *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_proto_name2proto_info(s48_extract_string(g1), &r2, &r3, &r4); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } @@ -386,11 +486,15 @@ s48_value df_veclen(s48_value g1) { extern s48_value veclen(const long * ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = veclen((const long * )AlienVal(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } diff --git a/scsh/rdelim.c b/scsh/rdelim.c index 421aecd..d3d7424 100644 --- a/scsh/rdelim.c +++ b/scsh/rdelim.c @@ -16,13 +16,17 @@ s48_value df_read_delim(s48_value g1, s48_value g2, s48_value g3, s48_value g4, { extern s48_value read_delim(const char *, char *, int , int , int , int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = read_delim(s48_extract_string(g1), s48_extract_string(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), &r2); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -30,13 +34,17 @@ s48_value df_skip_chars(s48_value g1, s48_value g2, s48_value mv_vec) { extern s48_value skip_chars(const char *, int , int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = skip_chars(s48_extract_string(g1), s48_extract_fixnum(g2), &r2); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); + S48_GC_UNPROTECT(); return ret1; } diff --git a/scsh/select.c b/scsh/select.c index 4b52698..500367e 100644 --- a/scsh/select.c +++ b/scsh/select.c @@ -14,17 +14,21 @@ s48_value df_select_copyback(s48_value g1, s48_value g2, s48_value g3, s48_value { extern s48_value select_copyback(s48_value , s48_value , s48_value , s48_value , int *, int *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; int r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = select_copyback(g1, g2, g3, g4, &r2, &r3, &r4); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } @@ -32,17 +36,21 @@ s48_value df_select_filter(s48_value g1, s48_value g2, s48_value g3, s48_value g { extern s48_value select_filter(s48_value , s48_value , s48_value , s48_value , int *, int *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; int r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = select_filter(g1, g2, g3, g4, &r2, &r3, &r4); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } diff --git a/scsh/syscalls.c b/scsh/syscalls.c index 72f913e..81563a5 100644 --- a/scsh/syscalls.c +++ b/scsh/syscalls.c @@ -33,11 +33,15 @@ 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_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_exec(s48_extract_string(g1), g2, g3); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -63,12 +67,16 @@ 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; } @@ -76,15 +84,19 @@ s48_value df_wait_pid(s48_value g1, s48_value g2, s48_value mv_vec) { extern s48_value wait_pid(pid_t , int , pid_t *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; pid_t r2; int r3; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = wait_pid(s48_extract_fixnum(g1), s48_extract_fixnum(g2), &r2, &r3); ret1 = 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; } @@ -92,11 +104,15 @@ s48_value df_chdir(s48_value g1) { extern int chdir(const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = chdir(s48_extract_string(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -104,13 +120,17 @@ s48_value df_scheme_cwd(s48_value mv_vec) { extern int scheme_cwd(const char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; const char *r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_cwd(&r2); ret1 = False_on_zero(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -118,11 +138,15 @@ s48_value df_getgid(void) { extern gid_t getgid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); gid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getgid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -130,11 +154,15 @@ s48_value df_getegid(void) { extern gid_t getegid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); gid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getegid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -142,11 +170,15 @@ s48_value df_setgid(s48_value g1) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = setgid(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -154,12 +186,16 @@ s48_value df_num_supp_groups(s48_value mv_vec) { extern int num_supp_groups(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = num_supp_groups(); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -167,12 +203,16 @@ s48_value df_get_groups(s48_value g1, s48_value mv_vec) { extern int get_groups(s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = get_groups(g1); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -180,11 +220,15 @@ s48_value df_getuid(void) { extern uid_t getuid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); uid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getuid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -192,11 +236,15 @@ s48_value df_geteuid(void) { extern uid_t geteuid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); uid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = geteuid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -204,11 +252,15 @@ s48_value df_setuid(s48_value g1) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = setuid(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -216,12 +268,16 @@ s48_value df_my_username(s48_value mv_vec) { extern char *my_username(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char *r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = my_username(); ret1 = S48_VECTOR_REF(mv_vec,0); SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -229,11 +285,15 @@ s48_value df_getpid(void) { extern pid_t getpid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); pid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getpid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -241,11 +301,15 @@ s48_value df_getppid(void) { extern pid_t getppid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); pid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getppid(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -253,11 +317,15 @@ s48_value df_getpgrp(void) { extern pid_t getpgrp(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); pid_t r1; + + S48_GC_PROTECT_1(ret1); r1 = getpgrp(); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -265,11 +333,15 @@ s48_value df_setpgid(s48_value g1, s48_value g2) { extern int setpgid(pid_t , pid_t ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = setpgid(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -277,12 +349,16 @@ s48_value df_setsid(s48_value mv_vec) { extern pid_t setsid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); pid_t r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = setsid(); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -290,11 +366,15 @@ s48_value df_umask(s48_value g1) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); mode_t r1; + + S48_GC_PROTECT_1(ret1); r1 = umask(s48_extract_fixnum(g1)); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -302,6 +382,7 @@ 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_DECLARE_GC_PROTECT(2); int r1; clock_t r2; clock_t r3; @@ -309,12 +390,15 @@ s48_value df_process_times(s48_value mv_vec) clock_t r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = process_times(&r2, &r3, &r4, &r5); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); S48_VECTOR_SET(mv_vec,3,s48_enter_fixnum(r5)); + S48_GC_UNPROTECT(); return ret1; } @@ -322,11 +406,15 @@ s48_value df_cpu_clock_ticks_per_sec(void) { extern int cpu_clock_ticks_per_sec(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = cpu_clock_ticks_per_sec(); ret1 = s48_enter_integer(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -334,11 +422,15 @@ s48_value df_chmod(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = chmod(s48_extract_string(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -346,11 +438,15 @@ s48_value df_fchmod(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = fchmod(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -358,11 +454,15 @@ s48_value df_chown(s48_value g1, s48_value g2, s48_value g3) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = chown(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -370,11 +470,15 @@ 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_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = fchown(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -382,11 +486,15 @@ s48_value df_access(s48_value g1, s48_value g2) { extern int access(const char *, int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = access(s48_extract_string(g1), s48_extract_integer(g2)); ret1 = ENTER_BOOLEAN(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -394,11 +502,15 @@ s48_value df_link(s48_value g1, s48_value g2) { extern int link(const char *, const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = link(s48_extract_string(g1), s48_extract_string(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -406,11 +518,15 @@ s48_value df_mkfifo(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = mkfifo(s48_extract_string(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -418,24 +534,33 @@ s48_value df_mkdir(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = mkdir(s48_extract_string(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } s48_value df_scm_readlink(s48_value g1, s48_value mv_vec) { - extern const char *scm_readlink(const char *); + extern s48_value scm_readlink(const char *, s48_value *); s48_value ret1; - const char *r1; + S48_DECLARE_GC_PROTECT(2); + s48_value r1; + s48_value r2; - r1 = scm_readlink(s48_extract_string(g1)); - ret1 = errno_on_zero_or_false(r1); - SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r1); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r1));//str-and-len + + 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; } @@ -443,11 +568,15 @@ s48_value df_rename(s48_value g1, s48_value g2) { extern int rename(const char *, const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = rename(s48_extract_string(g1), s48_extract_string(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -455,11 +584,15 @@ s48_value df_rmdir(s48_value g1) { extern int rmdir(const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = rmdir(s48_extract_string(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -467,11 +600,15 @@ 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_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scm_utime(s48_extract_string(g1), s48_extract_integer(g2), s48_extract_integer(g3)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -479,11 +616,15 @@ s48_value df_scm_utime_now(s48_value g1) { extern int scm_utime_now(const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scm_utime_now(s48_extract_string(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -491,11 +632,15 @@ 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_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_stat(s48_extract_string(g1), g2, EXTRACT_BOOLEAN(g3)); ret1 = False_on_zero(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -503,11 +648,15 @@ s48_value df_scheme_fstat(s48_value g1, s48_value g2) { extern int scheme_fstat(int , s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_fstat(s48_extract_integer(g1), g2); ret1 = False_on_zero(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -515,11 +664,15 @@ s48_value df_symlink(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = symlink(s48_extract_string(g1), s48_extract_string(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -527,11 +680,15 @@ s48_value df_truncate(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = truncate(s48_extract_string(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -539,11 +696,15 @@ s48_value df_ftruncate(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = ftruncate(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -551,11 +712,15 @@ s48_value df_unlink(s48_value g1) { extern int unlink(const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = unlink(s48_extract_string(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -563,11 +728,15 @@ s48_value df_fsync(s48_value g1) { extern int fsync(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = fsync(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -584,11 +753,15 @@ s48_value df_close(s48_value g1) { extern int close(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = close(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -596,12 +769,16 @@ s48_value df_dup(s48_value g1, s48_value mv_vec) { extern int dup(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = dup(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -609,12 +786,16 @@ s48_value df_dup2(s48_value g1, s48_value g2, s48_value mv_vec) { extern int dup2(int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = dup2(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; } @@ -622,12 +803,16 @@ 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_DECLARE_GC_PROTECT(2); off_t r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = lseek(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -635,11 +820,15 @@ s48_value df_char_ready_fdes(s48_value g1) { extern s48_value char_ready_fdes(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = char_ready_fdes(s48_extract_fixnum(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } @@ -647,12 +836,16 @@ s48_value df_open(s48_value g1, s48_value g2, s48_value g3, s48_value mv_vec) { s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = open(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -660,15 +853,19 @@ 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; } @@ -676,11 +873,15 @@ s48_value df_read_fdes_char(s48_value g1) { extern s48_value read_fdes_char(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = read_fdes_char(s48_extract_fixnum(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } @@ -688,11 +889,15 @@ s48_value df_write_fdes_char(s48_value g1, s48_value g2) { extern int write_fdes_char(char , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = write_fdes_char(s48_extract_char(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -700,12 +905,16 @@ s48_value df_read_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_v { extern int read_fdes_substring(s48_value , size_t , size_t , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = read_fdes_substring(g1, s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -713,12 +922,16 @@ s48_value df_write_fdes_substring(s48_value g1, s48_value g2, s48_value g3, s48_ { extern int write_fdes_substring(s48_value , size_t , size_t , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = write_fdes_substring(g1, s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -726,11 +939,15 @@ 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; } @@ -747,11 +964,15 @@ s48_value df_alarm(s48_value g1) { extern unsigned int alarm(unsigned int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); unsigned int r1; + + S48_GC_PROTECT_1(ret1); r1 = alarm(s48_extract_integer(g1)); ret1 = s48_enter_fixnum(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -759,6 +980,7 @@ s48_value df_user_info_uid(s48_value g1, s48_value mv_vec) { extern int user_info_uid(uid_t , char **, gid_t *, char **, char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; gid_t r3; @@ -766,12 +988,15 @@ s48_value df_user_info_uid(s48_value g1, s48_value mv_vec) char *r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = user_info_uid(s48_extract_fixnum(g1), &r2, &r3, &r4, &r5); ret1 = ENTER_BOOLEAN(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,2)),(long) r4); S48_SET_CDR(S48_VECTOR_REF(mv_vec,2),strlen_or_false(r4));//str-and-len SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,3)),(long) r5); S48_SET_CDR(S48_VECTOR_REF(mv_vec,3),strlen_or_false(r5));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -779,6 +1004,7 @@ s48_value df_user_info_name(s48_value g1, s48_value mv_vec) { extern int user_info_name(const char *, uid_t *, gid_t *, char **, char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; uid_t r2; gid_t r3; @@ -786,12 +1012,15 @@ s48_value df_user_info_name(s48_value g1, s48_value mv_vec) char *r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = user_info_name(s48_extract_string(g1), &r2, &r3, &r4, &r5); ret1 = ENTER_BOOLEAN(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,2)),(long) r4); S48_SET_CDR(S48_VECTOR_REF(mv_vec,2),strlen_or_false(r4));//str-and-len SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,3)),(long) r5); S48_SET_CDR(S48_VECTOR_REF(mv_vec,3),strlen_or_false(r5));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -799,17 +1028,21 @@ s48_value df_group_info_gid(s48_value g1, s48_value mv_vec) { extern int group_info_gid(int , char **, char** *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char *r2; char** r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = group_info_gid(s48_extract_integer(g1), &r2, &r3, &r4); ret1 = ENTER_BOOLEAN(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } @@ -817,17 +1050,21 @@ s48_value df_group_info_name(s48_value g1, s48_value mv_vec) { extern int group_info_name(const char *, int *, char** *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; int r2; char** r3; int r4; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = group_info_name(s48_extract_string(g1), &r2, &r3, &r4); ret1 = ENTER_BOOLEAN(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); SetAlienVal(S48_VECTOR_REF(mv_vec,1),(long) r3);//simple-assign S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); + S48_GC_UNPROTECT(); return ret1; } @@ -835,15 +1072,19 @@ s48_value df_open_dir(s48_value g1, s48_value mv_vec) { extern int open_dir(const char *, char** *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); int r1; char** r2; int r3; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = open_dir(s48_extract_string(g1), &r2, &r3); ret1 = False_on_zero(r1); SetAlienVal(S48_VECTOR_REF(mv_vec,0),(long) r2);//simple-assign S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); + S48_GC_UNPROTECT(); return ret1; } @@ -860,14 +1101,18 @@ s48_value df_scm_envvec(s48_value mv_vec) { extern char** scm_envvec(int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char** r1; int r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scm_envvec(&r2); ret1 = S48_VECTOR_REF(mv_vec,0); SetAlienVal(ret1,(long) r1);//simple-assign S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -875,11 +1120,58 @@ s48_value df_install_env(s48_value g1) { extern int install_env(s48_value ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = install_env(g1); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); + return ret1; +} + +s48_value df_create_env(s48_value g1, s48_value mv_vec) +{ + extern int create_env(s48_value , s48_value *); + s48_value ret1; + S48_DECLARE_GC_PROTECT(2); + int r1; + s48_value r2; + + + + S48_GC_PROTECT_2(mv_vec,ret1); + r1 = create_env(g1, &r2); + ret1 = errno_or_false(r1); + S48_VECTOR_SET(mv_vec,0,r2); + S48_GC_UNPROTECT(); + return ret1; +} + +s48_value df_align_env(s48_value g1) +{ + extern void align_env(s48_value ); + + + align_env(g1); + return S48_FALSE; +} + +s48_value df_envvec_setenv(s48_value g1, s48_value g2) +{ + extern s48_value envvec_setenv(s48_value , s48_value ); + s48_value ret1; + S48_DECLARE_GC_PROTECT(1); + s48_value r1; + + + + S48_GC_PROTECT_1(ret1); + r1 = envvec_setenv(g1, g2); + ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } @@ -887,29 +1179,21 @@ s48_value df_getenv(s48_value g1, s48_value mv_vec) { extern char *getenv(const char *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char *r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = getenv(s48_extract_string(g1)); ret1 = S48_VECTOR_REF(mv_vec,0); SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len + S48_GC_UNPROTECT(); return ret1; } #define errno_on_nonzero_or_false(x) ((x) ? s48_enter_fixnum(errno) : S48_FALSE) -s48_value df_putenv(s48_value g1) -{ - - s48_value ret1; - int r1; - - - r1 = putenv(scheme2c_strcpy(g1)); - ret1 = errno_on_nonzero_or_false(r1); - return ret1; -} - s48_value df_delete_env(s48_value g1) { extern void delete_env(const char *); @@ -923,11 +1207,15 @@ 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; } @@ -935,12 +1223,16 @@ 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; } @@ -948,11 +1240,15 @@ 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; } @@ -960,24 +1256,31 @@ s48_value df_sleep_until(s48_value g1) { extern s48_value sleep_until(time_t ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = sleep_until(s48_extract_integer(g1)); ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } -s48_value df_scm_gethostname(s48_value mv_vec) +s48_value df_scm_gethostname(void) { - extern char *scm_gethostname(void); + extern s48_value scm_gethostname(void); s48_value ret1; - char *r1; + S48_DECLARE_GC_PROTECT(1); + s48_value r1; + + S48_GC_PROTECT_1(ret1); r1 = scm_gethostname(); - ret1 = S48_VECTOR_REF(mv_vec,0); - SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len + ret1 = r1; + S48_GC_UNPROTECT(); return ret1; } @@ -985,12 +1288,32 @@ s48_value df_errno_msg(s48_value g1, s48_value mv_vec) { extern char *errno_msg(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char *r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = errno_msg(s48_extract_integer(g1)); ret1 = S48_VECTOR_REF(mv_vec,0); SetAlienVal(S48_CAR(ret1),(long) r1); S48_SET_CDR(ret1,strlen_or_false(r1));//str-and-len + S48_GC_UNPROTECT(); + 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; } @@ -1063,8 +1386,10 @@ s48_value s48_init_syscalls(void) S48_EXPORT_FUNCTION(df_scm_sort_filevec); S48_EXPORT_FUNCTION(df_scm_envvec); S48_EXPORT_FUNCTION(df_install_env); + S48_EXPORT_FUNCTION(df_create_env); + S48_EXPORT_FUNCTION(df_align_env); + S48_EXPORT_FUNCTION(df_envvec_setenv); S48_EXPORT_FUNCTION(df_getenv); - S48_EXPORT_FUNCTION(df_putenv); S48_EXPORT_FUNCTION(df_delete_env); S48_EXPORT_FUNCTION(df_set_cloexec); S48_EXPORT_FUNCTION(df_fcntl_read); @@ -1072,6 +1397,7 @@ s48_value s48_init_syscalls(void) S48_EXPORT_FUNCTION(df_sleep_until); S48_EXPORT_FUNCTION(df_scm_gethostname); S48_EXPORT_FUNCTION(df_errno_msg); + S48_EXPORT_FUNCTION(df_scm_crypt); return S48_UNSPECIFIC; } diff --git a/scsh/time.c b/scsh/time.c index 14248e5..f9156a1 100644 --- a/scsh/time.c +++ b/scsh/time.c @@ -12,6 +12,7 @@ s48_value df_time_plus_ticks(s48_value mv_vec) { extern s48_value time_plus_ticks(int *, int *, int *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; int r3; @@ -19,12 +20,15 @@ s48_value df_time_plus_ticks(s48_value mv_vec) int r5; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = time_plus_ticks(&r2, &r3, &r4, &r5); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); S48_VECTOR_SET(mv_vec,1,s48_enter_fixnum(r3)); S48_VECTOR_SET(mv_vec,2,s48_enter_fixnum(r4)); S48_VECTOR_SET(mv_vec,3,s48_enter_fixnum(r5)); + S48_GC_UNPROTECT(); return ret1; } @@ -32,13 +36,17 @@ s48_value df_scheme_time(s48_value mv_vec) { extern s48_value scheme_time(time_t *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; time_t r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_time(&r2); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -46,13 +54,17 @@ s48_value df_date2time(s48_value g1, s48_value g2, s48_value g3, s48_value g4, s { extern s48_value date2time(int , int , int , int , int , int , s48_value , s48_value , int , time_t *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; time_t r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = date2time(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), g7, g8, EXTRACT_BOOLEAN(g9), &r2); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); + S48_GC_UNPROTECT(); return ret1; } @@ -60,6 +72,7 @@ s48_value df_time2date(s48_value g1, s48_value g2, s48_value mv_vec) { extern s48_value time2date(time_t , s48_value , int *, int *, int *, int *, int *, int *, const char **, int *, int *, int *, int *); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; int r2; int r3; @@ -74,6 +87,8 @@ s48_value df_time2date(s48_value g1, s48_value g2, s48_value mv_vec) int r12; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = time2date(s48_extract_integer(g1), g2, &r2, &r3, &r4, &r5, &r6, &r7, &r8, &r9, &r10, &r11, &r12); ret1 = r1; S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r2)); @@ -87,6 +102,7 @@ s48_value df_time2date(s48_value g1, s48_value g2, s48_value mv_vec) S48_VECTOR_SET(mv_vec,8,ENTER_BOOLEAN(r10)); S48_VECTOR_SET(mv_vec,9,s48_enter_fixnum(r11)); S48_VECTOR_SET(mv_vec,10,s48_enter_fixnum(r12)); + S48_GC_UNPROTECT(); return ret1; } @@ -94,13 +110,17 @@ s48_value df_format_date(s48_value g1, s48_value g2, s48_value g3, s48_value g4, { extern s48_value format_date(const char *, int , int , int , int , int , int , s48_value , int , int , int , const char **); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); s48_value r1; const char *r2; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = format_date(s48_extract_string(g1), s48_extract_fixnum(g2), s48_extract_fixnum(g3), s48_extract_fixnum(g4), s48_extract_fixnum(g5), s48_extract_fixnum(g6), s48_extract_fixnum(g7), g8, EXTRACT_BOOLEAN(g9), s48_extract_fixnum(g10), s48_extract_fixnum(g11), &r2); ret1 = r1; SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r2); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r2));//str-and-len + S48_GC_UNPROTECT(); return ret1; } diff --git a/scsh/tty.c b/scsh/tty.c index abefe7f..4b34d8f 100644 --- a/scsh/tty.c +++ b/scsh/tty.c @@ -23,6 +23,7 @@ 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_DECLARE_GC_PROTECT(2); int r1; int r2; int r3; @@ -32,6 +33,8 @@ s48_value df_scheme_tcgetattr(s48_value g1, s48_value g2, s48_value mv_vec) int r7; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scheme_tcgetattr(s48_extract_fixnum(g1), s48_extract_string(g2), &r2, &r3, &r4, &r5, &r6, &r7); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r2)); @@ -40,6 +43,7 @@ s48_value df_scheme_tcgetattr(s48_value g1, s48_value g2, s48_value mv_vec) S48_VECTOR_SET(mv_vec,3,s48_enter_integer(r5)); S48_VECTOR_SET(mv_vec,4,s48_enter_fixnum(r6)); S48_VECTOR_SET(mv_vec,5,s48_enter_fixnum(r7)); + S48_GC_UNPROTECT(); return ret1; } @@ -47,11 +51,15 @@ 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_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_tcgetattrB(s48_extract_fixnum(g1), s48_extract_string(g2), g3); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -59,11 +67,15 @@ s48_value df_scheme_tcsetattr(s48_value g1, s48_value g2, s48_value g3, s48_valu { extern int scheme_tcsetattr(int , int , const char *, int , int , int , int , int , int , int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = scheme_tcsetattr(s48_extract_fixnum(g1), s48_extract_fixnum(g2), s48_extract_string(g3), s48_extract_integer(g4), s48_extract_integer(g5), s48_extract_integer(g6), s48_extract_integer(g7), s48_extract_fixnum(g8), s48_extract_fixnum(g9), s48_extract_fixnum(g10), s48_extract_fixnum(g11)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -71,11 +83,15 @@ s48_value df_tcsendbreak(s48_value g1, s48_value g2) { extern int tcsendbreak(int , int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = tcsendbreak(s48_extract_integer(g1), s48_extract_integer(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -83,11 +99,15 @@ s48_value df_tcdrain(s48_value g1) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = tcdrain(s48_extract_integer(g1)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -95,11 +115,15 @@ s48_value df_tcflush(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = tcflush(s48_extract_integer(g1), s48_extract_integer(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -107,11 +131,15 @@ s48_value df_tcflow(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = tcflow(s48_extract_integer(g1), s48_extract_integer(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -119,11 +147,15 @@ s48_value df_tcsetpgrp(s48_value g1, s48_value g2) { s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = tcsetpgrp(s48_extract_fixnum(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -131,12 +163,16 @@ s48_value df_tcgetpgrp(s48_value g1, s48_value mv_vec) { s48_value ret1; + S48_DECLARE_GC_PROTECT(2); pid_t r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = tcgetpgrp(s48_extract_fixnum(g1)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_fixnum(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -144,12 +180,16 @@ 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_DECLARE_GC_PROTECT(2); int r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = open_ctty(s48_extract_string(g1), s48_extract_fixnum(g2)); ret1 = errno_or_false(r1); S48_VECTOR_SET(mv_vec,0,s48_enter_integer(r1)); + S48_GC_UNPROTECT(); return ret1; } @@ -157,11 +197,15 @@ s48_value df_isatty(s48_value g1) { extern int isatty(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(1); int r1; + + S48_GC_PROTECT_1(ret1); r1 = isatty(s48_extract_integer(g1)); ret1 = ENTER_BOOLEAN(r1); + S48_GC_UNPROTECT(); return ret1; } @@ -169,12 +213,16 @@ s48_value df_ttyname(s48_value g1, s48_value mv_vec) { extern char *ttyname(int ); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char *r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = ttyname(s48_extract_integer(g1)); ret1 = errno_on_zero_or_false(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r1); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r1));//str-and-len + S48_GC_UNPROTECT(); return ret1; } @@ -182,12 +230,16 @@ s48_value df_scm_ctermid(s48_value mv_vec) { extern char *scm_ctermid(void); s48_value ret1; + S48_DECLARE_GC_PROTECT(2); char *r1; + + S48_GC_PROTECT_2(mv_vec,ret1); r1 = scm_ctermid(); ret1 = errno_on_zero_or_false(r1); SetAlienVal(S48_CAR(S48_VECTOR_REF(mv_vec,0)),(long) r1); S48_SET_CDR(S48_VECTOR_REF(mv_vec,0),strlen_or_false(r1));//str-and-len + S48_GC_UNPROTECT(); return ret1; }