/[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 1 - (show annotations) (download) (as text)
Fri Oct 29 20:54:12 2004 UTC (17 years, 8 months ago) by aw0a
Original Path: trunk/ascend4/interface/Driver.h
File MIME type: text/x-chdr
File size: 2366 byte(s)
Setting up web subdirectory in repository
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 #ifndef _DRIVER_H
31 #define _DRIVER_H
32
33
34 /*
35 * g_compiler_timing
36 *
37 * TRUE if compiler timing is to be printed.
38 * default is false, set to TRUE by passing -t on the command line
39 */
40 extern int g_compiler_timing;
41
42 /*
43 * g_interp
44 *
45 * Interpreter for this application. We need tp make it global
46 * so that our signal/floating-porint traps can access it.
47 */
48 extern Tcl_Interp *g_interp;
49
50 extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**);
51 /*
52 * int Asc_LoadWin(cdata, interp, argc, argv)
53 * ClientData cdata;
54 * Tcl_Interp *interp;
55 * int argc;
56 * char **argv;
57 *
58 * Tcl callback to determine if Tcl/Tk should build Tk windows.
59 * Returns 1 if it should, 0 if we only want a command line.
60 *
61 * Currently (06/97), this call is pointless since we do not
62 * support command-line-only operation.
63 */
64
65
66 #ifdef DEBUG_MALLOC
67 extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**);
68 /*
69 * int Asc_DebugMallocCmd(cdata, interp, argc, argv)
70 * ClientData cdata;
71 * Tcl_Interp *interp;
72 * int argc;
73 * char **argv;
74 *
75 * Tcl callback for Tom Epperly's debugging malloc
76 */
77 #endif /* DEBUG_MALLOC */
78
79 #endif /* _DRIVER_H */
80
81
82
83
84
85

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