/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/winmain.c
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/winmain.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 29 - (hide annotations) (download)
Sat Oct 8 07:08:47 2016 UTC (7 years, 9 months ago) by dashley
Original Path: to_be_filed/sf_code/esrgpcpj/shared/tk_base/winmain.c
File MIME type: text/plain
File size: 10978 byte(s)
Directories relocated.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/winmain.c,v 1.1.1.1 2001/06/13 05:15:23 dtashley Exp $ */
2    
3     /*
4     * winMain.c --
5     *
6     * Main entry point for wish and other Tk-based applications.
7     *
8     * Copyright (c) 1995-1997 Sun Microsystems, Inc.
9     * Copyright (c) 1998-1999 by Scriptics Corporation.
10     *
11     * See the file "license.terms" for information on usage and redistribution
12     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13     *
14     * RCS: @(#) $Id: winmain.c,v 1.1.1.1 2001/06/13 05:15:23 dtashley Exp $
15     */
16    
17     #include "tk.h"
18     #define WIN32_LEAN_AND_MEAN
19     #include <windows.h>
20     #undef WIN32_LEAN_AND_MEAN
21     #include <malloc.h>
22     #include <locale.h>
23    
24     #include "tkInt.h"
25    
26     /*
27     * The following declarations refer to internal Tk routines. These
28     * interfaces are available for use, but are not supported.
29     */
30    
31    
32     /*
33     * Forward declarations for procedures defined later in this file:
34     */
35    
36     static void setargv _ANSI_ARGS_((int *argcPtr, char ***argvPtr));
37     static void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format));
38    
39     #ifdef TK_TEST
40     extern int Tktest_Init(Tcl_Interp *interp);
41     #endif /* TK_TEST */
42    
43     #ifdef TCL_TEST
44     extern int TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
45     extern int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
46     #endif /* TCL_TEST */
47    
48     static BOOL consoleRequired = TRUE;
49    
50     /*
51     * The following #if block allows you to change the AppInit
52     * function by using a #define of TCL_LOCAL_APPINIT instead
53     * of rewriting this entire file. The #if checks for that
54     * #define and uses Tcl_AppInit if it doesn't exist.
55     */
56    
57     #ifndef TK_LOCAL_APPINIT
58     #define TK_LOCAL_APPINIT Tcl_AppInit
59     #endif
60     extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp));
61    
62     /*
63     * The following #if block allows you to change how Tcl finds the startup
64     * script, prime the library or encoding paths, fiddle with the argv,
65     * etc., without needing to rewrite Tk_Main()
66     */
67    
68     #ifdef TK_LOCAL_MAIN_HOOK
69     extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv));
70     #endif
71    
72    
73     /*
74     *----------------------------------------------------------------------
75     *
76     * WinMain --
77     *
78     * Main entry point from Windows.
79     *
80     * Results:
81     * Returns false if initialization fails, otherwise it never
82     * returns.
83     *
84     * Side effects:
85     * Just about anything, since from here we call arbitrary Tcl code.
86     *
87     *----------------------------------------------------------------------
88     */
89    
90     int APIENTRY
91     WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow)
92     HINSTANCE hInstance;
93     HINSTANCE hPrevInstance;
94     LPSTR lpszCmdLine;
95     int nCmdShow;
96     {
97     char **argv;
98     int argc;
99     char buffer[MAX_PATH+1];
100     char *p;
101    
102     Tcl_SetPanicProc(WishPanic);
103    
104     /*
105     * Increase the application queue size from default value of 8.
106     * At the default value, cross application SendMessage of WM_KILLFOCUS
107     * will fail because the handler will not be able to do a PostMessage!
108     * This is only needed for Windows 3.x, since NT dynamically expands
109     * the queue.
110     */
111    
112     SetMessageQueue(64);
113    
114     /*
115     * Create the console channels and install them as the standard
116     * channels. All I/O will be discarded until Tk_CreateConsoleWindow is
117     * called to attach the console to a text widget.
118     */
119    
120     consoleRequired = TRUE;
121    
122     /*
123     * Set up the default locale to be standard "C" locale so parsing
124     * is performed correctly.
125     */
126    
127     setlocale(LC_ALL, "C");
128     setargv(&argc, &argv);
129    
130     /*
131     * Replace argv[0] with full pathname of executable, and forward
132     * slashes substituted for backslashes.
133     */
134    
135     GetModuleFileName(NULL, buffer, sizeof(buffer));
136     argv[0] = buffer;
137     for (p = buffer; *p != '\0'; p++) {
138     if (*p == '\\') {
139     *p = '/';
140     }
141     }
142    
143     #ifdef TK_LOCAL_MAIN_HOOK
144     TK_LOCAL_MAIN_HOOK(&argc, &argv);
145     #endif
146    
147     Tk_Main(argc, argv, Tcl_AppInit);
148    
149     return 1;
150     }
151    
152    
153    
154     /*
155     *----------------------------------------------------------------------
156     *
157     * Tcl_AppInit --
158     *
159     * This procedure performs application-specific initialization.
160     * Most applications, especially those that incorporate additional
161     * packages, will have their own version of this procedure.
162     *
163     * Results:
164     * Returns a standard Tcl completion code, and leaves an error
165     * message in the interp's result if an error occurs.
166     *
167     * Side effects:
168     * Depends on the startup script.
169     *
170     *----------------------------------------------------------------------
171     */
172    
173     int
174     Tcl_AppInit(interp)
175     Tcl_Interp *interp; /* Interpreter for application. */
176     {
177     if (Tcl_Init(interp) == TCL_ERROR) {
178     goto error;
179     }
180     if (Tk_Init(interp) == TCL_ERROR) {
181     goto error;
182     }
183     Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit);
184    
185     /*
186     * Initialize the console only if we are running as an interactive
187     * application.
188     */
189    
190     if (consoleRequired) {
191     if (Tk_CreateConsoleWindow(interp) == TCL_ERROR) {
192     goto error;
193     }
194     }
195    
196     #ifdef TCL_TEST
197     if (Tcltest_Init(interp) == TCL_ERROR) {
198     return TCL_ERROR;
199     }
200     Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init,
201     (Tcl_PackageInitProc *) NULL);
202     if (TclObjTest_Init(interp) == TCL_ERROR) {
203     return TCL_ERROR;
204     }
205     #endif /* TCL_TEST */
206    
207     #ifdef TK_TEST
208     if (Tktest_Init(interp) == TCL_ERROR) {
209     goto error;
210     }
211     Tcl_StaticPackage(interp, "Tktest", Tktest_Init,
212     (Tcl_PackageInitProc *) NULL);
213     #endif /* TK_TEST */
214    
215     Tcl_SetVar(interp, "tcl_rcFileName", "~/wishrc.tcl", TCL_GLOBAL_ONLY);
216     return TCL_OK;
217    
218     error:
219     MessageBeep(MB_ICONEXCLAMATION);
220     MessageBox(NULL, Tcl_GetStringResult(interp), "Error in Wish",
221     MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
222     ExitProcess(1);
223     /* we won't reach this, but we need the return */
224     return TCL_ERROR;
225     }
226    
227     /*
228     *----------------------------------------------------------------------
229     *
230     * WishPanic --
231     *
232     * Display a message and exit.
233     *
234     * Results:
235     * None.
236     *
237     * Side effects:
238     * Exits the program.
239     *
240     *----------------------------------------------------------------------
241     */
242    
243     void
244     WishPanic TCL_VARARGS_DEF(char *,arg1)
245     {
246     va_list argList;
247     char buf[1024];
248     char *format;
249    
250     format = TCL_VARARGS_START(char *,arg1,argList);
251     vsprintf(buf, format, argList);
252    
253     MessageBeep(MB_ICONEXCLAMATION);
254     MessageBox(NULL, buf, "Fatal Error in Wish",
255     MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
256     #ifdef _MSC_VER
257     DebugBreak();
258     #endif
259     ExitProcess(1);
260     }
261     /*
262     *-------------------------------------------------------------------------
263     *
264     * setargv --
265     *
266     * Parse the Windows command line string into argc/argv. Done here
267     * because we don't trust the builtin argument parser in crt0.
268     * Windows applications are responsible for breaking their command
269     * line into arguments.
270     *
271     * 2N backslashes + quote -> N backslashes + begin quoted string
272     * 2N + 1 backslashes + quote -> literal
273     * N backslashes + non-quote -> literal
274     * quote + quote in a quoted string -> single quote
275     * quote + quote not in quoted string -> empty string
276     * quote -> begin quoted string
277     *
278     * Results:
279     * Fills argcPtr with the number of arguments and argvPtr with the
280     * array of arguments.
281     *
282     * Side effects:
283     * Memory allocated.
284     *
285     *--------------------------------------------------------------------------
286     */
287    
288     static void
289     setargv(argcPtr, argvPtr)
290     int *argcPtr; /* Filled with number of argument strings. */
291     char ***argvPtr; /* Filled with argument strings (malloc'd). */
292     {
293     char *cmdLine, *p, *arg, *argSpace;
294     char **argv;
295     int argc, size, inquote, copy, slashes;
296    
297     cmdLine = GetCommandLine(); /* INTL: BUG */
298    
299     /*
300     * Precompute an overly pessimistic guess at the number of arguments
301     * in the command line by counting non-space spans.
302     */
303    
304     size = 2;
305     for (p = cmdLine; *p != '\0'; p++) {
306     if ((*p == ' ') || (*p == '\t')) { /* INTL: ISO space. */
307     size++;
308     while ((*p == ' ') || (*p == '\t')) { /* INTL: ISO space. */
309     p++;
310     }
311     if (*p == '\0') {
312     break;
313     }
314     }
315     }
316     argSpace = (char *) Tcl_Alloc(
317     (unsigned) (size * sizeof(char *) + strlen(cmdLine) + 1));
318     argv = (char **) argSpace;
319     argSpace += size * sizeof(char *);
320     size--;
321    
322     p = cmdLine;
323     for (argc = 0; argc < size; argc++) {
324     argv[argc] = arg = argSpace;
325     while ((*p == ' ') || (*p == '\t')) { /* INTL: ISO space. */
326     p++;
327     }
328     if (*p == '\0') {
329     break;
330     }
331    
332     inquote = 0;
333     slashes = 0;
334     while (1) {
335     copy = 1;
336     while (*p == '\\') {
337     slashes++;
338     p++;
339     }
340     if (*p == '"') {
341     if ((slashes & 1) == 0) {
342     copy = 0;
343     if ((inquote) && (p[1] == '"')) {
344     p++;
345     copy = 1;
346     } else {
347     inquote = !inquote;
348     }
349     }
350     slashes >>= 1;
351     }
352    
353     while (slashes) {
354     *arg = '\\';
355     arg++;
356     slashes--;
357     }
358    
359     if ((*p == '\0')
360     || (!inquote && ((*p == ' ') || (*p == '\t')))) { /* INTL: ISO space. */
361     break;
362     }
363     if (copy != 0) {
364     *arg = *p;
365     arg++;
366     }
367     p++;
368     }
369     *arg = '\0';
370     argSpace = arg + 1;
371     }
372     argv[argc] = NULL;
373    
374     *argcPtr = argc;
375     *argvPtr = argv;
376     }
377    
378    
379     /*
380     *----------------------------------------------------------------------
381     *
382     * main --
383     *
384     * Main entry point from the console.
385     *
386     * Results:
387     * None: Tk_Main never returns here, so this procedure never
388     * returns either.
389     *
390     * Side effects:
391     * Whatever the applications does.
392     *
393     *----------------------------------------------------------------------
394     */
395    
396     int main(int argc, char **argv)
397     {
398     Tcl_SetPanicProc(WishPanic);
399    
400     /*
401     * Set up the default locale to be standard "C" locale so parsing
402     * is performed correctly.
403     */
404    
405     setlocale(LC_ALL, "C");
406     /*
407     * Increase the application queue size from default value of 8.
408     * At the default value, cross application SendMessage of WM_KILLFOCUS
409     * will fail because the handler will not be able to do a PostMessage!
410     * This is only needed for Windows 3.x, since NT dynamically expands
411     * the queue.
412     */
413    
414     SetMessageQueue(64);
415    
416     /*
417     * Create the console channels and install them as the standard
418     * channels. All I/O will be discarded until Tk_CreateConsoleWindow is
419     * called to attach the console to a text widget.
420     */
421    
422     consoleRequired = FALSE;
423    
424     Tk_Main(argc, argv, Tcl_AppInit);
425     return 0;
426     }
427    
428    
429     /* $History: winMain.c $
430     *
431     * ***************** Version 1 *****************
432     * User: Dtashley Date: 1/02/01 Time: 3:17a
433     * Created in $/IjuScripter, IjuConsole/Source/Tk Base
434     * Initial check-in.
435     */
436    
437     /* End of WINMAIN.C */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25