/[ascend]/trunk/tcltk98/generic/interface/Driver.h
ViewVC logotype

Contents of /trunk/tcltk98/generic/interface/Driver.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 521 - (show annotations) (download) (as text)
Fri Apr 21 05:35:59 2006 UTC (14 years, 9 months ago) by johnpye
File MIME type: text/x-chdr
File size: 3252 byte(s)
Getting the modular version the Tcl/Tk GUI working. In progress.
1 /*
2 * Driver.h
3 * by Kirk Abbott and Ben Allan
4 * Created: 1/94
5 * Version: $Revision: 1.3 $
6 * Version control file: $RCSfile: Driver.h,v $
7 * Date last modified: $Date: 2003/08/23 18:43:06 $
8 * Last modified by: $Author: ballan $
9 *
10 * This file is part of the ASCEND Tcl/Tk interface
11 *
12 * Copyright 1997, Carnegie Mellon University
13 *
14 * The ASCEND Tcl/Tk interface is free software; you can redistribute
15 * it and/or modify it under the terms of the GNU General Public License as
16 * published by the Free Software Foundation; either version 2 of the
17 * License, or (at your option) any later version.
18 *
19 * The ASCEND Tcl/Tk interface is distributed in hope that it will be
20 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 * General Public License for more details.
23 *
24 * You should have received a copy of the GNU General Public License
25 * along with the program; if not, write to the Free Software Foundation,
26 * Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the file named
27 * 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 ASCTK_DRIVER_H
40 #define ASCTK_DRIVER_H
41
42 extern int g_compiler_timing;
43 /**<
44 * <!-- g_compiler_timing -->
45 *
46 * TRUE if compiler timing is to be printed.
47 * default is false, set to TRUE by passing -t on the command line
48 */
49
50 extern Tcl_Interp *g_interp;
51 /**<
52 * <!-- g_interp -->
53 *
54 * Interpreter for this application. We need tp make it global
55 * so that our signal/floating-porint traps can access it.
56 */
57
58 ASC_DLLSPEC(int) AscDriver(int argc, CONST84 char *argv[]);
59 /**<
60 Entry point from main.c
61 */
62
63 extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**);
64 /**<
65 * <!-- int Asc_LoadWin(cdata, interp, argc, argv) -->
66 * <!-- ClientData cdata; -->
67 * <!-- Tcl_Interp *interp; -->
68 * <!-- int argc; -->
69 * <!-- char **argv; -->
70 *
71 * Tcl callback to determine if Tcl/Tk should build Tk windows.
72 * Returns 1 if it should, 0 if we only want a command line.<br><br>
73 *
74 * Currently (06/97), this call is pointless since we do not
75 * support command-line-only operation.
76 */
77
78
79 #ifdef DEBUG_MALLOC
80 extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**);
81 /**<
82 * <!-- int Asc_DebugMallocCmd(cdata, interp, argc, argv) -->
83 * <!-- ClientData cdata; -->
84 * <!-- Tcl_Interp *interp; -->
85 * <!-- int argc; -->
86 * <!-- char **argv; -->
87 *
88 * Tcl callback for Tom Epperly's debugging malloc.
89 */
90 #endif /* DEBUG_MALLOC */
91
92 #endif /* ASCTK_DRIVER_H */
93

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22