70 lines
2.3 KiB
C
70 lines
2.3 KiB
C
|
/*
|
|||
|
|
* 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.
|
|||
|
|
* All rights reserved.
|
|||
|
|
*
|
|||
|
|
* Permission is hereby granted, without written agreement and without
|
|||
|
|
* license or royalty fees, to use, copy, modify, and distribute this
|
|||
|
|
* software and its documentation for any purpose, provided that the
|
|||
|
|
* above copyright notice and the following two paragraphs appear in
|
|||
|
|
* all copies of this software.
|
|||
|
|
*
|
|||
|
|
* IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
|
|||
|
|
* DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
|
|||
|
|
* OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
|
|||
|
|
* CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|||
|
|
*
|
|||
|
|
* THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
|
|||
|
|
* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
|
|||
|
|
* AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
|
|||
|
|
* ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
|
|||
|
|
* PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#ifndef lint
|
|||
|
|
static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/panic.c,v 1.5 93/07/12 14:01:35 ouster Exp $ SPRITE (Berkeley)";
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
#include <stdio.h>
|
|||
|
|
#ifdef NO_STDLIB_H
|
|||
|
|
# include "compat/stdlib.h"
|
|||
|
|
#else
|
|||
|
|
# include <stdlib.h>
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
*----------------------------------------------------------------------
|
|||
|
|
*
|
|||
|
|
* 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;
|
|||
|
|
{
|
|||
|
|
(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
|
|||
|
|
arg7, arg8);
|
|||
|
|
(void) fflush(stderr);
|
|||
|
|
abort();
|
|||
|
|
}
|