mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

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

Browse source 
* 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.
This commit is contained in:
Mikael Djurfeldt 2001-03-10 16:56:09 +00:00
parent 451d273ac9
commit e6e2e95aa5
22 changed files with 65 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/ChangeLog
View file

@ -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

7
libguile/_scm.h
View file

@ -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

5
libguile/error.c
View file

@ -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)

4
libguile/filesys.c
View file

@ -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"

4
libguile/gc.c
View file

@ -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"

2
libguile/ioext.c
View file

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

1
libguile/iselect.c
View file

@ -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>

8
libguile/net_db.c
View file

@ -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

2
libguile/ports.c
View file

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

4
libguile/posix.c
View file

@ -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"

4
libguile/print.c
View file

@ -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"

5
libguile/putenv.c
View file

@ -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.

4
libguile/scmsigs.c
View file

@ -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"

4
libguile/script.c
View file

@ -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"

4
libguile/simpos.c
View file

@ -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"

2
libguile/smob.c
View file

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

4
libguile/socket.c
View file

@ -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"

4
libguile/srcprop.c
View file

@ -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"

6
libguile/stime.c
View file

@ -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

4
libguile/strop.c
View file

@ -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"

2
libguile/unif.c
View file

@ -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"

4
libguile/vports.c
View file

@ -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"