user/tinytcl/panic.c

   1 /*
   2  * panic.c --
   3  *
   4  *      Source code for the "panic" library procedure for Tcl;
   5  *      individual applications will probably override this with
   6  *      an application-specific panic procedure.
   7  *
   8  * Copyright 1988-1991 Regents of the University of California
   9  * Permission to use, copy, modify, and distribute this
  10  * software and its documentation for any purpose and without
  11  * fee is hereby granted, provided that the above copyright
  12  * notice appears in all copies.  The University of California
  13  * makes no representations about the suitability of this
  14  * software for any purpose.  It is provided "as is" without
  15  * express or implied warranty.
  16  *
  17  * $Id: panic.c,v 1.1.1.1 2001/04/29 20:34:05 karll Exp $
  18  */
  19
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22 \f
  23 /*
  24  *----------------------------------------------------------------------
  25  *
  26  * panic --
  27  *
  28  *      Print an error message and kill the process.
  29  *
  30  * Results:
  31  *      None.
  32  *
  33  * Side effects:
  34  *      The process dies, entering the debugger if possible.
  35  *
  36  *----------------------------------------------------------------------
  37  */
  38
  39         /* VARARGS ARGSUSED */
  40 void
  41 panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
  42     char *format;               /* Format string, suitable for passing to
  43                                  * fprintf. */
  44     char *arg1, *arg2, *arg3;   /* Additional arguments (variable in number)
  45                                  * to pass to fprintf. */
  46     char *arg4, *arg5, *arg6, *arg7, *arg8;
  47 {
  48     (void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
  49             arg7, arg8);
  50     (void) fflush(stderr);
  51     abort();
  52 }