27 |
* COPYING. COPYING is found in ../compiler. |
* COPYING. COPYING is found in ../compiler. |
28 |
*/ |
*/ |
29 |
|
|
30 |
|
/** @file |
31 |
|
* Main Tcl/Tk Driver. |
32 |
|
* <pre> |
33 |
|
* To include this header, you must include the following: |
34 |
|
* #include "tcl.h" |
35 |
|
* #include "utilities/ascConfig.h" |
36 |
|
* </pre> |
37 |
|
*/ |
38 |
|
|
39 |
#ifndef _DRIVER_H |
#ifndef _DRIVER_H |
40 |
#define _DRIVER_H |
#define _DRIVER_H |
41 |
|
|
42 |
|
extern int g_compiler_timing; |
43 |
/* |
/**< |
44 |
* g_compiler_timing |
* <!-- g_compiler_timing --> |
45 |
* |
* |
46 |
* TRUE if compiler timing is to be printed. |
* TRUE if compiler timing is to be printed. |
47 |
* default is false, set to TRUE by passing -t on the command line |
* default is false, set to TRUE by passing -t on the command line |
48 |
*/ |
*/ |
|
extern int g_compiler_timing; |
|
49 |
|
|
50 |
/* |
extern Tcl_Interp *g_interp; |
51 |
* g_interp |
/**< |
52 |
|
* <!-- g_interp --> |
53 |
* |
* |
54 |
* Interpreter for this application. We need tp make it global |
* Interpreter for this application. We need tp make it global |
55 |
* so that our signal/floating-porint traps can access it. |
* so that our signal/floating-porint traps can access it. |
56 |
*/ |
*/ |
|
extern Tcl_Interp *g_interp; |
|
57 |
|
|
58 |
extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**); |
extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**); |
59 |
/* |
/**< |
60 |
* int Asc_LoadWin(cdata, interp, argc, argv) |
* <!-- int Asc_LoadWin(cdata, interp, argc, argv) --> |
61 |
* ClientData cdata; |
* <!-- ClientData cdata; --> |
62 |
* Tcl_Interp *interp; |
* <!-- Tcl_Interp *interp; --> |
63 |
* int argc; |
* <!-- int argc; --> |
64 |
* char **argv; |
* <!-- char **argv; --> |
65 |
* |
* |
66 |
* Tcl callback to determine if Tcl/Tk should build Tk windows. |
* Tcl callback to determine if Tcl/Tk should build Tk windows. |
67 |
* Returns 1 if it should, 0 if we only want a command line. |
* Returns 1 if it should, 0 if we only want a command line.<br><br> |
68 |
* |
* |
69 |
* Currently (06/97), this call is pointless since we do not |
* Currently (06/97), this call is pointless since we do not |
70 |
* support command-line-only operation. |
* support command-line-only operation. |
73 |
|
|
74 |
#ifdef DEBUG_MALLOC |
#ifdef DEBUG_MALLOC |
75 |
extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**); |
extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**); |
76 |
/* |
/**< |
77 |
* int Asc_DebugMallocCmd(cdata, interp, argc, argv) |
* <!-- int Asc_DebugMallocCmd(cdata, interp, argc, argv) --> |
78 |
* ClientData cdata; |
* <!-- ClientData cdata; --> |
79 |
* Tcl_Interp *interp; |
* <!-- Tcl_Interp *interp; --> |
80 |
* int argc; |
* <!-- int argc; --> |
81 |
* char **argv; |
* <!-- char **argv; --> |
82 |
* |
* |
83 |
* Tcl callback for Tom Epperly's debugging malloc |
* Tcl callback for Tom Epperly's debugging malloc. |
84 |
*/ |
*/ |
85 |
#endif /* DEBUG_MALLOC */ |
#endif /* DEBUG_MALLOC */ |
|
|
|
|
#endif /* _DRIVER_H */ |
|
|
|
|
|
|
|
|
|
|
|
|
|
86 |
|
|
87 |
|
#endif /* _DRIVER_H */ |
88 |
|
|