Imported Upstream version 93u+upstream

1 files changed, 115 insertions, 0 deletions

diff --git a/src/lib/libast/comp/atexit.c b/src/lib/libast/comp/atexit.c
new file mode 100644
index 0000000..d0df2d5
--- /dev/null
+++ b/src/lib/libast/comp/atexit.c
@@ -0,0 +1,115 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#pragma prototyped
+
+/*
+ * ANSI C atexit()
+ * arrange for func to be called LIFO on exit()
+ */
+
+#include <ast.h>
+
+#if _lib_atexit
+
+NoN(atexit)
+
+#else
+
+#if _lib_onexit || _lib_on_exit
+
+#if !_lib_onexit
+#define onexit		on_exit
+#endif
+
+extern int		onexit(void(*)(void));
+
+int
+atexit(void (*func)(void))
+{
+	return(onexit(func));
+}
+
+#else
+
+struct list
+{
+	struct list*	next;
+	void		(*func)(void);
+};
+
+static struct list*	funclist;
+
+extern void		_exit(int);
+
+int
+atexit(void (*func)(void))
+{
+	register struct list*	p;
+
+	if (!(p = newof(0, struct list, 1, 0))) return(-1);
+	p->func = func;
+	p->next = funclist;
+	funclist = p;
+	return(0);
+}
+
+void
+_ast_atexit(void)
+{
+	register struct list*	p;
+
+	while (p = funclist)
+	{
+		funclist = p->next;
+		(*p->func)();
+	}
+}
+
+#if _std_cleanup
+
+#if _lib__cleanup
+extern void		_cleanup(void);
+#endif
+
+void
+exit(int code)
+{
+	_ast_atexit();
+#if _lib__cleanup
+	_cleanup();
+#endif
+	_exit(code);
+}
+
+#else
+
+void
+_cleanup(void)
+{
+	_ast_atexit();
+}
+
+#endif
+
+#endif
+
+#endif