12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
1 /* Add entries to the GNU Emacs Program Manager folder.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
2 Copyright (C) 1995 Free Software Foundation, Inc.
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
3
|
14185
|
4 This file is part of GNU Emacs.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
5
|
14185
|
6 GNU Emacs is free software; you can redistribute it and/or modify
|
|
7 it under the terms of the GNU General Public License as published by
|
|
8 the Free Software Foundation; either version 2, or (at your option)
|
|
9 any later version.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
10
|
14185
|
11 GNU Emacs is distributed in the hope that it will be useful,
|
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
14 GNU General Public License for more details.
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
15
|
14185
|
16 You should have received a copy of the GNU General Public License
|
|
17 along with GNU Emacs; see the file COPYING. If not, write to
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
19 Boston, MA 02111-1307, USA. */
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
20
|
12329
|
21 /****************************************************************************
|
|
22 *
|
|
23 * Program: addpm (adds emacs to the Windows program manager)
|
|
24 *
|
|
25 * Usage:
|
13438
|
26 * argv[1] = install path for emacs
|
12329
|
27 * argv[2] = full path to icon for emacs (optional)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
28 */
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
29
|
12329
|
30 #include <windows.h>
|
|
31 #include <ddeml.h>
|
|
32 #include <stdlib.h>
|
|
33 #include <stdio.h>
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
34
|
13438
|
35 HDDEDATA CALLBACK
|
|
36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
|
|
37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
|
|
38 DWORD dwData1, DWORD dwData2)
|
12329
|
39 {
|
13438
|
40 return ((HDDEDATA) NULL);
|
12329
|
41 }
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
42
|
12329
|
43 #define DdeCommand(str) \
|
13438
|
44 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
|
12329
|
45 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
46
|
15130
|
47 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
|
13438
|
48
|
|
49 static struct entry
|
|
50 {
|
|
51 char *name;
|
|
52 char *value;
|
|
53 }
|
|
54 env_vars[] =
|
|
55 {
|
15130
|
56 {"emacs_dir", NULL},
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
57 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/lisp"},
|
20011
|
58 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
|
15322
|
59 {"EMACSDATA", "%emacs_dir%/etc"},
|
|
60 {"EMACSPATH", "%emacs_dir%/bin"},
|
|
61 {"EMACSLOCKDIR", "%emacs_dir%/lock"},
|
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
|
|
69 BOOL
|
|
70 add_registry (path)
|
|
71 char *path;
|
|
72 {
|
|
73 HKEY hrootkey = NULL;
|
|
74 DWORD dwDisp;
|
|
75 int i;
|
|
76 BOOL ok = TRUE;
|
|
77
|
|
78 /* Check both the current user and the local machine to see if we
|
|
79 have any resources. */
|
|
80
|
|
81 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
|
|
82 0, "", REG_OPTION_NON_VOLATILE,
|
|
83 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
|
|
84 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
|
|
85 0, "", REG_OPTION_NON_VOLATILE,
|
|
86 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
|
|
87 {
|
|
88 return FALSE;
|
|
89 }
|
|
90
|
|
91 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
|
|
92 {
|
|
93 char * value = env_vars[i].value ? env_vars[i].value : path;
|
|
94
|
|
95 if (RegSetValueEx (hrootkey, env_vars[i].name,
|
|
96 0, REG_EXPAND_SZ,
|
|
97 value, lstrlen (value) + 1) != ERROR_SUCCESS)
|
|
98 ok = FALSE;
|
|
99 }
|
|
100
|
|
101 RegCloseKey (hrootkey);
|
|
102
|
|
103 return (ok);
|
|
104 }
|
|
105
|
|
106 int
|
12329
|
107 main (argc, argv)
|
|
108 int argc;
|
|
109 char *argv[];
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
110 {
|
19396
|
111 DWORD idDde = 0;
|
12329
|
112 HCONV HConversation;
|
|
113 HSZ ProgMan;
|
19396
|
114 char modname[MAX_PATH];
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
115 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
|
116 char *prog_name;
|
19396
|
117 char *emacs_path;
|
|
118 char *p;
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
119
|
19396
|
120 /* If no args specified, use our location to set emacs_path. */
|
|
121 #if 0
|
12329
|
122 if (argc < 2 || argc > 3)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
123 {
|
13438
|
124 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
|
|
125 exit (1);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
126 }
|
19396
|
127 #endif
|
12329
|
128
|
19396
|
129 if (argc > 1)
|
|
130 emacs_path = argv[1];
|
|
131 else
|
|
132 {
|
|
133 if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
|
|
134 (p = strrchr (modname, '\\')) == NULL)
|
|
135 {
|
|
136 fprintf (stderr, "fatal error");
|
|
137 exit (1);
|
|
138 }
|
|
139 *p = 0;
|
|
140
|
|
141 /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */
|
|
142 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
|
|
143 {
|
|
144 *p = 0;
|
|
145 emacs_path = modname;
|
|
146 }
|
|
147 else
|
|
148 {
|
|
149 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
|
|
150 exit (1);
|
|
151 }
|
|
152
|
|
153 /* Tell user what we are going to do. */
|
|
154 {
|
22796
|
155 int result;
|
|
156
|
19396
|
157 char msg[ MAX_PATH ];
|
|
158 sprintf (msg, "Install Emacs at %s?\n", emacs_path);
|
22796
|
159 result = MessageBox (NULL, msg, "Install Emacs", MB_OKCANCEL | MB_ICONQUESTION);
|
|
160 if (result != IDOK)
|
19396
|
161 {
|
|
162 fprintf (stderr, "Install cancelled\n");
|
|
163 exit (1);
|
|
164 }
|
|
165 }
|
|
166 }
|
|
167
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
168 prog_name = add_registry (emacs_path) ? "runemacs.exe" : "emacs.bat";
|
13438
|
169
|
12329
|
170 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
|
|
171
|
|
172 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
|
|
173
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
174 HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
175 if (HConversation != 0)
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
176 {
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
177 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
|
13438
|
178 DdeCommand ("[ReplaceItem (Emacs)]");
|
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
179 if (argc > 2)
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
180 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
|
181 emacs_path, prog_name, argv[2]);
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
182 else
|
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
diff
changeset
|
183 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
|
184 emacs_path, prog_name);
|
12329
|
185 DdeCommand (additem);
|
|
186
|
|
187 DdeDisconnect (HConversation);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
188 }
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
189
|
12329
|
190 DdeFreeStringHandle (idDde, ProgMan);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
191
|
12329
|
192 DdeUninitialize (idDde);
|
12181
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
193
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
194 return (0);
|
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff
changeset
|
195 }
|