src/lib/ack/libm2/halt.c

Go to the documentation of this file.

/*
  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  See the copyright notice in the ACK home directory, in the file "Copyright".
*/

/*
  Module:       program termination routines
  Author:       Ceriel J.H. Jacobs
  Version:      $Header$
*/
#define MAXPROCS 32

static int callindex = 0;
static int (*proclist[MAXPROCS])();

_cleanup()
{
        while (--callindex >= 0)
                (*proclist[callindex])();
        callindex = 0;
}

CallAtEnd(p)
        int (*p)();
{
        if (callindex >= MAXPROCS) {
                return 0;
        }
        proclist[callindex++] = p;
        return 1;
}

halt()
{
        _cleanup();
        _exit(0);
}

---