libukcprog/src/panic.c

/*  panic.c -- Call a user user-defined panic handling routine and abort()  */

/*  Copyright 1992  Godfrey Paul, University of Kent at Canterbury.
 *
 *  You can do what you like with this source code as long as
 *  you don't try to make money out of it and you include an
 *  unaltered copy of this message (including the copyright).
 */

char ukcprog_panic_sccsid[] = "$Id: panic.c,v 1.9 1993/05/30 18:15:12 gjap Exp $ UKC";

#include <stdio.h>
#include <stdlib.h>

#include "ukcprog.h"


static panic_handler_t User_panic_handler = NULL;


/*
 *  install_panic_handler()
 *  Installs a new panic handler, returns the old one.
 */
panic_handler_t
install_panic_handler(handler)
panic_handler_t handler;
{
        panic_handler_t old;

        old = User_panic_handler;
        User_panic_handler = handler;

        return old;
}


/*
 *  panic()
 *  Called when the world has ended.  If a user-defined routine exists,
 *  call it with the given message as an argument.  If not, or if it
 *  returns, print a suitable message and abort.
 */
void
panic(message)
const char *message;
{
        if (User_panic_handler != NULL)
                (*User_panic_handler)(message);

        fprintf(stderr, "Fatal internal error: %s (aborting) ...\n", message);
        fflush(stderr);
        abort();
}
Revision:	1.1
Committed:	Sat Mar 29 16:30:33 2003 UTC (21 years, 1 month ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	LIBUKCPROG_1_0_2, LIBUKCPROG_1_0_1, LIBUKCPROG_1_0, HEAD
Log Message:	libukcprog is now a seperate package. I doubt this will be much use to anyone other than us, but I see no reason why we can't package it up and distribute it. Obviously we can't attach the GPL to this, as we don't own it.
#	User	Rev	Content
1	tdb	1.1	/* panic.c -- Call a user user-defined panic handling routine and abort() */
2
3			/* Copyright 1992 Godfrey Paul, University of Kent at Canterbury.
4			*
5			* You can do what you like with this source code as long as
6			* you don't try to make money out of it and you include an
7			* unaltered copy of this message (including the copyright).
8			*/
9
10			char ukcprog_panic_sccsid[] = "$Id: panic.c,v 1.9 1993/05/30 18:15:12 gjap Exp $ UKC";
11
12			#include <stdio.h>
13			#include <stdlib.h>
14
15			#include "ukcprog.h"
16
17
18			static panic_handler_t User_panic_handler = NULL;
19
20
21			/*
22			* install_panic_handler()
23			* Installs a new panic handler, returns the old one.
24			*/
25			panic_handler_t
26			install_panic_handler(handler)
27			panic_handler_t handler;
28			{
29			panic_handler_t old;
30
31			old = User_panic_handler;
32			User_panic_handler = handler;
33
34			return old;
35			}
36
37
38			/*
39			* panic()
40			* Called when the world has ended. If a user-defined routine exists,
41			* call it with the given message as an argument. If not, or if it
42			* returns, print a suitable message and abort.
43			*/
44			void
45			panic(message)
46			const char *message;
47			{
48			if (User_panic_handler != NULL)
49			(*User_panic_handler)(message);
50
51			fprintf(stderr, "Fatal internal error: %s (aborting) ...\n", message);
52			fflush(stderr);
53			abort();
54			}