* _scm.h: Removed #include <errno.h>.

* error.c, net_db.c, putenv.c, stime.c: Removed declaration of
errno variable (can be a macro on some systems, for example when
using linux libc with threads).

* error.c, filesys.c, gc.c, ioext.c, iselect.c, net_db.c, ports.c,
posix.c, print.c, putenv.c, scmsigs.c, script.c, simpos.c, smob.c,
socket.c, srcprop.c, stime.c, strop.c, unif.c, vports.c: Added
#include <errno.h> in these 20 out of 100 files.

libguile/ChangeLog

@@ -1,3 +1,16 @@
+2001-03-10  Mikael Djurfeldt  <mdj@linnaeus.mit.edu>
+
+	* _scm.h: Removed #include <errno.h>.
+
+	* error.c, net_db.c, putenv.c, stime.c: Removed declaration of
+	errno variable (can be a macro on some systems, for example when
+	using linux libc with threads).
+
+	* error.c, filesys.c, gc.c, ioext.c, iselect.c, net_db.c, ports.c,
+	posix.c, print.c, putenv.c, scmsigs.c, script.c, simpos.c, smob.c,
+	socket.c, srcprop.c, stime.c, strop.c, unif.c, vports.c: Added
+	#include <errno.h> in these 20 out of 100 files.
+	
 2001-03-10  Gary Houston  <ghouston@arglist.com>
 
 	* socket.c: add a definition of SUN_LEN (from glibc) for when it's

libguile/_scm.h

@@ -2,7 +2,7 @@
 
 #ifndef _SCMH
 #define _SCMH
-/*	Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1995,1996, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -76,11 +76,6 @@
 #endif
 #include "libguile/snarf.h"	/* Everyone snarfs. */
 
-/* On VMS, GNU C's errno.h contains a special hack to get link attributes
- * for errno correct for linking to the C RTL.
- */
-#include <errno.h>
-
 /* SCM_SYSCALL retries system calls that have been interrupted (EINTR).
    However this can be avoided if the operating system can restart
    system calls automatically.  We assume this is the case if

libguile/error.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1995,1996,1997,1998, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -45,6 +45,7 @@
 
 
 #include <stdio.h>
+#include <errno.h>
 
 #include "libguile/_scm.h"
 #include "libguile/pairs.h"
@@ -67,8 +68,6 @@
  */
 
 
-extern int errno;
-
 /* All errors should pass through here.  */
 void
 scm_error (SCM key, const char *subr, const char *message, SCM args, SCM rest)

libguile/filesys.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -44,6 +44,8 @@
 
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/smob.h"
 #include "libguile/feature.h"

libguile/gc.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -51,7 +51,9 @@
 
 
 #include <stdio.h>
+#include <errno.h>
 #include <string.h>
+
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/stime.h"

libguile/ioext.c

@@ -44,6 +44,8 @@
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/ioext.h"
 #include "libguile/fports.h"

libguile/iselect.c

@@ -40,6 +40,7 @@
  * If you do not wish that, delete this exception notice.  */
 
 #include <stdio.h>
+#include <errno.h>
 #include <limits.h>
 #include <string.h>
 

libguile/net_db.c

@@ -1,5 +1,5 @@
 /* "net_db.c" network database support
- * Copyright (C) 1995, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
+ * Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -51,6 +51,8 @@
  */
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/feature.h"
 #include "libguile/strings.h"
@@ -69,10 +71,6 @@
 #include <netinet/in.h>
 #include <arpa/inet.h>
 
-#if !defined (HAVE_H_ERRNO)
-extern int h_errno;
-#endif
-
 
 
 #ifndef STDC_HEADERS

libguile/ports.c

@@ -46,6 +46,8 @@
 /* Headers.  */
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/objects.h"

libguile/posix.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -48,6 +48,8 @@
 #define _GNU_SOURCE
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/fports.h"
 #include "libguile/scmsigs.h"

libguile/print.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1995-1999, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1995-1999, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -44,6 +44,8 @@
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/continuations.h"

libguile/putenv.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1991, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 2000, 2001 Free Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -24,9 +24,6 @@
 
 #include <sys/types.h>
 #include <errno.h>
-#ifndef errno
-extern int errno;
-#endif
 
 /* Don't include stdlib.h for non-GNU C libraries because some of them
    contain conflicting prototypes for getopt.

libguile/scmsigs.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -45,6 +45,8 @@
 
 
 #include <signal.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 
 #include "libguile/async.h"

libguile/script.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2, or (at your option)
@@ -45,7 +45,9 @@
    gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
 
 #include <stdio.h>
+#include <errno.h>
 #include <ctype.h>
+
 #include "libguile/_scm.h"
 #include "libguile/gh.h"
 #include "libguile/load.h"

libguile/simpos.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1995,1996,1997,1998, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -44,6 +44,8 @@
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 
 #include "libguile/scmsigs.h"

libguile/smob.c

@@ -45,6 +45,8 @@
 
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 
 #include "libguile/objects.h"

libguile/socket.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1996,1997,1998, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1996,1997,1998, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -44,6 +44,8 @@
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/unif.h"
 #include "libguile/feature.h"

libguile/srcprop.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation
+/*	Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -47,6 +47,8 @@
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/smob.h"
 #include "libguile/alist.h"

libguile/stime.c

@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998, 1999, 2000, 2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -45,6 +45,8 @@
 
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/feature.h"
 #include "libguile/strings.h"
@@ -128,8 +130,6 @@ timet mytime()
 # endif
 #endif
 
-extern int errno;
-
 #ifdef HAVE_FTIME
 struct timeb scm_your_base = {0};
 #else

libguile/strop.c

@@ -1,6 +1,6 @@
 /* classes: src_files */
 
-/*	Copyright (C) 1994, 1996, 1997, 1999, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1994, 1996, 1997, 1999, 2000, 2001 Free Software Foundation, Inc.
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -23,6 +23,8 @@ Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 
 
 
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/strings.h"

libguile/unif.c

@@ -52,7 +52,9 @@
 
 
 #include <stdio.h>
+#include <errno.h>
 #include <string.h>
+
 #include "libguile/_scm.h"
 #include "libguile/chars.h"
 #include "libguile/eval.h"

libguile/vports.c

@@ -1,4 +1,4 @@
-/*	Copyright (C) 1995,1996,1998,1999, 2000 Free Software Foundation, Inc.
+/*	Copyright (C) 1995,1996,1998,1999, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -45,6 +45,8 @@
 
 
 #include <stdio.h>
+#include <errno.h>
+
 #include "libguile/_scm.h"
 #include "libguile/eval.h"
 #include "libguile/chars.h"