/*
|
/*
|
* panic.c --
|
* panic.c --
|
*
|
*
|
* Source code for the "panic" library procedure for Tcl;
|
* Source code for the "panic" library procedure for Tcl;
|
* individual applications will probably override this with
|
* individual applications will probably override this with
|
* an application-specific panic procedure.
|
* an application-specific panic procedure.
|
*
|
*
|
* Copyright (c) 1988-1993 The Regents of the University of California.
|
* Copyright (c) 1988-1993 The Regents of the University of California.
|
* Copyright (c) 1994 Sun Microsystems, Inc.
|
* Copyright (c) 1994 Sun Microsystems, Inc.
|
*
|
*
|
* See the file "license.terms" for information on usage and redistribution
|
* See the file "license.terms" for information on usage and redistribution
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
*
|
*
|
* RCS: @(#) $Id: panic.c,v 1.1.1.1 2002-01-16 10:25:25 markom Exp $
|
* RCS: @(#) $Id: panic.c,v 1.1.1.1 2002-01-16 10:25:25 markom Exp $
|
*/
|
*/
|
|
|
#include <stdio.h>
|
#include <stdio.h>
|
#ifdef NO_STDLIB_H
|
#ifdef NO_STDLIB_H
|
# include "../compat/stdlib.h"
|
# include "../compat/stdlib.h"
|
#else
|
#else
|
# include <stdlib.h>
|
# include <stdlib.h>
|
#endif
|
#endif
|
|
|
#define panic panicDummy
|
#define panic panicDummy
|
#include "tcl.h"
|
#include "tcl.h"
|
#undef panic
|
#undef panic
|
|
|
# undef TCL_STORAGE_CLASS
|
# undef TCL_STORAGE_CLASS
|
# define TCL_STORAGE_CLASS DLLEXPORT
|
# define TCL_STORAGE_CLASS DLLEXPORT
|
|
|
EXTERN void panic _ANSI_ARGS_((char *format, char *arg1,
|
EXTERN void panic _ANSI_ARGS_((char *format, char *arg1,
|
char *arg2, char *arg3, char *arg4, char *arg5,
|
char *arg2, char *arg3, char *arg4, char *arg5,
|
char *arg6, char *arg7, char *arg8));
|
char *arg6, char *arg7, char *arg8));
|
|
|
/*
|
/*
|
* The panicProc variable contains a pointer to an application
|
* The panicProc variable contains a pointer to an application
|
* specific panic procedure.
|
* specific panic procedure.
|
*/
|
*/
|
|
|
void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;
|
void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;
|
|
|
/*
|
/*
|
*----------------------------------------------------------------------
|
*----------------------------------------------------------------------
|
*
|
*
|
* Tcl_SetPanicProc --
|
* Tcl_SetPanicProc --
|
*
|
*
|
* Replace the default panic behavior with the specified functiion.
|
* Replace the default panic behavior with the specified functiion.
|
*
|
*
|
* Results:
|
* Results:
|
* None.
|
* None.
|
*
|
*
|
* Side effects:
|
* Side effects:
|
* Sets the panicProc variable.
|
* Sets the panicProc variable.
|
*
|
*
|
*----------------------------------------------------------------------
|
*----------------------------------------------------------------------
|
*/
|
*/
|
|
|
void
|
void
|
Tcl_SetPanicProc(proc)
|
Tcl_SetPanicProc(proc)
|
void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
|
void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
|
{
|
{
|
panicProc = proc;
|
panicProc = proc;
|
}
|
}
|
|
|
/*
|
/*
|
*----------------------------------------------------------------------
|
*----------------------------------------------------------------------
|
*
|
*
|
* panic --
|
* panic --
|
*
|
*
|
* Print an error message and kill the process.
|
* Print an error message and kill the process.
|
*
|
*
|
* Results:
|
* Results:
|
* None.
|
* None.
|
*
|
*
|
* Side effects:
|
* Side effects:
|
* The process dies, entering the debugger if possible.
|
* The process dies, entering the debugger if possible.
|
*
|
*
|
*----------------------------------------------------------------------
|
*----------------------------------------------------------------------
|
*/
|
*/
|
|
|
/* VARARGS ARGSUSED */
|
/* VARARGS ARGSUSED */
|
void
|
void
|
panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
|
panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
|
char *format; /* Format string, suitable for passing to
|
char *format; /* Format string, suitable for passing to
|
* fprintf. */
|
* fprintf. */
|
char *arg1, *arg2, *arg3; /* Additional arguments (variable in number)
|
char *arg1, *arg2, *arg3; /* Additional arguments (variable in number)
|
* to pass to fprintf. */
|
* to pass to fprintf. */
|
char *arg4, *arg5, *arg6, *arg7, *arg8;
|
char *arg4, *arg5, *arg6, *arg7, *arg8;
|
{
|
{
|
if (panicProc != NULL) {
|
if (panicProc != NULL) {
|
(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
|
(void) (*panicProc)(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8);
|
} else {
|
} else {
|
(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
|
(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
|
arg7, arg8);
|
arg7, arg8);
|
(void) fprintf(stderr, "\n");
|
(void) fprintf(stderr, "\n");
|
(void) fflush(stderr);
|
(void) fflush(stderr);
|
abort();
|
abort();
|
}
|
}
|
}
|
}
|
|
|