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

Copyright (C) 2001-2011  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 62
  char modname[MAX_PATH];

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

66 67
  set_user_model_id ();

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

74 75 76 77
  new_cmdline = alloca (MAX_PATH + strlen (cmdline) + 3);
  /* Quote executable name in case of spaces in the path. */
  *new_cmdline = '"';
  strcpy (new_cmdline + 1, modname);
Geoff Voelker's avatar
Geoff Voelker committed
78

79
#ifdef CHOOSE_NEWEST_EXE
Geoff Voelker's avatar
Geoff Voelker committed
80
  {
81 82 83 84 85 86 87 88
    /* 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);
89
    strcpy (p, "\\emacs*.exe\" ");
90 91 92 93 94
    fh = FindFirstFile (new_cmdline, &wfd);
    if (fh == INVALID_HANDLE_VALUE)
      goto error;
    do
      {
95 96 97 98 99 100 101
	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);
	  }
102 103 104 105 106 107
      }
    while (FindNextFile (fh, &wfd));
    FindClose (fh);
    *p++ = '\\';
    strcpy (p, best_name);
    strcat (p, " ");
Geoff Voelker's avatar
Geoff Voelker committed
108
  }
109
#else
110
  strcat (new_cmdline, "\\emacs.exe\" ");
111 112
#endif

113 114 115
  /* Append original arguments if any; first look for arguments we
     recognise (-wait, -high, and -low), and apply them ourselves.  */
  while (cmdline[0] == '-' || cmdline[0] == '/')
116
    {
117 118
      if (strncmp (cmdline+1, "wait", 4) == 0)
	{
119 120 121
	  wait_for_child = TRUE;
	  cmdline += 5;
	}
122 123 124 125 126 127 128 129 130 131 132 133
      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;
134 135
      /* Look for next argument.  */
      while (*++cmdline == ' ');
136
    }
137

Geoff Voelker's avatar
Geoff Voelker committed
138 139
  strcat (new_cmdline, cmdline);

140
  /* Set emacs_dir variable if runemacs was in "%emacs_dir%\bin".  */
Geoff Voelker's avatar
Geoff Voelker committed
141
  if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
142 143 144 145 146 147
    {
      *p = 0;
      for (p = modname; *p; p++)
	if (*p == '\\') *p = '/';
      SetEnvironmentVariable ("emacs_dir", modname);
    }
Geoff Voelker's avatar
Geoff Voelker committed
148 149 150

  memset (&start, 0, sizeof (start));
  start.cb = sizeof (start);
151
  start.dwFlags = STARTF_USESHOWWINDOW | STARTF_USECOUNTCHARS;
Geoff Voelker's avatar
Geoff Voelker committed
152
  start.wShowWindow = SW_HIDE;
153 154 155 156
  /* 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
157 158 159 160 161

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

162
  if (CreateProcess (NULL, new_cmdline, &sec_attrs, NULL, TRUE, priority_class,
163
		     NULL, NULL, &start, &child))
Geoff Voelker's avatar
Geoff Voelker committed
164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180
    {
      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
181

182 183
void
set_user_model_id (void)
184 185
{
  HMODULE shell;
186
  HRESULT (WINAPI * set_user_model) (wchar_t * id);
187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209

  /* 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);
    }
}

210 211 212 213 214 215 216 217 218 219 220 221 222 223 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
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"
			       "However, you can still use Emacs by invoking\n"
			       "it with the '-nw' command-line option.\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;
}