annotate nt/addpm.c @ 59251:84ede35ffeb4

(sh-require-final-newline): Alist value now controls whether to use mode-require-final-newline. (sh-set-shell): Implement that new meaning.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Dec 2004 14:57:21 +0000
parents 695cf19ef79e
children 23a17af379b1 375f2633d815
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1 /* Add entries to the GNU Emacs Program Manager folder.
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2 Copyright (C) 1995 Free Software Foundation, Inc.
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
4 This file is part of GNU Emacs.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
7 it under the terms of the GNU General Public License as published by
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
9 any later version.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
14 GNU General Public License for more details.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
16 You should have received a copy of the GNU General Public License
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
19 Boston, MA 02111-1307, USA. */
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
20
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
21 /****************************************************************************
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
22 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
23 * Program: addpm (adds emacs to the Windows program manager)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
24 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
25 * Usage:
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
26 * argv[1] = install path for emacs
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
27 * argv[2] = full path to icon for emacs (optional)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
28 */
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
30 #include <windows.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
31 #include <ddeml.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
32 #include <stdlib.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
33 #include <stdio.h>
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
35 HDDEDATA CALLBACK
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
36 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
37 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
38 DWORD dwData1, DWORD dwData2)
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
39 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
40 return ((HDDEDATA) NULL);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
41 }
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
43 #define DdeCommand(str) \
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
44 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
45 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
47 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
48
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
49 static struct entry
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
50 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
51 char *name;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
52 char *value;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
53 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
54 env_vars[] =
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
55 {
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
56 {"emacs_dir", NULL},
35424
36acbc3cb53e (env_vars): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 31084
diff changeset
57 {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
20011
f9429fb3dd05 addpm.c (env_vars): Fix misplaced % in SHELL entry.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19717
diff changeset
58 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
15322
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
59 {"EMACSDATA", "%emacs_dir%/etc"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
60 {"EMACSPATH", "%emacs_dir%/bin"},
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
61 /* 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>
parents: 19396
diff changeset
62 is then ignored. */
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
63 /* {"INFOPATH", "%emacs_dir%/info"}, */
15322
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
64 {"EMACSDOC", "%emacs_dir%/etc"},
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
65 {"TERM", "cmd"}
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
66 };
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
67
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
68 BOOL
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
69 add_registry (path)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
70 char *path;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
71 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
72 HKEY hrootkey = NULL;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
73 DWORD dwDisp;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
74 int i;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
75 BOOL ok = TRUE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
76
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
77 /* Check both the current user and the local machine to see if we
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
78 have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
79
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
80 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
81 0, "", REG_OPTION_NON_VOLATILE,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
82 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
83 && RegCreateKeyEx (HKEY_CURRENT_USER, REG_ROOT,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
84 0, "", REG_OPTION_NON_VOLATILE,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
85 KEY_WRITE, NULL, &hrootkey, &dwDisp) != ERROR_SUCCESS)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
86 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
87 return FALSE;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
88 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
89
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
90 for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
91 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
92 char * value = env_vars[i].value ? env_vars[i].value : path;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
93
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
94 if (RegSetValueEx (hrootkey, env_vars[i].name,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
95 0, REG_EXPAND_SZ,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
96 value, lstrlen (value) + 1) != ERROR_SUCCESS)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
97 ok = FALSE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
98 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
99
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
100 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
101
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
102 return (ok);
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
103 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
104
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
105 int
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
106 main (argc, argv)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
107 int argc;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
108 char *argv[];
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
109 {
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
110 DWORD idDde = 0;
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
111 HCONV HConversation;
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
112 HSZ ProgMan;
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
113 char modname[MAX_PATH];
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
114 char additem[MAX_PATH*2 + 100];
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
115 char *prog_name;
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
116 char *emacs_path;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
117 char *p;
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
118 int quiet = 0;
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
119
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
120 /* If no args specified, use our location to set emacs_path. */
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
121 #if 0
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
122 if (argc < 2 || argc > 3)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
123 {
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
124 fprintf (stderr, "usage: addpm [/q] [emacs_path [icon_path]]\n");
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
125 exit (1);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
126 }
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
127 #endif
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
128
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
129 if (argc > 1 && argv[1][0] == '/' && argv[1][1] == 'q')
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
130 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
131 quiet = 1;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
132 --argc;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
133 ++argv;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
134 }
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
135
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
136 if (argc > 1)
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
137 emacs_path = argv[1];
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
138 else
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
139 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
140 if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
141 (p = strrchr (modname, '\\')) == NULL)
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
142 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
143 fprintf (stderr, "fatal error");
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
144 exit (1);
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
145 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
146 *p = 0;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
147
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
148 /* Set emacs_path to emacs_dir if we are in "%emacs_dir%\bin". */
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
149 if ((p = strrchr (modname, '\\')) && stricmp (p, "\\bin") == 0)
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
150 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
151 *p = 0;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
152 emacs_path = modname;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
153 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
154 else
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
155 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
156 fprintf (stderr, "usage: addpm emacs_path [icon_path]\n");
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
157 exit (1);
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
158 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
159
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
160 /* Tell user what we are going to do. */
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
161 if (!quiet)
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
162 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
163 int result;
22796
903554be7bfc (main): Explicitly check result of message box for OK.
Geoff Voelker <voelker@cs.washington.edu>
parents: 20011
diff changeset
164
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
165 char msg[ MAX_PATH ];
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
166 sprintf (msg, "Install Emacs at %s?\n", emacs_path);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
167 result = MessageBox (NULL, msg, "Install Emacs",
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
168 MB_OKCANCEL | MB_ICONQUESTION);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
169 if (result != IDOK)
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
170 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
171 fprintf (stderr, "Install cancelled\n");
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
172 exit (1);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
173 }
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
174 }
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
175 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
176
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
177 add_registry (emacs_path);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
178 prog_name = "runemacs.exe";
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
179
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
180 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
181
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
182 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
183
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
184 HConversation = DdeConnect (idDde, ProgMan, ProgMan, NULL);
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
185 if (HConversation != 0)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
186 {
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
187 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
188 DdeCommand ("[ReplaceItem (Emacs)]");
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
189 if (argc > 2)
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
190 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs, \"%s\")]",
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
191 emacs_path, prog_name, argv[2]);
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
192 else
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
193 sprintf (additem, "[AddItem (\"%s\\bin\\%s\", Emacs)]",
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
194 emacs_path, prog_name);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
195 DdeCommand (additem);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
196
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
197 DdeDisconnect (HConversation);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
198 }
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
199
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
200 DdeFreeStringHandle (idDde, ProgMan);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
201
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
202 DdeUninitialize (idDde);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
203
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
204 return (0);
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
205 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
206
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
207 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
208 (do not change this comment) */