mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Changes to compile under gnu-win32, from Marcus Daniels:

Browse source 
* stime.c (tzset): If tzset isn't provided, make it a NOP.
(scm_localtime): Change SCM_EOF to SCM_EOL.
(scm_mktime): Likewise.
* socket.c: Don't include sys/un.h unless autoconf tells
us Unix domain sockets are available.
(scm_fill_sockaddr): Ignore Unix domain code.
(scm_addr_vector): Likewise.
(scm_init_addr_buffer): Likewise.
(scm_socketpair): Don't include unless socketpair was
found during autoconf.
* simpos.c (SYSTNAME): Treat cygwin like Unix.
* scmsigs.c (scm_pause): Don't include unless pause was found
during autoconf.
* posix.c (scm_getgroups): Don't include unless support function
was found during autoconf (in this case, getgroups).
(scm_setpwent): For setpwent.
(scm_setegid): For setegid.
* net_db.c (scm_inet_netof): Don't include unless support
function was found during autoconf (in this case, inet_netof).
(scm_lnaof): For inet_lnaof.
(scm_inet_makeaddr): For inet_makeaddr.
(scm_getnet): For getnetent, getnetbyname, getnetbyaddr.
(scm_getproto): For getprotoent.
(scm_getserv): For getservent.
(scm_sethost): For sethostent, endhostent.
(scm_setnet): For setnetent, endnetent.
(scm_setproto): For setprotoent, endprotoent.
(scm_setserv): For setservent, endservent.
* scmconfig.h.in: Regenerated.
This commit is contained in:
Jim Blandy 1997-07-11 05:43:36 +00:00
parent 4cd2a3e684
commit 0e95879552
7 changed files with 71 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/posix.c
View file

@ -207,7 +207,7 @@ scm_pipe ()
}
#ifdef HAVE_GETGROUPS
SCM_PROC (s_getgroups, "getgroups", 0, 0, 0, scm_getgroups);
SCM
@ -240,7 +240,7 @@ scm_getgroups()
return ans;
}
}
#endif
SCM_PROC (s_getpwuid, "getpw", 0, 1, 0, scm_getpwuid);
@ -299,7 +299,7 @@ scm_getpwuid (user)
}
#ifdef HAVE_SETPWENT
SCM_PROC (s_setpwent, "setpw", 0, 1, 0, scm_setpwent);
SCM
@ -312,6 +312,7 @@ scm_setpwent (arg)
setpwent ();
return SCM_UNSPECIFIED;
}
#endif
@ -572,6 +573,7 @@ scm_seteuid (id)
return SCM_UNSPECIFIED;
}
#ifdef HAVE_SETEGID
SCM_PROC (s_setegid, "setegid", 1, 0, 0, scm_setegid);
SCM
@ -591,6 +593,7 @@ scm_setegid (id)
return SCM_UNSPECIFIED;
}
#endif
SCM_PROC (s_getpgrp, "getpgrp", 0, 0, 0, scm_getpgrp);
SCM