runemacs.c 7.47 KB
Newer Older
1 2
/* runemacs --- Simple program to start Emacs with its console window hidden.

Paul Eggert's avatar
Paul Eggert committed
3
Copyright (C) 2001-2015 Free Software Foundation, Inc.
4 5 6

This file is part of GNU Emacs.

7
GNU Emacs is free software: you can redistribute it and/or modify
8
it under the terms of the GNU General Public License as published by
9 10
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
11 12 13 14 15 16 17

GNU Emacs 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
18
along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
19 20


Geoff Voelker's avatar
Geoff Voelker committed
21 22 23 24 25 26 27
/*
  Simple program to start Emacs with its console window hidden.

  This program is provided purely for convenience, since most users will
  use Emacs in windowing (GUI) mode, and will not want to have an extra
  console window lying around.  */

28 29 30 31 32 33 34 35
/*
   You may want to define this if you want to be able to install updated
   emacs binaries even when other users are using the current version.
   The problem with some file servers (notably Novell) is that an open
   file cannot be overwritten, deleted, or even renamed.  So if someone
   is running emacs.exe already, you cannot install a newer version.
   By defining CHOOSE_NEWEST_EXE, you can name your new emacs.exe
   something else which matches "emacs*.exe", and runemacs will
36
   automatically select the newest emacs executable in the bin directory.
37 38 39 40 41 42
   (So you'll probably be able to delete the old version some hours/days
   later).
*/

/* #define CHOOSE_NEWEST_EXE */

Geoff Voelker's avatar
Geoff Voelker committed
43 44 45 46
#include <windows.h>
#include <string.h>
#include <malloc.h>

47
static void set_user_model_id (void);
48
static int ensure_unicows_dll (void);
49

Geoff Voelker's avatar
Geoff Voelker committed
50 51 52 53 54 55 56
int WINAPI
WinMain (HINSTANCE hSelf, HINSTANCE hPrev, LPSTR cmdline, int nShow)
{
  STARTUPINFO start;
  SECURITY_ATTRIBUTES sec_attrs;
  PROCESS_INFORMATION child;
  int wait_for_child = FALSE;
57
  DWORD priority_class = NORMAL_PRIORITY_CLASS;
Geoff Voelker's avatar
Geoff Voelker committed
58
  DWORD ret_code = 0;
59 60
  char *new_cmdline;
  char *p;
Geoff Voelker's avatar
Geoff Voelker committed
61
  char modname[MAX_PATH];
62
  static const char iconic_opt[] = "--iconic ";
Geoff Voelker's avatar
Geoff Voelker committed
63

64 65 66
  if (!ensure_unicows_dll ())
    goto error;

67 68
  set_user_model_id ();

Geoff Voelker's avatar
Geoff Voelker committed
69 70 71 72 73 74
  if (!GetModuleFileName (NULL, modname, MAX_PATH))
    goto error;
  if ((p = strrchr (modname, '\\')) == NULL)
    goto error;
  *p = 0;

75 76 77 78
  new_cmdline = alloca (MAX_PATH
			+ strlen (cmdline)
			+ (nShow == SW_SHOWMINNOACTIVE) * strlen (iconic_opt)
			+ 3);
79 80 81
  /* Quote executable name in case of spaces in the path. */
  *new_cmdline = '"';
  strcpy (new_cmdline + 1, modname);
82 83 84 85 86
  /* Detect and handle un-installed runemacs.exe in nt/ subdirectory,
     while emacs.exe is in src/.  */
  if ((p = strrchr (new_cmdline, '\\')) != NULL
      && stricmp (p, "\\nt") == 0)
    strcpy (p, "\\src");
Geoff Voelker's avatar
Geoff Voelker committed
87

88
#ifdef CHOOSE_NEWEST_EXE
Geoff Voelker's avatar
Geoff Voelker committed
89
  {
90 91 92 93 94 95 96 97
    /* Silly hack to allow new versions to be installed on
       server even when current version is in use. */

    char * best_name = alloca (MAX_PATH + 1);
    FILETIME best_time = {0,0};
    WIN32_FIND_DATA wfd;
    HANDLE fh;
    p = new_cmdline + strlen (new_cmdline);
98
    strcpy (p, "\\emacs*.exe\" ");
99 100 101 102 103
    fh = FindFirstFile (new_cmdline, &wfd);
    if (fh == INVALID_HANDLE_VALUE)
      goto error;
    do
      {
104 105 106 107 108 109 110
	if (wfd.ftLastWriteTime.dwHighDateTime > best_time.dwHighDateTime
	    || (wfd.ftLastWriteTime.dwHighDateTime == best_time.dwHighDateTime
		&& wfd.ftLastWriteTime.dwLowDateTime > best_time.dwLowDateTime))
	  {
	    best_time = wfd.ftLastWriteTime;
	    strcpy (best_name, wfd.cFileName);
	  }
111 112 113 114 115 116
      }
    while (FindNextFile (fh, &wfd));
    FindClose (fh);
    *p++ = '\\';
    strcpy (p, best_name);
    strcat (p, " ");
Geoff Voelker's avatar
Geoff Voelker committed
117
  }
118
#else
119
  strcat (new_cmdline, "\\emacs.exe\" ");
120 121
#endif

122
  /* Append original arguments if any; first look for arguments we
Paul Eggert's avatar
Paul Eggert committed
123
     recognize (-wait, -high, and -low), and apply them ourselves.  */
124
  while (cmdline[0] == '-' || cmdline[0] == '/')
125
    {
126 127
      if (strncmp (cmdline+1, "wait", 4) == 0)
	{
128 129 130
	  wait_for_child = TRUE;
	  cmdline += 5;
	}
131 132 133 134 135 136 137 138 139 140 141 142
      else if (strncmp (cmdline+1, "high", 4) == 0)
	{
	  priority_class = HIGH_PRIORITY_CLASS;
	  cmdline += 5;
	}
      else if (strncmp (cmdline+1, "low", 3) == 0)
	{
	  priority_class = IDLE_PRIORITY_CLASS;
	  cmdline += 4;
	}
      else
	break;
143 144
      /* Look for next argument.  */
      while (*++cmdline == ' ');
145
    }
146

147 148 149 150 151
  /* If the desktop shortcut properties tell to invoke runemacs
     minimized, or if they invoked runemacs via "start /min", pass
     '--iconic' to Emacs, as that's what users will expect.  */
  if (nShow == SW_SHOWMINNOACTIVE)
    strcat (new_cmdline, iconic_opt);
Geoff Voelker's avatar
Geoff Voelker committed
152 153
  strcat (new_cmdline, cmdline);

154
  /* Set emacs_dir variable if runemacs was in "%emacs_dir%\bin".  */
Geoff Voelker's avatar
Geoff Voelker committed
155
  if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
156 157 158 159 160 161
    {
      *p = 0;
      for (p = modname; *p; p++)
	if (*p == '\\') *p = '/';
      SetEnvironmentVariable ("emacs_dir", modname);
    }
Geoff Voelker's avatar
Geoff Voelker committed
162 163 164

  memset (&start, 0, sizeof (start));
  start.cb = sizeof (start);
165
  start.dwFlags = STARTF_USESHOWWINDOW | STARTF_USECOUNTCHARS;
Geoff Voelker's avatar
Geoff Voelker committed
166
  start.wShowWindow = SW_HIDE;
167 168 169 170
  /* Ensure that we don't waste memory if the user has specified a huge
     default screen buffer for command windows.  */
  start.dwXCountChars = 80;
  start.dwYCountChars = 25;
Geoff Voelker's avatar
Geoff Voelker committed
171 172 173 174 175

  sec_attrs.nLength = sizeof (sec_attrs);
  sec_attrs.lpSecurityDescriptor = NULL;
  sec_attrs.bInheritHandle = FALSE;

176
  if (CreateProcess (NULL, new_cmdline, &sec_attrs, NULL, TRUE, priority_class,
177
		     NULL, NULL, &start, &child))
Geoff Voelker's avatar
Geoff Voelker committed
178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194
    {
      if (wait_for_child)
	{
	  WaitForSingleObject (child.hProcess, INFINITE);
	  GetExitCodeProcess (child.hProcess, &ret_code);
	}
      CloseHandle (child.hThread);
      CloseHandle (child.hProcess);
    }
  else
    goto error;
  return (int) ret_code;

error:
  MessageBox (NULL, "Could not start Emacs.", "Error", MB_ICONSTOP);
  return 1;
}
Miles Bader's avatar
Miles Bader committed
195

196 197
void
set_user_model_id (void)
198 199
{
  HMODULE shell;
200
  HRESULT (WINAPI * set_user_model) (wchar_t * id);
201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223

  /* On Windows 7 and later, we need to set the user model ID
     to associate emacsclient launched files with Emacs frames
     in the UI.  */
  shell = LoadLibrary ("shell32.dll");
  if (shell)
    {
      set_user_model
	= (void *) GetProcAddress (shell,
				   "SetCurrentProcessExplicitAppUserModelID");

      /* If the function is defined, then we are running on Windows 7
	 or newer, and the UI uses this to group related windows
	 together.  Since emacs, runemacs, emacsclient are related, we
	 want them grouped even though the executables are different,
	 so we need to set a consistent ID between them.  */
      if (set_user_model)
	set_user_model (L"GNU.Emacs");

      FreeLibrary (shell);
    }
}

224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261
static int
ensure_unicows_dll (void)
{
  OSVERSIONINFO os_ver;
  HMODULE h;

  ZeroMemory (&os_ver, sizeof (OSVERSIONINFO));
  os_ver.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
  if (!GetVersionEx (&os_ver))
    return 0;

  if (os_ver.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
    {
      h = LoadLibrary ("Unicows.dll");
      if (!h)
	{
	  int button;

	  button = MessageBox (NULL,
			       "Emacs cannot load the UNICOWS.DLL library.\n"
			       "This library is essential for using Emacs\n"
			       "on this system.  You need to install it.\n\n"
			       "Emacs will exit when you click OK.",
			       "Emacs cannot load UNICOWS.DLL",
			       MB_ICONERROR | MB_TASKMODAL
			       | MB_SETFOREGROUND | MB_OK);
	  switch (button)
	    {
	      case IDOK:
	      default:
	        return 0;
	    }
	}
      FreeLibrary (h);
      return 1;
    }
  return 1;
}