1/* Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
2     Free Software Foundation, Inc.
3
4This file is part of GNU Emacs.
5
6GNU Emacs is free software; you can redistribute it and/or modify
7it under the terms of the GNU General Public License as published by
8the Free Software Foundation; either version 2, or (at your option)
9any later version.
10
11GNU Emacs is distributed in the hope that it will be useful,
12but WITHOUT ANY WARRANTY; without even the implied warranty of
13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14GNU General Public License for more details.
15
16You should have received a copy of the GNU General Public License
17along with GNU Emacs; see the file COPYING.  If not, write to
18the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
19Boston, MA 02110-1301, USA.  */
20
21
22/*
23  Simple program to start Emacs with its console window hidden.
24
25  This program is provided purely for convenience, since most users will
26  use Emacs in windowing (GUI) mode, and will not want to have an extra
27  console window lying around.  */
28
29/*
30   You may want to define this if you want to be able to install updated
31   emacs binaries even when other users are using the current version.
32   The problem with some file servers (notably Novell) is that an open
33   file cannot be overwritten, deleted, or even renamed.  So if someone
34   is running emacs.exe already, you cannot install a newer version.
35   By defining CHOOSE_NEWEST_EXE, you can name your new emacs.exe
36   something else which matches "emacs*.exe", and runemacs will
37   automatically select the newest emacs executable in the bin directory.
38   (So you'll probably be able to delete the old version some hours/days
39   later).
40*/
41
42/* #define CHOOSE_NEWEST_EXE */
43
44#include <windows.h>
45#include <string.h>
46#include <malloc.h>
47
48int WINAPI
49WinMain (HINSTANCE hSelf, HINSTANCE hPrev, LPSTR cmdline, int nShow)
50{
51  STARTUPINFO start;
52  SECURITY_ATTRIBUTES sec_attrs;
53  PROCESS_INFORMATION child;
54  int wait_for_child = FALSE;
55  DWORD priority_class = NORMAL_PRIORITY_CLASS;
56  DWORD ret_code = 0;
57  char *new_cmdline;
58  char *p;
59  char modname[MAX_PATH];
60
61  if (!GetModuleFileName (NULL, modname, MAX_PATH))
62    goto error;
63  if ((p = strrchr (modname, '\\')) == NULL)
64    goto error;
65  *p = 0;
66
67  new_cmdline = alloca (MAX_PATH + strlen (cmdline) + 3);
68  /* Quote executable name in case of spaces in the path. */
69  *new_cmdline = '"';
70  strcpy (new_cmdline + 1, modname);
71
72#ifdef CHOOSE_NEWEST_EXE
73  {
74    /* Silly hack to allow new versions to be installed on
75       server even when current version is in use. */
76
77    char * best_name = alloca (MAX_PATH + 1);
78    FILETIME best_time = {0,0};
79    WIN32_FIND_DATA wfd;
80    HANDLE fh;
81    p = new_cmdline + strlen (new_cmdline);
82    strcpy (p, "\\emacs*.exe\" ");
83    fh = FindFirstFile (new_cmdline, &wfd);
84    if (fh == INVALID_HANDLE_VALUE)
85      goto error;
86    do
87      {
88	if (wfd.ftLastWriteTime.dwHighDateTime > best_time.dwHighDateTime
89	    || (wfd.ftLastWriteTime.dwHighDateTime == best_time.dwHighDateTime
90		&& wfd.ftLastWriteTime.dwLowDateTime > best_time.dwLowDateTime))
91	  {
92	    best_time = wfd.ftLastWriteTime;
93	    strcpy (best_name, wfd.cFileName);
94	  }
95      }
96    while (FindNextFile (fh, &wfd));
97    FindClose (fh);
98    *p++ = '\\';
99    strcpy (p, best_name);
100    strcat (p, " ");
101  }
102#else
103  strcat (new_cmdline, "\\emacs.exe\" ");
104#endif
105
106  /* Append original arguments if any; first look for arguments we
107     recognise (-wait, -high, and -low), and apply them ourselves.  */
108  while (cmdline[0] == '-' || cmdline[0] == '/')
109    {
110      if (strncmp (cmdline+1, "wait", 4) == 0)
111	{
112	  wait_for_child = TRUE;
113	  cmdline += 5;
114	}
115      else if (strncmp (cmdline+1, "high", 4) == 0)
116	{
117	  priority_class = HIGH_PRIORITY_CLASS;
118	  cmdline += 5;
119	}
120      else if (strncmp (cmdline+1, "low", 3) == 0)
121	{
122	  priority_class = IDLE_PRIORITY_CLASS;
123	  cmdline += 4;
124	}
125      else
126	break;
127      /* Look for next argument.  */
128      while (*++cmdline == ' ');
129    }
130
131  strcat (new_cmdline, cmdline);
132
133  /* Set emacs_dir variable if runemacs was in "%emacs_dir%\bin".  */
134  if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
135    {
136      *p = 0;
137      for (p = modname; *p; p++)
138	if (*p == '\\') *p = '/';
139      SetEnvironmentVariable ("emacs_dir", modname);
140    }
141
142  memset (&start, 0, sizeof (start));
143  start.cb = sizeof (start);
144  start.dwFlags = STARTF_USESHOWWINDOW | STARTF_USECOUNTCHARS;
145  start.wShowWindow = SW_HIDE;
146  /* Ensure that we don't waste memory if the user has specified a huge
147     default screen buffer for command windows.  */
148  start.dwXCountChars = 80;
149  start.dwYCountChars = 25;
150
151  sec_attrs.nLength = sizeof (sec_attrs);
152  sec_attrs.lpSecurityDescriptor = NULL;
153  sec_attrs.bInheritHandle = FALSE;
154
155  if (CreateProcess (NULL, new_cmdline, &sec_attrs, NULL, TRUE, priority_class,
156		     NULL, NULL, &start, &child))
157    {
158      if (wait_for_child)
159	{
160	  WaitForSingleObject (child.hProcess, INFINITE);
161	  GetExitCodeProcess (child.hProcess, &ret_code);
162	}
163      CloseHandle (child.hThread);
164      CloseHandle (child.hProcess);
165    }
166  else
167    goto error;
168  return (int) ret_code;
169
170error:
171  MessageBox (NULL, "Could not start Emacs.", "Error", MB_ICONSTOP);
172  return 1;
173}
174
175/* arch-tag: 7e02df73-4df7-4aa0-baea-99c6d047a384
176   (do not change this comment) */
177