322 lines
7.1 KiB
C
322 lines
7.1 KiB
C
/*
|
||
* winMain.c --
|
||
*
|
||
* Main entry point for wish and other Tk-based applications.
|
||
*
|
||
* Copyright (c) 1995 Sun Microsystems, Inc.
|
||
*
|
||
* See the file "license.terms" for information on usage and redistribution
|
||
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
||
*
|
||
* SCCS: @(#) winMain.c 1.33 96/12/17 12:56:14
|
||
*/
|
||
|
||
#include <tk.h>
|
||
#define WIN32_LEAN_AND_MEAN
|
||
#include <windows.h>
|
||
#undef WIN32_LEAN_AND_MEAN
|
||
#include <malloc.h>
|
||
#include <locale.h>
|
||
|
||
/*
|
||
* The following declarations refer to internal Tk routines. These
|
||
* interfaces are available for use, but are not supported.
|
||
*/
|
||
|
||
EXTERN void TkConsoleCreate(void);
|
||
EXTERN int TkConsoleInit(Tcl_Interp *interp);
|
||
|
||
/*
|
||
* Forward declarations for procedures defined later in this file:
|
||
*/
|
||
|
||
static void setargv _ANSI_ARGS_((int *argcPtr, char ***argvPtr));
|
||
static void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format));
|
||
|
||
#ifdef TK_TEST
|
||
EXTERN int Tktest_Init(Tcl_Interp *interp);
|
||
#endif /* TK_TEST */
|
||
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* WinMain --
|
||
*
|
||
* Main entry point from Windows.
|
||
*
|
||
* Results:
|
||
* Returns false if initialization fails, otherwise it never
|
||
* returns.
|
||
*
|
||
* Side effects:
|
||
* Just about anything, since from here we call arbitrary Tcl code.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
int APIENTRY
|
||
WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow)
|
||
HINSTANCE hInstance;
|
||
HINSTANCE hPrevInstance;
|
||
LPSTR lpszCmdLine;
|
||
int nCmdShow;
|
||
{
|
||
char **argv, *p;
|
||
int argc;
|
||
char buffer[MAX_PATH];
|
||
|
||
Tcl_SetPanicProc(WishPanic);
|
||
|
||
/*
|
||
* Set up the default locale to be standard "C" locale so parsing
|
||
* is performed correctly.
|
||
*/
|
||
|
||
setlocale(LC_ALL, "C");
|
||
|
||
|
||
/*
|
||
* Increase the application queue size from default value of 8.
|
||
* At the default value, cross application SendMessage of WM_KILLFOCUS
|
||
* will fail because the handler will not be able to do a PostMessage!
|
||
* This is only needed for Windows 3.x, since NT dynamically expands
|
||
* the queue.
|
||
*/
|
||
SetMessageQueue(64);
|
||
|
||
/*
|
||
* Create the console channels and install them as the standard
|
||
* channels. All I/O will be discarded until TkConsoleInit is
|
||
* called to attach the console to a text widget.
|
||
*/
|
||
|
||
TkConsoleCreate();
|
||
|
||
setargv(&argc, &argv);
|
||
|
||
/*
|
||
* Replace argv[0] with full pathname of executable, and forward
|
||
* slashes substituted for backslashes.
|
||
*/
|
||
|
||
GetModuleFileName(NULL, buffer, sizeof(buffer));
|
||
argv[0] = buffer;
|
||
for (p = buffer; *p != '\0'; p++) {
|
||
if (*p == '\\') {
|
||
*p = '/';
|
||
}
|
||
}
|
||
|
||
Tk_Main(argc, argv, Tcl_AppInit);
|
||
return 1;
|
||
}
|
||
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* Tcl_AppInit --
|
||
*
|
||
* This procedure performs application-specific initialization.
|
||
* Most applications, especially those that incorporate additional
|
||
* packages, will have their own version of this procedure.
|
||
*
|
||
* Results:
|
||
* Returns a standard Tcl completion code, and leaves an error
|
||
* message in interp->result if an error occurs.
|
||
*
|
||
* Side effects:
|
||
* Depends on the startup script.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
int
|
||
Tcl_AppInit(interp)
|
||
Tcl_Interp *interp; /* Interpreter for application. */
|
||
{
|
||
if (Tcl_Init(interp) == TCL_ERROR) {
|
||
goto error;
|
||
}
|
||
if (Tk_Init(interp) == TCL_ERROR) {
|
||
goto error;
|
||
}
|
||
Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit);
|
||
|
||
/*
|
||
* Initialize the console only if we are running as an interactive
|
||
* application.
|
||
*/
|
||
|
||
if (TkConsoleInit(interp) == TCL_ERROR) {
|
||
goto error;
|
||
}
|
||
|
||
#ifdef TK_TEST
|
||
if (Tktest_Init(interp) == TCL_ERROR) {
|
||
goto error;
|
||
}
|
||
Tcl_StaticPackage(interp, "Tktest", Tktest_Init,
|
||
(Tcl_PackageInitProc *) NULL);
|
||
#endif /* TK_TEST */
|
||
|
||
Tcl_SetVar(interp, "tcl_rcFileName", "~/wishrc.tcl", TCL_GLOBAL_ONLY);
|
||
return TCL_OK;
|
||
|
||
error:
|
||
WishPanic(interp->result);
|
||
return TCL_ERROR;
|
||
}
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
*
|
||
* WishPanic --
|
||
*
|
||
* Display a message and exit.
|
||
*
|
||
* Results:
|
||
* None.
|
||
*
|
||
* Side effects:
|
||
* Exits the program.
|
||
*
|
||
*----------------------------------------------------------------------
|
||
*/
|
||
|
||
void
|
||
WishPanic TCL_VARARGS_DEF(char *,arg1)
|
||
{
|
||
va_list argList;
|
||
char buf[1024];
|
||
char *format;
|
||
|
||
format = TCL_VARARGS_START(char *,arg1,argList);
|
||
vsprintf(buf, format, argList);
|
||
|
||
MessageBeep(MB_ICONEXCLAMATION);
|
||
MessageBox(NULL, buf, "Fatal Error in Wish",
|
||
MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
|
||
#ifdef _MSC_VER
|
||
DebugBreak();
|
||
#endif
|
||
ExitProcess(1);
|
||
}
|
||
/*
|
||
*-------------------------------------------------------------------------
|
||
*
|
||
* setargv --
|
||
*
|
||
* Parse the Windows command line string into argc/argv. Done here
|
||
* because we don't trust the builtin argument parser in crt0.
|
||
* Windows applications are responsible for breaking their command
|
||
* line into arguments.
|
||
*
|
||
* 2N backslashes + quote -> N backslashes + begin quoted string
|
||
* 2N + 1 backslashes + quote -> literal
|
||
* N backslashes + non-quote -> literal
|
||
* quote + quote in a quoted string -> single quote
|
||
* quote + quote not in quoted string -> empty string
|
||
* quote -> begin quoted string
|
||
*
|
||
* Results:
|
||
* Fills argcPtr with the number of arguments and argvPtr with the
|
||
* array of arguments.
|
||
*
|
||
* Side effects:
|
||
* Memory allocated.
|
||
*
|
||
*--------------------------------------------------------------------------
|
||
*/
|
||
|
||
static void
|
||
setargv(argcPtr, argvPtr)
|
||
int *argcPtr; /* Filled with number of argument strings. */
|
||
char ***argvPtr; /* Filled with argument strings (malloc'd). */
|
||
{
|
||
char *cmdLine, *p, *arg, *argSpace;
|
||
char **argv;
|
||
int argc, size, inquote, copy, slashes;
|
||
|
||
cmdLine = GetCommandLine();
|
||
|
||
/*
|
||
* Precompute an overly pessimistic guess at the number of arguments
|
||
* in the command line by counting non-space spans.
|
||
*/
|
||
|
||
size = 2;
|
||
for (p = cmdLine; *p != '\0'; p++) {
|
||
if (isspace(*p)) {
|
||
size++;
|
||
while (isspace(*p)) {
|
||
p++;
|
||
}
|
||
if (*p == '\0') {
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
argSpace = (char *) ckalloc((unsigned) (size * sizeof(char *)
|
||
+ strlen(cmdLine) + 1));
|
||
argv = (char **) argSpace;
|
||
argSpace += size * sizeof(char *);
|
||
size--;
|
||
|
||
p = cmdLine;
|
||
for (argc = 0; argc < size; argc++) {
|
||
argv[argc] = arg = argSpace;
|
||
while (isspace(*p)) {
|
||
p++;
|
||
}
|
||
if (*p == '\0') {
|
||
break;
|
||
}
|
||
|
||
inquote = 0;
|
||
slashes = 0;
|
||
while (1) {
|
||
copy = 1;
|
||
while (*p == '\\') {
|
||
slashes++;
|
||
p++;
|
||
}
|
||
if (*p == '"') {
|
||
if ((slashes & 1) == 0) {
|
||
copy = 0;
|
||
if ((inquote) && (p[1] == '"')) {
|
||
p++;
|
||
copy = 1;
|
||
} else {
|
||
inquote = !inquote;
|
||
}
|
||
}
|
||
slashes >>= 1;
|
||
}
|
||
|
||
while (slashes) {
|
||
*arg = '\\';
|
||
arg++;
|
||
slashes--;
|
||
}
|
||
|
||
if ((*p == '\0') || (!inquote && isspace(*p))) {
|
||
break;
|
||
}
|
||
if (copy != 0) {
|
||
*arg = *p;
|
||
arg++;
|
||
}
|
||
p++;
|
||
}
|
||
*arg = '\0';
|
||
argSpace = arg + 1;
|
||
}
|
||
argv[argc] = NULL;
|
||
|
||
*argcPtr = argc;
|
||
*argvPtr = argv;
|
||
}
|
||
|