Reformatted.
[chise/xemacs-chise.git] / netinstall / regedit.cc
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));
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);
183   RegCloseKey (key);
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);
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);
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);
326   RegDeleteKey (rkey, buf);
327
328   sprintf (buf, "Software\\%s",
329            XEMACS_INFO_XEMACS_ORG_REGISTRY_NAME);
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
340 void
341 remove_app_path (char *exe)
342 {
343   char buf[1000];
344   sprintf (buf, "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\%s",
345            exe);
346
347   RegDeleteKey (HKEY_LOCAL_MACHINE, buf);
348   RegDeleteKey (HKEY_CURRENT_USER, buf);
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 }