| 1 | /* Add entries to the GNU Emacs Program Manager folder. |
| 2 | Copyright (C) 1995 Free Software Foundation, Inc. |
| 3 | |
| 4 | This file is part of GNU Emacs. |
| 5 | |
| 6 | GNU Emacs is free software; you can redistribute it and/or modify |
| 7 | it under the terms of the GNU General Public License as published by |
| 8 | the Free Software Foundation; either version 2, or (at your option) |
| 9 | any later version. |
| 10 | |
| 11 | GNU Emacs is distributed in the hope that it will be useful, |
| 12 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 14 | GNU General Public License for more details. |
| 15 | |
| 16 | You should have received a copy of the GNU General Public License |
| 17 | along with GNU Emacs; see the file COPYING. If not, write to |
| 18 | the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 19 | Boston, MA 02111-1307, USA. */ |
| 20 | |
| 21 | /**************************************************************************** |
| 22 | * |
| 23 | * Program: addpm (adds emacs to the Windows program manager) |
| 24 | * |
| 25 | * Usage: |
| 26 | * argv[1] = install path for emacs |
| 27 | * argv[2] = full path to icon for emacs (optional) |
| 28 | */ |
| 29 | |
| 30 | #include <windows.h> |
| 31 | #include <ddeml.h> |
| 32 | #include <stdlib.h> |
| 33 | #include <stdio.h> |
| 34 | |
| 35 | HDDEDATA CALLBACK |
| 36 | DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
| 37 | HSZ hsz1, HSZ hsz2, HDDEDATA hdata, |
| 38 | DWORD dwData1, DWORD dwData2) |
| 39 | { |
| 40 | return ((HDDEDATA) NULL); |
| 41 | } |
| 42 | |
| 43 | #define DdeCommand(str) \ |
| 44 | DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \ |
| 45 | CF_TEXT, XTYP_EXECUTE, 30000, NULL) |
| 46 | |
| 47 | #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
| 48 | |
| 49 | static struct entry |
| 50 | { |
| 51 | char *name; |
| 52 | char *value; |
| 53 | } |
| 54 | env_vars[] = |
| 55 | { |
| 56 | {"emacs_dir", NULL}, |
| 57 | {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/lisp"}, |
| 58 | {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"}, |
| 59 | {"EMACSDATA", "%emacs_dir%/etc"}, |
| 60 | {"EMACSPATH", "%emacs_dir%/bin"}, |
| 61 | {"EMACSLOCKDIR", "%emacs_dir%/lock"}, |
| 62 | /* We no longer set INFOPATH because Info-default-directory-list |
| 63 | is then ignored. */ |
| 64 | /* {"INFOPATH", "%emacs_dir%/info"}, */ |
| 65 | {"EMACSDOC", "%emacs_dir%/etc"}, |
| 66 | {"TERM", "cmd"} |
| 67 | }; |
| 68 | |
| 69 | BOOL |
| 70 | add_registry (path) |
| 71 | char *path; |
| 72 | { |
| 73 | HKEY hrootkey = NULL; |
| 74 | DWORD dwDisp; |
| 75 | int i; |
| 76 | BOOL ok = TRUE; |
| 77 | |
| 78 | /* Check both the current user and the local machine to see if we |
| 79 | have any resources. */ |
| 80 | |
| 81 | if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, |
| 82 | 0, "", REG_OPTION_NON_VOLATILE, |
| 83 | KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS |
| 84 | && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT, |
| 85 | 0, "", REG_OPTION_NON_VOLATILE, |
| 86 | KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS) |
| 87 | { |
| 88 | return FALSE; |
| 89 | } |
| 90 | |
| 91 | for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++) |
| 92 | { |
| 93 | char * value = env_vars[i].value ? env_vars[i].value : path; |
| 94 | |
| 95 | if (RegSetValueEx (hrootkey, env_vars[i].name, |
| 96 | 0, REG_EXPAND_SZ, |
| 97 | value, lstrlen (value) + 1) != ERROR_SUCCESS) |
| 98 | ok = FALSE; |
| 99 | } |
| 100 | |
| 101 | RegCloseKey (hrootkey); |
| 102 | |
| 103 | return (ok); |
| 104 | } |
| 105 | |
| 106 | int |
| 107 | main (argc, argv) |
| 108 | int argc; |
| 109 | char *argv[]; |
| 110 | { |
| 111 | DWORD idDde = 0; |
| 112 | HCONV HConversation; |
| 113 | HSZ ProgMan; |
| 114 | char modname[MAX_PATH]; |
| 115 | char additem[MAX_PATH*2 + 100]; |
| 116 | char *prog_name; |
| 117 | char *emacs_path; |
| 118 | char *p; |
| 119 | |
| 120 | /* If no args specified, use our location to set emacs_path. */ |
| 121 | #if 0 |
| 122 | if (argc < 2 || argc > 3) |
| 123 | { |
| 124 | fprintf (stderr, "usage: addpm emacs_path [icon_path]\n"); |
| 125 | exit (1); |
| 126 | } |
| 127 | #endif |
| 128 | |
| 129 | if (argc > 1) |
| 130 | emacs_path = argv[1]; |
| 131 | else |
| 132 | { |
| 133 | if (!GetModuleFileName (NULL, modname, MAX_PATH) || |
| 134 | (p = strrchr (modname, '\\')) == NULL) |
| 135 | { |
| 136 | fprintf (stderr, "fatal error"); |
| 137 | exit (1); |
| 138 | } |
| 139 | *p = 0; |
| 140 | |
| 141 | /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */ |
| 142 | if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0) |
| 143 | { |
| 144 | *p = 0; |
| 145 | emacs_path = modname; |
| 146 | } |
| 147 | else |
| 148 | { |
| 149 | fprintf (stderr, "usage: addpm emacs_path [icon_path]\n"); |
| 150 | exit (1); |
| 151 | } |
| 152 | |
| 153 | /* Tell user what we are going to do. */ |
| 154 | { |
| 155 | int result; |
| 156 | |
| 157 | char msg[ MAX_PATH ]; |
| 158 | sprintf (msg, "Install Emacs at %s?\n", emacs_path); |
| 159 | result = MessageBox (NULL, msg, "Install Emacs", MB_OKCANCEL | MB_ICONQUESTION); |
| 160 | if (result != IDOK) |
| 161 | { |
| 162 | fprintf (stderr, "Install cancelled\n"); |
| 163 | exit (1); |
| 164 | } |
| 165 | } |
| 166 | } |
| 167 | |
| 168 | prog_name = add_registry (emacs_path) ? "runemacs.exe" : "emacs.bat"; |
| 169 | |
| 170 | DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0); |
| 171 | |
| 172 | ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI); |
| 173 | |
| 174 | HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL); |
| 175 | if (HConversation != 0) |
| 176 | { |
| 177 | DdeCommand ("[CreateGroup (\"Gnu Emacs\")]"); |
| 178 | DdeCommand ("[ReplaceItem (Emacs)]"); |
| 179 | if (argc > 2) |
| 180 | sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]", |
| 181 | emacs_path, prog_name, argv[2]); |
| 182 | else |
| 183 | sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]", |
| 184 | emacs_path, prog_name); |
| 185 | DdeCommand (additem); |
| 186 | |
| 187 | DdeDisconnect (HConversation); |
| 188 | } |
| 189 | |
| 190 | DdeFreeStringHandle (idDde, ProgMan); |
| 191 | |
| 192 | DdeUninitialize (idDde); |
| 193 | |
| 194 | return (0); |
| 195 | } |