12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
1 /* Add entries to the GNU Emacs Program Manager folder.
|
75249
|
2 Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
|
|
3 2006, 2007 Free Software Foundation, Inc.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
4
|
14185
|
5 This file is part of GNU Emacs.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
6
|
14185
|
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
|
78246
|
9 the Free Software Foundation; either version 3, or (at your option)
|
14185
|
10 any later version.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
11
|
14185
|
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.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
16
|
14185
|
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
|
64083
|
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
20 Boston, MA 02110-1301, USA. */
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
21
|
12329
|
22 /****************************************************************************
|
|
23 *
|
|
24 * Program: addpm (adds emacs to the Windows program manager)
|
|
25 *
|
|
26 * Usage:
|
13438
|
27 * argv[1] = install path for emacs
|
12329
|
28 * argv[2] = full path to icon for emacs (optional)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
29 */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
30
|
12329
|
31 #include <windows.h>
|
|
32 #include <ddeml.h>
|
|
33 #include <stdlib.h>
|
|
34 #include <stdio.h>
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
35
|
49600
|
36 HDDEDATA CALLBACK
|
13438
|
37 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
|
|
38 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
|
|
39 DWORD dwData1, DWORD dwData2)
|
12329
|
40 {
|
13438
|
41 return ((HDDEDATA) NULL);
|
12329
|
42 }
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
43
|
12329
|
44 #define DdeCommand(str) \
|
13438
|
45 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
|
12329
|
46 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
47
|
15130
|
48 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
|
13438
|
49
|
|
50 static struct entry
|
|
51 {
|
|
52 char *name;
|
|
53 char *value;
|
49600
|
54 }
|
|
55 env_vars[] =
|
13438
|
56 {
|
15130
|
57 {"emacs_dir", NULL},
|
35424
|
58 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
|
20011
|
59 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
|
15322
|
60 {"EMACSDATA", "%emacs_dir%/etc"},
|
|
61 {"EMACSPATH", "%emacs_dir%/bin"},
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
62 /* We no longer set INFOPATH because Info-default-directory-list
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
63 is then ignored. */
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
64 /* {"INFOPATH", "%emacs_dir%/info"}, */
|
15322
|
65 {"EMACSDOC", "%emacs_dir%/etc"},
|
13438
|
66 {"TERM", "cmd"}
|
|
67 };
|
|
68
|
49600
|
69 BOOL
|
13438
|
70 add_registry (path)
|
|
71 char *path;
|
|
72 {
|
|
73 HKEY hrootkey = NULL;
|
|
74 int i;
|
|
75 BOOL ok = TRUE;
|
49600
|
76
|
69449
|
77 /* Previous versions relied on registry settings, but we do not need
|
|
78 them any more. If registry settings are installed from a previous
|
|
79 version, replace them to ensure they are the current settings.
|
|
80 Otherwise, do nothing. */
|
|
81
|
49600
|
82 /* Check both the current user and the local machine to see if we
|
13438
|
83 have any resources. */
|
49600
|
84
|
69449
|
85 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
|
|
86 REG_OPTION_NON_VOLATILE,
|
|
87 KEY_WRITE, &hrootkey) != ERROR_SUCCESS
|
|
88 && RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT,
|
|
89 REG_OPTION_NON_VOLATILE,
|
|
90 KEY_WRITE, &hrootkey) != ERROR_SUCCESS)
|
13438
|
91 {
|
|
92 return FALSE;
|
|
93 }
|
49600
|
94
|
|
95 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
|
13438
|
96 {
|
|
97 char * value = env_vars[i].value ? env_vars[i].value : path;
|
49600
|
98
|
13438
|
99 if (RegSetValueEx (hrootkey, env_vars[i].name,
|
|
100 0, REG_EXPAND_SZ,
|
|
101 value, lstrlen (value) + 1) != ERROR_SUCCESS)
|
|
102 ok = FALSE;
|
49600
|
103 }
|
|
104
|
13438
|
105 RegCloseKey (hrootkey);
|
49600
|
106
|
13438
|
107 return (ok);
|
|
108 }
|
|
109
|
|
110 int
|
12329
|
111 main (argc, argv)
|
|
112 int argc;
|
49600
|
113 char *argv[];
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
114 {
|
19396
|
115 DWORD idDde = 0;
|
12329
|
116 HCONV HConversation;
|
|
117 HSZ ProgMan;
|
19396
|
118 char modname[MAX_PATH];
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
119 char additem[MAX_PATH*2 + 100];
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
120 char *prog_name;
|
19396
|
121 char *emacs_path;
|
|
122 char *p;
|
31084
|
123 int quiet = 0;
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
124
|
19396
|
125 /* If no args specified, use our location to set emacs_path. */
|
|
126 #if 0
|
12329
|
127 if (argc < 2 || argc > 3)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
128 {
|
69446
|
129 fprintf (stderr, "usage: addpm [-q] [emacs_path [icon_path]]\n");
|
13438
|
130 exit (1);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
131 }
|
19396
|
132 #endif
|
12329
|
133
|
69446
|
134 if (argc > 1
|
|
135 && (argv[1][0] == '/' || argv[1][0] == '-')
|
|
136 && argv[1][1] == 'q')
|
31084
|
137 {
|
|
138 quiet = 1;
|
|
139 --argc;
|
|
140 ++argv;
|
|
141 }
|
|
142
|
19396
|
143 if (argc > 1)
|
|
144 emacs_path = argv[1];
|
|
145 else
|
|
146 {
|
|
147 if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
|
|
148 (p = strrchr (modname, '\\')) == NULL)
|
|
149 {
|
|
150 fprintf (stderr, "fatal error");
|
|
151 exit (1);
|
|
152 }
|
|
153 *p = 0;
|
|
154
|
|
155 /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */
|
|
156 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
|
|
157 {
|
|
158 *p = 0;
|
|
159 emacs_path = modname;
|
|
160 }
|
|
161 else
|
|
162 {
|
|
163 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
|
|
164 exit (1);
|
|
165 }
|
|
166
|
|
167 /* Tell user what we are going to do. */
|
31084
|
168 if (!quiet)
|
|
169 {
|
|
170 int result;
|
22796
|
171
|
31084
|
172 char msg[ MAX_PATH ];
|
|
173 sprintf (msg, "Install Emacs at %s?\n", emacs_path);
|
|
174 result = MessageBox (NULL, msg, "Install Emacs",
|
|
175 MB_OKCANCEL | MB_ICONQUESTION);
|
|
176 if (result != IDOK)
|
|
177 {
|
|
178 fprintf (stderr, "Install cancelled\n");
|
|
179 exit (1);
|
|
180 }
|
|
181 }
|
19396
|
182 }
|
|
183
|
31084
|
184 add_registry (emacs_path);
|
|
185 prog_name = "runemacs.exe";
|
13438
|
186
|
12329
|
187 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
|
|
188
|
|
189 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
|
|
190
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
191 HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
192 if (HConversation != 0)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
193 {
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
194 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
|
13438
|
195 DdeCommand ("[ReplaceItem (Emacs)]");
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
196 if (argc > 2)
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
197 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]",
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
198 emacs_path, prog_name, argv[2]);
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
199 else
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
200 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]",
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
201 emacs_path, prog_name);
|
12329
|
202 DdeCommand (additem);
|
|
203
|
|
204 DdeDisconnect (HConversation);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
205 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
206
|
12329
|
207 DdeFreeStringHandle (idDde, ProgMan);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
208
|
12329
|
209 DdeUninitialize (idDde);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
210
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
211 return (0);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
212 }
|
52401
|
213
|
|
214 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0
|
|
215 (do not change this comment) */
|