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

Contents of /projs/trunk/shared_source/tk_base/winmain.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 42 - (show annotations) (download)
Fri Oct 14 01:50:00 2016 UTC (7 years, 5 months ago) by dashley
File MIME type: text/plain
File size: 10978 byte(s)
Move shared source code to commonize.
1 /* $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