/[dtapublic]/projs/ets/trunk/src/c_tk_base_7_5_w_mods/winmain.c

Diff of /projs/ets/trunk/src/c_tk_base_7_5_w_mods/winmain.c

Parent Directory | Revision Log | View Patch Patch

-revision 70 by dashley,
Sat Nov  5 10:54:17 2016 UTC
+revision 71 by dashley,
Sat Nov  5 11:07:06 2016 UTC
 Line 1
  /* $Header$ */
  /*
   * winMain.c --
   *
   *      Main entry point for wish and other Tk-based applications.
   *
   * Copyright (c) 1995-1997 Sun Microsystems, Inc.
   * Copyright (c) 1998-1999 by Scriptics Corporation.
   *
   * See the file "license.terms" for information on usage and redistribution
   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
   *
   * RCS: @(#) $Id: winmain.c,v 1.1.1.1 2001/06/13 05:15:23 dtashley Exp $
   */
  #include "tk.h"
  #define WIN32_LEAN_AND_MEAN
  #include <windows.h>
  #undef WIN32_LEAN_AND_MEAN
  #include <malloc.h>
  #include <locale.h>
  #include "tkInt.h"
  /*
   * The following declarations refer to internal Tk routines.  These
   * interfaces are available for use, but are not supported.
   */
  /*
   * 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 */
  #ifdef TCL_TEST
  extern int              TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
  extern int              Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
  #endif /* TCL_TEST */
  static BOOL consoleRequired = TRUE;
  /*
   * The following #if block allows you to change the AppInit
   * function by using a #define of TCL_LOCAL_APPINIT instead
   * of rewriting this entire file.  The #if checks for that
   * #define and uses Tcl_AppInit if it doesn't exist.
   */
  #ifndef TK_LOCAL_APPINIT
  #define TK_LOCAL_APPINIT Tcl_AppInit
  #endif
  extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp));
  /*
   * The following #if block allows you to change how Tcl finds the startup
   * script, prime the library or encoding paths, fiddle with the argv,
   * etc., without needing to rewrite Tk_Main()
   */
  #ifdef TK_LOCAL_MAIN_HOOK
  extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv));
  #endif
  /*
   *----------------------------------------------------------------------
   *
   * 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;
      int argc;
      char buffer[MAX_PATH+1];
      char *p;
      Tcl_SetPanicProc(WishPanic);
      /*
       * 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 Tk_CreateConsoleWindow is
       * called to attach the console to a text widget.
       */
      consoleRequired = TRUE;
      /*
       * Set up the default locale to be standard "C" locale so parsing
       * is performed correctly.
       */
      setlocale(LC_ALL, "C");
      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 = '/';
          }
      }
  #ifdef TK_LOCAL_MAIN_HOOK
      TK_LOCAL_MAIN_HOOK(&argc, &argv);
  #endif
      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 the interp's 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 (consoleRequired) {
          if (Tk_CreateConsoleWindow(interp) == TCL_ERROR) {
              goto error;
          }
      }
  #ifdef TCL_TEST
      if (Tcltest_Init(interp) == TCL_ERROR) {
          return TCL_ERROR;
      }
      Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init,
              (Tcl_PackageInitProc *) NULL);
      if (TclObjTest_Init(interp) == TCL_ERROR) {
          return TCL_ERROR;
      }
  #endif /* TCL_TEST */
  #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:
      MessageBeep(MB_ICONEXCLAMATION);
      MessageBox(NULL, Tcl_GetStringResult(interp), "Error in Wish",
              MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
      ExitProcess(1);
      /* we won't reach this, but we need the return */
      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(); /* INTL: BUG */
      /*
       * 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 ((*p == ' ') || (*p == '\t')) {      /* INTL: ISO space. */
              size++;
              while ((*p == ' ') || (*p == '\t')) { /* INTL: ISO space. */
                  p++;
              }
              if (*p == '\0') {
                  break;
              }
          }
      }
      argSpace = (char *) Tcl_Alloc(
              (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 ((*p == ' ') || (*p == '\t')) {   /* INTL: ISO space. */
              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 && ((*p == ' ') || (*p == '\t')))) { /* INTL: ISO space. */
                  break;
              }
              if (copy != 0) {
                  *arg = *p;
                  arg++;
              }
              p++;
          }
          *arg = '\0';
          argSpace = arg + 1;
      }
      argv[argc] = NULL;
      *argcPtr = argc;
      *argvPtr = argv;
  }
  /*
   *----------------------------------------------------------------------
   *
   * main --
   *
   *      Main entry point from the console.
   *
   * Results:
   *      None: Tk_Main never returns here, so this procedure never
   *      returns either.
   *
   * Side effects:
   *      Whatever the applications does.
   *
   *----------------------------------------------------------------------
   */
  int main(int argc, char **argv)
  {
      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 Tk_CreateConsoleWindow is
       * called to attach the console to a text widget.
       */
      consoleRequired = FALSE;
      Tk_Main(argc, argv, Tcl_AppInit);
      return 0;
  }
  /* End of winmain.c */

 Legend:



Removed from v.70
 


changed lines


 
Added in v.71
 Legend:



Removed from v.70
 


changed lines


 
Added in v.71
-Removed from v.70
+Added in v.71

dashley@gmail.com	ViewVC Help
Powered by ViewVC 1.1.25