Mercurial > emacs
annotate nt/addpm.c @ 80452:6d01fa145e93
[!HAVE_CARBON]: Include Quickdraw.h instead of QuickDraw.h.
(XtPointer): Move typedef from macmenu.c.
(enum button_type): Move enum from macmenu.c.
(widget_value): Move typedef from macmenu.c.
(M_APPLE, I_ABOUT, EXTRA_STACK_ALLOC, ARGV_STRING_LIST_ID)
(DIALOG_LEFT_MARGIN, DIALOG_TOP_MARGIN, DIALOG_RIGHT_MARGIN)
(DIALOG_BOTTOM_MARGIN, DIALOG_MIN_INNER_WIDTH, DIALOG_MAX_INNER_WIDTH)
(DIALOG_BUTTON_BUTTON_HORIZONTAL_SPACE)
(DIALOG_BUTTON_BUTTON_VERTICAL_SPACE, DIALOG_BUTTON_MIN_WIDTH)
(DIALOG_TEXT_MIN_HEIGHT, DIALOG_TEXT_BUTTONS_VERTICAL_SPACE)
(DIALOG_ICON_WIDTH, DIALOG_ICON_HEIGHT, DIALOG_ICON_LEFT_MARGIN)
(DIALOG_ICON_TOP_MARGIN): Move defines from macmenu.c.
(Selection): Move typedef from macselect.c.
(RAM_TOO_LARGE_ALERT_ID, ABOUT_ALERT_ID) [MAC_OS8]: Move defines from
macterm.c.
(mac_set_window_title, mac_set_window_modified, mac_is_window_visible)
(mac_is_window_collapsed, mac_bring_window_to_front)
(mac_send_window_behind, mac_hide_window, mac_show_window)
(mac_collapse_window, mac_front_non_floating_window)
(mac_active_non_floating_window, mac_activate_window)
(mac_move_window_structure, mac_move_window, mac_size_window)
(mac_get_global_mouse, mac_is_window_toolbar_visible): New defines.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Sun, 06 Apr 2008 01:58:05 +0000 |
parents | f29e1d94dc81 |
children |
rev | line source |
---|---|
12181 | 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, |
79730 | 3 2006, 2007, 2008 Free Software Foundation, Inc. |
12181 | 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 | 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 | 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 | 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 | 19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
20 Boston, MA 02110-1301, USA. */ | |
12181 | 21 |
12329 | 22 /**************************************************************************** |
23 * | |
24 * Program: addpm (adds emacs to the Windows program manager) | |
25 * | |
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 | 28 * argv[2] = full path to icon for emacs (optional) |
12181 | 29 */ |
30 | |
12329 | 31 #include <windows.h> |
32 #include <ddeml.h> | |
33 #include <stdlib.h> | |
34 #include <stdio.h> | |
80358 | 35 #include <malloc.h> |
12181 | 36 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
37 HDDEDATA CALLBACK |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
38 DdeCallback (UINT uType, UINT uFmt, HCONV hconv, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
39 HSZ hsz1, HSZ hsz2, HDDEDATA hdata, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
40 DWORD dwData1, DWORD dwData2) |
12329 | 41 { |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
42 return ((HDDEDATA) NULL); |
12329 | 43 } |
12181 | 44 |
12329 | 45 #define DdeCommand(str) \ |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
46 DdeClientTransaction (str, strlen (str)+1, HConversation, (HSZ)NULL, \ |
12329 | 47 CF_TEXT, XTYP_EXECUTE, 30000, NULL) |
12181 | 48 |
15130
493eee829532
(REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14185
diff
changeset
|
49 #define REG_ROOT "SOFTWARE\\GNU\\Emacs" |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
50 #define REG_GTK "SOFTWARE\\GTK\\2.0" |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
51 #define REG_APP_PATH \ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
52 "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\emacs.exe" |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
53 |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
54 static struct entry |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
55 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
56 char *name; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
57 char *value; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
58 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
59 env_vars[] = |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
60 { |
15130
493eee829532
(REG_ROOT): Don't use a trailing backslash.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14185
diff
changeset
|
61 {"emacs_dir", NULL}, |
35424
36acbc3cb53e
(env_vars): Add a version-independent site-lisp
Andrew Innes <andrewi@gnu.org>
parents:
31084
diff
changeset
|
62 {"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
|
63 {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"}, |
15322
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
64 {"EMACSDATA", "%emacs_dir%/etc"}, |
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
65 {"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
|
66 /* 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
|
67 is then ignored. */ |
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
68 /* {"INFOPATH", "%emacs_dir%/info"}, */ |
15322
eb3d8a25866a
(env_vars): Use slashes, not backslashes.
Richard M. Stallman <rms@gnu.org>
parents:
15188
diff
changeset
|
69 {"EMACSDOC", "%emacs_dir%/etc"}, |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
70 {"TERM", "cmd"} |
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 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
73 BOOL |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
74 add_registry (path) |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
75 char *path; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
76 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
77 HKEY hrootkey = NULL; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
78 int i; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
79 BOOL ok = TRUE; |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
80 DWORD size; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
81 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
82 /* Record the location of Emacs to the App Paths key if we have |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
83 sufficient permissions to do so. This helps Windows find emacs quickly |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
84 if the user types emacs.exe in the "Run Program" dialog without having |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
85 emacs on their path. Some applications also use the same registry key |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
86 to discover the installation directory for programs they are looking for. |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
87 Multiple installations cannot be handled by this method, but it does not |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
88 affect the general operation of other installations of Emacs, and we |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
89 are blindly overwriting the Start Menu entries already. |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
90 */ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
91 if (RegCreateKeyEx (HKEY_LOCAL_MACHINE, REG_APP_PATH, 0, "", |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
92 REG_OPTION_NON_VOLATILE, KEY_WRITE, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
93 &hrootkey, NULL) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
94 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
95 int len; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
96 char *emacs_path; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
97 HKEY gtk_key = NULL; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
98 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
99 len = strlen (path) + 15; /* \bin\emacs.exe + terminator. */ |
80359
f29e1d94dc81
(add_registry): Cast return value of alloca.
Jason Rumney <jasonr@gnu.org>
parents:
80358
diff
changeset
|
100 emacs_path = (char *) alloca (len); |
80106
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
101 sprintf (emacs_path, "%s\\bin\\emacs.exe", path); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
102 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
103 RegSetValueEx (hrootkey, NULL, 0, REG_SZ, emacs_path, len); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
104 |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
105 /* Look for a GTK installation. If found, add it to the library search |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
106 path for Emacs so that the image libraries it provides are available |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
107 to Emacs regardless of whether it is in the path or not. */ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
108 if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_GTK, REG_OPTION_NON_VOLATILE, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
109 KEY_READ, >k_key) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
110 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
111 if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
112 NULL, &size) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
113 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
114 char *gtk_path = (char *) alloca (size); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
115 if (RegQueryValueEx (gtk_key, "DllPath", NULL, NULL, |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
116 gtk_path, &size) == ERROR_SUCCESS) |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
117 { |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
118 /* Make sure the emacs bin directory continues to be searched |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
119 first by including it as well. */ |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
120 char *dll_paths; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
121 len = strlen (path) + 5 + size; |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
122 dll_paths = (char *) alloca (size + strlen (path) + 1); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
123 sprintf (dll_paths, "%s\\bin;%s", path, gtk_path); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
124 RegSetValueEx (hrootkey, "Path", 0, REG_SZ, dll_paths, len); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
125 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
126 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
127 RegCloseKey (gtk_key); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
128 } |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
129 RegCloseKey (hrootkey); |
7bb8839f9001
(add_registry): Add an App Paths registry key.
Jason Rumney <jasonr@gnu.org>
parents:
79730
diff
changeset
|
130 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
131 |
69449
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
132 /* 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
|
133 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
|
134 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
|
135 Otherwise, do nothing. */ |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
136 |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
137 /* 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
|
138 have any resources. */ |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
139 |
69449
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
140 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
|
141 REG_OPTION_NON_VOLATILE, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
142 KEY_WRITE, &hrootkey) != ERROR_SUCCESS |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
143 && 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
|
144 REG_OPTION_NON_VOLATILE, |
e2359be8b645
(add_registry): Don't change the registry unless keys
Jason Rumney <jasonr@gnu.org>
parents:
69446
diff
changeset
|
145 KEY_WRITE, &hrootkey) != ERROR_SUCCESS) |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
146 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
147 return FALSE; |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
148 } |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
149 |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
150 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
|
151 { |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
152 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
|
153 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
154 if (RegSetValueEx (hrootkey, env_vars[i].name, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
155 0, REG_EXPAND_SZ, |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
156 value, lstrlen (value) + 1) != ERROR_SUCCESS) |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
157 ok = FALSE; |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
158 } |
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
159 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
160 RegCloseKey (hrootkey); |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
161 |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
162 return (ok); |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
163 } |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
164 |
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
165 int |
12329 | 166 main (argc, argv) |
167 int argc; | |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
45810
diff
changeset
|
168 char *argv[]; |
12181 | 169 { |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
170 DWORD idDde = 0; |
12329 | 171 HCONV HConversation; |
172 HSZ ProgMan; | |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
173 char modname[MAX_PATH]; |
12181 | 174 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
|
175 char *prog_name; |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
176 char *emacs_path; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
177 char *p; |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
178 int quiet = 0; |
12181 | 179 |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
180 /* 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
|
181 #if 0 |
12329 | 182 if (argc < 2 || argc > 3) |
12181 | 183 { |
69446
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
184 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
|
185 exit (1); |
12181 | 186 } |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
187 #endif |
12329 | 188 |
69446
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
189 if (argc > 1 |
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
190 && (argv[1][0] == '/' || argv[1][0] == '-') |
bffee52ee41d
(main): Accept -q as alternative for /q.
Jason Rumney <jasonr@gnu.org>
parents:
68648
diff
changeset
|
191 && 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
|
192 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
193 quiet = 1; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
194 --argc; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
195 ++argv; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
196 } |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
197 |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
198 if (argc > 1) |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
199 emacs_path = argv[1]; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
200 else |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
201 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
202 if (!GetModuleFileName (NULL, modname, MAX_PATH) || |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
203 (p = strrchr (modname, '\\')) == NULL) |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
204 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
205 fprintf (stderr, "fatal error"); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
206 exit (1); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
207 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
208 *p = 0; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
209 |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
210 /* 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
|
211 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
|
212 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
213 *p = 0; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
214 emacs_path = modname; |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
215 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
216 else |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
217 { |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
218 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
|
219 exit (1); |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
220 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
221 |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
222 /* 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
|
223 if (!quiet) |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
224 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
225 int result; |
22796
903554be7bfc
(main): Explicitly check result of message box for OK.
Geoff Voelker <voelker@cs.washington.edu>
parents:
20011
diff
changeset
|
226 |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
227 char msg[ MAX_PATH ]; |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
228 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
|
229 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
|
230 MB_OKCANCEL | MB_ICONQUESTION); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
231 if (result != IDOK) |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
232 { |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
233 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
|
234 exit (1); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
235 } |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
236 } |
19396
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
237 } |
d0ffa428c6e3
(env_vars): Set SHELL to cmdproxy.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16828
diff
changeset
|
238 |
31084
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
239 add_registry (emacs_path); |
2f7db3489395
(main): Accept /q to mean install based on addpm's
Andrew Innes <andrewi@gnu.org>
parents:
26535
diff
changeset
|
240 prog_name = "runemacs.exe"; |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
241 |
12329 | 242 DdeInitialize (&idDde, (PFNCALLBACK)DdeCallback, APPCMD_CLIENTONLY, 0); |
243 | |
244 ProgMan = DdeCreateStringHandle (idDde, "PROGMAN", CP_WINANSI); | |
245 | |
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
246 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
|
247 if (HConversation != 0) |
12181 | 248 { |
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
249 DdeCommand ("[CreateGroup (\"Gnu Emacs\")]"); |
13438
705eb8c3d935
(env_vars): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
12329
diff
changeset
|
250 DdeCommand ("[ReplaceItem (Emacs)]"); |
19717
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
251 if (argc > 2) |
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
252 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
|
253 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
|
254 else |
11f3ea181591
(env_vars): Put site-lisp before lisp in EMACSLOADPATH.
Geoff Voelker <voelker@cs.washington.edu>
parents:
19396
diff
changeset
|
255 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
|
256 emacs_path, prog_name); |
12329 | 257 DdeCommand (additem); |
258 | |
259 DdeDisconnect (HConversation); | |
12181 | 260 } |
261 | |
12329 | 262 DdeFreeStringHandle (idDde, ProgMan); |
12181 | 263 |
12329 | 264 DdeUninitialize (idDde); |
12181 | 265 |
266 return (0); | |
267 } | |
52401 | 268 |
269 /* arch-tag: f923609d-b781-4ef4-abce-ca0da29cbbf0 | |
270 (do not change this comment) */ |