diff options
Diffstat (limited to 'src/menu.c')
| -rw-r--r-- | src/menu.c | 1616 |
1 files changed, 0 insertions, 1616 deletions
diff --git a/src/menu.c b/src/menu.c deleted file mode 100644 index e454b8c971..0000000000 --- a/src/menu.c +++ /dev/null @@ -1,1616 +0,0 @@ -/* - * VIM - Vi IMproved by Bram Moolenaar - * GUI/Motif support by Robert Webb - * - * Do ":help uganda" in Vim to read copying and usage conditions. - * Do ":help credits" in Vim to see a list of people who contributed. - * See README.txt for an overview of the Vim source code. - */ - -/* - * Code for menus. Used for the GUI and 'wildmenu'. - */ - -#include <string.h> - -#include "vim.h" -#include "menu.h" -#include "charset.h" -#include "eval.h" -#include "ex_docmd.h" -#include "getchar.h" -#include "memory.h" -#include "message.h" -#include "misc1.h" -#include "misc2.h" -#include "keymap.h" -#include "garray.h" -#include "term.h" - - -#define MENUDEPTH 10 /* maximum depth of menus */ - -static int add_menu_path(char_u *, vimmenu_T *, int *, char_u *); -static int menu_nable_recurse(vimmenu_T *menu, char_u *name, int modes, - int enable); -static int remove_menu(vimmenu_T **, char_u *, int, int silent); -static void free_menu(vimmenu_T **menup); -static void free_menu_string(vimmenu_T *, int); -static int show_menus(char_u *, int); -static void show_menus_recursive(vimmenu_T *, int, int); -static int menu_name_equal(char_u *name, vimmenu_T *menu); -static int menu_namecmp(char_u *name, char_u *mname); -static int get_menu_cmd_modes(char_u *, int, int *, int *); -static char_u *popup_mode_name(char_u *name, int idx); -static char_u *menu_text(char_u *text, int *mnemonic, char_u **actext); - - -static int menu_is_hidden(char_u *name); -static int menu_is_tearoff(char_u *name); - -static char_u *menu_skip_part(char_u *p); -static char_u *menutrans_lookup(char_u *name, int len); -static void menu_unescape_name(char_u *p); - -static char_u *menu_translate_tab_and_shift(char_u *arg_start); - -/* The character for each menu mode */ -static char_u menu_mode_chars[] = {'n', 'v', 's', 'o', 'i', 'c', 't'}; - -static char_u e_notsubmenu[] = N_( - "E327: Part of menu-item path is not sub-menu"); -static char_u e_othermode[] = N_("E328: Menu only exists in another mode"); -static char_u e_nomenu[] = N_("E329: No menu \"%s\""); - - -/* - * Do the :menu command and relatives. - */ -void -ex_menu ( - exarg_T *eap /* Ex command arguments */ -) -{ - char_u *menu_path; - int modes; - char_u *map_to; - int noremap; - int silent = FALSE; - int special = FALSE; - int unmenu; - char_u *map_buf; - char_u *arg; - char_u *p; - int i; - int pri_tab[MENUDEPTH + 1]; - int enable = MAYBE; /* TRUE for "menu enable", FALSE for "menu - * disable */ - vimmenu_T menuarg; - - modes = get_menu_cmd_modes(eap->cmd, eap->forceit, &noremap, &unmenu); - arg = eap->arg; - - for (;; ) { - if (STRNCMP(arg, "<script>", 8) == 0) { - noremap = REMAP_SCRIPT; - arg = skipwhite(arg + 8); - continue; - } - if (STRNCMP(arg, "<silent>", 8) == 0) { - silent = TRUE; - arg = skipwhite(arg + 8); - continue; - } - if (STRNCMP(arg, "<special>", 9) == 0) { - special = TRUE; - arg = skipwhite(arg + 9); - continue; - } - break; - } - - - /* Locate an optional "icon=filename" argument. */ - if (STRNCMP(arg, "icon=", 5) == 0) { - arg += 5; - while (*arg != NUL && *arg != ' ') { - if (*arg == '\\') - STRMOVE(arg, arg + 1); - mb_ptr_adv(arg); - } - if (*arg != NUL) { - *arg++ = NUL; - arg = skipwhite(arg); - } - } - - /* - * Fill in the priority table. - */ - for (p = arg; *p; ++p) - if (!VIM_ISDIGIT(*p) && *p != '.') - break; - if (vim_iswhite(*p)) { - for (i = 0; i < MENUDEPTH && !vim_iswhite(*arg); ++i) { - pri_tab[i] = getdigits(&arg); - if (pri_tab[i] == 0) - pri_tab[i] = 500; - if (*arg == '.') - ++arg; - } - arg = skipwhite(arg); - } else if (eap->addr_count && eap->line2 != 0) { - pri_tab[0] = eap->line2; - i = 1; - } else - i = 0; - while (i < MENUDEPTH) - pri_tab[i++] = 500; - pri_tab[MENUDEPTH] = -1; /* mark end of the table */ - - /* - * Check for "disable" or "enable" argument. - */ - if (STRNCMP(arg, "enable", 6) == 0 && vim_iswhite(arg[6])) { - enable = TRUE; - arg = skipwhite(arg + 6); - } else if (STRNCMP(arg, "disable", 7) == 0 && vim_iswhite(arg[7])) { - enable = FALSE; - arg = skipwhite(arg + 7); - } - - /* - * If there is no argument, display all menus. - */ - if (*arg == NUL) { - show_menus(arg, modes); - return; - } - - - menu_path = arg; - if (*menu_path == '.') { - EMSG2(_(e_invarg2), menu_path); - goto theend; - } - - map_to = menu_translate_tab_and_shift(arg); - - /* - * If there is only a menu name, display menus with that name. - */ - if (*map_to == NUL && !unmenu && enable == MAYBE) { - show_menus(menu_path, modes); - goto theend; - } else if (*map_to != NUL && (unmenu || enable != MAYBE)) { - EMSG(_(e_trailing)); - goto theend; - } - - if (enable != MAYBE) { - /* - * Change sensitivity of the menu. - * For the PopUp menu, remove a menu for each mode separately. - * Careful: menu_nable_recurse() changes menu_path. - */ - if (STRCMP(menu_path, "*") == 0) /* meaning: do all menus */ - menu_path = (char_u *)""; - - if (menu_is_popup(menu_path)) { - for (i = 0; i < MENU_INDEX_TIP; ++i) - if (modes & (1 << i)) { - p = popup_mode_name(menu_path, i); - if (p != NULL) { - menu_nable_recurse(root_menu, p, MENU_ALL_MODES, - enable); - free(p); - } - } - } - menu_nable_recurse(root_menu, menu_path, modes, enable); - } else if (unmenu) { - /* - * Delete menu(s). - */ - if (STRCMP(menu_path, "*") == 0) /* meaning: remove all menus */ - menu_path = (char_u *)""; - - /* - * For the PopUp menu, remove a menu for each mode separately. - */ - if (menu_is_popup(menu_path)) { - for (i = 0; i < MENU_INDEX_TIP; ++i) - if (modes & (1 << i)) { - p = popup_mode_name(menu_path, i); - if (p != NULL) { - remove_menu(&root_menu, p, MENU_ALL_MODES, TRUE); - free(p); - } - } - } - - /* Careful: remove_menu() changes menu_path */ - remove_menu(&root_menu, menu_path, modes, FALSE); - } else { - /* - * Add menu(s). - * Replace special key codes. - */ - if (STRICMP(map_to, "<nop>") == 0) { /* "<Nop>" means nothing */ - map_to = (char_u *)""; - map_buf = NULL; - } else if (modes & MENU_TIP_MODE) - map_buf = NULL; /* Menu tips are plain text. */ - else - map_to = replace_termcodes(map_to, &map_buf, FALSE, TRUE, special); - menuarg.modes = modes; - menuarg.noremap[0] = noremap; - menuarg.silent[0] = silent; - add_menu_path(menu_path, &menuarg, pri_tab, map_to - ); - - /* - * For the PopUp menu, add a menu for each mode separately. - */ - if (menu_is_popup(menu_path)) { - for (i = 0; i < MENU_INDEX_TIP; ++i) - if (modes & (1 << i)) { - p = popup_mode_name(menu_path, i); - if (p != NULL) { - /* Include all modes, to make ":amenu" work */ - menuarg.modes = modes; - add_menu_path(p, &menuarg, pri_tab, map_to - ); - free(p); - } - } - } - - free(map_buf); - } - - -theend: - ; -} - -/* - * Add the menu with the given name to the menu hierarchy - */ -static int -add_menu_path ( - char_u *menu_path, - vimmenu_T *menuarg, /* passes modes, iconfile, iconidx, - icon_builtin, silent[0], noremap[0] */ - int *pri_tab, - char_u *call_data -) -{ - char_u *path_name; - int modes = menuarg->modes; - vimmenu_T **menup; - vimmenu_T *menu = NULL; - vimmenu_T *parent; - vimmenu_T **lower_pri; - char_u *p; - char_u *name; - char_u *dname; - char_u *next_name; - int i; - int c; - int d; - int pri_idx = 0; - int old_modes = 0; - int amenu; - char_u *en_name; - char_u *map_to = NULL; - - /* Make a copy so we can stuff around with it, since it could be const */ - path_name = vim_strsave(menu_path); - if (path_name == NULL) - return FAIL; - menup = &root_menu; - parent = NULL; - name = path_name; - while (*name) { - /* Get name of this element in the menu hierarchy, and the simplified - * name (without mnemonic and accelerator text). */ - next_name = menu_name_skip(name); - map_to = menutrans_lookup(name, (int)STRLEN(name)); - if (map_to != NULL) { - en_name = name; - name = map_to; - } else - en_name = NULL; - dname = menu_text(name, NULL, NULL); - if (dname == NULL) - goto erret; - if (*dname == NUL) { - /* Only a mnemonic or accelerator is not valid. */ - EMSG(_("E792: Empty menu name")); - goto erret; - } - - /* See if it's already there */ - lower_pri = menup; - menu = *menup; - while (menu != NULL) { - if (menu_name_equal(name, menu) || menu_name_equal(dname, menu)) { - if (*next_name == NUL && menu->children != NULL) { - if (!sys_menu) - EMSG(_("E330: Menu path must not lead to a sub-menu")); - goto erret; - } - if (*next_name != NUL && menu->children == NULL - ) { - if (!sys_menu) - EMSG(_(e_notsubmenu)); - goto erret; - } - break; - } - menup = &menu->next; - - /* Count menus, to find where this one needs to be inserted. - * Ignore menus that are not in the menubar (PopUp and Toolbar) */ - if (parent != NULL || menu_is_menubar(menu->name)) { - if (menu->priority <= pri_tab[pri_idx]) { - lower_pri = menup; - } - } - menu = menu->next; - } - - if (menu == NULL) { - if (*next_name == NUL && parent == NULL) { - EMSG(_("E331: Must not add menu items directly to menu bar")); - goto erret; - } - - if (menu_is_separator(dname) && *next_name != NUL) { - EMSG(_("E332: Separator cannot be part of a menu path")); - goto erret; - } - - /* Not already there, so lets add it */ - menu = xcalloc(1, sizeof(vimmenu_T)); - - menu->modes = modes; - menu->enabled = MENU_ALL_MODES; - menu->name = vim_strsave(name); - /* separate mnemonic and accelerator text from actual menu name */ - menu->dname = menu_text(name, &menu->mnemonic, &menu->actext); - if (en_name != NULL) { - menu->en_name = vim_strsave(en_name); - menu->en_dname = menu_text(en_name, NULL, NULL); - } else { - menu->en_name = NULL; - menu->en_dname = NULL; - } - menu->priority = pri_tab[pri_idx]; - menu->parent = parent; - - /* - * Add after menu that has lower priority. - */ - menu->next = *lower_pri; - *lower_pri = menu; - - old_modes = 0; - - } else { - old_modes = menu->modes; - - /* - * If this menu option was previously only available in other - * modes, then make sure it's available for this one now - * Also enable a menu when it's created or changed. - */ - { - menu->modes |= modes; - menu->enabled |= modes; - } - } - - - menup = &menu->children; - parent = menu; - name = next_name; - free(dname); - dname = NULL; - if (pri_tab[pri_idx + 1] != -1) - ++pri_idx; - } - free(path_name); - - /* - * Only add system menu items which have not been defined yet. - * First check if this was an ":amenu". - */ - amenu = ((modes & (MENU_NORMAL_MODE | MENU_INSERT_MODE)) == - (MENU_NORMAL_MODE | MENU_INSERT_MODE)); - if (sys_menu) - modes &= ~old_modes; - - if (menu != NULL && modes) { - p = (call_data == NULL) ? NULL : vim_strsave(call_data); - - /* loop over all modes, may add more than one */ - for (i = 0; i < MENU_MODES; ++i) { - if (modes & (1 << i)) { - /* free any old menu */ - free_menu_string(menu, i); - - /* For "amenu", may insert an extra character. - * Don't do this if adding a tearbar (addtearoff == FALSE). - * Don't do this for "<Nop>". */ - c = 0; - d = 0; - if (amenu && call_data != NULL && *call_data != NUL - ) { - switch (1 << i) { - case MENU_VISUAL_MODE: - case MENU_SELECT_MODE: - case MENU_OP_PENDING_MODE: - case MENU_CMDLINE_MODE: - c = Ctrl_C; - break; - case MENU_INSERT_MODE: - c = Ctrl_BSL; - d = Ctrl_O; - break; - } - } - - if (c != 0) { - menu->strings[i] = alloc((unsigned)(STRLEN(call_data) + 5 )); - menu->strings[i][0] = c; - if (d == 0) - STRCPY(menu->strings[i] + 1, call_data); - else { - menu->strings[i][1] = d; - STRCPY(menu->strings[i] + 2, call_data); - } - if (c == Ctrl_C) { - int len = (int)STRLEN(menu->strings[i]); - - /* Append CTRL-\ CTRL-G to obey 'insertmode'. */ - menu->strings[i][len] = Ctrl_BSL; - menu->strings[i][len + 1] = Ctrl_G; - menu->strings[i][len + 2] = NUL; - } - } else - menu->strings[i] = p; - menu->noremap[i] = menuarg->noremap[0]; - menu->silent[i] = menuarg->silent[0]; - } - } -#if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) \ - && (defined(FEAT_BEVAL) || defined(FEAT_GUI_GTK)) - /* Need to update the menu tip. */ - if (modes & MENU_TIP_MODE) - gui_mch_menu_set_tip(menu); -#endif - } - return OK; - -erret: - free(path_name); - free(dname); - - /* Delete any empty submenu we added before discovering the error. Repeat - * for higher levels. */ - while (parent != NULL && parent->children == NULL) { - if (parent->parent == NULL) - menup = &root_menu; - else - menup = &parent->parent->children; - for (; *menup != NULL && *menup != parent; menup = &((*menup)->next)) - ; - if (*menup == NULL) /* safety check */ - break; - parent = parent->parent; - free_menu(menup); - } - return FAIL; -} - -/* - * Set the (sub)menu with the given name to enabled or disabled. - * Called recursively. - */ -static int menu_nable_recurse(vimmenu_T *menu, char_u *name, int modes, int enable) -{ - char_u *p; - - if (menu == NULL) - return OK; /* Got to bottom of hierarchy */ - - /* Get name of this element in the menu hierarchy */ - p = menu_name_skip(name); - - /* Find the menu */ - while (menu != NULL) { - if (*name == NUL || *name == '*' || menu_name_equal(name, menu)) { - if (*p != NUL) { - if (menu->children == NULL) { - EMSG(_(e_notsubmenu)); - return FAIL; - } - if (menu_nable_recurse(menu->children, p, modes, enable) - == FAIL) - return FAIL; - } else if (enable) - menu->enabled |= modes; - else - menu->enabled &= ~modes; - - /* - * When name is empty, we are doing all menu items for the given - * modes, so keep looping, otherwise we are just doing the named - * menu item (which has been found) so break here. - */ - if (*name != NUL && *name != '*') - break; - } - menu = menu->next; - } - if (*name != NUL && *name != '*' && menu == NULL) { - EMSG2(_(e_nomenu), name); - return FAIL; - } - - - return OK; -} - -/* - * Remove the (sub)menu with the given name from the menu hierarchy - * Called recursively. - */ -static int -remove_menu ( - vimmenu_T **menup, - char_u *name, - int modes, - int silent /* don't give error messages */ -) -{ - vimmenu_T *menu; - vimmenu_T *child; - char_u *p; - - if (*menup == NULL) - return OK; /* Got to bottom of hierarchy */ - - /* Get name of this element in the menu hierarchy */ - p = menu_name_skip(name); - - /* Find the menu */ - while ((menu = *menup) != NULL) { - if (*name == NUL || menu_name_equal(name, menu)) { - if (*p != NUL && menu->children == NULL) { - if (!silent) - EMSG(_(e_notsubmenu)); - return FAIL; - } - if ((menu->modes & modes) != 0x0) { -#if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) - /* - * If we are removing all entries for this menu,MENU_ALL_MODES, - * Then kill any tearoff before we start - */ - if (*p == NUL && modes == MENU_ALL_MODES) { - if (IsWindow(menu->tearoff_handle)) - DestroyWindow(menu->tearoff_handle); - } -#endif - if (remove_menu(&menu->children, p, modes, silent) == FAIL) - return FAIL; - } else if (*name != NUL) { - if (!silent) - EMSG(_(e_othermode)); - return FAIL; - } - - /* - * When name is empty, we are removing all menu items for the given - * modes, so keep looping, otherwise we are just removing the named - * menu item (which has been found) so break here. - */ - if (*name != NUL) - break; - - /* Remove the menu item for the given mode[s]. If the menu item - * is no longer valid in ANY mode, delete it */ - menu->modes &= ~modes; - if (modes & MENU_TIP_MODE) - free_menu_string(menu, MENU_INDEX_TIP); - if ((menu->modes & MENU_ALL_MODES) == 0) - free_menu(menup); - else - menup = &menu->next; - } else - menup = &menu->next; - } - if (*name != NUL) { - if (menu == NULL) { - if (!silent) - EMSG2(_(e_nomenu), name); - return FAIL; - } - - - /* Recalculate modes for menu based on the new updated children */ - menu->modes &= ~modes; -#if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) - if ((s_tearoffs) && (menu->children != NULL)) /* there's a tear bar.. */ - child = menu->children->next; /* don't count tearoff bar */ - else -#endif - child = menu->children; - for (; child != NULL; child = child->next) - menu->modes |= child->modes; - if (modes & MENU_TIP_MODE) { - free_menu_string(menu, MENU_INDEX_TIP); -#if defined(FEAT_TOOLBAR) && !defined(FEAT_GUI_W32) \ - && (defined(FEAT_BEVAL) || defined(FEAT_GUI_GTK)) - /* Need to update the menu tip. */ - if (gui.in_use) - gui_mch_menu_set_tip(menu); -#endif - } - if ((menu->modes & MENU_ALL_MODES) == 0) { - /* The menu item is no longer valid in ANY mode, so delete it */ -#if defined(FEAT_GUI_W32) & defined(FEAT_TEAROFF) - if (s_tearoffs && menu->children != NULL) /* there's a tear bar.. */ - free_menu(&menu->children); -#endif - *menup = menu; - free_menu(menup); - } - } - - return OK; -} - -/* - * Free the given menu structure and remove it from the linked list. - */ -static void free_menu(vimmenu_T **menup) -{ - int i; - vimmenu_T *menu; - - menu = *menup; - - - /* Don't change *menup until after calling gui_mch_destroy_menu(). The - * MacOS code needs the original structure to properly delete the menu. */ - *menup = menu->next; - free(menu->name); - free(menu->dname); - free(menu->en_name); - free(menu->en_dname); - free(menu->actext); - for (i = 0; i < MENU_MODES; i++) - free_menu_string(menu, i); - free(menu); - -} - -/* - * Free the menu->string with the given index. - */ -static void free_menu_string(vimmenu_T *menu, int idx) -{ - int count = 0; - int i; - - for (i = 0; i < MENU_MODES; i++) - if (menu->strings[i] == menu->strings[idx]) - count++; - if (count == 1) - free(menu->strings[idx]); - menu->strings[idx] = NULL; -} - -/* - * Show the mapping associated with a menu item or hierarchy in a sub-menu. - */ -static int show_menus(char_u *path_name, int modes) -{ - char_u *p; - char_u *name; - vimmenu_T *menu; - vimmenu_T *parent = NULL; - - menu = root_menu; - name = path_name = vim_strsave(path_name); - if (path_name == NULL) - return FAIL; - - /* First, find the (sub)menu with the given name */ - while (*name) { - p = menu_name_skip(name); - while (menu != NULL) { - if (menu_name_equal(name, menu)) { - /* Found menu */ - if (*p != NUL && menu->children == NULL) { - EMSG(_(e_notsubmenu)); - free(path_name); - return FAIL; - } else if ((menu->modes & modes) == 0x0) { - EMSG(_(e_othermode)); - free(path_name); - return FAIL; - } - break; - } - menu = menu->next; - } - if (menu == NULL) { - EMSG2(_(e_nomenu), name); - free(path_name); - return FAIL; - } - name = p; - parent = menu; - menu = menu->children; - } - free(path_name); - - /* Now we have found the matching menu, and we list the mappings */ - /* Highlight title */ - MSG_PUTS_TITLE(_("\n--- Menus ---")); - - show_menus_recursive(parent, modes, 0); - return OK; -} - -/* - * Recursively show the mappings associated with the menus under the given one - */ -static void show_menus_recursive(vimmenu_T *menu, int modes, int depth) -{ - int i; - int bit; - - if (menu != NULL && (menu->modes & modes) == 0x0) - return; - - if (menu != NULL) { - msg_putchar('\n'); - if (got_int) /* "q" hit for "--more--" */ - return; - for (i = 0; i < depth; i++) - MSG_PUTS(" "); - if (menu->priority) { - msg_outnum((long)menu->priority); - MSG_PUTS(" "); - } - /* Same highlighting as for directories!? */ - msg_outtrans_attr(menu->name, hl_attr(HLF_D)); - } - - if (menu != NULL && menu->children == NULL) { - for (bit = 0; bit < MENU_MODES; bit++) - if ((menu->modes & modes & (1 << bit)) != 0) { - msg_putchar('\n'); - if (got_int) /* "q" hit for "--more--" */ - return; - for (i = 0; i < depth + 2; i++) - MSG_PUTS(" "); - msg_putchar(menu_mode_chars[bit]); - if (menu->noremap[bit] == REMAP_NONE) - msg_putchar('*'); - else if (menu->noremap[bit] == REMAP_SCRIPT) - msg_putchar('&'); - else - msg_putchar(' '); - if (menu->silent[bit]) - msg_putchar('s'); - else - msg_putchar(' '); - if ((menu->modes & menu->enabled & (1 << bit)) == 0) - msg_putchar('-'); - else - msg_putchar(' '); - MSG_PUTS(" "); - if (*menu->strings[bit] == NUL) - msg_puts_attr((char_u *)"<Nop>", hl_attr(HLF_8)); - else - msg_outtrans_special(menu->strings[bit], FALSE); - } - } else { - if (menu == NULL) { - menu = root_menu; - depth--; - } else - menu = menu->children; - - /* recursively show all children. Skip PopUp[nvoci]. */ - for (; menu != NULL && !got_int; menu = menu->next) - if (!menu_is_hidden(menu->dname)) - show_menus_recursive(menu, modes, depth + 1); - } -} - - -/* - * Used when expanding menu names. - */ -static vimmenu_T *expand_menu = NULL; -static int expand_modes = 0x0; -static int expand_emenu; /* TRUE for ":emenu" command */ - -/* - * Work out what to complete when doing command line completion of menu names. - */ -char_u *set_context_in_menu_cmd(expand_T *xp, char_u *cmd, char_u *arg, int forceit) -{ - char_u *after_dot; - char_u *p; - char_u *path_name = NULL; - char_u *name; - int unmenu; - vimmenu_T *menu; - int expand_menus; - - xp->xp_context = EXPAND_UNSUCCESSFUL; - - - /* Check for priority numbers, enable and disable */ - for (p = arg; *p; ++p) - if (!VIM_ISDIGIT(*p) && *p != '.') - break; - - if (!vim_iswhite(*p)) { - if (STRNCMP(arg, "enable", 6) == 0 - && (arg[6] == NUL || vim_iswhite(arg[6]))) - p = arg + 6; - else if (STRNCMP(arg, "disable", 7) == 0 - && (arg[7] == NUL || vim_iswhite(arg[7]))) - p = arg + 7; - else - p = arg; - } - - while (*p != NUL && vim_iswhite(*p)) - ++p; - - arg = after_dot = p; - - for (; *p && !vim_iswhite(*p); ++p) { - if ((*p == '\\' || *p == Ctrl_V) && p[1] != NUL) - p++; - else if (*p == '.') - after_dot = p + 1; - } - - /* ":tearoff" and ":popup" only use menus, not entries */ - expand_menus = !((*cmd == 't' && cmd[1] == 'e') || *cmd == 'p'); - expand_emenu = (*cmd == 'e'); - if (expand_menus && vim_iswhite(*p)) - return NULL; /* TODO: check for next command? */ - if (*p == NUL) { /* Complete the menu name */ - /* - * With :unmenu, you only want to match menus for the appropriate mode. - * With :menu though you might want to add a menu with the same name as - * one in another mode, so match menus from other modes too. - */ - expand_modes = get_menu_cmd_modes(cmd, forceit, NULL, &unmenu); - if (!unmenu) - expand_modes = MENU_ALL_MODES; - - menu = root_menu; - if (after_dot != arg) { - path_name = xmalloc(after_dot - arg); - vim_strncpy(path_name, arg, after_dot - arg - 1); - } - name = path_name; - while (name != NULL && *name) { - p = menu_name_skip(name); - while (menu != NULL) { - if (menu_name_equal(name, menu)) { - /* Found menu */ - if ((*p != NUL && menu->children == NULL) - || ((menu->modes & expand_modes) == 0x0)) { - /* - * Menu path continues, but we have reached a leaf. - * Or menu exists only in another mode. - */ - free(path_name); - return NULL; - } - break; - } - menu = menu->next; - } - if (menu == NULL) { - /* No menu found with the name we were looking for */ - free(path_name); - return NULL; - } - name = p; - menu = menu->children; - } - free(path_name); - - xp->xp_context = expand_menus ? EXPAND_MENUNAMES : EXPAND_MENUS; - xp->xp_pattern = after_dot; - expand_menu = menu; - } else /* We're in the mapping part */ - xp->xp_context = EXPAND_NOTHING; - return NULL; -} - -/* - * Function given to ExpandGeneric() to obtain the list of (sub)menus (not - * entries). - */ -char_u *get_menu_name(expand_T *xp, int idx) -{ - static vimmenu_T *menu = NULL; - char_u *str; - static int should_advance = FALSE; - - if (idx == 0) { /* first call: start at first item */ - menu = expand_menu; - should_advance = FALSE; - } - - /* Skip PopUp[nvoci]. */ - while (menu != NULL && (menu_is_hidden(menu->dname) - || menu_is_separator(menu->dname) - || menu_is_tearoff(menu->dname) - || menu->children == NULL)) - menu = menu->next; - - if (menu == NULL) /* at end of linked list */ - return NULL; - - if (menu->modes & expand_modes) - if (should_advance) - str = menu->en_dname; - else { - str = menu->dname; - if (menu->en_dname == NULL) - should_advance = TRUE; - } - else - str = (char_u *)""; - - if (should_advance) - /* Advance to next menu entry. */ - menu = menu->next; - - should_advance = !should_advance; - - return str; -} - -/* - * Function given to ExpandGeneric() to obtain the list of menus and menu - * entries. - */ -char_u *get_menu_names(expand_T *xp, int idx) -{ - static vimmenu_T *menu = NULL; -#define TBUFFER_LEN 256 - static char_u tbuffer[TBUFFER_LEN]; /*hack*/ - char_u *str; - static int should_advance = FALSE; - - if (idx == 0) { /* first call: start at first item */ - menu = expand_menu; - should_advance = FALSE; - } - - /* Skip Browse-style entries, popup menus and separators. */ - while (menu != NULL - && ( menu_is_hidden(menu->dname) - || (expand_emenu && menu_is_separator(menu->dname)) - || menu_is_tearoff(menu->dname) - || menu->dname[STRLEN(menu->dname) - 1] == '.' - )) - menu = menu->next; - - if (menu == NULL) /* at end of linked list */ - return NULL; - - if (menu->modes & expand_modes) { - if (menu->children != NULL) { - if (should_advance) - vim_strncpy(tbuffer, menu->en_dname, TBUFFER_LEN - 2); - else { - vim_strncpy(tbuffer, menu->dname, TBUFFER_LEN - 2); - if (menu->en_dname == NULL) - should_advance = TRUE; - } - /* hack on menu separators: use a 'magic' char for the separator - * so that '.' in names gets escaped properly */ - STRCAT(tbuffer, "\001"); - str = tbuffer; - } else { - if (should_advance) - str = menu->en_dname; - else { - str = menu->dname; - if (menu->en_dname == NULL) - should_advance = TRUE; - } - } - } else - str = (char_u *)""; - - if (should_advance) - /* Advance to next menu entry. */ - menu = menu->next; - - should_advance = !should_advance; - - return str; -} - -/* - * Skip over this element of the menu path and return the start of the next - * element. Any \ and ^Vs are removed from the current element. - * "name" may be modified. - */ -char_u *menu_name_skip(char_u *name) -{ - char_u *p; - - for (p = name; *p && *p != '.'; mb_ptr_adv(p)) { - if (*p == '\\' || *p == Ctrl_V) { - STRMOVE(p, p + 1); - if (*p == NUL) - break; - } - } - if (*p) - *p++ = NUL; - return p; -} - -/* - * Return TRUE when "name" matches with menu "menu". The name is compared in - * two ways: raw menu name and menu name without '&'. ignore part after a TAB. - */ -static int menu_name_equal(char_u *name, vimmenu_T *menu) -{ - if (menu->en_name != NULL - && (menu_namecmp(name, menu->en_name) - || menu_namecmp(name, menu->en_dname))) - return TRUE; - return menu_namecmp(name, menu->name) || menu_namecmp(name, menu->dname); -} - -static int menu_namecmp(char_u *name, char_u *mname) -{ - int i; - - for (i = 0; name[i] != NUL && name[i] != TAB; ++i) - if (name[i] != mname[i]) - break; - return (name[i] == NUL || name[i] == TAB) - && (mname[i] == NUL || mname[i] == TAB); -} - -/* - * Return the modes specified by the given menu command (eg :menu! returns - * MENU_CMDLINE_MODE | MENU_INSERT_MODE). - * If "noremap" is not NULL, then the flag it points to is set according to - * whether the command is a "nore" command. - * If "unmenu" is not NULL, then the flag it points to is set according to - * whether the command is an "unmenu" command. - */ -static int -get_menu_cmd_modes ( - char_u *cmd, - int forceit, /* Was there a "!" after the command? */ - int *noremap, - int *unmenu -) -{ - int modes; - - switch (*cmd++) { - case 'v': /* vmenu, vunmenu, vnoremenu */ - modes = MENU_VISUAL_MODE | MENU_SELECT_MODE; - break; - case 'x': /* xmenu, xunmenu, xnoremenu */ - modes = MENU_VISUAL_MODE; - break; - case 's': /* smenu, sunmenu, snoremenu */ - modes = MENU_SELECT_MODE; - break; - case 'o': /* omenu */ - modes = MENU_OP_PENDING_MODE; - break; - case 'i': /* imenu */ - modes = MENU_INSERT_MODE; - break; - case 't': - modes = MENU_TIP_MODE; /* tmenu */ - break; - case 'c': /* cmenu */ - modes = MENU_CMDLINE_MODE; - break; - case 'a': /* amenu */ - modes = MENU_INSERT_MODE | MENU_CMDLINE_MODE | MENU_NORMAL_MODE - | MENU_VISUAL_MODE | MENU_SELECT_MODE - | MENU_OP_PENDING_MODE; - break; - case 'n': - if (*cmd != 'o') { /* nmenu, not noremenu */ - modes = MENU_NORMAL_MODE; - break; - } - /* FALLTHROUGH */ - default: - --cmd; - if (forceit) /* menu!! */ - modes = MENU_INSERT_MODE | MENU_CMDLINE_MODE; - else /* menu */ - modes = MENU_NORMAL_MODE | MENU_VISUAL_MODE | MENU_SELECT_MODE - | MENU_OP_PENDING_MODE; - } - - if (noremap != NULL) - *noremap = (*cmd == 'n' ? REMAP_NONE : REMAP_YES); - if (unmenu != NULL) - *unmenu = (*cmd == 'u'); - return modes; -} - -/* - * Modify a menu name starting with "PopUp" to include the mode character. - * Returns the name in allocated memory (NULL for failure). - */ -static char_u *popup_mode_name(char_u *name, int idx) -{ - char_u *p; - int len = (int)STRLEN(name); - - p = vim_strnsave(name, len + 1); - if (p != NULL) { - memmove(p + 6, p + 5, (size_t)(len - 4)); - p[5] = menu_mode_chars[idx]; - } - return p; -} - - -/* - * Duplicate the menu item text and then process to see if a mnemonic key - * and/or accelerator text has been identified. - * Returns a pointer to allocated memory, or NULL for failure. - * If mnemonic != NULL, *mnemonic is set to the character after the first '&'. - * If actext != NULL, *actext is set to the text after the first TAB. - */ -static char_u *menu_text(char_u *str, int *mnemonic, char_u **actext) -{ - char_u *p; - char_u *text; - - /* Locate accelerator text, after the first TAB */ - p = vim_strchr(str, TAB); - if (p != NULL) { - if (actext != NULL) - *actext = vim_strsave(p + 1); - text = vim_strnsave(str, (int)(p - str)); - } else - text = vim_strsave(str); - - /* Find mnemonic characters "&a" and reduce "&&" to "&". */ - for (p = text; p != NULL; ) { - p = vim_strchr(p, '&'); - if (p != NULL) { - if (p[1] == NUL) /* trailing "&" */ - break; - if (mnemonic != NULL && p[1] != '&') -#if !defined(__MVS__) || defined(MOTIF390_MNEMONIC_FIXED) - *mnemonic = p[1]; -#else - { - /* - * Well there is a bug in the Motif libraries on OS390 Unix. - * The mnemonic keys needs to be converted to ASCII values - * first. - * This behavior has been seen in 2.8 and 2.9. - */ - char c = p[1]; - __etoa_l(&c, 1); - *mnemonic = c; - } -#endif - STRMOVE(p, p + 1); - p = p + 1; - } - } - return text; -} - -/* - * Return TRUE if "name" can be a menu in the MenuBar. - */ -int menu_is_menubar(char_u *name) -{ - return !menu_is_popup(name) - && !menu_is_toolbar(name) - && *name != MNU_HIDDEN_CHAR; -} - -/* - * Return TRUE if "name" is a popup menu name. - */ -int menu_is_popup(char_u *name) -{ - return STRNCMP(name, "PopUp", 5) == 0; -} - - -/* - * Return TRUE if "name" is a toolbar menu name. - */ -int menu_is_toolbar(char_u *name) -{ - return STRNCMP(name, "ToolBar", 7) == 0; -} - -/* - * Return TRUE if the name is a menu separator identifier: Starts and ends - * with '-' - */ -int menu_is_separator(char_u *name) -{ - return name[0] == '-' && name[STRLEN(name) - 1] == '-'; -} - -/* - * Return TRUE if the menu is hidden: Starts with ']' - */ -static int menu_is_hidden(char_u *name) -{ - return (name[0] == ']') || (menu_is_popup(name) && name[5] != NUL); -} - -#if defined(FEAT_CMDL_COMPL) \ - || (defined(FEAT_GUI_W32) && defined(FEAT_TEAROFF)) -/* - * Return TRUE if the menu is the tearoff menu. - */ -static int menu_is_tearoff(char_u *name) -{ - return FALSE; -} -#endif - - - -/* - * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy and - * execute it. - */ -void ex_emenu(exarg_T *eap) -{ - vimmenu_T *menu; - char_u *name; - char_u *saved_name; - char_u *p; - int idx; - char_u *mode; - - saved_name = vim_strsave(eap->arg); - if (saved_name == NULL) - return; - - menu = root_menu; - name = saved_name; - while (*name) { - /* Find in the menu hierarchy */ - p = menu_name_skip(name); - - while (menu != NULL) { - if (menu_name_equal(name, menu)) { - if (*p == NUL && menu->children != NULL) { - EMSG(_("E333: Menu path must lead to a menu item")); - menu = NULL; - } else if (*p != NUL && menu->children == NULL) { - EMSG(_(e_notsubmenu)); - menu = NULL; - } - break; - } - menu = menu->next; - } - if (menu == NULL || *p == NUL) - break; - menu = menu->children; - name = p; - } - free(saved_name); - if (menu == NULL) { - EMSG2(_("E334: Menu not found: %s"), eap->arg); - return; - } - - /* Found the menu, so execute. - * Use the Insert mode entry when returning to Insert mode. */ - if (restart_edit - && !current_SID - ) { - mode = (char_u *)"Insert"; - idx = MENU_INDEX_INSERT; - } else if (eap->addr_count) { - pos_T tpos; - - mode = (char_u *)"Visual"; - idx = MENU_INDEX_VISUAL; - - /* GEDDES: This is not perfect - but it is a - * quick way of detecting whether we are doing this from a - * selection - see if the range matches up with the visual - * select start and end. */ - if ((curbuf->b_visual.vi_start.lnum == eap->line1) - && (curbuf->b_visual.vi_end.lnum) == eap->line2) { - /* Set it up for visual mode - equivalent to gv. */ - VIsual_mode = curbuf->b_visual.vi_mode; - tpos = curbuf->b_visual.vi_end; - curwin->w_cursor = curbuf->b_visual.vi_start; - curwin->w_curswant = curbuf->b_visual.vi_curswant; - } else { - /* Set it up for line-wise visual mode */ - VIsual_mode = 'V'; - curwin->w_cursor.lnum = eap->line1; - curwin->w_cursor.col = 1; - tpos.lnum = eap->line2; - tpos.col = MAXCOL; - tpos.coladd = 0; - } - - /* Activate visual mode */ - VIsual_active = TRUE; - VIsual_reselect = TRUE; - check_cursor(); - VIsual = curwin->w_cursor; - curwin->w_cursor = tpos; - - check_cursor(); - - /* Adjust the cursor to make sure it is in the correct pos - * for exclusive mode */ - if (*p_sel == 'e' && gchar_cursor() != NUL) - ++curwin->w_cursor.col; - } else { - mode = (char_u *)"Normal"; - idx = MENU_INDEX_NORMAL; - } - - if (idx != MENU_INDEX_INVALID && menu->strings[idx] != NULL) { - /* When executing a script or function execute the commands right now. - * Otherwise put them in the typeahead buffer. */ - if (current_SID != 0) - exec_normal_cmd(menu->strings[idx], menu->noremap[idx], - menu->silent[idx]); - else - ins_typebuf(menu->strings[idx], menu->noremap[idx], 0, - TRUE, menu->silent[idx]); - } else - EMSG2(_("E335: Menu not defined for %s mode"), mode); -} - -#if defined(FEAT_GUI_MSWIN) \ - || (defined(FEAT_GUI_GTK) && defined(FEAT_MENU)) \ - || defined(FEAT_BEVAL_TIP) || defined(PROTO) -/* - * Given a menu descriptor, e.g. "File.New", find it in the menu hierarchy. - */ -vimmenu_T *gui_find_menu(char_u *path_name) -{ - vimmenu_T *menu = NULL; - char_u *name; - char_u *saved_name; - char_u *p; - - menu = root_menu; - - saved_name = vim_strsave(path_name); - if (saved_name == NULL) - return NULL; - - name = saved_name; - while (*name) { - /* find the end of one dot-separated name and put a NUL at the dot */ - p = menu_name_skip(name); - - while (menu != NULL) { - if (menu_name_equal(name, menu)) { - if (menu->children == NULL) { - /* found a menu item instead of a sub-menu */ - if (*p == NUL) - EMSG(_("E336: Menu path must lead to a sub-menu")); - else - EMSG(_(e_notsubmenu)); - menu = NULL; - goto theend; - } - if (*p == NUL) /* found a full match */ - goto theend; - break; - } - menu = menu->next; - } - if (menu == NULL) /* didn't find it */ - break; - - /* Found a match, search the sub-menu. */ - menu = menu->children; - name = p; - } - - if (menu == NULL) - EMSG(_("E337: Menu not found - check menu names")); -theend: - free(saved_name); - return menu; -} -#endif - -/* - * Translation of menu names. Just a simple lookup table. - */ - -typedef struct { - char_u *from; /* English name */ - char_u *from_noamp; /* same, without '&' */ - char_u *to; /* translated name */ -} menutrans_T; - -static garray_T menutrans_ga = {0, 0, 0, 0, NULL}; - -/* - * ":menutrans". - * This function is also defined without the +multi_lang feature, in which - * case the commands are ignored. - */ -void ex_menutranslate(exarg_T *eap) -{ - char_u *arg = eap->arg; - menutrans_T *tp; - int i; - char_u *from, *from_noamp, *to; - - if (menutrans_ga.ga_itemsize == 0) - ga_init(&menutrans_ga, (int)sizeof(menutrans_T), 5); - - /* - * ":menutrans clear": clear all translations. - */ - if (STRNCMP(arg, "clear", 5) == 0 && ends_excmd(*skipwhite(arg + 5))) { - tp = (menutrans_T *)menutrans_ga.ga_data; - for (i = 0; i < menutrans_ga.ga_len; ++i) { - free(tp[i].from); - free(tp[i].from_noamp); - free(tp[i].to); - } - ga_clear(&menutrans_ga); - /* Delete all "menutrans_" global variables. */ - del_menutrans_vars(); - } else { - /* ":menutrans from to": add translation */ - from = arg; - arg = menu_skip_part(arg); - to = skipwhite(arg); - *arg = NUL; - arg = menu_skip_part(to); - if (arg == to) - EMSG(_(e_invarg)); - else { - ga_grow(&menutrans_ga, 1); - tp = (menutrans_T *)menutrans_ga.ga_data; - from = vim_strsave(from); - if (from != NULL) { - from_noamp = menu_text(from, NULL, NULL); - to = vim_strnsave(to, (int)(arg - to)); - if (from_noamp != NULL && to != NULL) { - menu_translate_tab_and_shift(from); - menu_translate_tab_and_shift(to); - menu_unescape_name(from); - menu_unescape_name(to); - tp[menutrans_ga.ga_len].from = from; - tp[menutrans_ga.ga_len].from_noamp = from_noamp; - tp[menutrans_ga.ga_len].to = to; - ++menutrans_ga.ga_len; - } else { - free(from); - free(from_noamp); - free(to); - } - } - } - } -} - -/* - * Find the character just after one part of a menu name. - */ -static char_u *menu_skip_part(char_u *p) -{ - while (*p != NUL && *p != '.' && !vim_iswhite(*p)) { - if ((*p == '\\' || *p == Ctrl_V) && p[1] != NUL) - ++p; - ++p; - } - return p; -} - -/* - * Lookup part of a menu name in the translations. - * Return a pointer to the translation or NULL if not found. - */ -static char_u *menutrans_lookup(char_u *name, int len) -{ - menutrans_T *tp = (menutrans_T *)menutrans_ga.ga_data; - int i; - char_u *dname; - - for (i = 0; i < menutrans_ga.ga_len; ++i) - if (STRNCMP(name, tp[i].from, len) == 0 && tp[i].from[len] == NUL) - return tp[i].to; - - /* Now try again while ignoring '&' characters. */ - i = name[len]; - name[len] = NUL; - dname = menu_text(name, NULL, NULL); - name[len] = i; - if (dname != NULL) { - for (i = 0; i < menutrans_ga.ga_len; ++i) - if (STRCMP(dname, tp[i].from_noamp) == 0) { - free(dname); - return tp[i].to; - } - free(dname); - } - - return NULL; -} - -/* - * Unescape the name in the translate dictionary table. - */ -static void menu_unescape_name(char_u *name) -{ - char_u *p; - - for (p = name; *p && *p != '.'; mb_ptr_adv(p)) - if (*p == '\\') - STRMOVE(p, p + 1); -} - -/* - * Isolate the menu name. - * Skip the menu name, and translate <Tab> into a real TAB. - */ -static char_u *menu_translate_tab_and_shift(char_u *arg_start) -{ - char_u *arg = arg_start; - - while (*arg && !vim_iswhite(*arg)) { - if ((*arg == '\\' || *arg == Ctrl_V) && arg[1] != NUL) - arg++; - else if (STRNICMP(arg, "<TAB>", 5) == 0) { - *arg = TAB; - STRMOVE(arg + 1, arg + 5); - } - arg++; - } - if (*arg != NUL) - *arg++ = NUL; - arg = skipwhite(arg); - - return arg; -} - |