aaa5f039eb
* configure.in (MAKEINFO, PERL): Detect these. (--enable-maintainer-mode): Add. * configure: Regenerate. * Makefile.in (MAKEINFO, PERL): Define. (libiberty.info, libiberty.dvi, libiberty.html): New. (CFILES): Add bsearch.c. (CONFIGURED_OFILES): New, list of objects configure might add. (maint-missing, maint-buildall): New, for maintainers only. (clean, mostlyclean): Add info/dvi/html files. * libiberty.texi, copying-lib.texi, obstacks.texi, functions.texi: New. * gather-docs: New, for maintainers. * maint-tool: New, for maintainers. * alloca.c, atexit.c, basename.c, bcmp.c, bcopy.c, bsearch.c, bzero.c, calloc.c, clock.c, configure.in, configure, getcwd.c, getpagesize.c, getpwd.c, index.c, memchr.c, memcmp.c, memcpy.c, memmove.c, memset.c, putenv.c, rename.c, rindex.c, setenv.c, sigsetmask.c, strcasecmp.c, strchr.c, strdup.c, strerror.c, strncasecmp.c, strncmp.c, strrchr.c, strstr.c, strtod.c, strtol.c, tmpnam.c, vfork.c, vprintf.c, waitpid.c, xatexit.c, xexit.c, xmalloc.c, xmemdup.c, xstrdup.c, xstrerror.c: Add or update documentation. Co-Authored-By: Phil Edwards <pedwards@disaster.jaj.com> From-SVN: r45828
96 lines
2.1 KiB
C
96 lines
2.1 KiB
C
/*
|
|
* Copyright (c) 1990 Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* %sccs.include.redist.c%
|
|
*/
|
|
|
|
|
|
/*
|
|
|
|
@deftypefun int xatexit (void (*@var{fn}) (void))
|
|
|
|
Behaves as the standard @code{atexit} function, but with no limit on
|
|
the number of registered funtions. Returns 0 on success, or -1 on
|
|
failure. If you use @code{xatexit} to register functions, you must use
|
|
@code{xexit} to terminate your program.
|
|
|
|
@end deftypefun
|
|
|
|
*/
|
|
|
|
/* Adapted from newlib/libc/stdlib/{,at}exit.[ch].
|
|
If you use xatexit, you must call xexit instead of exit. */
|
|
|
|
#include "ansidecl.h"
|
|
#include "libiberty.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
#ifdef __STDC__
|
|
#include <stddef.h>
|
|
#else
|
|
#define size_t unsigned long
|
|
#endif
|
|
|
|
/* For systems with larger pointers than ints, this must be declared. */
|
|
PTR malloc PARAMS ((size_t));
|
|
|
|
static void xatexit_cleanup PARAMS ((void));
|
|
|
|
/* Pointer to function run by xexit. */
|
|
extern void (*_xexit_cleanup) PARAMS ((void));
|
|
|
|
#define XATEXIT_SIZE 32
|
|
|
|
struct xatexit {
|
|
struct xatexit *next; /* next in list */
|
|
int ind; /* next index in this table */
|
|
void (*fns[XATEXIT_SIZE]) PARAMS ((void)); /* the table itself */
|
|
};
|
|
|
|
/* Allocate one struct statically to guarantee that we can register
|
|
at least a few handlers. */
|
|
static struct xatexit xatexit_first;
|
|
|
|
/* Points to head of LIFO stack. */
|
|
static struct xatexit *xatexit_head = &xatexit_first;
|
|
|
|
/* Register function FN to be run by xexit.
|
|
Return 0 if successful, -1 if not. */
|
|
|
|
int
|
|
xatexit (fn)
|
|
void (*fn) PARAMS ((void));
|
|
{
|
|
register struct xatexit *p;
|
|
|
|
/* Tell xexit to call xatexit_cleanup. */
|
|
if (!_xexit_cleanup)
|
|
_xexit_cleanup = xatexit_cleanup;
|
|
|
|
p = xatexit_head;
|
|
if (p->ind >= XATEXIT_SIZE)
|
|
{
|
|
if ((p = (struct xatexit *) malloc (sizeof *p)) == NULL)
|
|
return -1;
|
|
p->ind = 0;
|
|
p->next = xatexit_head;
|
|
xatexit_head = p;
|
|
}
|
|
p->fns[p->ind++] = fn;
|
|
return 0;
|
|
}
|
|
|
|
/* Call any cleanup functions. */
|
|
|
|
static void
|
|
xatexit_cleanup ()
|
|
{
|
|
register struct xatexit *p;
|
|
register int n;
|
|
|
|
for (p = xatexit_head; p; p = p->next)
|
|
for (n = p->ind; --n >= 0;)
|
|
(*p->fns[n]) ();
|
|
}
|