1*4887Schin /***********************************************************************
2*4887Schin *                                                                      *
3*4887Schin *               This software is part of the ast package               *
4*4887Schin *           Copyright (c) 1985-2007 AT&T Knowledge Ventures            *
5*4887Schin *                      and is licensed under the                       *
6*4887Schin *                  Common Public License, Version 1.0                  *
7*4887Schin *                      by AT&T Knowledge Ventures                      *
8*4887Schin *                                                                      *
9*4887Schin *                A copy of the License is available at                 *
10*4887Schin *            http://www.opensource.org/licenses/cpl1.0.txt             *
11*4887Schin *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12*4887Schin *                                                                      *
13*4887Schin *              Information and Software Systems Research               *
14*4887Schin *                            AT&T Research                             *
15*4887Schin *                           Florham Park NJ                            *
16*4887Schin *                                                                      *
17*4887Schin *                 Glenn Fowler <gsf@research.att.com>                  *
18*4887Schin *                  David Korn <dgk@research.att.com>                   *
19*4887Schin *                   Phong Vo <kpv@research.att.com>                    *
20*4887Schin *                                                                      *
21*4887Schin ***********************************************************************/
22*4887Schin #pragma prototyped
23*4887Schin 
24*4887Schin /*
25*4887Schin  * ANSI C atexit()
26*4887Schin  * arrange for func to be called LIFO on exit()
27*4887Schin  */
28*4887Schin 
29*4887Schin #include <ast.h>
30*4887Schin 
31*4887Schin #if _lib_atexit
32*4887Schin 
33*4887Schin NoN(atexit)
34*4887Schin 
35*4887Schin #else
36*4887Schin 
37*4887Schin #if _lib_onexit || _lib_on_exit
38*4887Schin 
39*4887Schin #if !_lib_onexit
40*4887Schin #define onexit		on_exit
41*4887Schin #endif
42*4887Schin 
43*4887Schin extern int		onexit(void(*)(void));
44*4887Schin 
45*4887Schin int
46*4887Schin atexit(void (*func)(void))
47*4887Schin {
48*4887Schin 	return(onexit(func));
49*4887Schin }
50*4887Schin 
51*4887Schin #else
52*4887Schin 
53*4887Schin struct list
54*4887Schin {
55*4887Schin 	struct list*	next;
56*4887Schin 	void		(*func)(void);
57*4887Schin };
58*4887Schin 
59*4887Schin static struct list*	funclist;
60*4887Schin 
61*4887Schin extern void		_exit(int);
62*4887Schin 
63*4887Schin int
64*4887Schin atexit(void (*func)(void))
65*4887Schin {
66*4887Schin 	register struct list*	p;
67*4887Schin 
68*4887Schin 	if (!(p = newof(0, struct list, 1, 0))) return(-1);
69*4887Schin 	p->func = func;
70*4887Schin 	p->next = funclist;
71*4887Schin 	funclist = p;
72*4887Schin 	return(0);
73*4887Schin }
74*4887Schin 
75*4887Schin void
76*4887Schin _ast_atexit(void)
77*4887Schin {
78*4887Schin 	register struct list*	p;
79*4887Schin 
80*4887Schin 	while (p = funclist)
81*4887Schin 	{
82*4887Schin 		funclist = p->next;
83*4887Schin 		(*p->func)();
84*4887Schin 	}
85*4887Schin }
86*4887Schin 
87*4887Schin #if _std_cleanup
88*4887Schin 
89*4887Schin #if _lib__cleanup
90*4887Schin extern void		_cleanup(void);
91*4887Schin #endif
92*4887Schin 
93*4887Schin void
94*4887Schin exit(int code)
95*4887Schin {
96*4887Schin 	_ast_atexit();
97*4887Schin #if _lib__cleanup
98*4887Schin 	_cleanup();
99*4887Schin #endif
100*4887Schin 	_exit(code);
101*4887Schin }
102*4887Schin 
103*4887Schin #else
104*4887Schin 
105*4887Schin void
106*4887Schin _cleanup(void)
107*4887Schin {
108*4887Schin 	_ast_atexit();
109*4887Schin }
110*4887Schin 
111*4887Schin #endif
112*4887Schin 
113*4887Schin #endif
114*4887Schin 
115*4887Schin #endif
116