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