2 * Copyright (c) 2000, Red Hat, Inc.
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.
9 * A copy of the GNU General Public License can be found at
12 * Written by DJ Delorie <dj@cygnus.com>
16 /* Manipulate the registry for XEmacs. */
21 #if defined(CYGWIN) || defined(MINGW)
22 #include <cygwin/version.h>
23 #include <sys/mount.h>
33 find_cygwin_mount (HKEY rkey, int *istext)
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);
48 if (RegOpenKeyEx (rkey, buf, 0, KEY_READ, &key) != ERROR_SUCCESS)
51 if (RegQueryValueEx (key, "native", 0, &type, 0, &retvallen)
54 retval = new char[retvallen+1];
55 if (RegQueryValueEx (key, "native", 0, &type, (BYTE *)retval, &retvallen)
63 retvallen = sizeof (flags);
64 RegQueryValueEx (key, "flags", 0, &type, (BYTE *)&flags, &retvallen);
69 *istext = (flags & MOUNT_BINARY) ? 0 : 1;
77 find_xemacs_root (HKEY rkey, int* isnative)
86 sprintf (buf, "Software\\%s\\%s",
87 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
88 XEMACS_INFO_XEMACS_REGISTRY_NAME);
90 if (RegOpenKeyEx (rkey, buf, 0, KEY_READ, &key) != ERROR_SUCCESS)
93 if (RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_KEY,
94 0, &type, 0, &retvallen) == ERROR_SUCCESS)
96 retval = new char[retvallen+1];
97 if (RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_KEY,
98 0, &type, (BYTE *)retval, &retvallen)
106 retvallen = sizeof (itype);
107 RegQueryValueEx (key, XEMACS_INFO_XEMACS_ROOT_TYPE,
108 0, &type, (BYTE *)&itype, &retvallen);
121 find_root_location (int *issystem, int *isnative)
124 if ((rv = find_xemacs_root (HKEY_CURRENT_USER, isnative)))
129 else if ((rv = find_xemacs_root (HKEY_LOCAL_MACHINE, isnative)))
138 find_cygwin_root (int *issystem)
142 if ((rv = find_cygwin_mount (HKEY_CURRENT_USER, &istext)))
147 else if ((rv = find_cygwin_mount (HKEY_LOCAL_MACHINE, &istext)))
156 create_xemacs_root (char *path, int issystem, int isnative)
161 DWORD itype = isnative ? 1 : 0;
163 remove_xemacs_root ();
165 sprintf (buf, "Software\\%s\\%s",
166 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
167 XEMACS_INFO_XEMACS_REGISTRY_NAME);
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");
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));
178 // write out the package path
179 sprintf (buf, "~\\.xemacs;%s\\site-packages;%s\\xemacs-packages",
181 RegSetValueEx (key, XEMACS_INFO_XEMACS_PACKAGE_KEY,
182 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
187 set_app_path (char *exe, char* path, int issystem)
193 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\%s",
196 HKEY kr = issystem ? HKEY_LOCAL_MACHINE : HKEY_CURRENT_USER;
197 RegDeleteKey (kr, buf);
199 if (RegCreateKeyEx (kr, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
200 0, &key, &disposition) != ERROR_SUCCESS)
201 fatal ("set_app_path");
203 RegSetValueEx (key, "Path",
204 0, REG_SZ, (BYTE *)path, strlen (path)+1);
209 set_install_path (char* path, int issystem)
215 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\XEmacs");
217 HKEY kr = issystem ? HKEY_LOCAL_MACHINE : HKEY_CURRENT_USER;
218 RegDeleteKey (kr, buf);
220 if (RegCreateKeyEx (kr, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
221 0, &key, &disposition) != ERROR_SUCCESS)
222 fatal ("set_install_path");
224 RegSetValueEx (key, "DisplayName",
225 0, REG_SZ, (BYTE *)"XEmacs", strlen ("XEmacs")+1);
227 sprintf (buf, "%s\\setup.exe -u", path);
228 RegSetValueEx (key, "UninstallString",
229 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
234 setup_explorer (char* file_type, char* name, char *exe)
241 sprintf (buf, ".%s", file_type);
242 RegDeleteKey (HKEY_CLASSES_ROOT, buf);
244 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, buf, 0, "XEmacs", 0, KEY_ALL_ACCESS,
245 0, &key, &disposition) != ERROR_SUCCESS)
246 fatal ("setup_explorer");
249 sprintf (ftype, "%sfile", file_type);
250 RegSetValueEx (key, NULL,
251 0, REG_SZ, (BYTE *)ftype, strlen (ftype)+1);
254 // create file type entry
255 RegDeleteKey (HKEY_CLASSES_ROOT, ftype);
256 if (RegCreateKeyEx (HKEY_CLASSES_ROOT, ftype, 0, "XEmacs",
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);
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");
272 sprintf(buf, "%s,1", exe);
273 RegSetValueEx (key, NULL,
274 0, REG_SZ, (BYTE *)buf, strlen (buf)+1);
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");
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);
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");
294 #define DDE_OPEN "Open(\"%1\")"
295 RegSetValueEx (key, NULL,
296 0, REG_SZ, (BYTE *)DDE_OPEN, strlen (DDE_OPEN)+1);
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);
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);
323 sprintf (buf, "Software\\%s\\%s",
324 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME,
325 XEMACS_INFO_XEMACS_REGISTRY_NAME);
326 RegDeleteKey (rkey, buf);
328 sprintf (buf, "Software\\%s",
329 XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
330 RegDeleteKey (rkey, buf);
334 remove_xemacs_root ()
336 remove1 (HKEY_LOCAL_MACHINE);
337 remove1 (HKEY_CURRENT_USER);
341 remove_app_path (char *exe)
344 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\%s",
347 RegDeleteKey (HKEY_LOCAL_MACHINE, buf);
348 RegDeleteKey (HKEY_CURRENT_USER, buf);
352 remove_uninstall_path ()
355 sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\XEmacs");
357 RegDeleteKey (HKEY_LOCAL_MACHINE, buf);
358 RegDeleteKey (HKEY_CURRENT_USER, buf);