This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
guile-core patch
- To: guile at sourceware dot cygnus dot com
- Subject: guile-core patch
- From: "Lars J. Aas" <larsa at sim dot no>
- Date: Mon, 20 Dec 1999 14:10:54 +0100
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