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