generic/interface/main.c

/*  ASCEND modelling environment
    Copyright (C) 2006 Carnegie Mellon University

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2, or (at your option)
    any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330,
    Boston, MA 02111-1307, USA.
*/
#include <utilities/ascConfig.h>

ASC_IMPORT(int) AscDriver(int, CONST char **argv);

#ifdef __WIN32__
static void setargv(int*, char ***);
#endif /* __WIN32__ */

/*
 *  main or WinMain
 *
 *  The main entry point for a Unix or Windows application.
 *
 *  Each just calls AscDriver().
 *  These are based on functions from the Tk 8.0 distribution.
 *  See unix/tkAppInit.c and win/winMain.c in their sources.
 */
#ifndef __WIN32__

int main(int argc, CONST char *argv[])
{
  AscDriver(argc, argv);
  return 0;
}

#else /* __WIN32__ */

#include <windows.h>
#include <locale.h>

int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
                     LPSTR lpszCmdLine, int nCmdShow)
{
  int argc;
  char **argv;
  char *p;
  char buffer[MAX_PATH];

  UNUSED_PARAMETER(hInstance);
  UNUSED_PARAMETER(hPrevInstance);
  UNUSED_PARAMETER(lpszCmdLine);
  UNUSED_PARAMETER(nCmdShow);

  /*
   * 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.
   */
  /*
    RIP WIndows 3.1
    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.
   */

  /*
   *  Windows expects us to parse our arguments ourselves.
   */
  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 = '/';
    }
  }

  AscDriver(argc, argv);
  return 1;
}
#endif /* __WIN32__ */

#ifdef __WIN32__
/*
 *-------------------------------------------------------------------------
 *
 * 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.
 *
 * Parameters:
 *    argcptr  Filled with number of argument strings.
 *    argvptr  Filled with argument strings (malloc'd).
 *
 * This function is from the Tk 8.0 distribution.  See win/winMain.c in
 * their sources.
 *
 *--------------------------------------------------------------------------
 */
static void
setargv(int *argcPtr, char ***argvPtr)
{
    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 *) malloc((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;
}

#endif /* __WIN32__ */
1	johnpye	575	/* ASCEND modelling environment
2			Copyright (C) 2006 Carnegie Mellon University
3
4			This program is free software; you can redistribute it and/or modify
5			it under the terms of the GNU General Public License as published by
6			the Free Software Foundation; either version 2, or (at your option)
7			any later version.
8
9			This program is distributed in the hope that it will be useful,
10			but WITHOUT ANY WARRANTY; without even the implied warranty of
11			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12			GNU General Public License for more details.
13
14			You should have received a copy of the GNU General Public License
15			along with this program; if not, write to the Free Software
16			Foundation, Inc., 59 Temple Place - Suite 330,
17			Boston, MA 02111-1307, USA.
18			*/
19	johnpye	571	#include <utilities/ascConfig.h>
20
21	johnpye	590	ASC_IMPORT(int) AscDriver(int, CONST char **argv);
22	johnpye	571
23			#ifdef __WIN32__
24			static void setargv(int, char **);
25			#endif /* __WIN32__ */
26
27			/*
28			* main or WinMain
29			*
30			* The main entry point for a Unix or Windows application.
31			*
32			* Each just calls AscDriver().
33			* These are based on functions from the Tk 8.0 distribution.
34			* See unix/tkAppInit.c and win/winMain.c in their sources.
35			*/
36			#ifndef __WIN32__
37
38			int main(int argc, CONST char *argv[])
39			{
40			AscDriver(argc, argv);
41			return 0;
42			}
43
44			#else /* __WIN32__ */
45
46			#include <windows.h>
47			#include <locale.h>
48
49			int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
50			LPSTR lpszCmdLine, int nCmdShow)
51			{
52			int argc;
53			char **argv;
54			char *p;
55			char buffer[MAX_PATH];
56
57			UNUSED_PARAMETER(hInstance);
58			UNUSED_PARAMETER(hPrevInstance);
59			UNUSED_PARAMETER(lpszCmdLine);
60			UNUSED_PARAMETER(nCmdShow);
61
62			/*
63			* Set up the default locale to be standard "C" locale so parsing
64			* is performed correctly.
65			*/
66			setlocale(LC_ALL, "C");
67
68			/*
69			* Increase the application queue size from default value of 8.
70			* At the default value, cross application SendMessage of WM_KILLFOCUS
71			* will fail because the handler will not be able to do a PostMessage!
72			* This is only needed for Windows 3.x, since NT dynamically expands
73			* the queue.
74			*/
75	johnpye	744	/*
76			RIP WIndows 3.1
77			SetMessageQueue(64);
78			*/
79	johnpye	571
80			/*
81			* Create the console channels and install them as the standard
82			* channels. All I/O will be discarded until TkConsoleInit is
83			* called to attach the console to a text widget.
84			*/
85
86			/*
87			* Windows expects us to parse our arguments ourselves.
88			*/
89			setargv(&argc, &argv);
90
91			/*
92			* Replace argv[0] with full pathname of executable, and forward
93			* slashes substituted for backslashes.
94			*/
95			GetModuleFileName(NULL, buffer, sizeof(buffer));
96			argv[0] = buffer;
97			for (p = buffer; *p != '\0'; p++) {
98			if (*p == '\\') {
99			*p = '/';
100			}
101			}
102
103			AscDriver(argc, argv);
104			return 1;
105			}
106			#endif /* __WIN32__ */
107
108			#ifdef __WIN32__
109			/*
110			*-------------------------------------------------------------------------
111			*
112			* setargv --
113			*
114			* Parse the Windows command line string into argc/argv. Done here
115			* because we don't trust the builtin argument parser in crt0.
116			* Windows applications are responsible for breaking their command
117			* line into arguments.
118			*
119			* 2N backslashes + quote -> N backslashes + begin quoted string
120			* 2N + 1 backslashes + quote -> literal
121			* N backslashes + non-quote -> literal
122			* quote + quote in a quoted string -> single quote
123			* quote + quote not in quoted string -> empty string
124			* quote -> begin quoted string
125			*
126			* Results:
127			* Fills argcPtr with the number of arguments and argvPtr with the
128			* array of arguments.
129			*
130			* Side effects:
131			* Memory allocated.
132			*
133			* Parameters:
134			* argcptr Filled with number of argument strings.
135			* argvptr Filled with argument strings (malloc'd).
136			*
137			* This function is from the Tk 8.0 distribution. See win/winMain.c in
138			* their sources.
139			*
140			*--------------------------------------------------------------------------
141			*/
142			static void
143			setargv(int argcPtr, char **argvPtr)
144			{
145			char cmdLine, p, arg, argSpace;
146			char **argv;
147			int argc, size, inquote, copy, slashes;
148
149			cmdLine = GetCommandLine();
150
151			/*
152			* Precompute an overly pessimistic guess at the number of arguments
153			* in the command line by counting non-space spans.
154			*/
155
156			size = 2;
157			for (p = cmdLine; *p != '\0'; p++) {
158			if (isspace(*p)) {
159			size++;
160			while (isspace(*p)) {
161			p++;
162			}
163			if (*p == '\0') {
164			break;
165			}
166			}
167			}
168			argSpace = (char ) malloc((unsigned) (size sizeof(char *) + strlen(cmdLine) + 1));
169			argv = (char **) argSpace;
170			argSpace += size * sizeof(char *);
171			size--;
172
173			p = cmdLine;
174			for (argc = 0; argc < size; argc++) {
175			argv[argc] = arg = argSpace;
176			while (isspace(*p)) {
177			p++;
178			}
179			if (*p == '\0') {
180			break;
181			}
182
183			inquote = 0;
184			slashes = 0;
185			while (1) {
186			copy = 1;
187			while (*p == '\\') {
188			slashes++;
189			p++;
190			}
191			if (*p == '"') {
192			if ((slashes & 1) == 0) {
193			copy = 0;
194			if ((inquote) && (p[1] == '"')) {
195			p++;
196			copy = 1;
197			} else {
198			inquote = !inquote;
199			}
200			}
201			slashes >>= 1;
202			}
203
204			while (slashes) {
205			*arg = '\\';
206			arg++;
207			slashes--;
208			}
209
210			if ((p == '\0') \|\| (!inquote && isspace(p))) {
211			break;
212			}
213			if (copy != 0) {
214			arg = p;
215			arg++;
216			}
217			p++;
218			}
219			*arg = '\0';
220			argSpace = arg + 1;
221			}
222			argv[argc] = NULL;
223
224			*argcPtr = argc;
225			*argvPtr = argv;
226			}
227
228			#endif /* __WIN32__ */