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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 575 - (show annotations) (download) (as text)
Tue May 9 01:07:41 2006 UTC (16 years, 9 months ago) by johnpye
File MIME type: text/x-chdr
File size: 2054 byte(s)
Commenting changes, GPL header.
1 /* ASCEND modelling environment
2 Copyright 1997, Carnegie Mellon University
3 Copyright (C) 2006 Carnegie Mellon University
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
8 any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA.
19 *//**
20 @file
21 Main Tcl/Tk Driver.
22 *//*
23 Driver.h
24 by Kirk Abbott and Ben Allan
25 Created: 1/94
26 Version: $Revision: 1.3 $
27 Version control file: $RCSfile: Driver.h,v $
28 Date last modified: $Date: 2003/08/23 18:43:06 $
29 Last modified by: $Author: ballan $
30 */
31
32 #ifndef ASCTK_DRIVER_H
33 #define ASCTK_DRIVER_H
34
35 extern int 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
41 extern Tcl_Interp *g_interp;
42 /**<
43 * Interpreter for this application. We need tp make it global
44 * so that our signal/floating-porint traps can access it.
45 */
46
47 ASC_DLLSPEC(int) AscDriver(int argc, CONST char *argv[]);
48 /**<
49 Entry point from main.c
50 */
51
52 extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**);
53 /**<
54 * Tcl callback to determine if Tcl/Tk should build Tk windows.
55 * Returns 1 if it should, 0 if we only want a command line.<br><br>
56 *
57 * Currently (06/97), this call is pointless since we do not
58 * support command-line-only operation.
59 */
60
61
62 #ifdef DEBUG_MALLOC
63 extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**);
64 /**<
65 * Tcl callback for Tom Epperly's debugging malloc.
66 */
67 #endif /* DEBUG_MALLOC */
68
69 #endif /* ASCTK_DRIVER_H */
70

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