Mercurial > vim
annotate src/uninstall.c @ 22139:c7fb7361df33 v8.2.1619
patch 8.2.1619: Vim9: cannot pass "true" to spellsuggest()
Commit: https://github.com/vim/vim/commit/7c27f337bf278babc1ccdcb66ac975f115d660b7
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Sep 5 22:45:55 2020 +0200
patch 8.2.1619: Vim9: cannot pass "true" to spellsuggest()
Problem: Vim9: cannot pass "true" to spellsuggest().
Solution: Use tv_get_bool_chk(). (closes https://github.com/vim/vim/issues/6883)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sat, 05 Sep 2020 23:00:03 +0200 |
| parents | 9800e126eaa2 |
| children | 50555279168b |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
8212
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * | |
| 5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 6 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 7 * See README.txt for an overview of the Vim source code. | |
| 8 */ | |
| 9 | |
| 10 /* | |
|
18174
1ec6539cef68
patch 8.1.2082: some files have a weird name to fit in 8.3 characters
Bram Moolenaar <Bram@vim.org>
parents:
15941
diff
changeset
|
11 * uninstall.c: Minimalistic uninstall program for Vim on MS-Windows |
| 7 | 12 * Removes: |
| 13 * - the "Edit with Vim" popup menu entry | |
| 14 * - the Vim "Open With..." popup menu entry | |
| 15 * - any Vim Batch files in the path | |
| 16 * - icons for Vim on the Desktop | |
| 17 * - the Vim entry in the Start Menu | |
| 18 */ | |
| 19 | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
20 // Include common code for dosinst.c and uninstall.c. |
| 7 | 21 #include "dosinst.h" |
| 22 | |
| 23 /* | |
| 24 * Return TRUE if the user types a 'y' or 'Y', FALSE otherwise. | |
| 25 */ | |
| 26 static int | |
| 27 confirm(void) | |
| 28 { | |
| 29 char answer[10]; | |
| 30 | |
| 31 fflush(stdout); | |
| 32 return (scanf(" %c", answer) == 1 && toupper(answer[0]) == 'Y'); | |
| 33 } | |
| 34 | |
|
2475
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
35 static int |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
36 reg_delete_key(HKEY hRootKey, const char *key, DWORD flag) |
|
2475
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
37 { |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
38 static int did_load = FALSE; |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
39 static HANDLE advapi_lib = NULL; |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
40 static LONG (WINAPI *delete_key_ex)(HKEY, LPCTSTR, REGSAM, DWORD) = NULL; |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
41 |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
42 if (!did_load) |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
43 { |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
44 // The RegDeleteKeyEx() function is only available on new systems. It |
|
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
45 // is required for 64-bit registry access. For other systems fall |
|
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
46 // back to RegDeleteKey(). |
|
2475
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
47 did_load = TRUE; |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
48 advapi_lib = LoadLibrary("ADVAPI32.DLL"); |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
49 if (advapi_lib != NULL) |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
50 delete_key_ex = (LONG (WINAPI *)(HKEY, LPCTSTR, REGSAM, DWORD))GetProcAddress(advapi_lib, "RegDeleteKeyExA"); |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
51 } |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
52 if (delete_key_ex != NULL) { |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
53 return (*delete_key_ex)(hRootKey, key, flag, 0); |
|
2475
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
54 } |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
55 return RegDeleteKey(hRootKey, key); |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
56 } |
|
7d1044b27eb5
Windows uninstaller: Instead of calling RegDeleteKeyEx() directly load it
Bram Moolenaar <bram@vim.org>
parents:
2466
diff
changeset
|
57 |
| 7 | 58 /* |
| 59 * Check if the popup menu entry exists and what gvim it refers to. | |
| 60 * Returns non-zero when it's found. | |
| 61 */ | |
| 62 static int | |
|
15941
b9098585d945
patch 8.1.0976: dosinstall still has buffer overflow problems
Bram Moolenaar <Bram@vim.org>
parents:
15892
diff
changeset
|
63 popup_gvim_path(char *buf, DWORD bufsize) |
| 7 | 64 { |
| 65 HKEY key_handle; | |
| 66 DWORD value_type; | |
| 67 int r; | |
| 68 | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
69 // Open the key where the path to gvim.exe is stored. |
|
2449
943280505f72
Fix that uninstaller isn't found on 64-bit Windows.
Bram Moolenaar <bram@vim.org>
parents:
2287
diff
changeset
|
70 if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Vim\\Gvim", 0, |
|
943280505f72
Fix that uninstaller isn't found on 64-bit Windows.
Bram Moolenaar <bram@vim.org>
parents:
2287
diff
changeset
|
71 KEY_WOW64_64KEY | KEY_READ, &key_handle) != ERROR_SUCCESS) |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
72 if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Vim\\Gvim", 0, |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
73 KEY_WOW64_32KEY | KEY_READ, &key_handle) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
74 return 0; |
| 7 | 75 |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
76 // get the DisplayName out of it to show the user |
| 7 | 77 r = RegQueryValueEx(key_handle, "path", 0, |
| 78 &value_type, (LPBYTE)buf, &bufsize); | |
| 79 RegCloseKey(key_handle); | |
| 80 | |
| 81 return (r == ERROR_SUCCESS); | |
| 82 } | |
| 83 | |
| 84 /* | |
| 85 * Check if the "Open With..." menu entry exists and what gvim it refers to. | |
| 86 * Returns non-zero when it's found. | |
| 87 */ | |
| 88 static int | |
|
15941
b9098585d945
patch 8.1.0976: dosinstall still has buffer overflow problems
Bram Moolenaar <Bram@vim.org>
parents:
15892
diff
changeset
|
89 openwith_gvim_path(char *buf, DWORD bufsize) |
| 7 | 90 { |
| 91 HKEY key_handle; | |
| 92 DWORD value_type; | |
| 93 int r; | |
| 94 | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
95 // Open the key where the path to gvim.exe is stored. |
| 7 | 96 if (RegOpenKeyEx(HKEY_CLASSES_ROOT, |
|
2449
943280505f72
Fix that uninstaller isn't found on 64-bit Windows.
Bram Moolenaar <bram@vim.org>
parents:
2287
diff
changeset
|
97 "Applications\\gvim.exe\\shell\\edit\\command", 0, |
|
943280505f72
Fix that uninstaller isn't found on 64-bit Windows.
Bram Moolenaar <bram@vim.org>
parents:
2287
diff
changeset
|
98 KEY_WOW64_64KEY | KEY_READ, &key_handle) != ERROR_SUCCESS) |
| 7 | 99 return 0; |
| 100 | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
101 // get the DisplayName out of it to show the user |
| 7 | 102 r = RegQueryValueEx(key_handle, "", 0, &value_type, (LPBYTE)buf, &bufsize); |
| 103 RegCloseKey(key_handle); | |
| 104 | |
| 105 return (r == ERROR_SUCCESS); | |
| 106 } | |
| 107 | |
| 108 static void | |
| 109 remove_popup(void) | |
| 110 { | |
| 111 int fail = 0; | |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
112 int i; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
113 int loop = is_64bit_os() ? 2 : 1; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
114 int maxfail = loop * 6; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
115 DWORD flag; |
| 7 | 116 HKEY kh; |
| 117 | |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
118 for (i = 0; i < loop; i++) |
| 7 | 119 { |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
120 if (i == 0) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
121 flag = KEY_WOW64_32KEY; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
122 else |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
123 flag = KEY_WOW64_64KEY; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
124 |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
125 if (reg_delete_key(HKEY_CLASSES_ROOT, "CLSID\\{51EEE242-AD87-11d3-9C1E-0090278BBD99}\\InProcServer32", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
126 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
127 if (reg_delete_key(HKEY_CLASSES_ROOT, "CLSID\\{51EEE242-AD87-11d3-9C1E-0090278BBD99}", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
128 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
129 if (reg_delete_key(HKEY_CLASSES_ROOT, "*\\shellex\\ContextMenuHandlers\\gvim", flag) != ERROR_SUCCESS) |
| 7 | 130 ++fail; |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
131 if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Shell Extensions\\Approved", 0, |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
132 flag | KEY_ALL_ACCESS, &kh) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
133 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
134 else |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
135 { |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
136 if (RegDeleteValue(kh, "{51EEE242-AD87-11d3-9C1E-0090278BBD99}") != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
137 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
138 RegCloseKey(kh); |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
139 } |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
140 if (reg_delete_key(HKEY_LOCAL_MACHINE, "Software\\Vim\\Gvim", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
141 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
142 if (reg_delete_key(HKEY_LOCAL_MACHINE, "Software\\Vim", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
143 ++fail; |
| 7 | 144 } |
| 145 | |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
146 if (fail == maxfail) |
| 7 | 147 printf("No Vim popup registry entries could be removed\n"); |
| 148 else if (fail > 0) | |
| 149 printf("Some Vim popup registry entries could not be removed\n"); | |
| 150 else | |
| 151 printf("The Vim popup registry entries have been removed\n"); | |
| 152 } | |
| 153 | |
| 154 static void | |
| 155 remove_openwith(void) | |
| 156 { | |
| 157 int fail = 0; | |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
158 int i; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
159 int loop = is_64bit_os() ? 2 : 1; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
160 int maxfail = loop * 7; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
161 DWORD flag; |
| 7 | 162 |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
163 for (i = 0; i < loop; i++) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
164 { |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
165 if (i == 0) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
166 flag = KEY_WOW64_32KEY; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
167 else |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
168 flag = KEY_WOW64_64KEY; |
| 7 | 169 |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
170 if (reg_delete_key(HKEY_CLASSES_ROOT, "Applications\\gvim.exe\\shell\\edit\\command", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
171 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
172 if (reg_delete_key(HKEY_CLASSES_ROOT, "Applications\\gvim.exe\\shell\\edit", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
173 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
174 if (reg_delete_key(HKEY_CLASSES_ROOT, "Applications\\gvim.exe\\shell", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
175 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
176 if (reg_delete_key(HKEY_CLASSES_ROOT, "Applications\\gvim.exe", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
177 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
178 if (reg_delete_key(HKEY_CLASSES_ROOT, ".htm\\OpenWithList\\gvim.exe", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
179 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
180 if (reg_delete_key(HKEY_CLASSES_ROOT, ".vim\\OpenWithList\\gvim.exe", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
181 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
182 if (reg_delete_key(HKEY_CLASSES_ROOT, "*\\OpenWithList\\gvim.exe", flag) != ERROR_SUCCESS) |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
183 ++fail; |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
184 } |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
185 |
|
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
186 if (fail == maxfail) |
| 7 | 187 printf("No Vim open-with registry entries could be removed\n"); |
| 188 else if (fail > 0) | |
| 189 printf("Some Vim open-with registry entries could not be removed\n"); | |
| 190 else | |
| 191 printf("The Vim open-with registry entries have been removed\n"); | |
| 192 } | |
| 193 | |
| 194 /* | |
| 195 * Check if a batch file is really for the current version. Don't delete a | |
| 196 * batch file that was written for another (possibly newer) version. | |
| 197 */ | |
| 198 static int | |
| 199 batfile_thisversion(char *path) | |
| 200 { | |
| 201 FILE *fd; | |
| 202 char line[BUFSIZE]; | |
|
19431
9800e126eaa2
patch 8.2.0273: MS-Windows uninstall may delete wrong batch file
Bram Moolenaar <Bram@vim.org>
parents:
19356
diff
changeset
|
203 int key_len = strlen(VIMBAT_UNINSTKEY); |
| 7 | 204 int found = FALSE; |
| 205 | |
| 206 fd = fopen(path, "r"); | |
| 207 if (fd != NULL) | |
| 208 { | |
|
15941
b9098585d945
patch 8.1.0976: dosinstall still has buffer overflow problems
Bram Moolenaar <Bram@vim.org>
parents:
15892
diff
changeset
|
209 while (fgets(line, sizeof(line), fd) != NULL) |
| 7 | 210 { |
|
19431
9800e126eaa2
patch 8.2.0273: MS-Windows uninstall may delete wrong batch file
Bram Moolenaar <Bram@vim.org>
parents:
19356
diff
changeset
|
211 if (strncmp(line, VIMBAT_UNINSTKEY, key_len) == 0) |
|
9800e126eaa2
patch 8.2.0273: MS-Windows uninstall may delete wrong batch file
Bram Moolenaar <Bram@vim.org>
parents:
19356
diff
changeset
|
212 { |
|
9800e126eaa2
patch 8.2.0273: MS-Windows uninstall may delete wrong batch file
Bram Moolenaar <Bram@vim.org>
parents:
19356
diff
changeset
|
213 found = TRUE; |
| 7 | 214 break; |
|
19431
9800e126eaa2
patch 8.2.0273: MS-Windows uninstall may delete wrong batch file
Bram Moolenaar <Bram@vim.org>
parents:
19356
diff
changeset
|
215 } |
| 7 | 216 } |
| 217 fclose(fd); | |
| 218 } | |
| 219 return found; | |
| 220 } | |
| 221 | |
| 222 static int | |
| 223 remove_batfiles(int doit) | |
| 224 { | |
| 225 char *batfile_path; | |
| 226 int i; | |
| 227 int found = 0; | |
| 228 | |
|
19356
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
229 // avoid looking in the "installdir" by chdir to system root |
|
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
230 mch_chdir(sysdrive); |
|
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
231 mch_chdir("\\"); |
|
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
232 |
| 7 | 233 for (i = 1; i < TARGET_COUNT; ++i) |
| 234 { | |
| 235 batfile_path = searchpath_save(targets[i].batname); | |
| 236 if (batfile_path != NULL && batfile_thisversion(batfile_path)) | |
| 237 { | |
| 238 ++found; | |
| 239 if (doit) | |
| 240 { | |
| 241 printf("removing %s\n", batfile_path); | |
| 242 remove(batfile_path); | |
| 243 } | |
| 244 else | |
| 245 printf(" - the batch file %s\n", batfile_path); | |
| 246 free(batfile_path); | |
| 247 } | |
| 248 } | |
|
19356
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
249 |
|
f559be3c53d7
patch 8.2.0236: MS-Windows unintall doesn't delete vimtutur.bat
Bram Moolenaar <Bram@vim.org>
parents:
18816
diff
changeset
|
250 mch_chdir(installdir); |
| 7 | 251 return found; |
| 252 } | |
| 253 | |
| 254 static void | |
| 255 remove_if_exists(char *path, char *filename) | |
| 256 { | |
| 257 char buf[BUFSIZE]; | |
| 258 FILE *fd; | |
| 259 | |
| 260 sprintf(buf, "%s\\%s", path, filename); | |
| 261 | |
| 262 fd = fopen(buf, "r"); | |
| 263 if (fd != NULL) | |
| 264 { | |
| 265 fclose(fd); | |
| 266 printf("removing %s\n", buf); | |
| 267 remove(buf); | |
| 268 } | |
| 269 } | |
| 270 | |
| 271 static void | |
| 272 remove_icons(void) | |
| 273 { | |
| 274 char path[BUFSIZE]; | |
| 275 int i; | |
| 276 | |
| 277 if (get_shell_folder_path(path, "desktop")) | |
| 278 for (i = 0; i < ICON_COUNT; ++i) | |
| 279 remove_if_exists(path, icon_link_names[i]); | |
| 280 } | |
| 281 | |
| 282 static void | |
| 283 remove_start_menu(void) | |
| 284 { | |
| 285 char path[BUFSIZE]; | |
| 286 int i; | |
| 287 struct stat st; | |
| 288 | |
| 289 if (get_shell_folder_path(path, VIM_STARTMENU)) | |
| 290 { | |
| 291 for (i = 1; i < TARGET_COUNT; ++i) | |
| 292 remove_if_exists(path, targets[i].lnkname); | |
| 293 remove_if_exists(path, "uninstall.lnk"); | |
| 294 remove_if_exists(path, "Help.lnk"); | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
295 // Win95 uses .pif, WinNT uses .lnk |
| 7 | 296 remove_if_exists(path, "Vim tutor.pif"); |
| 297 remove_if_exists(path, "Vim tutor.lnk"); | |
| 298 remove_if_exists(path, "Vim online.url"); | |
| 299 if (stat(path, &st) == 0) | |
| 300 { | |
| 301 printf("removing %s\n", path); | |
| 302 rmdir(path); | |
| 303 } | |
| 304 } | |
| 305 } | |
| 306 | |
| 307 static void | |
| 308 delete_uninstall_key(void) | |
| 309 { | |
|
12626
aca41efd888c
patch 8.0.1191: MS-Windows: missing 32 and 64 bit files in installer
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
310 reg_delete_key(HKEY_LOCAL_MACHINE, "Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\Vim " VIM_VERSION_SHORT, KEY_WOW64_64KEY); |
| 7 | 311 } |
| 312 | |
| 313 int | |
| 314 main(int argc, char *argv[]) | |
| 315 { | |
| 316 int found = 0; | |
| 317 FILE *fd; | |
| 318 int i; | |
| 319 struct stat st; | |
| 320 char icon[BUFSIZE]; | |
|
15892
e43b5e6d9190
patch 8.1.0952: compilation warnings when building the MS-Windows installer
Bram Moolenaar <Bram@vim.org>
parents:
12626
diff
changeset
|
321 char path[MAX_PATH]; |
|
e43b5e6d9190
patch 8.1.0952: compilation warnings when building the MS-Windows installer
Bram Moolenaar <Bram@vim.org>
parents:
12626
diff
changeset
|
322 char popup_path[MAX_PATH]; |
| 7 | 323 |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
324 // The nsis uninstaller calls us with a "-nsis" argument. |
| 7 | 325 if (argc == 2 && stricmp(argv[1], "-nsis") == 0) |
| 326 interactive = FALSE; | |
| 327 else | |
| 328 interactive = TRUE; | |
| 329 | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
330 // Initialize this program. |
| 7 | 331 do_inits(argv); |
| 332 | |
| 333 printf("This program will remove the following items:\n"); | |
| 334 | |
|
15941
b9098585d945
patch 8.1.0976: dosinstall still has buffer overflow problems
Bram Moolenaar <Bram@vim.org>
parents:
15892
diff
changeset
|
335 if (popup_gvim_path(popup_path, sizeof(popup_path))) |
| 7 | 336 { |
| 337 printf(" - the \"Edit with Vim\" entry in the popup menu\n"); | |
| 338 printf(" which uses \"%s\"\n", popup_path); | |
|
2217
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
339 if (interactive) |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
340 printf("\nRemove it (y/n)? "); |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
341 if (!interactive || confirm()) |
| 7 | 342 { |
| 343 remove_popup(); | |
|
18816
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
344 // Assume the "Open With" entry can be removed as well, don't |
|
15539899a112
patch 8.1.2396: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18174
diff
changeset
|
345 // bother the user with asking him again. |
| 7 | 346 remove_openwith(); |
| 347 } | |
| 348 } | |
|
15941
b9098585d945
patch 8.1.0976: dosinstall still has buffer overflow problems
Bram Moolenaar <Bram@vim.org>
parents:
15892
diff
changeset
|
349 else if (openwith_gvim_path(popup_path, sizeof(popup_path))) |
| 7 | 350 { |
| 351 printf(" - the Vim \"Open With...\" entry in the popup menu\n"); | |
| 352 printf(" which uses \"%s\"\n", popup_path); | |
| 353 printf("\nRemove it (y/n)? "); | |
| 354 if (confirm()) | |
| 355 remove_openwith(); | |
| 356 } | |
| 357 | |
| 358 if (get_shell_folder_path(path, "desktop")) | |
| 359 { | |
| 360 printf("\n"); | |
| 361 for (i = 0; i < ICON_COUNT; ++i) | |
| 362 { | |
| 363 sprintf(icon, "%s\\%s", path, icon_link_names[i]); | |
| 364 if (stat(icon, &st) == 0) | |
| 365 { | |
| 366 printf(" - the \"%s\" icon on the desktop\n", icon_names[i]); | |
| 367 ++found; | |
| 368 } | |
| 369 } | |
| 370 if (found > 0) | |
| 371 { | |
| 372 if (interactive) | |
| 373 printf("\nRemove %s (y/n)? ", found > 1 ? "them" : "it"); | |
| 374 if (!interactive || confirm()) | |
| 375 remove_icons(); | |
| 376 } | |
| 377 } | |
| 378 | |
| 379 if (get_shell_folder_path(path, VIM_STARTMENU) | |
| 380 && stat(path, &st) == 0) | |
| 381 { | |
| 382 printf("\n - the \"%s\" entry in the Start Menu\n", VIM_STARTMENU); | |
| 383 if (interactive) | |
| 384 printf("\nRemove it (y/n)? "); | |
| 385 if (!interactive || confirm()) | |
| 386 remove_start_menu(); | |
| 387 } | |
| 388 | |
| 389 printf("\n"); | |
| 390 found = remove_batfiles(0); | |
| 391 if (found > 0) | |
| 392 { | |
| 393 if (interactive) | |
| 394 printf("\nRemove %s (y/n)? ", found > 1 ? "them" : "it"); | |
| 395 if (!interactive || confirm()) | |
| 396 remove_batfiles(1); | |
| 397 } | |
| 398 | |
| 399 fd = fopen("gvim.exe", "r"); | |
| 400 if (fd != NULL) | |
| 401 { | |
| 402 fclose(fd); | |
| 403 printf("gvim.exe detected. Attempting to unregister gvim with OLE\n"); | |
| 404 system("gvim.exe -silent -unregister"); | |
| 405 } | |
| 406 | |
| 407 delete_uninstall_key(); | |
| 408 | |
| 409 if (interactive) | |
| 410 { | |
| 411 printf("\nYou may now want to delete the Vim executables and runtime files.\n"); | |
| 412 printf("(They are still where you unpacked them.)\n"); | |
| 413 } | |
| 414 | |
|
2217
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
415 if (interactive) |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
416 { |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
417 rewind(stdin); |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
418 printf("\nPress Enter to exit..."); |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
419 (void)getchar(); |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
420 } |
|
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
421 else |
|
2287
573da4dac306
Make the dos installer work with more compilers.
Bram Moolenaar <bram@vim.org>
parents:
2217
diff
changeset
|
422 sleep(3); |
| 7 | 423 |
| 424 return 0; | |
| 425 } |