annotate nt/addpm.c @ 87143:e1c8546ca1d5

Fix buggy `error' calls in progmodes/
author Deepak Goel <deego@gnufans.org>
date Thu, 06 Dec 2007 18:36:46 +0000
parents 075eb71f218d
children e27f17d9c8ed f55f9811f5d7
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.
75249
4ad431d8e164 Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 69449
diff changeset
2 Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005,
4ad431d8e164 Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 69449
diff changeset
3 2006, 2007 Free Software Foundation, Inc.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
5 This file is part of GNU Emacs.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
7 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
8 it under the terms of the GNU General Public License as published by
78246
075eb71f218d Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75249
diff changeset
9 the Free Software Foundation; either version 3, or (at your option)
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
10 any later version.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
12 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
13 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
14 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
15 GNU General Public License for more details.
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16
14185
aba3b91c8b3d Update FSF's ddress in preamble
Erik Naggum <erik@naggum.no>
parents: 13438
diff changeset
17 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
18 along with GNU Emacs; see the file COPYING. If not, write to
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
20 Boston, MA 02110-1301, USA. */
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21
12329
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 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
24 * Program: addpm (adds emacs to the Windows program manager)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
25 *
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
26 * Usage:
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
27 * argv[1] = install path for emacs
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
28 * argv[2] = full path to icon for emacs (optional)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29 */
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
30
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
31 #include <windows.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
32 #include <ddeml.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
33 #include <stdlib.h>
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
34 #include <stdio.h>
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
35
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
36 HDDEDATA CALLBACK
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
37 DdeCallback (UINT uType, UINT uFmt, HCONV hconv,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
38 HSZ hsz1, HSZ hsz2, HDDEDATA hdata,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
39 DWORD dwData1, DWORD dwData2)
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
40 {
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
41 return ((HDDEDATA) NULL);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
42 }
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
43
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
44 #define DdeCommand(str) \
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
45 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
46 CF_TEXT, XTYP_EXECUTE, 30000, NULL)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
48 #define REG_ROOT "SOFTWARE\\GNU\\Emacs"
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
49
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
50 static struct entry
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
51 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
52 char *name;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
53 char *value;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
54 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
55 env_vars[] =
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
56 {
15130
493eee829532 (REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14185
diff changeset
57 {"emacs_dir", NULL},
35424
36acbc3cb53e (env_vars): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents: 31084
diff changeset
58 {"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
59 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
15322
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
60 {"EMACSDATA", "%emacs_dir%/etc"},
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
61 {"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
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>
parents: 19396
diff changeset
63 is then ignored. */
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
64 /* {"INFOPATH", "%emacs_dir%/info"}, */
15322
eb3d8a25866a (env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents: 15188
diff changeset
65 {"EMACSDOC", "%emacs_dir%/etc"},
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
66 {"TERM", "cmd"}
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
67 };
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
68
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
69 BOOL
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
70 add_registry (path)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
71 char *path;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
72 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
73 HKEY hrootkey = NULL;
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
69449
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
77 /* Previous versions relied on registry settings, but we do not need
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
78 them any more. If registry settings are installed from a previous
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
79 version, replace them to ensure they are the current settings.
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
80 Otherwise, do nothing. */
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
81
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
82 /* 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
83 have any resources. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
84
69449
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
85 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT,
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
86 REG_OPTION_NON_VOLATILE,
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
87 KEY_WRITE, &hrootkey) != ERROR_SUCCESS
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
88 && RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT,
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
89 REG_OPTION_NON_VOLATILE,
e2359be8b645 (add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents: 69446
diff changeset
90 KEY_WRITE, &hrootkey) != ERROR_SUCCESS)
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 return FALSE;
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
93 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
94
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
95 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
96 {
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
97 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
98
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
99 if (RegSetValueEx (hrootkey, env_vars[i].name,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
100 0, REG_EXPAND_SZ,
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
101 value, lstrlen (value) + 1) != ERROR_SUCCESS)
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
102 ok = FALSE;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
103 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
104
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
105 RegCloseKey (hrootkey);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
106
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
107 return (ok);
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
108 }
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
109
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
110 int
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
111 main (argc, argv)
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
112 int argc;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 45810
diff changeset
113 char *argv[];
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
114 {
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
115 DWORD idDde = 0;
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
116 HCONV HConversation;
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
117 HSZ ProgMan;
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
118 char modname[MAX_PATH];
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
119 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
120 char *prog_name;
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
121 char *emacs_path;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
122 char *p;
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
123 int quiet = 0;
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
124
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
125 /* 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
126 #if 0
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
127 if (argc < 2 || argc > 3)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
128 {
69446
bffee52ee41d (main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents: 68648
diff changeset
129 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
130 exit (1);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
131 }
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
132 #endif
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
133
69446
bffee52ee41d (main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents: 68648
diff changeset
134 if (argc > 1
bffee52ee41d (main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents: 68648
diff changeset
135 && (argv[1][0] == '/' || argv[1][0] == '-')
bffee52ee41d (main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents: 68648
diff changeset
136 && argv[1][1] == 'q')
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
137 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
138 quiet = 1;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
139 --argc;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
140 ++argv;
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
141 }
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
142
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
143 if (argc > 1)
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
144 emacs_path = argv[1];
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
145 else
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
146 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
147 if (!GetModuleFileName (NULL, modname, MAX_PATH) ||
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
148 (p = strrchr (modname, '\\')) == NULL)
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
149 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
150 fprintf (stderr, "fatal error");
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
151 exit (1);
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
152 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
153 *p = 0;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
154
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
155 /* 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
156 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
157 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
158 *p = 0;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
159 emacs_path = modname;
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
160 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
161 else
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
162 {
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
163 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
164 exit (1);
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
165 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
166
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
167 /* 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
168 if (!quiet)
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
169 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
170 int result;
22796
903554be7bfc (main): Explicitly check result of message box for OK.
Geoff Voelker <voelker@cs.washington.edu>
parents: 20011
diff changeset
171
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
172 char msg[ MAX_PATH ];
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
173 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
174 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
175 MB_OKCANCEL | MB_ICONQUESTION);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
176 if (result != IDOK)
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
177 {
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
178 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
179 exit (1);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
180 }
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
181 }
19396
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
182 }
d0ffa428c6e3 (env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16828
diff changeset
183
31084
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
184 add_registry (emacs_path);
2f7db3489395 (main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents: 26535
diff changeset
185 prog_name = "runemacs.exe";
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
186
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
187 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
188
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
189 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
190
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
191 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
192 if (HConversation != 0)
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
193 {
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
194 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]");
13438
705eb8c3d935 (env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 12329
diff changeset
195 DdeCommand ("[ReplaceItem (Emacs)]");
19717
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
196 if (argc > 2)
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
197 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
198 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
199 else
11f3ea181591 (env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents: 19396
diff changeset
200 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
201 emacs_path, prog_name);
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
202 DdeCommand (additem);
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
203
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
204 DdeDisconnect (HConversation);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
205 }
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
206
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
207 DdeFreeStringHandle (idDde, ProgMan);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
208
12329
e97b20222345 Mostly rewritten.
Richard M. Stallman <rms@gnu.org>
parents: 12181
diff changeset
209 DdeUninitialize (idDde);
12181
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
210
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
211 return (0);
702f2ac242de Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
212 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
213
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
214 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
215 (do not change this comment) */