guile-core patch

["Lars J. Aas" <larsa at sim dot no>]

  Hi,

I'm a BeOS developer, trying to get Guile to work on BeOS.  The
accompanying patch just wraps all "#include <arpa/inet.h>" directives
with a "#ifdef HAVE_ARPA_INET_H/#endif" wrapper.

There are more changes needed for BeOS support, and I'll look into
that later.  E.g. libguile/filesys.c got some socket stuff that isn't
supported under BeOS (a socket is not a filedescriptor under BeOS :(),
but since Be has promised to clean up their networking code, I figure
the next BeOS release (coming soon) might have fixed that problem.

  Lars J
--
Lars J. Aas <larsa@sim.no>
Software Developer, Systems in Motion <http://www.sim.no/>
Index: configure.in
===================================================================
RCS file: /cvs/guile/guile/guile-core/configure.in,v
retrieving revision 1.104
diff -u -r1.104 configure.in
--- configure.in	1999/12/14 17:42:16	1.104
+++ configure.in	1999/12/20 12:58:59
@@ -123,7 +123,7 @@
 AC_HEADER_DIRENT
 AC_HEADER_TIME
 AC_HEADER_SYS_WAIT
-AC_CHECK_HEADERS(io.h libc.h limits.h malloc.h memory.h string.h regex.h rxposix.h rx/rxposix.h sys/ioctl.h sys/select.h sys/time.h sys/timeb.h sys/times.h sys/types.h sys/utime.h time.h unistd.h utime.h)
+AC_CHECK_HEADERS(io.h libc.h limits.h malloc.h memory.h string.h regex.h rxposix.h rx/rxposix.h sys/ioctl.h sys/select.h sys/time.h sys/timeb.h sys/times.h sys/types.h sys/utime.h time.h unistd.h utime.h arpa/inet.h)
 GUILE_HEADER_LIBC_WITH_UNISTD
 
 AC_TYPE_GETGROUPS
Index: libguile/inet_aton.c
===================================================================
RCS file: /cvs/guile/guile/guile-core/libguile/inet_aton.c,v
retrieving revision 1.4
diff -u -r1.4 inet_aton.c
--- inet_aton.c	1999/12/12 20:35:02	1.4
+++ inet_aton.c	1999/12/20 12:58:59
@@ -42,7 +42,9 @@
 
 #include <sys/param.h>
 #include <netinet/in.h>
+#ifdef HAVE_ARPA_INET_H
 #include <arpa/inet.h>
+#endif
 
 #if 0
 
Index: libguile/net_db.c
===================================================================
RCS file: /cvs/guile/guile/guile-core/libguile/net_db.c,v
retrieving revision 1.26
diff -u -r1.26 net_db.c
--- net_db.c	1999/12/18 23:31:22	1.26
+++ net_db.c	1999/12/20 12:59:00
@@ -66,7 +66,9 @@
 #include <sys/socket.h>
 #include <netdb.h>
 #include <netinet/in.h>
+#ifdef HAVE_ARPA_INET_H
 #include <arpa/inet.h>
+#endif
 
 /* Some systems do not declare this.  Some systems do declare it, as a
    macro.  */
Index: libguile/socket.c
===================================================================
RCS file: /cvs/guile/guile/guile-core/libguile/socket.c,v
retrieving revision 1.40
diff -u -r1.40 socket.c
--- socket.c	1999/12/19 01:04:36	1.40
+++ socket.c	1999/12/20 12:59:01
@@ -67,7 +67,9 @@
 #endif
 #include <netinet/in.h>
 #include <netdb.h>
+#if HAVE_ARPA_INET_H
 #include <arpa/inet.h>
+#endif