/[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 743 - (show annotations) (download) (as text)
Thu Jul 6 14:22:26 2006 UTC (14 years, 3 months ago) by johnpye
File MIME type: text/x-chdr
File size: 1898 byte(s)
Few small changes to fix for Linux after the recent MSVC++ oriented changes.
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 Tcl_Interp *g_interp;
36 /**<
37 * Interpreter for this application. We need tp make it global
38 * so that our signal/floating-porint traps can access it.
39 */
40
41 ASC_EXPORT(int) AscDriver(int argc, CONST char **argv);
42 /**<
43 Entry point from main.c
44 */
45
46 extern int Asc_LoadWin(ClientData, Tcl_Interp *, int, CONST84 char**);
47 /**<
48 * Tcl callback to determine if Tcl/Tk should build Tk windows.
49 * Returns 1 if it should, 0 if we only want a command line.<br><br>
50 *
51 * Currently (06/97), this call is pointless since we do not
52 * support command-line-only operation.
53 */
54
55
56 #ifdef DEBUG_MALLOC
57 extern int Asc_DebugMallocCmd(ClientData, Tcl_Interp*, int, CONST84 char**);
58 /**<
59 * Tcl callback for Tom Epperly's debugging malloc.
60 */
61 #endif /* DEBUG_MALLOC */
62
63 #endif /* ASCTK_DRIVER_H */
64

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