/[dtapublic]/projs/dtats/trunk/shared_source/c_tcl_base_7_5_w_mods/tclpanic.c
ViewVC logotype

Diff of /projs/dtats/trunk/shared_source/c_tcl_base_7_5_w_mods/tclpanic.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 66 by dashley, Sun Oct 30 21:57:38 2016 UTC revision 71 by dashley, Sat Nov 5 11:07:06 2016 UTC
# Line 1  Line 1 
1  /* $Header$ */  /* $Header$ */
2  /*  /*
3   * tclPanic.c --   * tclPanic.c --
4   *   *
5   *      Source code for the "Tcl_Panic" library procedure for Tcl;   *      Source code for the "Tcl_Panic" library procedure for Tcl;
6   *      individual applications will probably override this with   *      individual applications will probably override this with
7   *      an application-specific panic procedure.   *      an application-specific panic procedure.
8   *   *
9   * Copyright (c) 1988-1993 The Regents of the University of California.   * Copyright (c) 1988-1993 The Regents of the University of California.
10   * Copyright (c) 1994 Sun Microsystems, Inc.   * Copyright (c) 1994 Sun Microsystems, Inc.
11   * Copyright (c) 1998-1999 by Scriptics Corporation.   * Copyright (c) 1998-1999 by Scriptics Corporation.
12   *   *
13   * See the file "license.terms" for information on usage and redistribution   * See the file "license.terms" for information on usage and redistribution
14   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
15   *   *
16   * RCS: @(#) $Id: tclpanic.c,v 1.1.1.1 2001/06/13 04:44:06 dtashley Exp $   * RCS: @(#) $Id: tclpanic.c,v 1.1.1.1 2001/06/13 04:44:06 dtashley Exp $
17   */   */
18    
19  #include "tclInt.h"  #include "tclInt.h"
20    
21  /*  /*
22   * The panicProc variable contains a pointer to an application   * The panicProc variable contains a pointer to an application
23   * specific panic procedure.   * specific panic procedure.
24   */   */
25    
26  void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;  void (*panicProc) _ANSI_ARGS_(TCL_VARARGS(char *,format)) = NULL;
27    
28  /*  /*
29   *----------------------------------------------------------------------   *----------------------------------------------------------------------
30   *   *
31   * Tcl_SetPanicProc --   * Tcl_SetPanicProc --
32   *   *
33   *      Replace the default panic behavior with the specified functiion.   *      Replace the default panic behavior with the specified functiion.
34   *   *
35   * Results:   * Results:
36   *      None.   *      None.
37   *   *
38   * Side effects:   * Side effects:
39   *      Sets the panicProc variable.   *      Sets the panicProc variable.
40   *   *
41   *----------------------------------------------------------------------   *----------------------------------------------------------------------
42   */   */
43    
44  void  void
45  Tcl_SetPanicProc(proc)  Tcl_SetPanicProc(proc)
46      void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));      void (*proc) _ANSI_ARGS_(TCL_VARARGS(char *,format));
47  {  {
48      panicProc = proc;      panicProc = proc;
49  }  }
50    
51  /*  /*
52   *----------------------------------------------------------------------   *----------------------------------------------------------------------
53   *   *
54   * Tcl_PanicVA --   * Tcl_PanicVA --
55   *   *
56   *      Print an error message and kill the process.   *      Print an error message and kill the process.
57   *   *
58   * Results:   * Results:
59   *      None.   *      None.
60   *   *
61   * Side effects:   * Side effects:
62   *      The process dies, entering the debugger if possible.   *      The process dies, entering the debugger if possible.
63   *   *
64   *----------------------------------------------------------------------   *----------------------------------------------------------------------
65   */   */
66    
67  void  void
68  Tcl_PanicVA (format, argList)  Tcl_PanicVA (format, argList)
69      char *format;               /* Format string, suitable for passing to      char *format;               /* Format string, suitable for passing to
70                                   * fprintf. */                                   * fprintf. */
71      va_list argList;            /* Variable argument list. */      va_list argList;            /* Variable argument list. */
72  {  {
73      char *arg1, *arg2, *arg3, *arg4;    /* Additional arguments (variable in      char *arg1, *arg2, *arg3, *arg4;    /* Additional arguments (variable in
74                                           * number) to pass to fprintf. */                                           * number) to pass to fprintf. */
75      char *arg5, *arg6, *arg7, *arg8;      char *arg5, *arg6, *arg7, *arg8;
76    
77      arg1 = va_arg(argList, char *);      arg1 = va_arg(argList, char *);
78      arg2 = va_arg(argList, char *);      arg2 = va_arg(argList, char *);
79      arg3 = va_arg(argList, char *);      arg3 = va_arg(argList, char *);
80      arg4 = va_arg(argList, char *);      arg4 = va_arg(argList, char *);
81      arg5 = va_arg(argList, char *);      arg5 = va_arg(argList, char *);
82      arg6 = va_arg(argList, char *);      arg6 = va_arg(argList, char *);
83      arg7 = va_arg(argList, char *);      arg7 = va_arg(argList, char *);
84      arg8 = va_arg(argList, char *);      arg8 = va_arg(argList, char *);
85            
86      if (panicProc != NULL) {      if (panicProc != NULL) {
87          (void) (*panicProc)(format, arg1, arg2, arg3, arg4,          (void) (*panicProc)(format, arg1, arg2, arg3, arg4,
88                  arg5, arg6, arg7, arg8);                  arg5, arg6, arg7, arg8);
89      } else {      } else {
90          (void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,          (void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
91                  arg7, arg8);                  arg7, arg8);
92          (void) fprintf(stderr, "\n");          (void) fprintf(stderr, "\n");
93          (void) fflush(stderr);          (void) fflush(stderr);
94          abort();          abort();
95      }      }
96  }  }
97    
98  /*  /*
99   *----------------------------------------------------------------------   *----------------------------------------------------------------------
100   *   *
101   * panic --   * panic --
102   *   *
103   *      Print an error message and kill the process.   *      Print an error message and kill the process.
104   *   *
105   * Results:   * Results:
106   *      None.   *      None.
107   *   *
108   * Side effects:   * Side effects:
109   *      The process dies, entering the debugger if possible.   *      The process dies, entering the debugger if possible.
110   *   *
111   *----------------------------------------------------------------------   *----------------------------------------------------------------------
112   */   */
113    
114          /* VARARGS ARGSUSED */          /* VARARGS ARGSUSED */
115  void  void
116  panic TCL_VARARGS_DEF(char *,arg1)  panic TCL_VARARGS_DEF(char *,arg1)
117  {  {
118      va_list argList;      va_list argList;
119      char *format;      char *format;
120    
121      format = TCL_VARARGS_START(char *,arg1,argList);      format = TCL_VARARGS_START(char *,arg1,argList);
122      Tcl_PanicVA(format, argList);      Tcl_PanicVA(format, argList);
123      va_end (argList);      va_end (argList);
124  }  }
125    
126  /* End of tclpanic.c */  /* End of tclpanic.c */

Legend:
Removed from v.66  
changed lines
  Added in v.71

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25