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 }
