Mercurial > vim
annotate src/menu.c @ 3762:1ec385a8faf4 v7.3.639
updated for version 7.3.639
Problem: It's not easy to build Vim on Windows with XPM support.
Solution: Include the required files, they are quite small. Update the
MSVC makefile to use them. Binary files are in the next patch.
(Sergey Khorev)
author | Bram Moolenaar <bram@vim.org> |
---|---|
date | Wed, 29 Aug 2012 14:18:33 +0200 |
parents | c5e47b752f07 |
children | 50dbef5e774a |
rev | line source |
---|---|
7 | 1 /* vi:set ts=8 sts=4 sw=4: |
2 * | |
3 * VIM - Vi IMproved by Bram Moolenaar | |
4 * GUI/Motif support by Robert Webb | |
5 * | |
6 * Do ":help uganda" in Vim to read copying and usage conditions. | |
7 * Do ":help credits" in Vim to see a list of people who contributed. | |
8 * See README.txt for an overview of the Vim source code. | |
9 */ | |
10 | |
11 /* | |
12 * Code for menus. Used for the GUI and 'wildmenu'. | |
13 */ | |
14 | |
15 #include "vim.h" | |
16 | |
17 #if defined(FEAT_MENU) || defined(PROTO) | |
18 | |
19 #define MENUDEPTH 10 /* maximum depth of menus */ | |
20 | |
21 #ifdef FEAT_GUI_W32 | |
22 static int add_menu_path __ARGS((char_u *, vimmenu_T *, int *, char_u *, int)); | |
23 #else | |
24 static int add_menu_path __ARGS((char_u *, vimmenu_T *, int *, char_u *)); | |
25 #endif | |
26 static int menu_nable_recurse __ARGS((vimmenu_T *menu, char_u *name, int modes, int enable)); | |
27 static int remove_menu __ARGS((vimmenu_T **, char_u *, int, int silent)); | |
28 static void free_menu __ARGS((vimmenu_T **menup)); | |
29 static void free_menu_string __ARGS((vimmenu_T *, int)); | |
30 static int show_menus __ARGS((char_u *, int)); | |
31 static void show_menus_recursive __ARGS((vimmenu_T *, int, int)); | |
32 static int menu_name_equal __ARGS((char_u *name, vimmenu_T *menu)); | |
33 static int menu_namecmp __ARGS((char_u *name, char_u *mname)); | |
34 static int get_menu_cmd_modes __ARGS((char_u *, int, int *, int *)); | |
35 static char_u *popup_mode_name __ARGS((char_u *name, int idx)); | |
36 static char_u *menu_text __ARGS((char_u *text, int *mnemonic, char_u **actext)); | |
37 #ifdef FEAT_GUI | |
38 static int get_menu_mode __ARGS((void)); | |
39 static void gui_update_menus_recurse __ARGS((vimmenu_T *, int)); | |
40 #endif | |
41 | |
42 #if defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF) | |
43 static void gui_create_tearoffs_recurse __ARGS((vimmenu_T *menu, const char_u *pname, int *pri_tab, int pri_idx)); | |
44 static void gui_add_tearoff __ARGS((char_u *tearpath, int *pri_tab, int pri_idx)); | |
45 static void gui_destroy_tearoffs_recurse __ARGS((vimmenu_T *menu)); | |
46 static int s_tearoffs = FALSE; | |
47 #endif | |
48 | |
49 static int menu_is_hidden __ARGS((char_u *name)); | |
50 #if defined(FEAT_CMDL_COMPL) || (defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF)) | |
51 static int menu_is_tearoff __ARGS((char_u *name)); | |
52 #endif | |
53 | |
54 #if defined(FEAT_MULTI_LANG) || defined(FEAT_TOOLBAR) | |
55 static char_u *menu_skip_part __ARGS((char_u *p)); | |
56 #endif | |
57 #ifdef FEAT_MULTI_LANG | |
58 static char_u *menutrans_lookup __ARGS((char_u *name, int len)); | |
2251
646d34788036
Fix a few compiler warnings. Fix crash with encrypted undo file.
Bram Moolenaar <bram@vim.org>
parents:
2217
diff
changeset
|
59 static void menu_unescape_name __ARGS((char_u *p)); |
7 | 60 #endif |
61 | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
62 static char_u *menu_translate_tab_and_shift __ARGS((char_u *arg_start)); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
63 |
7 | 64 /* The character for each menu mode */ |
840 | 65 static char_u menu_mode_chars[] = {'n', 'v', 's', 'o', 'i', 'c', 't'}; |
7 | 66 |
67 static char_u e_notsubmenu[] = N_("E327: Part of menu-item path is not sub-menu"); | |
68 static char_u e_othermode[] = N_("E328: Menu only exists in another mode"); | |
436 | 69 static char_u e_nomenu[] = N_("E329: No menu \"%s\""); |
7 | 70 |
71 #ifdef FEAT_TOOLBAR | |
72 static const char *toolbar_names[] = | |
73 { | |
74 /* 0 */ "New", "Open", "Save", "Undo", "Redo", | |
75 /* 5 */ "Cut", "Copy", "Paste", "Print", "Help", | |
76 /* 10 */ "Find", "SaveAll", "SaveSesn", "NewSesn", "LoadSesn", | |
77 /* 15 */ "RunScript", "Replace", "WinClose", "WinMax", "WinMin", | |
78 /* 20 */ "WinSplit", "Shell", "FindPrev", "FindNext", "FindHelp", | |
79 /* 25 */ "Make", "TagJump", "RunCtags", "WinVSplit", "WinMaxWidth", | |
80 /* 30 */ "WinMinWidth", "Exit" | |
81 }; | |
82 # define TOOLBAR_NAME_COUNT (sizeof(toolbar_names) / sizeof(char *)) | |
83 #endif | |
84 | |
85 /* | |
86 * Do the :menu command and relatives. | |
87 */ | |
88 void | |
89 ex_menu(eap) | |
90 exarg_T *eap; /* Ex command arguments */ | |
91 { | |
92 char_u *menu_path; | |
93 int modes; | |
94 char_u *map_to; | |
95 int noremap; | |
96 int silent = FALSE; | |
860 | 97 int special = FALSE; |
7 | 98 int unmenu; |
99 char_u *map_buf; | |
100 char_u *arg; | |
101 char_u *p; | |
102 int i; | |
575 | 103 #if defined(FEAT_GUI) && !defined(FEAT_GUI_GTK) |
7 | 104 int old_menu_height; |
105 # if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) && !defined(FEAT_GUI_W16) | |
106 int old_toolbar_height; | |
107 # endif | |
108 #endif | |
109 int pri_tab[MENUDEPTH + 1]; | |
110 int enable = MAYBE; /* TRUE for "menu enable", FALSE for "menu | |
111 * disable */ | |
112 #ifdef FEAT_TOOLBAR | |
113 char_u *icon = NULL; | |
114 #endif | |
115 vimmenu_T menuarg; | |
116 | |
117 modes = get_menu_cmd_modes(eap->cmd, eap->forceit, &noremap, &unmenu); | |
118 arg = eap->arg; | |
119 | |
120 for (;;) | |
121 { | |
122 if (STRNCMP(arg, "<script>", 8) == 0) | |
123 { | |
124 noremap = REMAP_SCRIPT; | |
125 arg = skipwhite(arg + 8); | |
126 continue; | |
127 } | |
128 if (STRNCMP(arg, "<silent>", 8) == 0) | |
129 { | |
130 silent = TRUE; | |
131 arg = skipwhite(arg + 8); | |
132 continue; | |
133 } | |
860 | 134 if (STRNCMP(arg, "<special>", 9) == 0) |
135 { | |
136 special = TRUE; | |
137 arg = skipwhite(arg + 9); | |
138 continue; | |
139 } | |
7 | 140 break; |
141 } | |
142 | |
143 | |
144 /* Locate an optional "icon=filename" argument. */ | |
145 if (STRNCMP(arg, "icon=", 5) == 0) | |
146 { | |
147 arg += 5; | |
148 #ifdef FEAT_TOOLBAR | |
149 icon = arg; | |
150 #endif | |
151 while (*arg != NUL && *arg != ' ') | |
152 { | |
153 if (*arg == '\\') | |
1624 | 154 STRMOVE(arg, arg + 1); |
39 | 155 mb_ptr_adv(arg); |
7 | 156 } |
157 if (*arg != NUL) | |
158 { | |
159 *arg++ = NUL; | |
160 arg = skipwhite(arg); | |
161 } | |
162 } | |
163 | |
164 /* | |
165 * Fill in the priority table. | |
166 */ | |
167 for (p = arg; *p; ++p) | |
168 if (!VIM_ISDIGIT(*p) && *p != '.') | |
169 break; | |
170 if (vim_iswhite(*p)) | |
171 { | |
172 for (i = 0; i < MENUDEPTH && !vim_iswhite(*arg); ++i) | |
173 { | |
174 pri_tab[i] = getdigits(&arg); | |
175 if (pri_tab[i] == 0) | |
176 pri_tab[i] = 500; | |
177 if (*arg == '.') | |
178 ++arg; | |
179 } | |
180 arg = skipwhite(arg); | |
181 } | |
182 else if (eap->addr_count && eap->line2 != 0) | |
183 { | |
184 pri_tab[0] = eap->line2; | |
185 i = 1; | |
186 } | |
187 else | |
188 i = 0; | |
189 while (i < MENUDEPTH) | |
190 pri_tab[i++] = 500; | |
191 pri_tab[MENUDEPTH] = -1; /* mark end of the table */ | |
192 | |
193 /* | |
194 * Check for "disable" or "enable" argument. | |
195 */ | |
196 if (STRNCMP(arg, "enable", 6) == 0 && vim_iswhite(arg[6])) | |
197 { | |
198 enable = TRUE; | |
199 arg = skipwhite(arg + 6); | |
200 } | |
201 else if (STRNCMP(arg, "disable", 7) == 0 && vim_iswhite(arg[7])) | |
202 { | |
203 enable = FALSE; | |
204 arg = skipwhite(arg + 7); | |
205 } | |
206 | |
207 /* | |
208 * If there is no argument, display all menus. | |
209 */ | |
210 if (*arg == NUL) | |
211 { | |
212 show_menus(arg, modes); | |
213 return; | |
214 } | |
215 | |
216 #ifdef FEAT_TOOLBAR | |
217 /* | |
218 * Need to get the toolbar icon index before doing the translation. | |
219 */ | |
220 menuarg.iconidx = -1; | |
221 menuarg.icon_builtin = FALSE; | |
222 if (menu_is_toolbar(arg)) | |
223 { | |
224 menu_path = menu_skip_part(arg); | |
225 if (*menu_path == '.') | |
226 { | |
227 p = menu_skip_part(++menu_path); | |
228 if (STRNCMP(menu_path, "BuiltIn", 7) == 0) | |
229 { | |
230 if (skipdigits(menu_path + 7) == p) | |
231 { | |
232 menuarg.iconidx = atoi((char *)menu_path + 7); | |
1880 | 233 if (menuarg.iconidx >= (int)TOOLBAR_NAME_COUNT) |
7 | 234 menuarg.iconidx = -1; |
235 else | |
236 menuarg.icon_builtin = TRUE; | |
237 } | |
238 } | |
239 else | |
240 { | |
1880 | 241 for (i = 0; i < (int)TOOLBAR_NAME_COUNT; ++i) |
7 | 242 if (STRNCMP(toolbar_names[i], menu_path, p - menu_path) |
243 == 0) | |
244 { | |
245 menuarg.iconidx = i; | |
246 break; | |
247 } | |
248 } | |
249 } | |
250 } | |
251 #endif | |
252 | |
253 menu_path = arg; | |
254 if (*menu_path == '.') | |
255 { | |
256 EMSG2(_(e_invarg2), menu_path); | |
257 goto theend; | |
258 } | |
259 | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
260 map_to = menu_translate_tab_and_shift(arg); |
7 | 261 |
262 /* | |
263 * If there is only a menu name, display menus with that name. | |
264 */ | |
265 if (*map_to == NUL && !unmenu && enable == MAYBE) | |
266 { | |
267 show_menus(menu_path, modes); | |
268 goto theend; | |
269 } | |
270 else if (*map_to != NUL && (unmenu || enable != MAYBE)) | |
271 { | |
272 EMSG(_(e_trailing)); | |
273 goto theend; | |
274 } | |
575 | 275 #if defined(FEAT_GUI) && !(defined(FEAT_GUI_GTK) || defined(FEAT_GUI_PHOTON)) |
7 | 276 old_menu_height = gui.menu_height; |
277 # if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) && !defined(FEAT_GUI_W16) | |
278 old_toolbar_height = gui.toolbar_height; | |
279 # endif | |
280 #endif | |
281 | |
282 if (enable != MAYBE) | |
283 { | |
284 /* | |
285 * Change sensitivity of the menu. | |
286 * For the PopUp menu, remove a menu for each mode separately. | |
287 * Careful: menu_nable_recurse() changes menu_path. | |
288 */ | |
289 if (STRCMP(menu_path, "*") == 0) /* meaning: do all menus */ | |
290 menu_path = (char_u *)""; | |
291 | |
292 if (menu_is_popup(menu_path)) | |
293 { | |
294 for (i = 0; i < MENU_INDEX_TIP; ++i) | |
295 if (modes & (1 << i)) | |
296 { | |
297 p = popup_mode_name(menu_path, i); | |
298 if (p != NULL) | |
299 { | |
300 menu_nable_recurse(root_menu, p, MENU_ALL_MODES, | |
301 enable); | |
302 vim_free(p); | |
303 } | |
304 } | |
305 } | |
306 menu_nable_recurse(root_menu, menu_path, modes, enable); | |
307 } | |
308 else if (unmenu) | |
309 { | |
310 /* | |
311 * Delete menu(s). | |
312 */ | |
313 if (STRCMP(menu_path, "*") == 0) /* meaning: remove all menus */ | |
314 menu_path = (char_u *)""; | |
315 | |
316 /* | |
317 * For the PopUp menu, remove a menu for each mode separately. | |
318 */ | |
319 if (menu_is_popup(menu_path)) | |
320 { | |
321 for (i = 0; i < MENU_INDEX_TIP; ++i) | |
322 if (modes & (1 << i)) | |
323 { | |
324 p = popup_mode_name(menu_path, i); | |
325 if (p != NULL) | |
326 { | |
327 remove_menu(&root_menu, p, MENU_ALL_MODES, TRUE); | |
328 vim_free(p); | |
329 } | |
330 } | |
331 } | |
332 | |
333 /* Careful: remove_menu() changes menu_path */ | |
334 remove_menu(&root_menu, menu_path, modes, FALSE); | |
335 } | |
336 else | |
337 { | |
338 /* | |
339 * Add menu(s). | |
340 * Replace special key codes. | |
341 */ | |
342 if (STRICMP(map_to, "<nop>") == 0) /* "<Nop>" means nothing */ | |
343 { | |
344 map_to = (char_u *)""; | |
345 map_buf = NULL; | |
346 } | |
26 | 347 else if (modes & MENU_TIP_MODE) |
348 map_buf = NULL; /* Menu tips are plain text. */ | |
7 | 349 else |
860 | 350 map_to = replace_termcodes(map_to, &map_buf, FALSE, TRUE, special); |
7 | 351 menuarg.modes = modes; |
352 #ifdef FEAT_TOOLBAR | |
353 menuarg.iconfile = icon; | |
354 #endif | |
355 menuarg.noremap[0] = noremap; | |
356 menuarg.silent[0] = silent; | |
357 add_menu_path(menu_path, &menuarg, pri_tab, map_to | |
358 #ifdef FEAT_GUI_W32 | |
359 , TRUE | |
360 #endif | |
361 ); | |
362 | |
363 /* | |
364 * For the PopUp menu, add a menu for each mode separately. | |
365 */ | |
366 if (menu_is_popup(menu_path)) | |
367 { | |
368 for (i = 0; i < MENU_INDEX_TIP; ++i) | |
369 if (modes & (1 << i)) | |
370 { | |
371 p = popup_mode_name(menu_path, i); | |
372 if (p != NULL) | |
373 { | |
374 /* Include all modes, to make ":amenu" work */ | |
375 menuarg.modes = modes; | |
376 #ifdef FEAT_TOOLBAR | |
377 menuarg.iconfile = NULL; | |
378 menuarg.iconidx = -1; | |
379 menuarg.icon_builtin = FALSE; | |
380 #endif | |
381 add_menu_path(p, &menuarg, pri_tab, map_to | |
382 #ifdef FEAT_GUI_W32 | |
383 , TRUE | |
384 #endif | |
385 ); | |
386 vim_free(p); | |
387 } | |
388 } | |
389 } | |
390 | |
391 vim_free(map_buf); | |
392 } | |
393 | |
575 | 394 #if defined(FEAT_GUI) && !(defined(FEAT_GUI_GTK)) |
7 | 395 /* If the menubar height changed, resize the window */ |
396 if (gui.in_use | |
397 && (gui.menu_height != old_menu_height | |
398 # if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) && !defined(FEAT_GUI_W16) | |
399 || gui.toolbar_height != old_toolbar_height | |
400 # endif | |
401 )) | |
814 | 402 gui_set_shellsize(FALSE, FALSE, RESIZE_VERT); |
7 | 403 #endif |
404 | |
405 theend: | |
406 ; | |
407 } | |
408 | |
409 /* | |
410 * Add the menu with the given name to the menu hierarchy | |
411 */ | |
412 static int | |
413 add_menu_path(menu_path, menuarg, pri_tab, call_data | |
414 #ifdef FEAT_GUI_W32 | |
415 , addtearoff | |
416 #endif | |
417 ) | |
418 char_u *menu_path; | |
419 vimmenu_T *menuarg; /* passes modes, iconfile, iconidx, | |
420 icon_builtin, silent[0], noremap[0] */ | |
421 int *pri_tab; | |
422 char_u *call_data; | |
423 #ifdef FEAT_GUI_W32 | |
424 int addtearoff; /* may add tearoff item */ | |
425 #endif | |
426 { | |
427 char_u *path_name; | |
428 int modes = menuarg->modes; | |
429 vimmenu_T **menup; | |
430 vimmenu_T *menu = NULL; | |
431 vimmenu_T *parent; | |
432 vimmenu_T **lower_pri; | |
433 char_u *p; | |
434 char_u *name; | |
435 char_u *dname; | |
436 char_u *next_name; | |
437 int i; | |
438 int c; | |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
439 int d; |
7 | 440 #ifdef FEAT_GUI |
441 int idx; | |
442 int new_idx; | |
443 #endif | |
444 int pri_idx = 0; | |
445 int old_modes = 0; | |
446 int amenu; | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
447 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
448 char_u *en_name; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
449 char_u *map_to = NULL; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
450 #endif |
7 | 451 |
452 /* Make a copy so we can stuff around with it, since it could be const */ | |
453 path_name = vim_strsave(menu_path); | |
454 if (path_name == NULL) | |
455 return FAIL; | |
456 menup = &root_menu; | |
457 parent = NULL; | |
458 name = path_name; | |
459 while (*name) | |
460 { | |
461 /* Get name of this element in the menu hierarchy, and the simplified | |
462 * name (without mnemonic and accelerator text). */ | |
463 next_name = menu_name_skip(name); | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
464 #ifdef FEAT_MULTI_LANG |
2217
120502692d82
Improve the MS-Windows installer.
Bram Moolenaar <bram@vim.org>
parents:
2166
diff
changeset
|
465 map_to = menutrans_lookup(name, (int)STRLEN(name)); |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
466 if (map_to != NULL) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
467 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
468 en_name = name; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
469 name = map_to; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
470 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
471 else |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
472 en_name = NULL; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
473 #endif |
7 | 474 dname = menu_text(name, NULL, NULL); |
928 | 475 if (dname == NULL) |
476 goto erret; | |
477 if (*dname == NUL) | |
478 { | |
479 /* Only a mnemonic or accelerator is not valid. */ | |
480 EMSG(_("E792: Empty menu name")); | |
481 goto erret; | |
482 } | |
7 | 483 |
484 /* See if it's already there */ | |
485 lower_pri = menup; | |
486 #ifdef FEAT_GUI | |
487 idx = 0; | |
488 new_idx = 0; | |
489 #endif | |
490 menu = *menup; | |
491 while (menu != NULL) | |
492 { | |
493 if (menu_name_equal(name, menu) || menu_name_equal(dname, menu)) | |
494 { | |
495 if (*next_name == NUL && menu->children != NULL) | |
496 { | |
497 if (!sys_menu) | |
498 EMSG(_("E330: Menu path must not lead to a sub-menu")); | |
499 goto erret; | |
500 } | |
501 if (*next_name != NUL && menu->children == NULL | |
502 #ifdef FEAT_GUI_W32 | |
503 && addtearoff | |
504 #endif | |
505 ) | |
506 { | |
507 if (!sys_menu) | |
508 EMSG(_(e_notsubmenu)); | |
509 goto erret; | |
510 } | |
511 break; | |
512 } | |
513 menup = &menu->next; | |
514 | |
515 /* Count menus, to find where this one needs to be inserted. | |
516 * Ignore menus that are not in the menubar (PopUp and Toolbar) */ | |
517 if (parent != NULL || menu_is_menubar(menu->name)) | |
518 { | |
519 #ifdef FEAT_GUI | |
520 ++idx; | |
521 #endif | |
522 if (menu->priority <= pri_tab[pri_idx]) | |
523 { | |
524 lower_pri = menup; | |
525 #ifdef FEAT_GUI | |
526 new_idx = idx; | |
527 #endif | |
528 } | |
529 } | |
530 menu = menu->next; | |
531 } | |
532 | |
533 if (menu == NULL) | |
534 { | |
535 if (*next_name == NUL && parent == NULL) | |
536 { | |
537 EMSG(_("E331: Must not add menu items directly to menu bar")); | |
538 goto erret; | |
539 } | |
540 | |
541 if (menu_is_separator(dname) && *next_name != NUL) | |
542 { | |
543 EMSG(_("E332: Separator cannot be part of a menu path")); | |
544 goto erret; | |
545 } | |
546 | |
547 /* Not already there, so lets add it */ | |
548 menu = (vimmenu_T *)alloc_clear((unsigned)sizeof(vimmenu_T)); | |
549 if (menu == NULL) | |
550 goto erret; | |
551 | |
552 menu->modes = modes; | |
553 menu->enabled = MENU_ALL_MODES; | |
554 menu->name = vim_strsave(name); | |
555 /* separate mnemonic and accelerator text from actual menu name */ | |
556 menu->dname = menu_text(name, &menu->mnemonic, &menu->actext); | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
557 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
558 if (en_name != NULL) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
559 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
560 menu->en_name = vim_strsave(en_name); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
561 menu->en_dname = menu_text(en_name, NULL, NULL); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
562 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
563 else |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
564 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
565 menu->en_name = NULL; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
566 menu->en_dname = NULL; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
567 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
568 #endif |
7 | 569 menu->priority = pri_tab[pri_idx]; |
570 menu->parent = parent; | |
571 #ifdef FEAT_GUI_MOTIF | |
572 menu->sensitive = TRUE; /* the default */ | |
573 #endif | |
574 #ifdef FEAT_BEVAL_TIP | |
575 menu->tip = NULL; | |
576 #endif | |
577 #ifdef FEAT_GUI_ATHENA | |
578 menu->image = None; /* X-Windows definition for NULL*/ | |
579 #endif | |
580 | |
581 /* | |
582 * Add after menu that has lower priority. | |
583 */ | |
584 menu->next = *lower_pri; | |
585 *lower_pri = menu; | |
586 | |
587 old_modes = 0; | |
588 | |
589 #ifdef FEAT_TOOLBAR | |
590 menu->iconidx = menuarg->iconidx; | |
591 menu->icon_builtin = menuarg->icon_builtin; | |
592 if (*next_name == NUL && menuarg->iconfile != NULL) | |
593 menu->iconfile = vim_strsave(menuarg->iconfile); | |
594 #endif | |
595 #if defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF) | |
596 /* the tearoff item must be present in the modes of each item. */ | |
597 if (parent != NULL && menu_is_tearoff(parent->children->dname)) | |
598 parent->children->modes |= modes; | |
599 #endif | |
600 } | |
601 else | |
602 { | |
603 old_modes = menu->modes; | |
604 | |
605 /* | |
606 * If this menu option was previously only available in other | |
607 * modes, then make sure it's available for this one now | |
608 * Also enable a menu when it's created or changed. | |
609 */ | |
610 #ifdef FEAT_GUI_W32 | |
611 /* If adding a tearbar (addtearoff == FALSE) don't update modes */ | |
612 if (addtearoff) | |
613 #endif | |
614 { | |
615 menu->modes |= modes; | |
616 menu->enabled |= modes; | |
617 } | |
618 } | |
619 | |
620 #ifdef FEAT_GUI | |
621 /* | |
622 * Add the menu item when it's used in one of the modes, but not when | |
623 * only a tooltip is defined. | |
624 */ | |
625 if ((old_modes & MENU_ALL_MODES) == 0 | |
626 && (menu->modes & MENU_ALL_MODES) != 0) | |
627 { | |
628 if (gui.in_use) /* Otherwise it will be added when GUI starts */ | |
629 { | |
630 if (*next_name == NUL) | |
631 { | |
632 /* Real menu item, not sub-menu */ | |
633 gui_mch_add_menu_item(menu, new_idx); | |
634 | |
635 /* Want to update menus now even if mode not changed */ | |
636 force_menu_update = TRUE; | |
637 } | |
638 else | |
639 { | |
640 /* Sub-menu (not at end of path yet) */ | |
641 gui_mch_add_menu(menu, new_idx); | |
642 } | |
643 } | |
644 | |
645 # if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) | |
646 /* When adding a new submenu, may add a tearoff item */ | |
647 if ( addtearoff | |
648 && *next_name | |
649 && vim_strchr(p_go, GO_TEAROFF) != NULL | |
650 && menu_is_menubar(name)) | |
651 { | |
652 char_u *tearpath; | |
653 | |
654 /* | |
655 * The pointers next_name & path_name refer to a string with | |
656 * \'s and ^V's stripped out. But menu_path is a "raw" | |
657 * string, so we must correct for special characters. | |
658 */ | |
659 tearpath = alloc((unsigned int)STRLEN(menu_path) + TEAR_LEN + 2); | |
660 if (tearpath != NULL) | |
661 { | |
662 char_u *s; | |
663 int idx; | |
664 | |
665 STRCPY(tearpath, menu_path); | |
666 idx = (int)(next_name - path_name - 1); | |
39 | 667 for (s = tearpath; *s && s < tearpath + idx; mb_ptr_adv(s)) |
7 | 668 { |
669 if ((*s == '\\' || *s == Ctrl_V) && s[1]) | |
670 { | |
671 ++idx; | |
672 ++s; | |
673 } | |
674 } | |
675 tearpath[idx] = NUL; | |
676 gui_add_tearoff(tearpath, pri_tab, pri_idx); | |
677 vim_free(tearpath); | |
678 } | |
679 } | |
680 # endif | |
681 } | |
682 #endif /* FEAT_GUI */ | |
683 | |
684 menup = &menu->children; | |
685 parent = menu; | |
686 name = next_name; | |
687 vim_free(dname); | |
928 | 688 dname = NULL; |
7 | 689 if (pri_tab[pri_idx + 1] != -1) |
690 ++pri_idx; | |
691 } | |
692 vim_free(path_name); | |
693 | |
694 /* | |
695 * Only add system menu items which have not been defined yet. | |
696 * First check if this was an ":amenu". | |
697 */ | |
698 amenu = ((modes & (MENU_NORMAL_MODE | MENU_INSERT_MODE)) == | |
699 (MENU_NORMAL_MODE | MENU_INSERT_MODE)); | |
700 if (sys_menu) | |
701 modes &= ~old_modes; | |
702 | |
703 if (menu != NULL && modes) | |
704 { | |
705 #ifdef FEAT_GUI | |
706 menu->cb = gui_menu_cb; | |
707 #endif | |
708 p = (call_data == NULL) ? NULL : vim_strsave(call_data); | |
709 | |
710 /* loop over all modes, may add more than one */ | |
711 for (i = 0; i < MENU_MODES; ++i) | |
712 { | |
713 if (modes & (1 << i)) | |
714 { | |
715 /* free any old menu */ | |
716 free_menu_string(menu, i); | |
717 | |
718 /* For "amenu", may insert an extra character. | |
719 * Don't do this if adding a tearbar (addtearoff == FALSE). | |
720 * Don't do this for "<Nop>". */ | |
721 c = 0; | |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
722 d = 0; |
7 | 723 if (amenu && call_data != NULL && *call_data != NUL |
724 #ifdef FEAT_GUI_W32 | |
725 && addtearoff | |
726 #endif | |
727 ) | |
728 { | |
729 switch (1 << i) | |
730 { | |
731 case MENU_VISUAL_MODE: | |
791 | 732 case MENU_SELECT_MODE: |
7 | 733 case MENU_OP_PENDING_MODE: |
734 case MENU_CMDLINE_MODE: | |
735 c = Ctrl_C; | |
736 break; | |
737 case MENU_INSERT_MODE: | |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
738 c = Ctrl_BSL; |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
739 d = Ctrl_O; |
7 | 740 break; |
741 } | |
742 } | |
743 | |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
744 if (c != 0) |
7 | 745 { |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
746 menu->strings[i] = alloc((unsigned)(STRLEN(call_data) + 5 )); |
7 | 747 if (menu->strings[i] != NULL) |
748 { | |
749 menu->strings[i][0] = c; | |
2149
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
750 if (d == 0) |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
751 STRCPY(menu->strings[i] + 1, call_data); |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
752 else |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
753 { |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
754 menu->strings[i][1] = d; |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
755 STRCPY(menu->strings[i] + 2, call_data); |
4c8008ab94d8
updated for version 7.2.431
Bram Moolenaar <bram@zimbu.org>
parents:
1883
diff
changeset
|
756 } |
7 | 757 if (c == Ctrl_C) |
758 { | |
835 | 759 int len = (int)STRLEN(menu->strings[i]); |
7 | 760 |
761 /* Append CTRL-\ CTRL-G to obey 'insertmode'. */ | |
762 menu->strings[i][len] = Ctrl_BSL; | |
763 menu->strings[i][len + 1] = Ctrl_G; | |
764 menu->strings[i][len + 2] = NUL; | |
765 } | |
766 } | |
767 } | |
768 else | |
769 menu->strings[i] = p; | |
770 menu->noremap[i] = menuarg->noremap[0]; | |
771 menu->silent[i] = menuarg->silent[0]; | |
772 } | |
773 } | |
774 #if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) \ | |
775 && (defined(FEAT_BEVAL) || defined(FEAT_GUI_GTK)) | |
776 /* Need to update the menu tip. */ | |
777 if (modes & MENU_TIP_MODE) | |
778 gui_mch_menu_set_tip(menu); | |
779 #endif | |
780 } | |
781 return OK; | |
782 | |
783 erret: | |
784 vim_free(path_name); | |
785 vim_free(dname); | |
928 | 786 |
787 /* Delete any empty submenu we added before discovering the error. Repeat | |
788 * for higher levels. */ | |
789 while (parent != NULL && parent->children == NULL) | |
790 { | |
791 if (parent->parent == NULL) | |
792 menup = &root_menu; | |
793 else | |
794 menup = &parent->parent->children; | |
795 for ( ; *menup != NULL && *menup != parent; menup = &((*menup)->next)) | |
796 ; | |
797 if (*menup == NULL) /* safety check */ | |
798 break; | |
799 parent = parent->parent; | |
800 free_menu(menup); | |
801 } | |
7 | 802 return FAIL; |
803 } | |
804 | |
805 /* | |
806 * Set the (sub)menu with the given name to enabled or disabled. | |
807 * Called recursively. | |
808 */ | |
809 static int | |
810 menu_nable_recurse(menu, name, modes, enable) | |
811 vimmenu_T *menu; | |
812 char_u *name; | |
813 int modes; | |
814 int enable; | |
815 { | |
816 char_u *p; | |
817 | |
818 if (menu == NULL) | |
819 return OK; /* Got to bottom of hierarchy */ | |
820 | |
821 /* Get name of this element in the menu hierarchy */ | |
822 p = menu_name_skip(name); | |
823 | |
824 /* Find the menu */ | |
825 while (menu != NULL) | |
826 { | |
827 if (*name == NUL || *name == '*' || menu_name_equal(name, menu)) | |
828 { | |
829 if (*p != NUL) | |
830 { | |
831 if (menu->children == NULL) | |
832 { | |
833 EMSG(_(e_notsubmenu)); | |
834 return FAIL; | |
835 } | |
836 if (menu_nable_recurse(menu->children, p, modes, enable) | |
837 == FAIL) | |
838 return FAIL; | |
839 } | |
840 else | |
841 if (enable) | |
842 menu->enabled |= modes; | |
843 else | |
844 menu->enabled &= ~modes; | |
845 | |
846 /* | |
847 * When name is empty, we are doing all menu items for the given | |
848 * modes, so keep looping, otherwise we are just doing the named | |
849 * menu item (which has been found) so break here. | |
850 */ | |
851 if (*name != NUL && *name != '*') | |
852 break; | |
853 } | |
854 menu = menu->next; | |
855 } | |
856 if (*name != NUL && *name != '*' && menu == NULL) | |
857 { | |
436 | 858 EMSG2(_(e_nomenu), name); |
7 | 859 return FAIL; |
860 } | |
861 | |
862 #ifdef FEAT_GUI | |
863 /* Want to update menus now even if mode not changed */ | |
864 force_menu_update = TRUE; | |
865 #endif | |
866 | |
867 return OK; | |
868 } | |
869 | |
870 /* | |
871 * Remove the (sub)menu with the given name from the menu hierarchy | |
872 * Called recursively. | |
873 */ | |
874 static int | |
875 remove_menu(menup, name, modes, silent) | |
876 vimmenu_T **menup; | |
877 char_u *name; | |
878 int modes; | |
879 int silent; /* don't give error messages */ | |
880 { | |
881 vimmenu_T *menu; | |
882 vimmenu_T *child; | |
883 char_u *p; | |
884 | |
885 if (*menup == NULL) | |
886 return OK; /* Got to bottom of hierarchy */ | |
887 | |
888 /* Get name of this element in the menu hierarchy */ | |
889 p = menu_name_skip(name); | |
890 | |
891 /* Find the menu */ | |
892 while ((menu = *menup) != NULL) | |
893 { | |
894 if (*name == NUL || menu_name_equal(name, menu)) | |
895 { | |
896 if (*p != NUL && menu->children == NULL) | |
897 { | |
898 if (!silent) | |
899 EMSG(_(e_notsubmenu)); | |
900 return FAIL; | |
901 } | |
902 if ((menu->modes & modes) != 0x0) | |
903 { | |
904 #if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) | |
905 /* | |
906 * If we are removing all entries for this menu,MENU_ALL_MODES, | |
907 * Then kill any tearoff before we start | |
908 */ | |
909 if (*p == NUL && modes == MENU_ALL_MODES) | |
910 { | |
911 if (IsWindow(menu->tearoff_handle)) | |
912 DestroyWindow(menu->tearoff_handle); | |
913 } | |
914 #endif | |
915 if (remove_menu(&menu->children, p, modes, silent) == FAIL) | |
916 return FAIL; | |
917 } | |
918 else if (*name != NUL) | |
919 { | |
920 if (!silent) | |
921 EMSG(_(e_othermode)); | |
922 return FAIL; | |
923 } | |
924 | |
925 /* | |
926 * When name is empty, we are removing all menu items for the given | |
927 * modes, so keep looping, otherwise we are just removing the named | |
928 * menu item (which has been found) so break here. | |
929 */ | |
930 if (*name != NUL) | |
931 break; | |
932 | |
933 /* Remove the menu item for the given mode[s]. If the menu item | |
934 * is no longer valid in ANY mode, delete it */ | |
935 menu->modes &= ~modes; | |
936 if (modes & MENU_TIP_MODE) | |
937 free_menu_string(menu, MENU_INDEX_TIP); | |
938 if ((menu->modes & MENU_ALL_MODES) == 0) | |
939 free_menu(menup); | |
940 else | |
941 menup = &menu->next; | |
942 } | |
943 else | |
944 menup = &menu->next; | |
945 } | |
946 if (*name != NUL) | |
947 { | |
948 if (menu == NULL) | |
949 { | |
950 if (!silent) | |
436 | 951 EMSG2(_(e_nomenu), name); |
7 | 952 return FAIL; |
953 } | |
954 | |
955 | |
956 /* Recalculate modes for menu based on the new updated children */ | |
957 menu->modes &= ~modes; | |
958 #if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) | |
959 if ((s_tearoffs) && (menu->children != NULL)) /* there's a tear bar.. */ | |
960 child = menu->children->next; /* don't count tearoff bar */ | |
961 else | |
962 #endif | |
963 child = menu->children; | |
964 for ( ; child != NULL; child = child->next) | |
965 menu->modes |= child->modes; | |
966 if (modes & MENU_TIP_MODE) | |
967 { | |
968 free_menu_string(menu, MENU_INDEX_TIP); | |
969 #if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) \ | |
970 && (defined(FEAT_BEVAL) || defined(FEAT_GUI_GTK)) | |
971 /* Need to update the menu tip. */ | |
972 if (gui.in_use) | |
973 gui_mch_menu_set_tip(menu); | |
974 #endif | |
975 } | |
976 if ((menu->modes & MENU_ALL_MODES) == 0) | |
977 { | |
978 /* The menu item is no longer valid in ANY mode, so delete it */ | |
979 #if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) | |
980 if (s_tearoffs && menu->children != NULL) /* there's a tear bar.. */ | |
981 free_menu(&menu->children); | |
982 #endif | |
983 *menup = menu; | |
984 free_menu(menup); | |
985 } | |
986 } | |
987 | |
988 return OK; | |
989 } | |
990 | |
991 /* | |
992 * Free the given menu structure and remove it from the linked list. | |
993 */ | |
994 static void | |
995 free_menu(menup) | |
996 vimmenu_T **menup; | |
997 { | |
998 int i; | |
999 vimmenu_T *menu; | |
1000 | |
1001 menu = *menup; | |
1002 | |
1003 #ifdef FEAT_GUI | |
1004 /* Free machine specific menu structures (only when already created) */ | |
1005 /* Also may rebuild a tearoff'ed menu */ | |
1006 if (gui.in_use) | |
1007 gui_mch_destroy_menu(menu); | |
1008 #endif | |
1009 | |
1010 /* Don't change *menup until after calling gui_mch_destroy_menu(). The | |
1011 * MacOS code needs the original structure to properly delete the menu. */ | |
1012 *menup = menu->next; | |
1013 vim_free(menu->name); | |
1014 vim_free(menu->dname); | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1015 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1016 vim_free(menu->en_name); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1017 vim_free(menu->en_dname); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1018 #endif |
7 | 1019 vim_free(menu->actext); |
1020 #ifdef FEAT_TOOLBAR | |
1021 vim_free(menu->iconfile); | |
162 | 1022 # ifdef FEAT_GUI_MOTIF |
1023 vim_free(menu->xpm_fname); | |
1024 # endif | |
7 | 1025 #endif |
1026 for (i = 0; i < MENU_MODES; i++) | |
1027 free_menu_string(menu, i); | |
1028 vim_free(menu); | |
1029 | |
1030 #ifdef FEAT_GUI | |
1031 /* Want to update menus now even if mode not changed */ | |
1032 force_menu_update = TRUE; | |
1033 #endif | |
1034 } | |
1035 | |
1036 /* | |
1037 * Free the menu->string with the given index. | |
1038 */ | |
1039 static void | |
1040 free_menu_string(menu, idx) | |
1041 vimmenu_T *menu; | |
1042 int idx; | |
1043 { | |
1044 int count = 0; | |
1045 int i; | |
1046 | |
1047 for (i = 0; i < MENU_MODES; i++) | |
1048 if (menu->strings[i] == menu->strings[idx]) | |
1049 count++; | |
1050 if (count == 1) | |
1051 vim_free(menu->strings[idx]); | |
1052 menu->strings[idx] = NULL; | |
1053 } | |
1054 | |
1055 /* | |
1056 * Show the mapping associated with a menu item or hierarchy in a sub-menu. | |
1057 */ | |
1058 static int | |
1059 show_menus(path_name, modes) | |
1060 char_u *path_name; | |
1061 int modes; | |
1062 { | |
1063 char_u *p; | |
1064 char_u *name; | |
1065 vimmenu_T *menu; | |
1066 vimmenu_T *parent = NULL; | |
1067 | |
1068 menu = root_menu; | |
1069 name = path_name = vim_strsave(path_name); | |
1070 if (path_name == NULL) | |
1071 return FAIL; | |
1072 | |
1073 /* First, find the (sub)menu with the given name */ | |
1074 while (*name) | |
1075 { | |
1076 p = menu_name_skip(name); | |
1077 while (menu != NULL) | |
1078 { | |
1079 if (menu_name_equal(name, menu)) | |
1080 { | |
1081 /* Found menu */ | |
1082 if (*p != NUL && menu->children == NULL) | |
1083 { | |
1084 EMSG(_(e_notsubmenu)); | |
1085 vim_free(path_name); | |
1086 return FAIL; | |
1087 } | |
1088 else if ((menu->modes & modes) == 0x0) | |
1089 { | |
1090 EMSG(_(e_othermode)); | |
1091 vim_free(path_name); | |
1092 return FAIL; | |
1093 } | |
1094 break; | |
1095 } | |
1096 menu = menu->next; | |
1097 } | |
1098 if (menu == NULL) | |
1099 { | |
436 | 1100 EMSG2(_(e_nomenu), name); |
7 | 1101 vim_free(path_name); |
1102 return FAIL; | |
1103 } | |
1104 name = p; | |
1105 parent = menu; | |
1106 menu = menu->children; | |
1107 } | |
1704 | 1108 vim_free(path_name); |
7 | 1109 |
1110 /* Now we have found the matching menu, and we list the mappings */ | |
1111 /* Highlight title */ | |
1112 MSG_PUTS_TITLE(_("\n--- Menus ---")); | |
1113 | |
1114 show_menus_recursive(parent, modes, 0); | |
1115 return OK; | |
1116 } | |
1117 | |
1118 /* | |
1119 * Recursively show the mappings associated with the menus under the given one | |
1120 */ | |
1121 static void | |
1122 show_menus_recursive(menu, modes, depth) | |
1123 vimmenu_T *menu; | |
1124 int modes; | |
1125 int depth; | |
1126 { | |
1127 int i; | |
1128 int bit; | |
1129 | |
1130 if (menu != NULL && (menu->modes & modes) == 0x0) | |
1131 return; | |
1132 | |
1133 if (menu != NULL) | |
1134 { | |
1135 msg_putchar('\n'); | |
1136 if (got_int) /* "q" hit for "--more--" */ | |
1137 return; | |
1138 for (i = 0; i < depth; i++) | |
1139 MSG_PUTS(" "); | |
1140 if (menu->priority) | |
1141 { | |
1142 msg_outnum((long)menu->priority); | |
1143 MSG_PUTS(" "); | |
1144 } | |
1145 /* Same highlighting as for directories!? */ | |
1146 msg_outtrans_attr(menu->name, hl_attr(HLF_D)); | |
1147 } | |
1148 | |
1149 if (menu != NULL && menu->children == NULL) | |
1150 { | |
1151 for (bit = 0; bit < MENU_MODES; bit++) | |
1152 if ((menu->modes & modes & (1 << bit)) != 0) | |
1153 { | |
1154 msg_putchar('\n'); | |
1155 if (got_int) /* "q" hit for "--more--" */ | |
1156 return; | |
1157 for (i = 0; i < depth + 2; i++) | |
1158 MSG_PUTS(" "); | |
1159 msg_putchar(menu_mode_chars[bit]); | |
1160 if (menu->noremap[bit] == REMAP_NONE) | |
1161 msg_putchar('*'); | |
1162 else if (menu->noremap[bit] == REMAP_SCRIPT) | |
1163 msg_putchar('&'); | |
1164 else | |
1165 msg_putchar(' '); | |
1166 if (menu->silent[bit]) | |
1167 msg_putchar('s'); | |
1168 else | |
1169 msg_putchar(' '); | |
1170 if ((menu->modes & menu->enabled & (1 << bit)) == 0) | |
1171 msg_putchar('-'); | |
1172 else | |
1173 msg_putchar(' '); | |
1174 MSG_PUTS(" "); | |
1175 if (*menu->strings[bit] == NUL) | |
1176 msg_puts_attr((char_u *)"<Nop>", hl_attr(HLF_8)); | |
1177 else | |
1178 msg_outtrans_special(menu->strings[bit], FALSE); | |
1179 } | |
1180 } | |
1181 else | |
1182 { | |
1183 if (menu == NULL) | |
1184 { | |
1185 menu = root_menu; | |
1186 depth--; | |
1187 } | |
1188 else | |
1189 menu = menu->children; | |
1190 | |
1191 /* recursively show all children. Skip PopUp[nvoci]. */ | |
1192 for (; menu != NULL && !got_int; menu = menu->next) | |
1193 if (!menu_is_hidden(menu->dname)) | |
1194 show_menus_recursive(menu, modes, depth + 1); | |
1195 } | |
1196 } | |
1197 | |
1198 #ifdef FEAT_CMDL_COMPL | |
1199 | |
1200 /* | |
1201 * Used when expanding menu names. | |
1202 */ | |
1203 static vimmenu_T *expand_menu = NULL; | |
1204 static int expand_modes = 0x0; | |
1205 static int expand_emenu; /* TRUE for ":emenu" command */ | |
1206 | |
1207 /* | |
1208 * Work out what to complete when doing command line completion of menu names. | |
1209 */ | |
1210 char_u * | |
1211 set_context_in_menu_cmd(xp, cmd, arg, forceit) | |
1212 expand_T *xp; | |
1213 char_u *cmd; | |
1214 char_u *arg; | |
1215 int forceit; | |
1216 { | |
1217 char_u *after_dot; | |
1218 char_u *p; | |
1219 char_u *path_name = NULL; | |
1220 char_u *name; | |
1221 int unmenu; | |
1222 vimmenu_T *menu; | |
1223 int expand_menus; | |
1224 | |
1225 xp->xp_context = EXPAND_UNSUCCESSFUL; | |
1226 | |
1227 | |
1228 /* Check for priority numbers, enable and disable */ | |
1229 for (p = arg; *p; ++p) | |
1230 if (!VIM_ISDIGIT(*p) && *p != '.') | |
1231 break; | |
1232 | |
1233 if (!vim_iswhite(*p)) | |
1234 { | |
1235 if (STRNCMP(arg, "enable", 6) == 0 | |
1236 && (arg[6] == NUL || vim_iswhite(arg[6]))) | |
1237 p = arg + 6; | |
1238 else if (STRNCMP(arg, "disable", 7) == 0 | |
1239 && (arg[7] == NUL || vim_iswhite(arg[7]))) | |
1240 p = arg + 7; | |
1241 else | |
1242 p = arg; | |
1243 } | |
1244 | |
1245 while (*p != NUL && vim_iswhite(*p)) | |
1246 ++p; | |
1247 | |
1248 arg = after_dot = p; | |
1249 | |
1250 for (; *p && !vim_iswhite(*p); ++p) | |
1251 { | |
1252 if ((*p == '\\' || *p == Ctrl_V) && p[1] != NUL) | |
1253 p++; | |
1254 else if (*p == '.') | |
1255 after_dot = p + 1; | |
1256 } | |
1257 | |
1258 /* ":tearoff" and ":popup" only use menus, not entries */ | |
1259 expand_menus = !((*cmd == 't' && cmd[1] == 'e') || *cmd == 'p'); | |
1260 expand_emenu = (*cmd == 'e'); | |
1261 if (expand_menus && vim_iswhite(*p)) | |
1262 return NULL; /* TODO: check for next command? */ | |
1263 if (*p == NUL) /* Complete the menu name */ | |
1264 { | |
1265 /* | |
1266 * With :unmenu, you only want to match menus for the appropriate mode. | |
1267 * With :menu though you might want to add a menu with the same name as | |
1268 * one in another mode, so match menus from other modes too. | |
1269 */ | |
1270 expand_modes = get_menu_cmd_modes(cmd, forceit, NULL, &unmenu); | |
1271 if (!unmenu) | |
1272 expand_modes = MENU_ALL_MODES; | |
1273 | |
1274 menu = root_menu; | |
1275 if (after_dot != arg) | |
1276 { | |
1277 path_name = alloc((unsigned)(after_dot - arg)); | |
1278 if (path_name == NULL) | |
1279 return NULL; | |
419 | 1280 vim_strncpy(path_name, arg, after_dot - arg - 1); |
7 | 1281 } |
1282 name = path_name; | |
1283 while (name != NULL && *name) | |
1284 { | |
1285 p = menu_name_skip(name); | |
1286 while (menu != NULL) | |
1287 { | |
1288 if (menu_name_equal(name, menu)) | |
1289 { | |
1290 /* Found menu */ | |
1291 if ((*p != NUL && menu->children == NULL) | |
1292 || ((menu->modes & expand_modes) == 0x0)) | |
1293 { | |
1294 /* | |
1295 * Menu path continues, but we have reached a leaf. | |
1296 * Or menu exists only in another mode. | |
1297 */ | |
1298 vim_free(path_name); | |
1299 return NULL; | |
1300 } | |
1301 break; | |
1302 } | |
1303 menu = menu->next; | |
1304 } | |
1305 if (menu == NULL) | |
1306 { | |
1307 /* No menu found with the name we were looking for */ | |
1308 vim_free(path_name); | |
1309 return NULL; | |
1310 } | |
1311 name = p; | |
1312 menu = menu->children; | |
1313 } | |
840 | 1314 vim_free(path_name); |
7 | 1315 |
1316 xp->xp_context = expand_menus ? EXPAND_MENUNAMES : EXPAND_MENUS; | |
1317 xp->xp_pattern = after_dot; | |
1318 expand_menu = menu; | |
1319 } | |
1320 else /* We're in the mapping part */ | |
1321 xp->xp_context = EXPAND_NOTHING; | |
1322 return NULL; | |
1323 } | |
1324 | |
1325 /* | |
1326 * Function given to ExpandGeneric() to obtain the list of (sub)menus (not | |
1327 * entries). | |
1328 */ | |
1329 char_u * | |
1330 get_menu_name(xp, idx) | |
1880 | 1331 expand_T *xp UNUSED; |
7 | 1332 int idx; |
1333 { | |
1334 static vimmenu_T *menu = NULL; | |
1335 char_u *str; | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1336 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1337 static int should_advance = FALSE; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1338 #endif |
7 | 1339 |
1340 if (idx == 0) /* first call: start at first item */ | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1341 { |
7 | 1342 menu = expand_menu; |
2166 | 1343 #ifdef FEAT_MULTI_LANG |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1344 should_advance = FALSE; |
2166 | 1345 #endif |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1346 } |
7 | 1347 |
1348 /* Skip PopUp[nvoci]. */ | |
1349 while (menu != NULL && (menu_is_hidden(menu->dname) | |
1350 || menu_is_separator(menu->dname) | |
1351 || menu_is_tearoff(menu->dname) | |
1352 || menu->children == NULL)) | |
1353 menu = menu->next; | |
1354 | |
1355 if (menu == NULL) /* at end of linked list */ | |
1356 return NULL; | |
1357 | |
1358 if (menu->modes & expand_modes) | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1359 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1360 if (should_advance) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1361 str = menu->en_dname; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1362 else |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1363 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1364 #endif |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1365 str = menu->dname; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1366 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1367 if (menu->en_dname == NULL) |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1368 should_advance = TRUE; |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1369 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1370 #endif |
7 | 1371 else |
1372 str = (char_u *)""; | |
1373 | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1374 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1375 if (should_advance) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1376 #endif |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1377 /* Advance to next menu entry. */ |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1378 menu = menu->next; |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1379 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1380 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1381 should_advance = !should_advance; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1382 #endif |
7 | 1383 |
1384 return str; | |
1385 } | |
1386 | |
1387 /* | |
1388 * Function given to ExpandGeneric() to obtain the list of menus and menu | |
1389 * entries. | |
1390 */ | |
1391 char_u * | |
1392 get_menu_names(xp, idx) | |
1880 | 1393 expand_T *xp UNUSED; |
7 | 1394 int idx; |
1395 { | |
1396 static vimmenu_T *menu = NULL; | |
2768 | 1397 #define TBUFFER_LEN 256 |
1398 static char_u tbuffer[TBUFFER_LEN]; /*hack*/ | |
7 | 1399 char_u *str; |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1400 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1401 static int should_advance = FALSE; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1402 #endif |
7 | 1403 |
1404 if (idx == 0) /* first call: start at first item */ | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1405 { |
7 | 1406 menu = expand_menu; |
2166 | 1407 #ifdef FEAT_MULTI_LANG |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1408 should_advance = FALSE; |
2166 | 1409 #endif |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1410 } |
7 | 1411 |
1412 /* Skip Browse-style entries, popup menus and separators. */ | |
1413 while (menu != NULL | |
1414 && ( menu_is_hidden(menu->dname) | |
1415 || (expand_emenu && menu_is_separator(menu->dname)) | |
1416 || menu_is_tearoff(menu->dname) | |
1417 #ifndef FEAT_BROWSE | |
1418 || menu->dname[STRLEN(menu->dname) - 1] == '.' | |
1419 #endif | |
1420 )) | |
1421 menu = menu->next; | |
1422 | |
1423 if (menu == NULL) /* at end of linked list */ | |
1424 return NULL; | |
1425 | |
1426 if (menu->modes & expand_modes) | |
1427 { | |
1428 if (menu->children != NULL) | |
1429 { | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1430 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1431 if (should_advance) |
2768 | 1432 vim_strncpy(tbuffer, menu->en_dname, TBUFFER_LEN - 2); |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1433 else |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1434 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1435 #endif |
2768 | 1436 vim_strncpy(tbuffer, menu->dname, TBUFFER_LEN - 2); |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1437 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1438 if (menu->en_dname == NULL) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1439 should_advance = TRUE; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1440 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1441 #endif |
7 | 1442 /* hack on menu separators: use a 'magic' char for the separator |
1443 * so that '.' in names gets escaped properly */ | |
1444 STRCAT(tbuffer, "\001"); | |
1445 str = tbuffer; | |
1446 } | |
1447 else | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1448 #ifdef FEAT_MULTI_LANG |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1449 { |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1450 if (should_advance) |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1451 str = menu->en_dname; |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1452 else |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1453 { |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1454 #endif |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1455 str = menu->dname; |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1456 #ifdef FEAT_MULTI_LANG |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1457 if (menu->en_dname == NULL) |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1458 should_advance = TRUE; |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1459 } |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1460 } |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1461 #endif |
7 | 1462 } |
1463 else | |
1464 str = (char_u *)""; | |
1465 | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1466 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1467 if (should_advance) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1468 #endif |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1469 /* Advance to next menu entry. */ |
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1470 menu = menu->next; |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1471 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1472 #ifdef FEAT_MULTI_LANG |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1473 should_advance = !should_advance; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1474 #endif |
7 | 1475 |
1476 return str; | |
1477 } | |
1478 #endif /* FEAT_CMDL_COMPL */ | |
1479 | |
1480 /* | |
1481 * Skip over this element of the menu path and return the start of the next | |
1482 * element. Any \ and ^Vs are removed from the current element. | |
436 | 1483 * "name" may be modified. |
7 | 1484 */ |
1485 char_u * | |
1486 menu_name_skip(name) | |
1487 char_u *name; | |
1488 { | |
1489 char_u *p; | |
1490 | |
39 | 1491 for (p = name; *p && *p != '.'; mb_ptr_adv(p)) |
7 | 1492 { |
1493 if (*p == '\\' || *p == Ctrl_V) | |
1494 { | |
1624 | 1495 STRMOVE(p, p + 1); |
7 | 1496 if (*p == NUL) |
1497 break; | |
1498 } | |
1499 } | |
1500 if (*p) | |
1501 *p++ = NUL; | |
1502 return p; | |
1503 } | |
1504 | |
1505 /* | |
1506 * Return TRUE when "name" matches with menu "menu". The name is compared in | |
1507 * two ways: raw menu name and menu name without '&'. ignore part after a TAB. | |
1508 */ | |
1509 static int | |
1510 menu_name_equal(name, menu) | |
1511 char_u *name; | |
1512 vimmenu_T *menu; | |
1513 { | |
2166 | 1514 #ifdef FEAT_MULTI_LANG |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1515 if (menu->en_name != NULL |
2676 | 1516 && (menu_namecmp(name, menu->en_name) |
1517 || menu_namecmp(name, menu->en_dname))) | |
2311
ccda151dde4e
Support completion for ":find". (Nazri Ramliy)
Bram Moolenaar <bram@vim.org>
parents:
2251
diff
changeset
|
1518 return TRUE; |
2166 | 1519 #endif |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
1520 return menu_namecmp(name, menu->name) || menu_namecmp(name, menu->dname); |
7 | 1521 } |
1522 | |
1523 static int | |
1524 menu_namecmp(name, mname) | |
1525 char_u *name; | |
1526 char_u *mname; | |
1527 { | |
1528 int i; | |
1529 | |
1530 for (i = 0; name[i] != NUL && name[i] != TAB; ++i) | |
1531 if (name[i] != mname[i]) | |
1532 break; | |
1533 return ((name[i] == NUL || name[i] == TAB) | |
1534 && (mname[i] == NUL || mname[i] == TAB)); | |
1535 } | |
1536 | |
1537 /* | |
1538 * Return the modes specified by the given menu command (eg :menu! returns | |
1539 * MENU_CMDLINE_MODE | MENU_INSERT_MODE). | |
1540 * If "noremap" is not NULL, then the flag it points to is set according to | |
1541 * whether the command is a "nore" command. | |
1542 * If "unmenu" is not NULL, then the flag it points to is set according to | |
1543 * whether the command is an "unmenu" command. | |
1544 */ | |
1545 static int | |
1546 get_menu_cmd_modes(cmd, forceit, noremap, unmenu) | |
1547 char_u *cmd; | |
1548 int forceit; /* Was there a "!" after the command? */ | |
1549 int *noremap; | |
1550 int *unmenu; | |
1551 { | |
1552 int modes; | |
1553 | |
1554 switch (*cmd++) | |
1555 { | |
1556 case 'v': /* vmenu, vunmenu, vnoremenu */ | |
791 | 1557 modes = MENU_VISUAL_MODE | MENU_SELECT_MODE; |
1558 break; | |
1559 case 'x': /* xmenu, xunmenu, xnoremenu */ | |
7 | 1560 modes = MENU_VISUAL_MODE; |
1561 break; | |
791 | 1562 case 's': /* smenu, sunmenu, snoremenu */ |
1563 modes = MENU_SELECT_MODE; | |
1564 break; | |
7 | 1565 case 'o': /* omenu */ |
1566 modes = MENU_OP_PENDING_MODE; | |
1567 break; | |
1568 case 'i': /* imenu */ | |
1569 modes = MENU_INSERT_MODE; | |
1570 break; | |
1571 case 't': | |
1572 modes = MENU_TIP_MODE; /* tmenu */ | |
1573 break; | |
1574 case 'c': /* cmenu */ | |
1575 modes = MENU_CMDLINE_MODE; | |
1576 break; | |
1577 case 'a': /* amenu */ | |
1578 modes = MENU_INSERT_MODE | MENU_CMDLINE_MODE | MENU_NORMAL_MODE | |
791 | 1579 | MENU_VISUAL_MODE | MENU_SELECT_MODE |
856 | 1580 | MENU_OP_PENDING_MODE; |
7 | 1581 break; |
1582 case 'n': | |
1583 if (*cmd != 'o') /* nmenu, not noremenu */ | |
1584 { | |
1585 modes = MENU_NORMAL_MODE; | |
1586 break; | |
1587 } | |
1588 /* FALLTHROUGH */ | |
1589 default: | |
1590 --cmd; | |
1591 if (forceit) /* menu!! */ | |
1592 modes = MENU_INSERT_MODE | MENU_CMDLINE_MODE; | |
1593 else /* menu */ | |
791 | 1594 modes = MENU_NORMAL_MODE | MENU_VISUAL_MODE | MENU_SELECT_MODE |
7 | 1595 | MENU_OP_PENDING_MODE; |
1596 } | |
1597 | |
1598 if (noremap != NULL) | |
1599 *noremap = (*cmd == 'n' ? REMAP_NONE : REMAP_YES); | |
1600 if (unmenu != NULL) | |
1601 *unmenu = (*cmd == 'u'); | |
1602 return modes; | |
1603 } | |
1604 | |
1605 /* | |
1606 * Modify a menu name starting with "PopUp" to include the mode character. | |
1607 * Returns the name in allocated memory (NULL for failure). | |
1608 */ | |
1609 static char_u * | |
1610 popup_mode_name(name, idx) | |
1611 char_u *name; | |
1612 int idx; | |
1613 { | |
1614 char_u *p; | |
1615 int len = (int)STRLEN(name); | |
1616 | |
1617 p = vim_strnsave(name, len + 1); | |
1618 if (p != NULL) | |
1619 { | |
1620 mch_memmove(p + 6, p + 5, (size_t)(len - 4)); | |
1621 p[5] = menu_mode_chars[idx]; | |
1622 } | |
1623 return p; | |
1624 } | |
1625 | |
1626 #if defined(FEAT_GUI) || defined(PROTO) | |
1627 /* | |
1628 * Return the index into the menu->strings or menu->noremap arrays for the | |
1629 * current state. Returns MENU_INDEX_INVALID if there is no mapping for the | |
1630 * given menu in the current mode. | |
1631 */ | |
1632 int | |
1633 get_menu_index(menu, state) | |
1634 vimmenu_T *menu; | |
1635 int state; | |
1636 { | |
1637 int idx; | |
1638 | |
1639 if ((state & INSERT)) | |
1640 idx = MENU_INDEX_INSERT; | |
1641 else if (state & CMDLINE) | |
1642 idx = MENU_INDEX_CMDLINE; | |
1643 #ifdef FEAT_VISUAL | |
1644 else if (VIsual_active) | |
791 | 1645 { |
856 | 1646 if (VIsual_select) |
1647 idx = MENU_INDEX_SELECT; | |
1648 else | |
1649 idx = MENU_INDEX_VISUAL; | |
791 | 1650 } |
7 | 1651 #endif |
1652 else if (state == HITRETURN || state == ASKMORE) | |
1653 idx = MENU_INDEX_CMDLINE; | |
1654 else if (finish_op) | |
1655 idx = MENU_INDEX_OP_PENDING; | |
1656 else if ((state & NORMAL)) | |
1657 idx = MENU_INDEX_NORMAL; | |
1658 else | |
1659 idx = MENU_INDEX_INVALID; | |
1660 | |
1661 if (idx != MENU_INDEX_INVALID && menu->strings[idx] == NULL) | |
1662 idx = MENU_INDEX_INVALID; | |
1663 return idx; | |
1664 } | |
1665 #endif | |
1666 | |
1667 /* | |
1668 * Duplicate the menu item text and then process to see if a mnemonic key | |
1669 * and/or accelerator text has been identified. | |
1670 * Returns a pointer to allocated memory, or NULL for failure. | |
1671 * If mnemonic != NULL, *mnemonic is set to the character after the first '&'. | |
1672 * If actext != NULL, *actext is set to the text after the first TAB. | |
1673 */ | |
1674 static char_u * | |
1675 menu_text(str, mnemonic, actext) | |
1676 char_u *str; | |
1677 int *mnemonic; | |
1678 char_u **actext; | |
1679 { | |
1680 char_u *p; | |
1681 char_u *text; | |
1682 | |
1683 /* Locate accelerator text, after the first TAB */ | |
1684 p = vim_strchr(str, TAB); | |
1685 if (p != NULL) | |
1686 { | |
1687 if (actext != NULL) | |
1688 *actext = vim_strsave(p + 1); | |
1689 text = vim_strnsave(str, (int)(p - str)); | |
1690 } | |
1691 else | |
1692 text = vim_strsave(str); | |
1693 | |
1694 /* Find mnemonic characters "&a" and reduce "&&" to "&". */ | |
1695 for (p = text; p != NULL; ) | |
1696 { | |
1697 p = vim_strchr(p, '&'); | |
1698 if (p != NULL) | |
1699 { | |
1700 if (p[1] == NUL) /* trailing "&" */ | |
1701 break; | |
1702 if (mnemonic != NULL && p[1] != '&') | |
1703 #if !defined(__MVS__) || defined(MOTIF390_MNEMONIC_FIXED) | |
1704 *mnemonic = p[1]; | |
1705 #else | |
1706 { | |
1707 /* | |
1708 * Well there is a bug in the Motif libraries on OS390 Unix. | |
1709 * The mnemonic keys needs to be converted to ASCII values | |
1710 * first. | |
1711 * This behavior has been seen in 2.8 and 2.9. | |
1712 */ | |
1713 char c = p[1]; | |
1714 __etoa_l(&c, 1); | |
1715 *mnemonic = c; | |
1716 } | |
1717 #endif | |
1624 | 1718 STRMOVE(p, p + 1); |
7 | 1719 p = p + 1; |
1720 } | |
1721 } | |
1722 return text; | |
1723 } | |
1724 | |
1725 /* | |
1726 * Return TRUE if "name" can be a menu in the MenuBar. | |
1727 */ | |
1728 int | |
1729 menu_is_menubar(name) | |
1730 char_u *name; | |
1731 { | |
1732 return (!menu_is_popup(name) | |
1733 && !menu_is_toolbar(name) | |
1734 && *name != MNU_HIDDEN_CHAR); | |
1735 } | |
1736 | |
1737 /* | |
1738 * Return TRUE if "name" is a popup menu name. | |
1739 */ | |
1740 int | |
1741 menu_is_popup(name) | |
1742 char_u *name; | |
1743 { | |
1744 return (STRNCMP(name, "PopUp", 5) == 0); | |
1745 } | |
1746 | |
1747 #if (defined(FEAT_GUI_MOTIF) && (XmVersion <= 1002)) || defined(PROTO) | |
1748 /* | |
1749 * Return TRUE if "name" is part of a popup menu. | |
1750 */ | |
1751 int | |
1752 menu_is_child_of_popup(menu) | |
1753 vimmenu_T *menu; | |
1754 { | |
1755 while (menu->parent != NULL) | |
1756 menu = menu->parent; | |
1757 return menu_is_popup(menu->name); | |
1758 } | |
1759 #endif | |
1760 | |
1761 /* | |
1762 * Return TRUE if "name" is a toolbar menu name. | |
1763 */ | |
1764 int | |
1765 menu_is_toolbar(name) | |
1766 char_u *name; | |
1767 { | |
1768 return (STRNCMP(name, "ToolBar", 7) == 0); | |
1769 } | |
1770 | |
1771 /* | |
1772 * Return TRUE if the name is a menu separator identifier: Starts and ends | |
1773 * with '-' | |
1774 */ | |
1775 int | |
1776 menu_is_separator(name) | |
1777 char_u *name; | |
1778 { | |
1779 return (name[0] == '-' && name[STRLEN(name) - 1] == '-'); | |
1780 } | |
1781 | |
1782 /* | |
1783 * Return TRUE if the menu is hidden: Starts with ']' | |
1784 */ | |
1785 static int | |
1786 menu_is_hidden(name) | |
1787 char_u *name; | |
1788 { | |
1789 return (name[0] == ']') || (menu_is_popup(name) && name[5] != NUL); | |
1790 } | |
1791 | |
1792 #if defined(FEAT_CMDL_COMPL) \ | |
1793 || (defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF)) | |
1794 /* | |
1795 * Return TRUE if the menu is the tearoff menu. | |
1796 */ | |
1797 static int | |
1798 menu_is_tearoff(name) | |
1880 | 1799 char_u *name UNUSED; |
7 | 1800 { |
1801 #ifdef FEAT_GUI | |
1802 return (STRCMP(name, TEAR_STRING) == 0); | |
1803 #else | |
1804 return FALSE; | |
1805 #endif | |
1806 } | |
1807 #endif | |
1808 | |
1809 #ifdef FEAT_GUI | |
1810 | |
1811 static int | |
1812 get_menu_mode() | |
1813 { | |
1814 #ifdef FEAT_VISUAL | |
1815 if (VIsual_active) | |
791 | 1816 { |
856 | 1817 if (VIsual_select) |
1818 return MENU_INDEX_SELECT; | |
7 | 1819 return MENU_INDEX_VISUAL; |
791 | 1820 } |
7 | 1821 #endif |
1822 if (State & INSERT) | |
1823 return MENU_INDEX_INSERT; | |
1824 if ((State & CMDLINE) || State == ASKMORE || State == HITRETURN) | |
1825 return MENU_INDEX_CMDLINE; | |
1826 if (finish_op) | |
1827 return MENU_INDEX_OP_PENDING; | |
1828 if (State & NORMAL) | |
1829 return MENU_INDEX_NORMAL; | |
1830 if (State & LANGMAP) /* must be a "r" command, like Insert mode */ | |
1831 return MENU_INDEX_INSERT; | |
1832 return MENU_INDEX_INVALID; | |
1833 } | |
1834 | |
1835 /* | |
936 | 1836 * Check that a pointer appears in the menu tree. Used to protect from using |
1837 * a menu that was deleted after it was selected but before the event was | |
1838 * handled. | |
1839 * Return OK or FAIL. Used recursively. | |
1840 */ | |
1841 int | |
1842 check_menu_pointer(root, menu_to_check) | |
1843 vimmenu_T *root; | |
1844 vimmenu_T *menu_to_check; | |
1845 { | |
1846 vimmenu_T *p; | |
1847 | |
1848 for (p = root; p != NULL; p = p->next) | |
1849 if (p == menu_to_check | |
1850 || (p->children != NULL | |
1851 && check_menu_pointer(p->children, menu_to_check) == OK)) | |
1852 return OK; | |
1853 return FAIL; | |
1854 } | |
1855 | |
1856 /* | |
7 | 1857 * After we have started the GUI, then we can create any menus that have been |
1858 * defined. This is done once here. add_menu_path() may have already been | |
1859 * called to define these menus, and may be called again. This function calls | |
1860 * itself recursively. Should be called at the top level with: | |
1861 * gui_create_initial_menus(root_menu, NULL); | |
1862 */ | |
1863 void | |
1864 gui_create_initial_menus(menu) | |
1865 vimmenu_T *menu; | |
1866 { | |
1867 int idx = 0; | |
1868 | |
1869 while (menu != NULL) | |
1870 { | |
1871 /* Don't add a menu when only a tip was defined. */ | |
1872 if (menu->modes & MENU_ALL_MODES) | |
1873 { | |
1874 if (menu->children != NULL) | |
1875 { | |
1876 gui_mch_add_menu(menu, idx); | |
1877 gui_create_initial_menus(menu->children); | |
1878 } | |
1879 else | |
1880 gui_mch_add_menu_item(menu, idx); | |
1881 } | |
1882 menu = menu->next; | |
1883 ++idx; | |
1884 } | |
1885 } | |
1886 | |
1887 /* | |
1888 * Used recursively by gui_update_menus (see below) | |
1889 */ | |
1890 static void | |
1891 gui_update_menus_recurse(menu, mode) | |
1892 vimmenu_T *menu; | |
1893 int mode; | |
1894 { | |
1895 int grey; | |
1896 | |
1897 while (menu) | |
1898 { | |
1899 if ((menu->modes & menu->enabled & mode) | |
1900 #if defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF) | |
1901 || menu_is_tearoff(menu->dname) | |
1902 #endif | |
1903 ) | |
1904 grey = FALSE; | |
1905 else | |
1906 grey = TRUE; | |
1907 #ifdef FEAT_GUI_ATHENA | |
1908 /* Hiding menus doesn't work for Athena, it can cause a crash. */ | |
1909 gui_mch_menu_grey(menu, grey); | |
1910 #else | |
1911 /* Never hide a toplevel menu, it may make the menubar resize or | |
1912 * disappear. Same problem for ToolBar items. */ | |
1913 if (vim_strchr(p_go, GO_GREY) != NULL || menu->parent == NULL | |
1914 # ifdef FEAT_TOOLBAR | |
1915 || menu_is_toolbar(menu->parent->name) | |
1916 # endif | |
1917 ) | |
1918 gui_mch_menu_grey(menu, grey); | |
1919 else | |
1920 gui_mch_menu_hidden(menu, grey); | |
1921 #endif | |
1922 gui_update_menus_recurse(menu->children, mode); | |
1923 menu = menu->next; | |
1924 } | |
1925 } | |
1926 | |
1927 /* | |
1928 * Make sure only the valid menu items appear for this mode. If | |
1929 * force_menu_update is not TRUE, then we only do this if the mode has changed | |
1930 * since last time. If "modes" is not 0, then we use these modes instead. | |
1931 */ | |
1932 void | |
1933 gui_update_menus(modes) | |
1934 int modes; | |
1935 { | |
1936 static int prev_mode = -1; | |
1937 int mode = 0; | |
1938 | |
1939 if (modes != 0x0) | |
1940 mode = modes; | |
1941 else | |
1942 { | |
1943 mode = get_menu_mode(); | |
1944 if (mode == MENU_INDEX_INVALID) | |
1945 mode = 0; | |
1946 else | |
1947 mode = (1 << mode); | |
1948 } | |
1949 | |
1950 if (force_menu_update || mode != prev_mode) | |
1951 { | |
1952 gui_update_menus_recurse(root_menu, mode); | |
1953 gui_mch_draw_menubar(); | |
1954 prev_mode = mode; | |
1955 force_menu_update = FALSE; | |
1956 #ifdef FEAT_GUI_W32 | |
1957 /* This can leave a tearoff as active window - make sure we | |
1958 * have the focus <negri>*/ | |
1959 gui_mch_activate_window(); | |
1960 #endif | |
1961 } | |
1962 } | |
1963 | |
575 | 1964 #if defined(FEAT_GUI_MSWIN) || defined(FEAT_GUI_MOTIF) \ |
1965 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_PHOTON) || defined(PROTO) | |
7 | 1966 /* |
1967 * Check if a key is used as a mnemonic for a toplevel menu. | |
1968 * Case of the key is ignored. | |
1969 */ | |
1970 int | |
1971 gui_is_menu_shortcut(key) | |
1972 int key; | |
1973 { | |
1974 vimmenu_T *menu; | |
1975 | |
1976 if (key < 256) | |
1977 key = TOLOWER_LOC(key); | |
1978 for (menu = root_menu; menu != NULL; menu = menu->next) | |
1979 if (menu->mnemonic == key | |
1980 || (menu->mnemonic < 256 && TOLOWER_LOC(menu->mnemonic) == key)) | |
1981 return TRUE; | |
1982 return FALSE; | |
1983 } | |
1984 #endif | |
1985 | |
1986 /* | |
1987 * Display the Special "PopUp" menu as a pop-up at the current mouse | |
1988 * position. The "PopUpn" menu is for Normal mode, "PopUpi" for Insert mode, | |
1989 * etc. | |
1990 */ | |
1991 void | |
1992 gui_show_popupmenu() | |
1993 { | |
1994 vimmenu_T *menu; | |
1995 int mode; | |
1996 | |
1997 mode = get_menu_mode(); | |
1998 if (mode == MENU_INDEX_INVALID) | |
1999 return; | |
2000 mode = menu_mode_chars[mode]; | |
2001 | |
436 | 2002 #ifdef FEAT_AUTOCMD |
2003 { | |
2004 char_u ename[2]; | |
2005 | |
2006 ename[0] = mode; | |
2007 ename[1] = NUL; | |
2008 apply_autocmds(EVENT_MENUPOPUP, ename, NULL, FALSE, curbuf); | |
2009 } | |
2010 #endif | |
2011 | |
7 | 2012 for (menu = root_menu; menu != NULL; menu = menu->next) |
2013 if (STRNCMP("PopUp", menu->name, 5) == 0 && menu->name[5] == mode) | |
2014 break; | |
2015 | |
2016 /* Only show a popup when it is defined and has entries */ | |
2017 if (menu != NULL && menu->children != NULL) | |
2018 gui_mch_show_popupmenu(menu); | |
2019 } | |
2020 #endif /* FEAT_GUI */ | |
2021 | |
2022 #if (defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF)) || defined(PROTO) | |
2023 | |
2024 /* | |
2025 * Deal with tearoff items that are added like a menu item. | |
2026 * Currently only for Win32 GUI. Others may follow later. | |
2027 */ | |
2028 | |
2029 void | |
2030 gui_mch_toggle_tearoffs(int enable) | |
2031 { | |
2032 int pri_tab[MENUDEPTH + 1]; | |
2033 int i; | |
2034 | |
2035 if (enable) | |
2036 { | |
2037 for (i = 0; i < MENUDEPTH; ++i) | |
2038 pri_tab[i] = 500; | |
2039 pri_tab[MENUDEPTH] = -1; | |
2040 gui_create_tearoffs_recurse(root_menu, (char_u *)"", pri_tab, 0); | |
2041 } | |
2042 else | |
2043 gui_destroy_tearoffs_recurse(root_menu); | |
2044 s_tearoffs = enable; | |
2045 } | |
2046 | |
2047 /* | |
2048 * Recursively add tearoff items | |
2049 */ | |
2050 static void | |
2051 gui_create_tearoffs_recurse(menu, pname, pri_tab, pri_idx) | |
2052 vimmenu_T *menu; | |
2053 const char_u *pname; | |
2054 int *pri_tab; | |
2055 int pri_idx; | |
2056 { | |
2057 char_u *newpname = NULL; | |
2058 int len; | |
2059 char_u *s; | |
2060 char_u *d; | |
2061 | |
2062 if (pri_tab[pri_idx + 1] != -1) | |
2063 ++pri_idx; | |
2064 while (menu != NULL) | |
2065 { | |
2066 if (menu->children != NULL && menu_is_menubar(menu->name)) | |
2067 { | |
2068 /* Add the menu name to the menu path. Insert a backslash before | |
2069 * dots (it's used to separate menu names). */ | |
2070 len = (int)STRLEN(pname) + (int)STRLEN(menu->name); | |
2071 for (s = menu->name; *s; ++s) | |
2072 if (*s == '.' || *s == '\\') | |
2073 ++len; | |
2074 newpname = alloc(len + TEAR_LEN + 2); | |
2075 if (newpname != NULL) | |
2076 { | |
2077 STRCPY(newpname, pname); | |
2078 d = newpname + STRLEN(newpname); | |
2079 for (s = menu->name; *s; ++s) | |
2080 { | |
2081 if (*s == '.' || *s == '\\') | |
2082 *d++ = '\\'; | |
2083 *d++ = *s; | |
2084 } | |
2085 *d = NUL; | |
2086 | |
2087 /* check if tearoff already exists */ | |
2088 if (STRCMP(menu->children->name, TEAR_STRING) != 0) | |
2089 { | |
2090 gui_add_tearoff(newpname, pri_tab, pri_idx - 1); | |
2091 *d = NUL; /* remove TEAR_STRING */ | |
2092 } | |
2093 | |
2094 STRCAT(newpname, "."); | |
2095 gui_create_tearoffs_recurse(menu->children, newpname, | |
2096 pri_tab, pri_idx); | |
2097 vim_free(newpname); | |
2098 } | |
2099 } | |
2100 menu = menu->next; | |
2101 } | |
2102 } | |
2103 | |
2104 /* | |
2105 * Add tear-off menu item for a submenu. | |
2106 * "tearpath" is the menu path, and must have room to add TEAR_STRING. | |
2107 */ | |
2108 static void | |
2109 gui_add_tearoff(tearpath, pri_tab, pri_idx) | |
2110 char_u *tearpath; | |
2111 int *pri_tab; | |
2112 int pri_idx; | |
2113 { | |
2114 char_u *tbuf; | |
2115 int t; | |
2116 vimmenu_T menuarg; | |
2117 | |
2118 tbuf = alloc(5 + (unsigned int)STRLEN(tearpath)); | |
2119 if (tbuf != NULL) | |
2120 { | |
2121 tbuf[0] = K_SPECIAL; | |
2122 tbuf[1] = K_SECOND(K_TEAROFF); | |
2123 tbuf[2] = K_THIRD(K_TEAROFF); | |
2124 STRCPY(tbuf + 3, tearpath); | |
2125 STRCAT(tbuf + 3, "\r"); | |
2126 | |
2127 STRCAT(tearpath, "."); | |
2128 STRCAT(tearpath, TEAR_STRING); | |
2129 | |
2130 /* Priority of tear-off is always 1 */ | |
2131 t = pri_tab[pri_idx + 1]; | |
2132 pri_tab[pri_idx + 1] = 1; | |
2133 | |
2134 #ifdef FEAT_TOOLBAR | |
2135 menuarg.iconfile = NULL; | |
2136 menuarg.iconidx = -1; | |
2137 menuarg.icon_builtin = FALSE; | |
2138 #endif | |
2139 menuarg.noremap[0] = REMAP_NONE; | |
2140 menuarg.silent[0] = TRUE; | |
2141 | |
2142 menuarg.modes = MENU_ALL_MODES; | |
2143 add_menu_path(tearpath, &menuarg, pri_tab, tbuf, FALSE); | |
2144 | |
2145 menuarg.modes = MENU_TIP_MODE; | |
2146 add_menu_path(tearpath, &menuarg, pri_tab, | |
2147 (char_u *)_("Tear off this menu"), FALSE); | |
2148 | |
2149 pri_tab[pri_idx + 1] = t; | |
2150 vim_free(tbuf); | |
2151 } | |
2152 } | |
2153 | |
2154 /* | |
2155 * Recursively destroy tearoff items | |
2156 */ | |
2157 static void | |
2158 gui_destroy_tearoffs_recurse(menu) | |
2159 vimmenu_T *menu; | |
2160 { | |
2161 while (menu) | |
2162 { | |
2163 if (menu->children) | |
2164 { | |
2165 /* check if tearoff exists */ | |
2166 if (STRCMP(menu->children->name, TEAR_STRING) == 0) | |
2167 { | |
2168 /* Disconnect the item and free the memory */ | |
2169 free_menu(&menu->children); | |
2170 } | |
2171 if (menu->children != NULL) /* if not the last one */ | |
2172 gui_destroy_tearoffs_recurse(menu->children); | |
2173 } | |
2174 menu = menu->next; | |
2175 } | |
2176 } | |
2177 | |
2178 #endif /* FEAT_GUI_W32 && FEAT_TEAROFF */ | |
2179 | |
2180 /* | |
2181 * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy and | |
2182 * execute it. | |
2183 */ | |
2184 void | |
2185 ex_emenu(eap) | |
2186 exarg_T *eap; | |
2187 { | |
2188 vimmenu_T *menu; | |
2189 char_u *name; | |
2190 char_u *saved_name; | |
2191 char_u *p; | |
2192 int idx; | |
2193 char_u *mode; | |
2194 | |
2195 saved_name = vim_strsave(eap->arg); | |
2196 if (saved_name == NULL) | |
2197 return; | |
2198 | |
2199 menu = root_menu; | |
2200 name = saved_name; | |
2201 while (*name) | |
2202 { | |
2203 /* Find in the menu hierarchy */ | |
2204 p = menu_name_skip(name); | |
2205 | |
2206 while (menu != NULL) | |
2207 { | |
2208 if (menu_name_equal(name, menu)) | |
2209 { | |
2210 if (*p == NUL && menu->children != NULL) | |
2211 { | |
2212 EMSG(_("E333: Menu path must lead to a menu item")); | |
2213 menu = NULL; | |
2214 } | |
2215 else if (*p != NUL && menu->children == NULL) | |
2216 { | |
2217 EMSG(_(e_notsubmenu)); | |
2218 menu = NULL; | |
2219 } | |
2220 break; | |
2221 } | |
2222 menu = menu->next; | |
2223 } | |
2224 if (menu == NULL || *p == NUL) | |
2225 break; | |
2226 menu = menu->children; | |
2227 name = p; | |
2228 } | |
2229 vim_free(saved_name); | |
2230 if (menu == NULL) | |
2231 { | |
2232 EMSG2(_("E334: Menu not found: %s"), eap->arg); | |
2233 return; | |
2234 } | |
2235 | |
36 | 2236 /* Found the menu, so execute. |
2237 * Use the Insert mode entry when returning to Insert mode. */ | |
533 | 2238 if (restart_edit |
2239 #ifdef FEAT_EVAL | |
2240 && !current_SID | |
2241 #endif | |
2242 ) | |
7 | 2243 { |
2244 mode = (char_u *)"Insert"; | |
2245 idx = MENU_INDEX_INSERT; | |
2246 } | |
2247 else if (eap->addr_count) | |
2248 { | |
2249 pos_T tpos; | |
2250 | |
2251 mode = (char_u *)"Visual"; | |
2252 idx = MENU_INDEX_VISUAL; | |
2253 | |
2254 /* GEDDES: This is not perfect - but it is a | |
2255 * quick way of detecting whether we are doing this from a | |
2256 * selection - see if the range matches up with the visual | |
36 | 2257 * select start and end. */ |
693 | 2258 if ((curbuf->b_visual.vi_start.lnum == eap->line1) |
2259 && (curbuf->b_visual.vi_end.lnum) == eap->line2) | |
7 | 2260 { |
2261 /* Set it up for visual mode - equivalent to gv. */ | |
693 | 2262 VIsual_mode = curbuf->b_visual.vi_mode; |
2263 tpos = curbuf->b_visual.vi_end; | |
2264 curwin->w_cursor = curbuf->b_visual.vi_start; | |
2265 curwin->w_curswant = curbuf->b_visual.vi_curswant; | |
7 | 2266 } |
2267 else | |
2268 { | |
2269 /* Set it up for line-wise visual mode */ | |
2270 VIsual_mode = 'V'; | |
2271 curwin->w_cursor.lnum = eap->line1; | |
2272 curwin->w_cursor.col = 1; | |
2273 tpos.lnum = eap->line2; | |
2274 tpos.col = MAXCOL; | |
700 | 2275 #ifdef FEAT_VIRTUALEDIT |
2276 tpos.coladd = 0; | |
2277 #endif | |
7 | 2278 } |
2279 | |
36 | 2280 /* Activate visual mode */ |
7 | 2281 VIsual_active = TRUE; |
2282 VIsual_reselect = TRUE; | |
2283 check_cursor(); | |
2284 VIsual = curwin->w_cursor; | |
2285 curwin->w_cursor = tpos; | |
2286 | |
2287 check_cursor(); | |
2288 | |
2289 /* Adjust the cursor to make sure it is in the correct pos | |
36 | 2290 * for exclusive mode */ |
7 | 2291 if (*p_sel == 'e' && gchar_cursor() != NUL) |
2292 ++curwin->w_cursor.col; | |
2293 } | |
2294 else | |
2295 { | |
2296 mode = (char_u *)"Normal"; | |
2297 idx = MENU_INDEX_NORMAL; | |
2298 } | |
2299 | |
2300 if (idx != MENU_INDEX_INVALID && menu->strings[idx] != NULL) | |
2301 { | |
36 | 2302 /* When executing a script or function execute the commands right now. |
2303 * Otherwise put them in the typeahead buffer. */ | |
1050 | 2304 #ifdef FEAT_EVAL |
36 | 2305 if (current_SID != 0) |
2306 exec_normal_cmd(menu->strings[idx], menu->noremap[idx], | |
2307 menu->silent[idx]); | |
2308 else | |
533 | 2309 #endif |
36 | 2310 ins_typebuf(menu->strings[idx], menu->noremap[idx], 0, |
7 | 2311 TRUE, menu->silent[idx]); |
2312 } | |
2313 else | |
2314 EMSG2(_("E335: Menu not defined for %s mode"), mode); | |
2315 } | |
2316 | |
2317 #if defined(FEAT_GUI_MSWIN) \ | |
2318 || (defined(FEAT_GUI_GTK) && defined(FEAT_MENU)) \ | |
2319 || defined(FEAT_BEVAL_TIP) || defined(PROTO) | |
2320 /* | |
2321 * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy. | |
2322 */ | |
2323 vimmenu_T * | |
2324 gui_find_menu(path_name) | |
2325 char_u *path_name; | |
2326 { | |
2327 vimmenu_T *menu = NULL; | |
2328 char_u *name; | |
2329 char_u *saved_name; | |
2330 char_u *p; | |
2331 | |
2332 menu = root_menu; | |
2333 | |
2334 saved_name = vim_strsave(path_name); | |
2335 if (saved_name == NULL) | |
2336 return NULL; | |
2337 | |
2338 name = saved_name; | |
2339 while (*name) | |
2340 { | |
2341 /* find the end of one dot-separated name and put a NUL at the dot */ | |
2342 p = menu_name_skip(name); | |
2343 | |
2344 while (menu != NULL) | |
2345 { | |
2676 | 2346 if (menu_name_equal(name, menu)) |
7 | 2347 { |
2348 if (menu->children == NULL) | |
2349 { | |
2350 /* found a menu item instead of a sub-menu */ | |
2351 if (*p == NUL) | |
2352 EMSG(_("E336: Menu path must lead to a sub-menu")); | |
2353 else | |
2354 EMSG(_(e_notsubmenu)); | |
2355 menu = NULL; | |
2356 goto theend; | |
2357 } | |
2358 if (*p == NUL) /* found a full match */ | |
2359 goto theend; | |
2360 break; | |
2361 } | |
2362 menu = menu->next; | |
2363 } | |
2364 if (menu == NULL) /* didn't find it */ | |
2365 break; | |
2366 | |
2367 /* Found a match, search the sub-menu. */ | |
2368 menu = menu->children; | |
2369 name = p; | |
2370 } | |
2371 | |
2372 if (menu == NULL) | |
2373 EMSG(_("E337: Menu not found - check menu names")); | |
2374 theend: | |
2375 vim_free(saved_name); | |
2376 return menu; | |
2377 } | |
2378 #endif | |
2379 | |
2380 #ifdef FEAT_MULTI_LANG | |
2381 /* | |
2382 * Translation of menu names. Just a simple lookup table. | |
2383 */ | |
2384 | |
2385 typedef struct | |
2386 { | |
2387 char_u *from; /* English name */ | |
2388 char_u *from_noamp; /* same, without '&' */ | |
2389 char_u *to; /* translated name */ | |
2390 } menutrans_T; | |
2391 | |
2392 static garray_T menutrans_ga = {0, 0, 0, 0, NULL}; | |
2393 #endif | |
2394 | |
2395 /* | |
2396 * ":menutrans". | |
2397 * This function is also defined without the +multi_lang feature, in which | |
2398 * case the commands are ignored. | |
2399 */ | |
2400 void | |
2401 ex_menutranslate(eap) | |
1883 | 2402 exarg_T *eap UNUSED; |
7 | 2403 { |
2404 #ifdef FEAT_MULTI_LANG | |
2405 char_u *arg = eap->arg; | |
2406 menutrans_T *tp; | |
2407 int i; | |
2408 char_u *from, *from_noamp, *to; | |
2409 | |
2410 if (menutrans_ga.ga_itemsize == 0) | |
2411 ga_init2(&menutrans_ga, (int)sizeof(menutrans_T), 5); | |
2412 | |
2413 /* | |
2414 * ":menutrans clear": clear all translations. | |
2415 */ | |
2416 if (STRNCMP(arg, "clear", 5) == 0 && ends_excmd(*skipwhite(arg + 5))) | |
2417 { | |
2418 tp = (menutrans_T *)menutrans_ga.ga_data; | |
2419 for (i = 0; i < menutrans_ga.ga_len; ++i) | |
2420 { | |
2421 vim_free(tp[i].from); | |
2422 vim_free(tp[i].from_noamp); | |
2423 vim_free(tp[i].to); | |
2424 } | |
2425 ga_clear(&menutrans_ga); | |
2426 # ifdef FEAT_EVAL | |
2427 /* Delete all "menutrans_" global variables. */ | |
2428 del_menutrans_vars(); | |
2429 # endif | |
2430 } | |
2431 else | |
2432 { | |
2433 /* ":menutrans from to": add translation */ | |
2434 from = arg; | |
2435 arg = menu_skip_part(arg); | |
2436 to = skipwhite(arg); | |
2437 *arg = NUL; | |
2438 arg = menu_skip_part(to); | |
2439 if (arg == to) | |
2440 EMSG(_(e_invarg)); | |
2441 else | |
2442 { | |
2443 if (ga_grow(&menutrans_ga, 1) == OK) | |
2444 { | |
2445 tp = (menutrans_T *)menutrans_ga.ga_data; | |
2446 from = vim_strsave(from); | |
838 | 2447 if (from != NULL) |
7 | 2448 { |
838 | 2449 from_noamp = menu_text(from, NULL, NULL); |
2450 to = vim_strnsave(to, (int)(arg - to)); | |
2451 if (from_noamp != NULL && to != NULL) | |
2452 { | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2453 menu_translate_tab_and_shift(from); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2454 menu_translate_tab_and_shift(to); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2455 menu_unescape_name(from); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2456 menu_unescape_name(to); |
838 | 2457 tp[menutrans_ga.ga_len].from = from; |
2458 tp[menutrans_ga.ga_len].from_noamp = from_noamp; | |
2459 tp[menutrans_ga.ga_len].to = to; | |
2460 ++menutrans_ga.ga_len; | |
2461 } | |
2462 else | |
2463 { | |
2464 vim_free(from); | |
2465 vim_free(from_noamp); | |
2466 vim_free(to); | |
2467 } | |
7 | 2468 } |
2469 } | |
2470 } | |
2471 } | |
2472 #endif | |
2473 } | |
2474 | |
2475 #if defined(FEAT_MULTI_LANG) || defined(FEAT_TOOLBAR) | |
2476 /* | |
2477 * Find the character just after one part of a menu name. | |
2478 */ | |
2479 static char_u * | |
2480 menu_skip_part(p) | |
2481 char_u *p; | |
2482 { | |
2483 while (*p != NUL && *p != '.' && !vim_iswhite(*p)) | |
2484 { | |
2485 if ((*p == '\\' || *p == Ctrl_V) && p[1] != NUL) | |
2486 ++p; | |
2487 ++p; | |
2488 } | |
2489 return p; | |
2490 } | |
2491 #endif | |
2492 | |
2493 #ifdef FEAT_MULTI_LANG | |
2494 /* | |
2495 * Lookup part of a menu name in the translations. | |
2496 * Return a pointer to the translation or NULL if not found. | |
2497 */ | |
2498 static char_u * | |
2499 menutrans_lookup(name, len) | |
2500 char_u *name; | |
2501 int len; | |
2502 { | |
2503 menutrans_T *tp = (menutrans_T *)menutrans_ga.ga_data; | |
2504 int i; | |
2505 char_u *dname; | |
2506 | |
2507 for (i = 0; i < menutrans_ga.ga_len; ++i) | |
2508 if (STRNCMP(name, tp[i].from, len) == 0 && tp[i].from[len] == NUL) | |
2509 return tp[i].to; | |
2510 | |
2511 /* Now try again while ignoring '&' characters. */ | |
2512 i = name[len]; | |
2513 name[len] = NUL; | |
2514 dname = menu_text(name, NULL, NULL); | |
2515 name[len] = i; | |
2516 if (dname != NULL) | |
2517 { | |
2518 for (i = 0; i < menutrans_ga.ga_len; ++i) | |
2519 if (STRCMP(dname, tp[i].from_noamp) == 0) | |
2520 { | |
2521 vim_free(dname); | |
2522 return tp[i].to; | |
2523 } | |
2524 vim_free(dname); | |
2525 } | |
2526 | |
2527 return NULL; | |
2528 } | |
2529 | |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2530 /* |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2531 * Unescape the name in the translate dictionary table. |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2532 */ |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2533 static void |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2534 menu_unescape_name(name) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2535 char_u *name; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2536 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2537 char_u *p; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2538 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2539 for (p = name; *p && *p != '.'; mb_ptr_adv(p)) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2540 if (*p == '\\') |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2541 STRMOVE(p, p + 1); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2542 } |
2251
646d34788036
Fix a few compiler warnings. Fix crash with encrypted undo file.
Bram Moolenaar <bram@vim.org>
parents:
2217
diff
changeset
|
2543 #endif /* FEAT_MULTI_LANG */ |
2150
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2544 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2545 /* |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2546 * Isolate the menu name. |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2547 * Skip the menu name, and translate <Tab> into a real TAB. |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2548 */ |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2549 static char_u * |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2550 menu_translate_tab_and_shift(arg_start) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2551 char_u *arg_start; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2552 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2553 char_u *arg = arg_start; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2554 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2555 while (*arg && !vim_iswhite(*arg)) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2556 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2557 if ((*arg == '\\' || *arg == Ctrl_V) && arg[1] != NUL) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2558 arg++; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2559 else if (STRNICMP(arg, "<TAB>", 5) == 0) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2560 { |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2561 *arg = TAB; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2562 STRMOVE(arg + 1, arg + 5); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2563 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2564 arg++; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2565 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2566 if (*arg != NUL) |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2567 *arg++ = NUL; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2568 arg = skipwhite(arg); |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2569 |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2570 return arg; |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2571 } |
4269a0673478
updated for version 7.2.432
Bram Moolenaar <bram@zimbu.org>
parents:
2149
diff
changeset
|
2572 |
7 | 2573 #endif /* FEAT_MENU */ |