Commit | Line | Data |
---|---|---|
cef9e134 | 1 | /* Add entries to the GNU Emacs Program Manager folder. |
62eda0e2 GM |
2 | Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
3 | 2006, 2007 Free Software Foundation, Inc. | |
cef9e134 | 4 | |
bf2b146b EN |
5 | This file is part of GNU Emacs. |
6 | ||
7 | GNU Emacs is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
4a9f99bd | 9 | the Free Software Foundation; either version 3, or (at your option) |
bf2b146b EN |
10 | any later version. |
11 | ||
12 | GNU Emacs is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with GNU Emacs; see the file COPYING. If not, write to | |
364c38d3 LK |
19 | the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 | Boston, MA 02110-1301, USA. */ | |
cef9e134 | 21 | |
cef9e134 | 22 | /**************************************************************************** |
6fbcbee7 RS |
23 | * |
24 | * Program: addpm (adds emacs to the Windows program manager) | |
25 | * | |
26 | * Usage: | |
2cc1905e | 27 | * argv[1] = install path for emacs |
6fbcbee7 RS |
28 | * argv[2] = full path to icon for emacs (optional) |
29 | */ | |
cef9e134 | 30 | |
6fbcbee7 RS |
31 | #include <windows.h> |
32 | #include <ddeml.h> | |
33 | #include <stdlib.h> | |
34 | #include <stdio.h> | |
cef9e134 | 35 | |
177c0ea7 | 36 | HDDEDATA CALLBACK |
2cc1905e GV |
37 | DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
38 | HSZ hsz1, HSZ hsz2, HDDEDATA hdata, | |
39 | DWORD dwData1, DWORD dwData2) | |
6fbcbee7 | 40 | { |
2cc1905e | 41 | return ((HDDEDATA) NULL); |
6fbcbee7 | 42 | } |
cef9e134 | 43 | |
6fbcbee7 | 44 | #define DdeCommand(str) \ |
2cc1905e | 45 | DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \ |
6fbcbee7 | 46 | CF_TEXT, XTYP_EXECUTE, 30000, NULL) |
cef9e134 | 47 | |
c6e63684 | 48 | #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
2cc1905e GV |
49 | |
50 | static struct entry | |
51 | { | |
52 | char *name; | |
53 | char *value; | |
177c0ea7 JB |
54 | } |
55 | env_vars[] = | |
2cc1905e | 56 | { |
c6e63684 | 57 | {"emacs_dir", NULL}, |
5488afcc | 58 | {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"}, |
0655d4d4 | 59 | {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"}, |
26b430b7 RS |
60 | {"EMACSDATA", "%emacs_dir%/etc"}, |
61 | {"EMACSPATH", "%emacs_dir%/bin"}, | |
9296c0e8 GV |
62 | /* We no longer set INFOPATH because Info-default-directory-list |
63 | is then ignored. */ | |
64 | /* {"INFOPATH", "%emacs_dir%/info"}, */ | |
26b430b7 | 65 | {"EMACSDOC", "%emacs_dir%/etc"}, |
2cc1905e GV |
66 | {"TERM", "cmd"} |
67 | }; | |
68 | ||
177c0ea7 | 69 | BOOL |
2cc1905e GV |
70 | add_registry (path) |
71 | char *path; | |
72 | { | |
73 | HKEY hrootkey = NULL; | |
2cc1905e GV |
74 | int i; |
75 | BOOL ok = TRUE; | |
177c0ea7 | 76 | |
ebe98f49 JR |
77 | /* Previous versions relied on registry settings, but we do not need |
78 | them any more. If registry settings are installed from a previous | |
79 | version, replace them to ensure they are the current settings. | |
80 | Otherwise, do nothing. */ | |
81 | ||
177c0ea7 | 82 | /* Check both the current user and the local machine to see if we |
2cc1905e | 83 | have any resources. */ |
177c0ea7 | 84 | |
ebe98f49 JR |
85 | if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, |
86 | REG_OPTION_NON_VOLATILE, | |
87 | KEY_WRITE, &hrootkey) != ERROR_SUCCESS | |
88 | && RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, | |
89 | REG_OPTION_NON_VOLATILE, | |
90 | KEY_WRITE, &hrootkey) != ERROR_SUCCESS) | |
2cc1905e GV |
91 | { |
92 | return FALSE; | |
93 | } | |
177c0ea7 JB |
94 | |
95 | for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++) | |
2cc1905e GV |
96 | { |
97 | char * value = env_vars[i].value ? env_vars[i].value : path; | |
177c0ea7 | 98 | |
2cc1905e GV |
99 | if (RegSetValueEx (hrootkey, env_vars[i].name, |
100 | 0, REG_EXPAND_SZ, | |
101 | value, lstrlen (value) + 1) != ERROR_SUCCESS) | |
102 | ok = FALSE; | |
177c0ea7 JB |
103 | } |
104 | ||
2cc1905e | 105 | RegCloseKey (hrootkey); |
177c0ea7 | 106 | |
2cc1905e GV |
107 | return (ok); |
108 | } | |
109 | ||
110 | int | |
6fbcbee7 RS |
111 | main (argc, argv) |
112 | int argc; | |
177c0ea7 | 113 | char *argv[]; |
cef9e134 | 114 | { |
65cd6687 | 115 | DWORD idDde = 0; |
6fbcbee7 RS |
116 | HCONV HConversation; |
117 | HSZ ProgMan; | |
65cd6687 | 118 | char modname[MAX_PATH]; |
cef9e134 | 119 | char additem[MAX_PATH*2 + 100]; |
9296c0e8 | 120 | char *prog_name; |
65cd6687 GV |
121 | char *emacs_path; |
122 | char *p; | |
5205d900 | 123 | int quiet = 0; |
cef9e134 | 124 | |
65cd6687 GV |
125 | /* If no args specified, use our location to set emacs_path. */ |
126 | #if 0 | |
6fbcbee7 | 127 | if (argc < 2 || argc > 3) |
cef9e134 | 128 | { |
f4c6fac4 | 129 | fprintf (stderr, "usage: addpm [-q] [emacs_path [icon_path]]\n"); |
2cc1905e | 130 | exit (1); |
cef9e134 | 131 | } |
65cd6687 | 132 | #endif |
cef9e134 | 133 | |
f4c6fac4 JR |
134 | if (argc > 1 |
135 | && (argv[1][0] == '/' || argv[1][0] == '-') | |
136 | && argv[1][1] == 'q') | |
5205d900 AI |
137 | { |
138 | quiet = 1; | |
139 | --argc; | |
140 | ++argv; | |
141 | } | |
142 | ||
65cd6687 GV |
143 | if (argc > 1) |
144 | emacs_path = argv[1]; | |
145 | else | |
146 | { | |
147 | if (!GetModuleFileName (NULL, modname, MAX_PATH) || | |
148 | (p = strrchr (modname, '\\')) == NULL) | |
149 | { | |
150 | fprintf (stderr, "fatal error"); | |
151 | exit (1); | |
152 | } | |
153 | *p = 0; | |
154 | ||
155 | /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */ | |
156 | if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0) | |
157 | { | |
158 | *p = 0; | |
159 | emacs_path = modname; | |
160 | } | |
161 | else | |
162 | { | |
163 | fprintf (stderr, "usage: addpm emacs_path [icon_path]\n"); | |
164 | exit (1); | |
165 | } | |
166 | ||
167 | /* Tell user what we are going to do. */ | |
5205d900 AI |
168 | if (!quiet) |
169 | { | |
170 | int result; | |
171 | ||
172 | char msg[ MAX_PATH ]; | |
173 | sprintf (msg, "Install Emacs at %s?\n", emacs_path); | |
174 | result = MessageBox (NULL, msg, "Install Emacs", | |
175 | MB_OKCANCEL | MB_ICONQUESTION); | |
176 | if (result != IDOK) | |
177 | { | |
178 | fprintf (stderr, "Install cancelled\n"); | |
179 | exit (1); | |
180 | } | |
181 | } | |
65cd6687 GV |
182 | } |
183 | ||
5205d900 AI |
184 | add_registry (emacs_path); |
185 | prog_name = "runemacs.exe"; | |
2cc1905e | 186 | |
6fbcbee7 | 187 | DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0); |
cef9e134 | 188 | |
6fbcbee7 | 189 | ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI); |
cef9e134 | 190 | |
9296c0e8 GV |
191 | HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL); |
192 | if (HConversation != 0) | |
cef9e134 | 193 | { |
9296c0e8 | 194 | DdeCommand ("[CreateGroup (\"Gnu Emacs\")]"); |
2cc1905e | 195 | DdeCommand ("[ReplaceItem (Emacs)]"); |
9296c0e8 GV |
196 | if (argc > 2) |
197 | sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]", | |
198 | emacs_path, prog_name, argv[2]); | |
199 | else | |
200 | sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]", | |
201 | emacs_path, prog_name); | |
6fbcbee7 RS |
202 | DdeCommand (additem); |
203 | ||
204 | DdeDisconnect (HConversation); | |
cef9e134 GV |
205 | } |
206 | ||
6fbcbee7 RS |
207 | DdeFreeStringHandle (idDde, ProgMan); |
208 | ||
209 | DdeUninitialize (idDde); | |
cef9e134 | 210 | |
6fbcbee7 | 211 | return (0); |
cef9e134 | 212 | } |
ab5796a9 MB |
213 | |
214 | /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0 | |
215 | (do not change this comment) */ |