|
448
|
1 /*
|
|
|
2 * Copyright (c) 2000, Red Hat, Inc.
|
|
|
3 *
|
|
|
4 * This program is free software; you can redistribute it and/or modify
|
|
|
5 * it under the terms of the GNU General Public License as published by
|
|
|
6 * the Free Software Foundation; either version 2 of the License, or
|
|
|
7 * (at your option) any later version.
|
|
|
8 *
|
|
|
9 * A copy of the GNU General Public License can be found at
|
|
|
10 * http://www.gnu.org/
|
|
|
11 *
|
|
|
12 * Written by DJ Delorie <dj@cygnus.com>
|
|
|
13 *
|
|
|
14 */
|
|
|
15
|
|
|
16 /* Manipulate the registry for XEmacs. */
|
|
|
17
|
|
|
18 #include "win32.h"
|
|
|
19
|
|
|
20 #include <stdio.h>
|
|
|
21 #if defined(CYGWIN) || defined(MINGW)
|
|
|
22 #include <cygwin/version.h>
|
|
|
23 #include <sys/mount.h>
|
|
|
24 #endif
|
|
|
25
|
|
|
26 #include "reginfo.h"
|
|
|
27 #include "regedit.h"
|
|
|
28 #include "msg.h"
|
|
|
29 #include "resource.h"
|
|
|
30 #include "dialog.h"
|
|
|
31
|
|
|
32 static char *
|
|
|
33 find_cygwin_mount (HKEY rkey, int *istext)
|
|
|
34 {
|
|
|
35 char buf[1000];
|
|
|
36 char *retval = 0;
|
|
|
37 HKEY key;
|
|
|
38 DWORD retvallen = 0;
|
|
|
39 DWORD flags = 0;
|
|
|
40 DWORD type;
|
|
|
41
|
|
|
42 #if defined(CYGWIN) || defined(MINGW)
|
|
|
43 sprintf (buf, "Software\\%s\\%s\\%s\\/",
|
|
|
44 CYGWIN_INFO_CYGNUS_REGISTRY_NAME,
|
|
|
45 CYGWIN_INFO_CYGWIN_REGISTRY_NAME,
|
|
|
46 CYGWIN_INFO_CYGWIN_MOUNT_REGISTRY_NAME);
|
|
|
47
|
|
|
48 if (RegOpenKeyEx (rkey, buf, 0, KEY_READ, &key) != ERROR_SUCCESS)
|
|
|
49 return 0;
|
|
|
50
|
|
|
51 if (RegQueryValueEx (key, "native", 0, &type, 0, &retvallen)
|
|
|
52 == ERROR_SUCCESS)
|
|
|
53 {
|
|
|
54 retval = new char[retvallen+1];
|
|
|
55 if (RegQueryValueEx (key, "native", 0, &type, (BYTE *)retval, &retvallen)
|
|
|
56 != ERROR_SUCCESS)
|
|
|
57 {
|
|
|
58 delete retval;
|
|
|
59 retval = 0;
|
|
|
60 }
|
|
|
61 }
|
|
|
62
|
|
|
63 retvallen = sizeof (flags);
|
|
|
64 RegQueryValueEx (key, "flags", 0, &type, (BYTE *)&flags, &retvallen);
|
|
|
65
|
|
|
66 RegCloseKey (key);
|
|
|
67
|
|
|
68 if (retval)
|
|
|
69 *istext = (flags & MOUNT_BINARY) ? 0 : 1;
|
|
|
70 return retval;
|
|
|
71 #else
|
|
|
72 return 0;
|
|
|
73 #endif
|
|
|
74 }
|
|
|
75
|
|
|
76 static char *
|
|
|
77 find_xemacs_root (HKEY rkey, int* isnative)
|
|
|
78 {
|
|
|
79 char buf[1000];
|
|
|
80 char *retval = 0;
|
|
|
81 HKEY key;
|
|
|
82 DWORD retvallen = 0;
|
|
|
83 DWORD type;
|
|
|
84 DWORD itype;
|
|
|
85
|
|
|
86 sprintf (buf, "Software\\%s\\%s",
|
|
|
87 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
|
|
|
88 XEMACS_INFO_XEMACS_REGISTRY_NAME);
|
|
|
89
|
|
|
90 if (RegOpenKeyEx (rkey, buf, 0, KEY_READ, &key) != ERROR_SUCCESS)
|
|
|
91 return 0;
|
|
|
92
|
|
|
93 if (RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_KEY,
|
|
|
94 0, &type, 0, &retvallen) == ERROR_SUCCESS)
|
|
|
95 {
|
|
|
96 retval = new char[retvallen+1];
|
|
|
97 if (RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_KEY,
|
|
|
98 0, &type, (BYTE *)retval, &retvallen)
|
|
|
99 != ERROR_SUCCESS)
|
|
|
100 {
|
|
|
101 delete retval;
|
|
|
102 retval = 0;
|
|
|
103 }
|
|
|
104 }
|
|
|
105
|
|
|
106 retvallen = sizeof (itype);
|
|
|
107 RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_TYPE,
|
|
|
108 0, &type, (BYTE *)&itype, &retvallen);
|
|
|
109
|
|
|
110 if (itype == 1)
|
|
|
111 *isnative = 1;
|
|
|
112 else
|
|
|
113 *isnative = 0;
|
|
|
114
|
|
|
115 RegCloseKey (key);
|
|
|
116
|
|
|
117 return retval;
|
|
|
118 }
|
|
|
119
|
|
|
120 char *
|
|
|
121 find_root_location (int *issystem, int *isnative)
|
|
|
122 {
|
|
|
123 char *rv;
|
|
|
124 if ((rv = find_xemacs_root (HKEY_CURRENT_USER, isnative)))
|
|
|
125 {
|
|
|
126 *issystem = 0;
|
|
|
127 return rv;
|
|
|
128 }
|
|
|
129 else if ((rv = find_xemacs_root (HKEY_LOCAL_MACHINE, isnative)))
|
|
|
130 {
|
|
|
131 *issystem = 1;
|
|
|
132 return rv;
|
|
|
133 }
|
|
|
134 return 0;
|
|
|
135 }
|
|
|
136
|
|
|
137 char *
|
|
|
138 find_cygwin_root (int *issystem)
|
|
|
139 {
|
|
|
140 char *rv;
|
|
|
141 int istext;
|
|
|
142 if ((rv = find_cygwin_mount (HKEY_CURRENT_USER, &istext)))
|
|
|
143 {
|
|
|
144 *issystem = 0;
|
|
|
145 return rv;
|
|
|
146 }
|
|
|
147 else if ((rv = find_cygwin_mount (HKEY_LOCAL_MACHINE, &istext)))
|
|
|
148 {
|
|
|
149 *issystem = 1;
|
|
|
150 return rv;
|
|
|
151 }
|
|
|
152 return 0;
|
|
|
153 }
|
|
|
154
|
|
|
155 void
|
|
|
156 create_xemacs_root (char *path, int issystem, int isnative)
|
|
|
157 {
|
|
|
158 char buf[1000];
|
|
|
159 HKEY key;
|
|
|
160 DWORD disposition;
|
|
|
161 DWORD itype = isnative ? 1 : 0;
|
|
|
162
|
|
|
163 remove_xemacs_root ();
|
|
|
164
|
|
|
165 sprintf (buf, "Software\\%s\\%s",
|
|
|
166 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
|
|
|
167 XEMACS_INFO_XEMACS_REGISTRY_NAME);
|
|
|
168
|
|
|
169 HKEY kr = issystem ? HKEY_LOCAL_MACHINE : HKEY_CURRENT_USER;
|
|
|
170 if (RegCreateKeyEx (kr, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
171 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
172 fatal ("create_xemacs_root");
|
|
|
173
|
|
|
174 RegSetValueEx (key, XEMACS_INFO_XEMACS_ROOT_KEY,
|
|
|
175 0, REG_SZ, (BYTE *)path, strlen (path)+1);
|
|
|
176 RegSetValueEx (key, XEMACS_INFO_XEMACS_ROOT_TYPE,
|
|
|
177 0, REG_DWORD, (BYTE *)&itype, sizeof (itype));
|
|
452
|
178 // write out the package path
|
|
|
179 sprintf (buf, "~\\.xemacs;%s\\site-packages;%s\\xemacs-packages",
|
|
|
180 path, path);
|
|
|
181 RegSetValueEx (key, XEMACS_INFO_XEMACS_PACKAGE_KEY,
|
|
|
182 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
|
|
657
|
183 RegCloseKey (key);
|
|
448
|
184 }
|
|
|
185
|
|
|
186 void
|
|
|
187 set_app_path (char *exe, char* path, int issystem)
|
|
|
188 {
|
|
|
189 char buf[1000];
|
|
|
190 HKEY key;
|
|
|
191 DWORD disposition;
|
|
|
192
|
|
|
193 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\%s",
|
|
|
194 exe);
|
|
|
195
|
|
|
196 HKEY kr = issystem ? HKEY_LOCAL_MACHINE : HKEY_CURRENT_USER;
|
|
|
197 RegDeleteKey (kr, buf);
|
|
|
198
|
|
|
199 if (RegCreateKeyEx (kr, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
200 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
201 fatal ("set_app_path");
|
|
|
202
|
|
|
203 RegSetValueEx (key, "Path",
|
|
|
204 0, REG_SZ, (BYTE *)path, strlen (path)+1);
|
|
657
|
205 RegCloseKey (key);
|
|
|
206 }
|
|
|
207
|
|
|
208 void
|
|
|
209 set_install_path (char* path, int issystem)
|
|
|
210 {
|
|
|
211 char buf[1000];
|
|
|
212 HKEY key;
|
|
|
213 DWORD disposition;
|
|
|
214
|
|
|
215 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\XEmacs");
|
|
|
216
|
|
|
217 HKEY kr = issystem ? HKEY_LOCAL_MACHINE : HKEY_CURRENT_USER;
|
|
|
218 RegDeleteKey (kr, buf);
|
|
|
219
|
|
|
220 if (RegCreateKeyEx (kr, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
221 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
222 fatal ("set_install_path");
|
|
|
223
|
|
|
224 RegSetValueEx (key, "DisplayName",
|
|
|
225 0, REG_SZ, (BYTE *)"XEmacs", strlen ("XEmacs")+1);
|
|
|
226
|
|
|
227 sprintf (buf, "%s\\setup.exe -u", path);
|
|
|
228 RegSetValueEx (key, "UninstallString",
|
|
|
229 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
|
|
|
230 RegCloseKey (key);
|
|
|
231 }
|
|
|
232
|
|
|
233 void
|
|
|
234 setup_explorer (char* file_type, char* name, char *exe)
|
|
|
235 {
|
|
|
236 char buf[1000];
|
|
|
237 char ftype[32];
|
|
|
238 HKEY key;
|
|
|
239 DWORD disposition;
|
|
|
240
|
|
|
241 sprintf (buf, ".%s", file_type);
|
|
|
242 RegDeleteKey (HKEY_CLASSES_ROOT, buf);
|
|
|
243
|
|
|
244 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
245 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
246 fatal ("setup_explorer");
|
|
|
247
|
|
|
248 // set default key
|
|
|
249 sprintf (ftype, "%sfile", file_type);
|
|
|
250 RegSetValueEx (key, NULL,
|
|
|
251 0, REG_SZ, (BYTE *)ftype, strlen (ftype)+1);
|
|
|
252 RegCloseKey (key);
|
|
|
253
|
|
|
254 // create file type entry
|
|
|
255 RegDeleteKey (HKEY_CLASSES_ROOT, ftype);
|
|
|
256 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, ftype, 0, "XEmacs",
|
|
|
257 0, KEY_ALL_ACCESS,
|
|
|
258 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
259 fatal ("setup_explorer");
|
|
|
260 RegSetValueEx (key, NULL,
|
|
|
261 0, REG_SZ, (BYTE *)name, strlen (name)+1);
|
|
|
262 RegSetValueEx (key, "AlwaysShowExt",
|
|
|
263 0, REG_SZ, (BYTE *)"", strlen ("")+1);
|
|
|
264 RegCloseKey (key);
|
|
|
265
|
|
|
266 // make xemacs file the default icon
|
|
|
267 sprintf(buf, "%s\\DefaultIcon", ftype);
|
|
|
268 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
269 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
270 fatal ("setup_explorer");
|
|
|
271
|
|
|
272 sprintf(buf, "%s,1", exe);
|
|
|
273 RegSetValueEx (key, NULL,
|
|
|
274 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
|
|
|
275 RegCloseKey (key);
|
|
|
276
|
|
|
277 // command default key (exe)
|
|
|
278 sprintf(buf, "%s\\shell\\Open\\command", ftype);
|
|
|
279 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
280 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
281 fatal ("setup_explorer");
|
|
|
282
|
|
|
283 sprintf(buf, "\"%s\"", exe); // Don't need %1 because dde will open the file
|
|
|
284 RegSetValueEx (key, NULL,
|
|
|
285 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
|
|
|
286 RegCloseKey (key);
|
|
|
287
|
|
|
288 // ddeexec
|
|
|
289 sprintf(buf, "%s\\shell\\Open\\ddeexec", ftype);
|
|
|
290 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
291 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
292 fatal ("setup_explorer");
|
|
|
293
|
|
|
294 #define DDE_OPEN "Open(\"%1\")"
|
|
|
295 RegSetValueEx (key, NULL,
|
|
|
296 0, REG_SZ, (BYTE *)DDE_OPEN, strlen (DDE_OPEN)+1);
|
|
|
297 RegCloseKey (key);
|
|
|
298
|
|
|
299 // ddeexec application
|
|
|
300 sprintf(buf, "%s\\shell\\Open\\ddeexec\\application", ftype);
|
|
|
301 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
302 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
303 fatal ("setup_explorer");
|
|
|
304 RegSetValueEx (key, NULL,
|
|
|
305 0, REG_SZ, (BYTE *)"XEmacs", strlen ("XEmacs")+1);
|
|
|
306 RegCloseKey (key);
|
|
|
307
|
|
|
308 // ddeexec topic
|
|
|
309 sprintf(buf, "%s\\shell\\Open\\ddeexec\\topic", ftype);
|
|
|
310 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
|
|
|
311 0, &key, &disposition) != ERROR_SUCCESS)
|
|
|
312 fatal ("setup_explorer");
|
|
|
313 RegSetValueEx (key, NULL,
|
|
|
314 0, REG_SZ, (BYTE *)"system", strlen ("system")+1);
|
|
|
315 RegCloseKey (key);
|
|
448
|
316 }
|
|
|
317
|
|
|
318 static void
|
|
|
319 remove1 (HKEY rkey)
|
|
|
320 {
|
|
|
321 char buf[1000];
|
|
|
322
|
|
|
323 sprintf (buf, "Software\\%s\\%s",
|
|
|
324 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
|
|
|
325 XEMACS_INFO_XEMACS_REGISTRY_NAME);
|
|
666
|
326 RegDeleteKey (rkey, buf);
|
|
448
|
327
|
|
666
|
328 sprintf (buf, "Software\\%s",
|
|
|
329 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
|
|
448
|
330 RegDeleteKey (rkey, buf);
|
|
|
331 }
|
|
|
332
|
|
|
333 void
|
|
|
334 remove_xemacs_root ()
|
|
|
335 {
|
|
|
336 remove1 (HKEY_LOCAL_MACHINE);
|
|
|
337 remove1 (HKEY_CURRENT_USER);
|
|
|
338 }
|
|
|
339
|
|
657
|
340 void
|
|
666
|
341 remove_app_path (char *exe)
|
|
657
|
342 {
|
|
|
343 char buf[1000];
|
|
|
344 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\%s",
|
|
|
345 exe);
|
|
|
346
|
|
666
|
347 RegDeleteKey (HKEY_LOCAL_MACHINE, buf);
|
|
|
348 RegDeleteKey (HKEY_CURRENT_USER, buf);
|
|
657
|
349 }
|
|
|
350
|
|
|
351 void
|
|
|
352 remove_uninstall_path ()
|
|
|
353 {
|
|
|
354 char buf[1000];
|
|
|
355 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\XEmacs");
|
|
|
356
|
|
|
357 RegDeleteKey (HKEY_LOCAL_MACHINE, buf);
|
|
|
358 RegDeleteKey (HKEY_CURRENT_USER, buf);
|
|
|
359 }
|
