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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 521 - (hide annotations) (download) (as text)
Fri Apr 21 05:35:59 2006 UTC (16 years, 2 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 aw0a 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 jds 54 /** @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 johnpye 67 #ifndef ASCTK_DRIVER_H
40     #define ASCTK_DRIVER_H
41 aw0a 1
42 jds 54 extern int g_compiler_timing;
43     /**<
44     * <!-- g_compiler_timing -->
45 aw0a 1 *
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 jds 54 extern Tcl_Interp *g_interp;
51     /**<
52     * <!-- g_interp -->
53 aw0a 1 *
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 johnpye 521 ASC_DLLSPEC(int) AscDriver(int argc, CONST84 char *argv[]);
59     /**<
60     Entry point from main.c
61     */
62    
63 aw0a 1 extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**);
64 jds 54 /**<
65     * <!-- int Asc_LoadWin(cdata, interp, argc, argv) -->
66     * <!-- ClientData cdata; -->
67     * <!-- Tcl_Interp *interp; -->
68     * <!-- int argc; -->
69     * <!-- char **argv; -->
70 aw0a 1 *
71     * Tcl callback to determine if Tcl/Tk should build Tk windows.
72 jds 54 * Returns 1 if it should, 0 if we only want a command line.<br><br>
73 aw0a 1 *
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 jds 54 /**<
82     * <!-- int Asc_DebugMallocCmd(cdata, interp, argc, argv) -->
83     * <!-- ClientData cdata; -->
84     * <!-- Tcl_Interp *interp; -->
85     * <!-- int argc; -->
86     * <!-- char **argv; -->
87 aw0a 1 *
88 jds 54 * Tcl callback for Tom Epperly's debugging malloc.
89 aw0a 1 */
90 jds 54 #endif /* DEBUG_MALLOC */
91 aw0a 1
92 johnpye 67 #endif /* ASCTK_DRIVER_H */
93 aw0a 1

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