116 lines
3.1 KiB
C
116 lines
3.1 KiB
C
/*
|
||
* CDE - Common Desktop Environment
|
||
*
|
||
* Copyright (c) 1993-2012, The Open Group. All rights reserved.
|
||
*
|
||
* These libraries and programs are free software; you can
|
||
* redistribute them and/or modify them under the terms of the GNU
|
||
* Lesser General Public License as published by the Free Software
|
||
* Foundation; either version 2 of the License, or (at your option)
|
||
* any later version.
|
||
*
|
||
* These libraries and programs are distributed in the hope that
|
||
* they will be useful, but WITHOUT ANY WARRANTY; without even the
|
||
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
||
* PURPOSE. See the GNU Lesser General Public License for more
|
||
* details.
|
||
*
|
||
* You should have received a copy of the GNU Lesser General Public
|
||
* License along with these librararies and programs; if not, write
|
||
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
|
||
* Floor, Boston, MA 02110-1301 USA
|
||
*/
|
||
/* $XConsortium: panic.c /main/2 1996/08/08 14:42:24 cde-hp $ */
|
||
/*
|
||
* panic.c --
|
||
*
|
||
* Source code for the "panic" library procedure for Tcl;
|
||
* individual applications will probably override this with
|
||
* an application-specific panic procedure.
|
||
*
|
||
* Copyright (c) 1988-1993 The Regents of the University of California.
|
||
* Copyright (c) 1994 Sun Microsystems, Inc.
|
||
*
|
||
* See the file "license.terms" for information on usage and redistribution
|
||
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||
*
|
||
* SCCS: @(#) panic.c 1.11 96/02/15 11:50:29
|
||
*/
|
||
|
||
#include <stdio.h>
|
||
#ifdef NO_STDLIB_H
|
||
# include "../compat/stdlib.h"
|
||
#else
|
||
# include <stdlib.h>
|
||
#endif
|
||
|
||
#include "tcl.h"
|
||
|
||
/*
|
||
* The panicProc variable contains a pointer to an application
|
||
* specific panic procedure.
|
||
*/
|
||
|
||
void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;
|
||
|
||
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* Tcl_SetPanicProc --
|
||
*
|
||
* Replace the default panic behavior with the specified functiion.
|
||
*
|
||
* Results:
|
||
* None.
|
||
*
|
||
* Side effects:
|
||
* Sets the panicProc variable.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
void
|
||
Tcl_SetPanicProc(proc)
|
||
void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
|
||
{
|
||
panicProc = proc;
|
||
}
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* panic --
|
||
*
|
||
* Print an error message and kill the process.
|
||
*
|
||
* Results:
|
||
* None.
|
||
*
|
||
* Side effects:
|
||
* The process dies, entering the debugger if possible.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
/* VARARGS ARGSUSED */
|
||
void
|
||
panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
|
||
char *format; /* Format string, suitable for passing to
|
||
* fprintf. */
|
||
char *arg1, *arg2, *arg3; /* Additional arguments (variable in number)
|
||
* to pass to fprintf. */
|
||
char *arg4, *arg5, *arg6, *arg7, *arg8;
|
||
{
|
||
if (panicProc != NULL) {
|
||
(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
|
||
} else {
|
||
(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
|
||
arg7, arg8);
|
||
(void) fprintf(stderr, "\n");
|
||
(void) fflush(stderr);
|
||
abort();
|
||
}
|
||
}
|