nt/addpm.c

   1 /* Add entries to the GNU Emacs Program Manager folder.
   2    Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
   3       2006, 2007, 2008  Free Software Foundation, Inc.
   4
   5 This file is part of GNU Emacs.
   6
   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 the Free Software Foundation; either version 3, or (at your option)
  10 any later version.
  11
  12 GNU Emacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Emacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  20 Boston, MA 02110-1301, USA.  */
  21
  22 /****************************************************************************
  23  *
  24  * Program: addpm       (adds emacs to the Windows program manager)
  25  *
  26  * Usage:
  27  *      argv[1] = install path for emacs
  28  *      argv[2] = full path to icon for emacs (optional)
  29  */
  30
  31 #include <windows.h>
  32 #include <ddeml.h>
  33 #include <stdlib.h>
  34 #include <stdio.h>
  35
  36 HDDEDATA CALLBACK
  37 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
  38              HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
  39              DWORD dwData1, DWORD dwData2)
  40 {
  41   return ((HDDEDATA) NULL);
  42 }
  43
  44 #define DdeCommand(str)         \
  45         DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
  46                               CF_TEXT, XTYP_EXECUTE, 30000, NULL)
  47
  48 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
  49 #define REG_GTK "SOFTWARE\\GTK\\2.0"
  50 #define REG_APP_PATH \
  51   "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\emacs.exe"
  52
  53 static struct entry
  54 {
  55   char *name;
  56   char *value;
  57 }
  58 env_vars[] =
  59 {
  60   {"emacs_dir", NULL},
  61   {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
  62   {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
  63   {"EMACSDATA", "%emacs_dir%/etc"},
  64   {"EMACSPATH", "%emacs_dir%/bin"},
  65   /* We no longer set INFOPATH because Info-default-directory-list
  66      is then ignored.  */
  67   /*  {"INFOPATH", "%emacs_dir%/info"},  */
  68   {"EMACSDOC", "%emacs_dir%/etc"},
  69   {"TERM", "cmd"}
  70 };
  71
  72 BOOL
  73 add_registry (path)
  74      char *path;
  75 {
  76   HKEY hrootkey = NULL;
  77   int i;
  78   BOOL ok = TRUE;
  79   DWORD size;
  80
  81   /* Record the location of Emacs to the App Paths key if we have
  82      sufficient permissions to do so.  This helps Windows find emacs quickly
  83      if the user types emacs.exe in the "Run Program" dialog without having
  84      emacs on their path.  Some applications also use the same registry key
  85      to discover the installation directory for programs they are looking for.
  86      Multiple installations cannot be handled by this method, but it does not
  87      affect the general operation of other installations of Emacs, and we
  88      are blindly overwriting the Start Menu entries already.
  89   */
  90   if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_APP_PATH, 0, "",
  91                       REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL,
  92                       &hrootkey, NULL) == ERROR_SUCCESS)
  93     {
  94       int len;
  95       char *emacs_path;
  96       HKEY gtk_key = NULL;
  97
  98       len = strlen (path) + 15; /* \bin\emacs.exe + terminator.  */
  99       emacs_path = alloca (len);
 100       sprintf (emacs_path, "%s\\bin\\emacs.exe", path);
 101
 102       RegSetValueEx (hrootkey, NULL, 0, REG_SZ, emacs_path, len);
 103
 104       /* Look for a GTK installation. If found, add it to the library search
 105          path for Emacs so that the image libraries it provides are available
 106          to Emacs regardless of whether it is in the path or not.  */
 107       if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_GTK, REG_OPTION_NON_VOLATILE,
 108                         KEY_READ, &gtk_key) == ERROR_SUCCESS)
 109         {
 110           if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL,
 111                                NULL, &size) == ERROR_SUCCESS)
 112             {
 113               char *gtk_path = (char *) alloca (size);
 114               if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL,
 115                                    gtk_path, &size) == ERROR_SUCCESS)
 116                 {
 117                   /* Make sure the emacs bin directory continues to be searched
 118                      first by including it as well.  */
 119                   char *dll_paths;
 120                   len = strlen (path) + 5 + size;
 121                   dll_paths = (char *) alloca (size + strlen (path) + 1);
 122                   sprintf (dll_paths, "%s\\bin;%s", path, gtk_path);
 123                   RegSetValueEx (hrootkey, "Path", 0, REG_SZ, dll_paths, len);
 124                 }
 125             }
 126           RegCloseKey (gtk_key);
 127         }
 128       RegCloseKey (hrootkey);
 129     }
 130
 131   /* Previous versions relied on registry settings, but we do not need
 132      them any more.  If registry settings are installed from a previous
 133      version, replace them to ensure they are the current settings.
 134      Otherwise, do nothing.  */
 135
 136   /* Check both the current user and the local machine to see if we
 137      have any resources.  */
 138
 139   if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
 140                       REG_OPTION_NON_VOLATILE,
 141                       KEY_WRITE, &hrootkey) != ERROR_SUCCESS
 142       && RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT,
 143                          REG_OPTION_NON_VOLATILE,
 144                          KEY_WRITE, &hrootkey) != ERROR_SUCCESS)
 145     {
 146       return FALSE;
 147     }
 148
 149   for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
 150     {
 151       char * value = env_vars[i].value ? env_vars[i].value : path;
 152
 153       if (RegSetValueEx (hrootkey, env_vars[i].name,
 154                          0, REG_EXPAND_SZ,
 155                          value, lstrlen (value) + 1) != ERROR_SUCCESS)
 156         ok = FALSE;
 157     }
 158
 159   RegCloseKey (hrootkey);
 160
 161   return (ok);
 162 }
 163
 164 int
 165 main (argc, argv)
 166      int argc;
 167      char *argv[];
 168 {
 169   DWORD idDde = 0;
 170   HCONV HConversation;
 171   HSZ ProgMan;
 172   char modname[MAX_PATH];
 173   char additem[MAX_PATH*2 + 100];
 174   char *prog_name;
 175   char *emacs_path;
 176   char *p;
 177   int quiet = 0;
 178
 179   /* If no args specified, use our location to set emacs_path.  */
 180 #if 0
 181   if (argc < 2 || argc > 3)
 182     {
 183       fprintf (stderr, "usage: addpm [-q] [emacs_path [icon_path]]\n");
 184       exit (1);
 185     }
 186 #endif
 187
 188   if (argc > 1
 189       && (argv[1][0] == '/' || argv[1][0] == '-')
 190       && argv[1][1] == 'q')
 191     {
 192       quiet = 1;
 193       --argc;
 194       ++argv;
 195     }
 196
 197   if (argc > 1)
 198     emacs_path = argv[1];
 199   else
 200     {
 201       if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
 202           (p = strrchr (modname, '\\')) == NULL)
 203         {
 204           fprintf (stderr, "fatal error");
 205           exit (1);
 206         }
 207       *p = 0;
 208
 209       /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin".  */
 210       if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
 211         {
 212           *p = 0;
 213           emacs_path = modname;
 214         }
 215       else
 216         {
 217           fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
 218           exit (1);
 219         }
 220
 221       /* Tell user what we are going to do.  */
 222       if (!quiet)
 223         {
 224           int result;
 225
 226           char msg[ MAX_PATH ];
 227           sprintf (msg, "Install Emacs at %s?\n", emacs_path);
 228           result = MessageBox (NULL, msg, "Install Emacs",
 229                                MB_OKCANCEL | MB_ICONQUESTION);
 230           if (result != IDOK)
 231             {
 232               fprintf (stderr, "Install cancelled\n");
 233               exit (1);
 234             }
 235         }
 236     }
 237
 238   add_registry (emacs_path);
 239   prog_name =  "runemacs.exe";
 240
 241   DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
 242
 243   ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
 244
 245   HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
 246   if (HConversation != 0)
 247     {
 248       DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
 249       DdeCommand ("[ReplaceItem (Emacs)]");
 250       if (argc > 2)
 251         sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]",
 252                  emacs_path, prog_name, argv[2]);
 253       else
 254         sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]",
 255                  emacs_path, prog_name);
 256       DdeCommand (additem);
 257
 258       DdeDisconnect (HConversation);
 259     }
 260
 261   DdeFreeStringHandle (idDde, ProgMan);
 262
 263   DdeUninitialize (idDde);
 264
 265   return (0);
 266 }
 267
 268 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0
 269    (do not change this comment) */