ihost/libukcprog/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.1 2002/03/08 14:37:29 tdb 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.2
Committed:	Sat Mar 29 18:05:09 2003 UTC (21 years, 8 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+1 -1 lines
State:	*FILE REMOVED*
Log Message:	ihost now makes use of an external copy of libukcprog. This is available as a seperate download. All files updated accordingly to make this version 1.5.4.
#	Content
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.1 2002/03/08 14:37:29 tdb 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	}