1169695Skan/* Wrapper to implement ANSI C's atexit using SunOS's on_exit. */
2169695Skan/* This function is in the public domain.  --Mike Stump. */
3169695Skan
4169695Skan/*
5169695Skan
6169695Skan@deftypefn Supplemental int atexit (void (*@var{f})())
7169695Skan
8169695SkanCauses function @var{f} to be called at exit.  Returns 0.
9169695Skan
10169695Skan@end deftypefn
11169695Skan
12169695Skan*/
13169695Skan
14169695Skan#include "config.h"
15169695Skan
16169695Skan#ifdef HAVE_ON_EXIT
17169695Skan
18169695Skanint
19169695Skanatexit(void (*f)(void))
20169695Skan{
21169695Skan  /* If the system doesn't provide a definition for atexit, use on_exit
22169695Skan     if the system provides that.  */
23169695Skan  on_exit (f, 0);
24169695Skan  return 0;
25169695Skan}
26169695Skan
27169695Skan#endif
28