diff options
Diffstat (limited to 'src/syntax.c')
-rw-r--r-- | src/syntax.c | 3637 |
1 files changed, 0 insertions, 3637 deletions
diff --git a/src/syntax.c b/src/syntax.c index f01c840da7..4476ad1487 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -13,106 +13,6 @@ #include "vim.h" -/* - * Structure that stores information about a highlight group. - * The ID of a highlight group is also called group ID. It is the index in - * the highlight_ga array PLUS ONE. - */ -struct hl_group -{ - char_u *sg_name; /* highlight group name */ - char_u *sg_name_u; /* uppercase of sg_name */ - int sg_cleared; /* "hi clear" was used */ -/* for normal terminals */ - int sg_term; /* "term=" highlighting attributes */ - char_u *sg_start; /* terminal string for start highl */ - char_u *sg_stop; /* terminal string for stop highl */ - int sg_term_attr; /* Screen attr for term mode */ -/* for color terminals */ - int sg_cterm; /* "cterm=" highlighting attr */ - int sg_cterm_bold; /* bold attr was set for light color */ - int sg_cterm_fg; /* terminal fg color number + 1 */ - int sg_cterm_bg; /* terminal bg color number + 1 */ - int sg_cterm_attr; /* Screen attr for color term mode */ -/* for when using the GUI */ -#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) - guicolor_T sg_gui_fg; /* GUI foreground color handle */ - guicolor_T sg_gui_bg; /* GUI background color handle */ -#endif -#ifdef FEAT_GUI - guicolor_T sg_gui_sp; /* GUI special color handle */ - GuiFont sg_font; /* GUI font handle */ -#ifdef FEAT_XFONTSET - GuiFontset sg_fontset; /* GUI fontset handle */ -#endif - char_u *sg_font_name; /* GUI font or fontset name */ - int sg_gui_attr; /* Screen attr for GUI mode */ -#endif -#if defined(FEAT_GUI) || defined(FEAT_EVAL) -/* Store the sp color name for the GUI or synIDattr() */ - int sg_gui; /* "gui=" highlighting attributes */ - char_u *sg_gui_fg_name;/* GUI foreground color name */ - char_u *sg_gui_bg_name;/* GUI background color name */ - char_u *sg_gui_sp_name;/* GUI special color name */ -#endif - int sg_link; /* link to this highlight group ID */ - int sg_set; /* combination of SG_* flags */ -#ifdef FEAT_EVAL - sctx_T sg_script_ctx; /* script in which the group was last set */ -#endif -}; - -#define SG_TERM 1 /* term has been set */ -#define SG_CTERM 2 /* cterm has been set */ -#define SG_GUI 4 /* gui has been set */ -#define SG_LINK 8 /* link has been set */ - -static garray_T highlight_ga; /* highlight groups for 'highlight' option */ - -#define HL_TABLE() ((struct hl_group *)((highlight_ga.ga_data))) - -#define MAX_HL_ID 20000 /* maximum value for a highlight ID. */ - -#ifdef FEAT_CMDL_COMPL -/* Flags to indicate an additional string for highlight name completion. */ -static int include_none = 0; /* when 1 include "None" */ -static int include_default = 0; /* when 1 include "default" */ -static int include_link = 0; /* when 2 include "link" and "clear" */ -#endif - -/* - * The "term", "cterm" and "gui" arguments can be any combination of the - * following names, separated by commas (but no spaces!). - */ -static char *(hl_name_table[]) = - {"bold", "standout", "underline", "undercurl", - "italic", "reverse", "inverse", "nocombine", "strikethrough", "NONE"}; -static int hl_attr_table[] = - {HL_BOLD, HL_STANDOUT, HL_UNDERLINE, HL_UNDERCURL, HL_ITALIC, HL_INVERSE, HL_INVERSE, HL_NOCOMBINE, HL_STRIKETHROUGH, 0}; -#define ATTR_COMBINE(attr_a, attr_b) ((((attr_b) & HL_NOCOMBINE) ? attr_b : (attr_a)) | (attr_b)) - -static void syn_unadd_group(void); -static void set_hl_attr(int idx); -static void highlight_list_one(int id); -static int highlight_list_arg(int id, int didh, int type, int iarg, char_u *sarg, char *name); -static int syn_add_group(char_u *name); -static int syn_list_header(int did_header, int outlen, int id); -static int hl_has_settings(int idx, int check_link); -static void highlight_clear(int idx); - -#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) -static void gui_do_one_color(int idx, int do_menu, int do_tooltip); -#endif -#ifdef FEAT_GUI -static int set_group_colors(char_u *name, guicolor_T *fgp, guicolor_T *bgp, int do_menu, int use_norm, int do_tooltip); -static void hl_do_font(int idx, char_u *arg, int do_normal, int do_menu, int do_tooltip, int free_font); -#endif - -/* - * An attribute number is the index in attr_table plus ATTR_OFF. - */ -#define ATTR_OFF (HL_ALL + 1) - #if defined(FEAT_SYN_HL) || defined(PROTO) #define SYN_NAMELEN 50 /* maximum length of a syntax name */ @@ -6811,3540 +6711,3 @@ syntime_report(void) #endif #endif /* FEAT_SYN_HL */ - -/************************************** - * Highlighting stuff * - **************************************/ - -/* - * The default highlight groups. These are compiled-in for fast startup and - * they still work when the runtime files can't be found. - * When making changes here, also change runtime/colors/default.vim! - * The #ifdefs are needed to reduce the amount of static data. Helps to make - * the 16 bit DOS (museum) version compile. - */ -#if defined(FEAT_GUI) || defined(FEAT_EVAL) -# define CENT(a, b) b -#else -# define CENT(a, b) a -#endif -static char *(highlight_init_both[]) = { - CENT("ErrorMsg term=standout ctermbg=DarkRed ctermfg=White", - "ErrorMsg term=standout ctermbg=DarkRed ctermfg=White guibg=Red guifg=White"), - CENT("IncSearch term=reverse cterm=reverse", - "IncSearch term=reverse cterm=reverse gui=reverse"), - CENT("ModeMsg term=bold cterm=bold", - "ModeMsg term=bold cterm=bold gui=bold"), - CENT("NonText term=bold ctermfg=Blue", - "NonText term=bold ctermfg=Blue gui=bold guifg=Blue"), - CENT("StatusLine term=reverse,bold cterm=reverse,bold", - "StatusLine term=reverse,bold cterm=reverse,bold gui=reverse,bold"), - CENT("StatusLineNC term=reverse cterm=reverse", - "StatusLineNC term=reverse cterm=reverse gui=reverse"), - "default link EndOfBuffer NonText", - CENT("VertSplit term=reverse cterm=reverse", - "VertSplit term=reverse cterm=reverse gui=reverse"), -#ifdef FEAT_CLIPBOARD - CENT("VisualNOS term=underline,bold cterm=underline,bold", - "VisualNOS term=underline,bold cterm=underline,bold gui=underline,bold"), -#endif -#ifdef FEAT_DIFF - CENT("DiffText term=reverse cterm=bold ctermbg=Red", - "DiffText term=reverse cterm=bold ctermbg=Red gui=bold guibg=Red"), -#endif -#ifdef FEAT_INS_EXPAND - CENT("PmenuSbar ctermbg=Grey", - "PmenuSbar ctermbg=Grey guibg=Grey"), -#endif - CENT("TabLineSel term=bold cterm=bold", - "TabLineSel term=bold cterm=bold gui=bold"), - CENT("TabLineFill term=reverse cterm=reverse", - "TabLineFill term=reverse cterm=reverse gui=reverse"), -#ifdef FEAT_GUI - "Cursor guibg=fg guifg=bg", - "lCursor guibg=fg guifg=bg", /* should be different, but what? */ -#endif - "default link QuickFixLine Search", - CENT("Normal cterm=NONE", "Normal gui=NONE"), - NULL -}; - -/* Default colors only used with a light background. */ -static char *(highlight_init_light[]) = { - CENT("Directory term=bold ctermfg=DarkBlue", - "Directory term=bold ctermfg=DarkBlue guifg=Blue"), - CENT("LineNr term=underline ctermfg=Brown", - "LineNr term=underline ctermfg=Brown guifg=Brown"), - CENT("CursorLineNr term=bold ctermfg=Brown", - "CursorLineNr term=bold ctermfg=Brown gui=bold guifg=Brown"), - CENT("MoreMsg term=bold ctermfg=DarkGreen", - "MoreMsg term=bold ctermfg=DarkGreen gui=bold guifg=SeaGreen"), - CENT("Question term=standout ctermfg=DarkGreen", - "Question term=standout ctermfg=DarkGreen gui=bold guifg=SeaGreen"), - CENT("Search term=reverse ctermbg=Yellow ctermfg=NONE", - "Search term=reverse ctermbg=Yellow ctermfg=NONE guibg=Yellow guifg=NONE"), -#ifdef FEAT_SPELL - CENT("SpellBad term=reverse ctermbg=LightRed", - "SpellBad term=reverse ctermbg=LightRed guisp=Red gui=undercurl"), - CENT("SpellCap term=reverse ctermbg=LightBlue", - "SpellCap term=reverse ctermbg=LightBlue guisp=Blue gui=undercurl"), - CENT("SpellRare term=reverse ctermbg=LightMagenta", - "SpellRare term=reverse ctermbg=LightMagenta guisp=Magenta gui=undercurl"), - CENT("SpellLocal term=underline ctermbg=Cyan", - "SpellLocal term=underline ctermbg=Cyan guisp=DarkCyan gui=undercurl"), -#endif -#ifdef FEAT_INS_EXPAND - CENT("PmenuThumb ctermbg=Black", - "PmenuThumb ctermbg=Black guibg=Black"), - CENT("Pmenu ctermbg=LightMagenta ctermfg=Black", - "Pmenu ctermbg=LightMagenta ctermfg=Black guibg=LightMagenta"), - CENT("PmenuSel ctermbg=LightGrey ctermfg=Black", - "PmenuSel ctermbg=LightGrey ctermfg=Black guibg=Grey"), -#endif - CENT("SpecialKey term=bold ctermfg=DarkBlue", - "SpecialKey term=bold ctermfg=DarkBlue guifg=Blue"), - CENT("Title term=bold ctermfg=DarkMagenta", - "Title term=bold ctermfg=DarkMagenta gui=bold guifg=Magenta"), - CENT("WarningMsg term=standout ctermfg=DarkRed", - "WarningMsg term=standout ctermfg=DarkRed guifg=Red"), -#ifdef FEAT_WILDMENU - CENT("WildMenu term=standout ctermbg=Yellow ctermfg=Black", - "WildMenu term=standout ctermbg=Yellow ctermfg=Black guibg=Yellow guifg=Black"), -#endif -#ifdef FEAT_FOLDING - CENT("Folded term=standout ctermbg=Grey ctermfg=DarkBlue", - "Folded term=standout ctermbg=Grey ctermfg=DarkBlue guibg=LightGrey guifg=DarkBlue"), - CENT("FoldColumn term=standout ctermbg=Grey ctermfg=DarkBlue", - "FoldColumn term=standout ctermbg=Grey ctermfg=DarkBlue guibg=Grey guifg=DarkBlue"), -#endif -#ifdef FEAT_SIGNS - CENT("SignColumn term=standout ctermbg=Grey ctermfg=DarkBlue", - "SignColumn term=standout ctermbg=Grey ctermfg=DarkBlue guibg=Grey guifg=DarkBlue"), -#endif - CENT("Visual term=reverse", - "Visual term=reverse guibg=LightGrey"), -#ifdef FEAT_DIFF - CENT("DiffAdd term=bold ctermbg=LightBlue", - "DiffAdd term=bold ctermbg=LightBlue guibg=LightBlue"), - CENT("DiffChange term=bold ctermbg=LightMagenta", - "DiffChange term=bold ctermbg=LightMagenta guibg=LightMagenta"), - CENT("DiffDelete term=bold ctermfg=Blue ctermbg=LightCyan", - "DiffDelete term=bold ctermfg=Blue ctermbg=LightCyan gui=bold guifg=Blue guibg=LightCyan"), -#endif - CENT("TabLine term=underline cterm=underline ctermfg=black ctermbg=LightGrey", - "TabLine term=underline cterm=underline ctermfg=black ctermbg=LightGrey gui=underline guibg=LightGrey"), -#ifdef FEAT_SYN_HL - CENT("CursorColumn term=reverse ctermbg=LightGrey", - "CursorColumn term=reverse ctermbg=LightGrey guibg=Grey90"), - CENT("CursorLine term=underline cterm=underline", - "CursorLine term=underline cterm=underline guibg=Grey90"), - CENT("ColorColumn term=reverse ctermbg=LightRed", - "ColorColumn term=reverse ctermbg=LightRed guibg=LightRed"), -#endif -#ifdef FEAT_CONCEAL - CENT("Conceal ctermbg=DarkGrey ctermfg=LightGrey", - "Conceal ctermbg=DarkGrey ctermfg=LightGrey guibg=DarkGrey guifg=LightGrey"), -#endif - CENT("MatchParen term=reverse ctermbg=Cyan", - "MatchParen term=reverse ctermbg=Cyan guibg=Cyan"), -#ifdef FEAT_TERMINAL - CENT("StatusLineTerm term=reverse,bold cterm=bold ctermfg=White ctermbg=DarkGreen", - "StatusLineTerm term=reverse,bold cterm=bold ctermfg=White ctermbg=DarkGreen gui=bold guifg=bg guibg=DarkGreen"), - CENT("StatusLineTermNC term=reverse ctermfg=White ctermbg=DarkGreen", - "StatusLineTermNC term=reverse ctermfg=White ctermbg=DarkGreen guifg=bg guibg=DarkGreen"), -#endif -#ifdef FEAT_MENU - CENT("ToolbarLine term=underline ctermbg=LightGrey", - "ToolbarLine term=underline ctermbg=LightGrey guibg=LightGrey"), - CENT("ToolbarButton cterm=bold ctermfg=White ctermbg=DarkGrey", - "ToolbarButton cterm=bold ctermfg=White ctermbg=DarkGrey gui=bold guifg=White guibg=Grey40"), -#endif - NULL -}; - -/* Default colors only used with a dark background. */ -static char *(highlight_init_dark[]) = { - CENT("Directory term=bold ctermfg=LightCyan", - "Directory term=bold ctermfg=LightCyan guifg=Cyan"), - CENT("LineNr term=underline ctermfg=Yellow", - "LineNr term=underline ctermfg=Yellow guifg=Yellow"), - CENT("CursorLineNr term=bold ctermfg=Yellow", - "CursorLineNr term=bold ctermfg=Yellow gui=bold guifg=Yellow"), - CENT("MoreMsg term=bold ctermfg=LightGreen", - "MoreMsg term=bold ctermfg=LightGreen gui=bold guifg=SeaGreen"), - CENT("Question term=standout ctermfg=LightGreen", - "Question term=standout ctermfg=LightGreen gui=bold guifg=Green"), - CENT("Search term=reverse ctermbg=Yellow ctermfg=Black", - "Search term=reverse ctermbg=Yellow ctermfg=Black guibg=Yellow guifg=Black"), - CENT("SpecialKey term=bold ctermfg=LightBlue", - "SpecialKey term=bold ctermfg=LightBlue guifg=Cyan"), -#ifdef FEAT_SPELL - CENT("SpellBad term=reverse ctermbg=Red", - "SpellBad term=reverse ctermbg=Red guisp=Red gui=undercurl"), - CENT("SpellCap term=reverse ctermbg=Blue", - "SpellCap term=reverse ctermbg=Blue guisp=Blue gui=undercurl"), - CENT("SpellRare term=reverse ctermbg=Magenta", - "SpellRare term=reverse ctermbg=Magenta guisp=Magenta gui=undercurl"), - CENT("SpellLocal term=underline ctermbg=Cyan", - "SpellLocal term=underline ctermbg=Cyan guisp=Cyan gui=undercurl"), -#endif -#ifdef FEAT_INS_EXPAND - CENT("PmenuThumb ctermbg=White", - "PmenuThumb ctermbg=White guibg=White"), - CENT("Pmenu ctermbg=Magenta ctermfg=Black", - "Pmenu ctermbg=Magenta ctermfg=Black guibg=Magenta"), - CENT("PmenuSel ctermbg=Black ctermfg=DarkGrey", - "PmenuSel ctermbg=Black ctermfg=DarkGrey guibg=DarkGrey"), -#endif - CENT("Title term=bold ctermfg=LightMagenta", - "Title term=bold ctermfg=LightMagenta gui=bold guifg=Magenta"), - CENT("WarningMsg term=standout ctermfg=LightRed", - "WarningMsg term=standout ctermfg=LightRed guifg=Red"), -#ifdef FEAT_WILDMENU - CENT("WildMenu term=standout ctermbg=Yellow ctermfg=Black", - "WildMenu term=standout ctermbg=Yellow ctermfg=Black guibg=Yellow guifg=Black"), -#endif -#ifdef FEAT_FOLDING - CENT("Folded term=standout ctermbg=DarkGrey ctermfg=Cyan", - "Folded term=standout ctermbg=DarkGrey ctermfg=Cyan guibg=DarkGrey guifg=Cyan"), - CENT("FoldColumn term=standout ctermbg=DarkGrey ctermfg=Cyan", - "FoldColumn term=standout ctermbg=DarkGrey ctermfg=Cyan guibg=Grey guifg=Cyan"), -#endif -#ifdef FEAT_SIGNS - CENT("SignColumn term=standout ctermbg=DarkGrey ctermfg=Cyan", - "SignColumn term=standout ctermbg=DarkGrey ctermfg=Cyan guibg=Grey guifg=Cyan"), -#endif - CENT("Visual term=reverse", - "Visual term=reverse guibg=DarkGrey"), -#ifdef FEAT_DIFF - CENT("DiffAdd term=bold ctermbg=DarkBlue", - "DiffAdd term=bold ctermbg=DarkBlue guibg=DarkBlue"), - CENT("DiffChange term=bold ctermbg=DarkMagenta", - "DiffChange term=bold ctermbg=DarkMagenta guibg=DarkMagenta"), - CENT("DiffDelete term=bold ctermfg=Blue ctermbg=DarkCyan", - "DiffDelete term=bold ctermfg=Blue ctermbg=DarkCyan gui=bold guifg=Blue guibg=DarkCyan"), -#endif - CENT("TabLine term=underline cterm=underline ctermfg=white ctermbg=DarkGrey", - "TabLine term=underline cterm=underline ctermfg=white ctermbg=DarkGrey gui=underline guibg=DarkGrey"), -#ifdef FEAT_SYN_HL - CENT("CursorColumn term=reverse ctermbg=DarkGrey", - "CursorColumn term=reverse ctermbg=DarkGrey guibg=Grey40"), - CENT("CursorLine term=underline cterm=underline", - "CursorLine term=underline cterm=underline guibg=Grey40"), - CENT("ColorColumn term=reverse ctermbg=DarkRed", - "ColorColumn term=reverse ctermbg=DarkRed guibg=DarkRed"), -#endif - CENT("MatchParen term=reverse ctermbg=DarkCyan", - "MatchParen term=reverse ctermbg=DarkCyan guibg=DarkCyan"), -#ifdef FEAT_CONCEAL - CENT("Conceal ctermbg=DarkGrey ctermfg=LightGrey", - "Conceal ctermbg=DarkGrey ctermfg=LightGrey guibg=DarkGrey guifg=LightGrey"), -#endif -#ifdef FEAT_TERMINAL - CENT("StatusLineTerm term=reverse,bold cterm=bold ctermfg=Black ctermbg=LightGreen", - "StatusLineTerm term=reverse,bold cterm=bold ctermfg=Black ctermbg=LightGreen gui=bold guifg=bg guibg=LightGreen"), - CENT("StatusLineTermNC term=reverse ctermfg=Black ctermbg=LightGreen", - "StatusLineTermNC term=reverse ctermfg=Black ctermbg=LightGreen guifg=bg guibg=LightGreen"), -#endif -#ifdef FEAT_MENU - CENT("ToolbarLine term=underline ctermbg=DarkGrey", - "ToolbarLine term=underline ctermbg=DarkGrey guibg=Grey50"), - CENT("ToolbarButton cterm=bold ctermfg=Black ctermbg=LightGrey", - "ToolbarButton cterm=bold ctermfg=Black ctermbg=LightGrey gui=bold guifg=Black guibg=LightGrey"), -#endif - NULL -}; - - void -init_highlight( - int both, /* include groups where 'bg' doesn't matter */ - int reset) /* clear group first */ -{ - int i; - char **pp; - static int had_both = FALSE; -#ifdef FEAT_EVAL - char_u *p; - - /* - * Try finding the color scheme file. Used when a color file was loaded - * and 'background' or 't_Co' is changed. - */ - p = get_var_value((char_u *)"g:colors_name"); - if (p != NULL) - { - /* The value of g:colors_name could be freed when sourcing the script, - * making "p" invalid, so copy it. */ - char_u *copy_p = vim_strsave(p); - int r; - - if (copy_p != NULL) - { - r = load_colors(copy_p); - vim_free(copy_p); - if (r == OK) - return; - } - } - -#endif - - /* - * Didn't use a color file, use the compiled-in colors. - */ - if (both) - { - had_both = TRUE; - pp = highlight_init_both; - for (i = 0; pp[i] != NULL; ++i) - do_highlight((char_u *)pp[i], reset, TRUE); - } - else if (!had_both) - /* Don't do anything before the call with both == TRUE from main(). - * Not everything has been setup then, and that call will overrule - * everything anyway. */ - return; - - if (*p_bg == 'l') - pp = highlight_init_light; - else - pp = highlight_init_dark; - for (i = 0; pp[i] != NULL; ++i) - do_highlight((char_u *)pp[i], reset, TRUE); - - /* Reverse looks ugly, but grey may not work for 8 colors. Thus let it - * depend on the number of colors available. - * With 8 colors brown is equal to yellow, need to use black for Search fg - * to avoid Statement highlighted text disappears. - * Clear the attributes, needed when changing the t_Co value. */ - if (t_colors > 8) - do_highlight((char_u *)(*p_bg == 'l' - ? "Visual cterm=NONE ctermbg=LightGrey" - : "Visual cterm=NONE ctermbg=DarkGrey"), FALSE, TRUE); - else - { - do_highlight((char_u *)"Visual cterm=reverse ctermbg=NONE", - FALSE, TRUE); - if (*p_bg == 'l') - do_highlight((char_u *)"Search ctermfg=black", FALSE, TRUE); - } - -#ifdef FEAT_SYN_HL - /* - * If syntax highlighting is enabled load the highlighting for it. - */ - if (get_var_value((char_u *)"g:syntax_on") != NULL) - { - static int recursive = 0; - - if (recursive >= 5) - emsg(_("E679: recursive loop loading syncolor.vim")); - else - { - ++recursive; - (void)source_runtime((char_u *)"syntax/syncolor.vim", DIP_ALL); - --recursive; - } - } -#endif -} - -/* - * Load color file "name". - * Return OK for success, FAIL for failure. - */ - int -load_colors(char_u *name) -{ - char_u *buf; - int retval = FAIL; - static int recursive = FALSE; - - /* When being called recursively, this is probably because setting - * 'background' caused the highlighting to be reloaded. This means it is - * working, thus we should return OK. */ - if (recursive) - return OK; - - recursive = TRUE; - buf = alloc(STRLEN(name) + 12); - if (buf != NULL) - { - apply_autocmds(EVENT_COLORSCHEMEPRE, name, - curbuf->b_fname, FALSE, curbuf); - sprintf((char *)buf, "colors/%s.vim", name); - retval = source_runtime(buf, DIP_START + DIP_OPT); - vim_free(buf); - apply_autocmds(EVENT_COLORSCHEME, name, curbuf->b_fname, FALSE, curbuf); - } - recursive = FALSE; - - return retval; -} - -static char *(color_names[28]) = { - "Black", "DarkBlue", "DarkGreen", "DarkCyan", - "DarkRed", "DarkMagenta", "Brown", "DarkYellow", - "Gray", "Grey", "LightGray", "LightGrey", - "DarkGray", "DarkGrey", - "Blue", "LightBlue", "Green", "LightGreen", - "Cyan", "LightCyan", "Red", "LightRed", "Magenta", - "LightMagenta", "Yellow", "LightYellow", "White", "NONE"}; - /* indices: - * 0, 1, 2, 3, - * 4, 5, 6, 7, - * 8, 9, 10, 11, - * 12, 13, - * 14, 15, 16, 17, - * 18, 19, 20, 21, 22, - * 23, 24, 25, 26, 27 */ -static int color_numbers_16[28] = {0, 1, 2, 3, - 4, 5, 6, 6, - 7, 7, 7, 7, - 8, 8, - 9, 9, 10, 10, - 11, 11, 12, 12, 13, - 13, 14, 14, 15, -1}; -/* for xterm with 88 colors... */ -static int color_numbers_88[28] = {0, 4, 2, 6, - 1, 5, 32, 72, - 84, 84, 7, 7, - 82, 82, - 12, 43, 10, 61, - 14, 63, 9, 74, 13, - 75, 11, 78, 15, -1}; -/* for xterm with 256 colors... */ -static int color_numbers_256[28] = {0, 4, 2, 6, - 1, 5, 130, 130, - 248, 248, 7, 7, - 242, 242, - 12, 81, 10, 121, - 14, 159, 9, 224, 13, - 225, 11, 229, 15, -1}; -/* for terminals with less than 16 colors... */ -static int color_numbers_8[28] = {0, 4, 2, 6, - 1, 5, 3, 3, - 7, 7, 7, 7, - 0+8, 0+8, - 4+8, 4+8, 2+8, 2+8, - 6+8, 6+8, 1+8, 1+8, 5+8, - 5+8, 3+8, 3+8, 7+8, -1}; - -/* - * Lookup the "cterm" value to be used for color with index "idx" in - * color_names[]. - * "boldp" will be set to TRUE or FALSE for a foreground color when using 8 - * colors, otherwise it will be unchanged. - */ - int -lookup_color(int idx, int foreground, int *boldp) -{ - int color = color_numbers_16[idx]; - char_u *p; - - /* Use the _16 table to check if it's a valid color name. */ - if (color < 0) - return -1; - - if (t_colors == 8) - { - /* t_Co is 8: use the 8 colors table */ -#if defined(__QNXNTO__) - color = color_numbers_8_qansi[idx]; -#else - color = color_numbers_8[idx]; -#endif - if (foreground) - { - /* set/reset bold attribute to get light foreground - * colors (on some terminals, e.g. "linux") */ - if (color & 8) - *boldp = TRUE; - else - *boldp = FALSE; - } - color &= 7; /* truncate to 8 colors */ - } - else if (t_colors == 16 || t_colors == 88 - || t_colors >= 256) - { - /* - * Guess: if the termcap entry ends in 'm', it is - * probably an xterm-like terminal. Use the changed - * order for colors. - */ - if (*T_CAF != NUL) - p = T_CAF; - else - p = T_CSF; - if (*p != NUL && (t_colors > 256 - || *(p + STRLEN(p) - 1) == 'm')) - { - if (t_colors == 88) - color = color_numbers_88[idx]; - else if (t_colors >= 256) - color = color_numbers_256[idx]; - else - color = color_numbers_8[idx]; - } -#ifdef FEAT_TERMRESPONSE - if (t_colors >= 256 && color == 15 && is_mac_terminal) - /* Terminal.app has a bug: 15 is light grey. Use white - * from the color cube instead. */ - color = 231; -#endif - } - return color; -} - -/* - * Handle the ":highlight .." command. - * When using ":hi clear" this is called recursively for each group with - * "forceit" and "init" both TRUE. - */ - void -do_highlight( - char_u *line, - int forceit, - int init) /* TRUE when called for initializing */ -{ - char_u *name_end; - char_u *p; - char_u *linep; - char_u *key_start; - char_u *arg_start; - char_u *key = NULL, *arg = NULL; - long i; - int off; - int len; - int attr; - int id; - int idx; - struct hl_group item_before; - int did_change = FALSE; - int dodefault = FALSE; - int doclear = FALSE; - int dolink = FALSE; - int error = FALSE; - int color; - int is_normal_group = FALSE; /* "Normal" group */ -#ifdef FEAT_TERMINAL - int is_terminal_group = FALSE; /* "Terminal" group */ -#endif -#ifdef FEAT_GUI_X11 - int is_menu_group = FALSE; /* "Menu" group */ - int is_scrollbar_group = FALSE; /* "Scrollbar" group */ - int is_tooltip_group = FALSE; /* "Tooltip" group */ - int do_colors = FALSE; /* need to update colors? */ -#else -# define is_menu_group 0 -# define is_tooltip_group 0 -#endif -#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) - int did_highlight_changed = FALSE; -#endif - - /* - * If no argument, list current highlighting. - */ - if (ends_excmd(*line)) - { - for (i = 1; i <= highlight_ga.ga_len && !got_int; ++i) - /* TODO: only call when the group has attributes set */ - highlight_list_one((int)i); - return; - } - - /* - * Isolate the name. - */ - name_end = skiptowhite(line); - linep = skipwhite(name_end); - - /* - * Check for "default" argument. - */ - if (STRNCMP(line, "default", name_end - line) == 0) - { - dodefault = TRUE; - line = linep; - name_end = skiptowhite(line); - linep = skipwhite(name_end); - } - - /* - * Check for "clear" or "link" argument. - */ - if (STRNCMP(line, "clear", name_end - line) == 0) - doclear = TRUE; - if (STRNCMP(line, "link", name_end - line) == 0) - dolink = TRUE; - - /* - * ":highlight {group-name}": list highlighting for one group. - */ - if (!doclear && !dolink && ends_excmd(*linep)) - { - id = syn_namen2id(line, (int)(name_end - line)); - if (id == 0) - semsg(_("E411: highlight group not found: %s"), line); - else - highlight_list_one(id); - return; - } - - /* - * Handle ":highlight link {from} {to}" command. - */ - if (dolink) - { - char_u *from_start = linep; - char_u *from_end; - char_u *to_start; - char_u *to_end; - int from_id; - int to_id; - - from_end = skiptowhite(from_start); - to_start = skipwhite(from_end); - to_end = skiptowhite(to_start); - - if (ends_excmd(*from_start) || ends_excmd(*to_start)) - { - semsg(_("E412: Not enough arguments: \":highlight link %s\""), - from_start); - return; - } - - if (!ends_excmd(*skipwhite(to_end))) - { - semsg(_("E413: Too many arguments: \":highlight link %s\""), from_start); - return; - } - - from_id = syn_check_group(from_start, (int)(from_end - from_start)); - if (STRNCMP(to_start, "NONE", 4) == 0) - to_id = 0; - else - to_id = syn_check_group(to_start, (int)(to_end - to_start)); - - if (from_id > 0 && (!init || HL_TABLE()[from_id - 1].sg_set == 0)) - { - /* - * Don't allow a link when there already is some highlighting - * for the group, unless '!' is used - */ - if (to_id > 0 && !forceit && !init - && hl_has_settings(from_id - 1, dodefault)) - { - if (sourcing_name == NULL && !dodefault) - emsg(_("E414: group has settings, highlight link ignored")); - } - else if (HL_TABLE()[from_id - 1].sg_link != to_id -#ifdef FEAT_EVAL - || HL_TABLE()[from_id - 1].sg_script_ctx.sc_sid - != current_sctx.sc_sid -#endif - || HL_TABLE()[from_id - 1].sg_cleared) - { - if (!init) - HL_TABLE()[from_id - 1].sg_set |= SG_LINK; - HL_TABLE()[from_id - 1].sg_link = to_id; -#ifdef FEAT_EVAL - HL_TABLE()[from_id - 1].sg_script_ctx = current_sctx; - HL_TABLE()[from_id - 1].sg_script_ctx.sc_lnum += sourcing_lnum; -#endif - HL_TABLE()[from_id - 1].sg_cleared = FALSE; - redraw_all_later(SOME_VALID); - - /* Only call highlight_changed() once after multiple changes. */ - need_highlight_changed = TRUE; - } - } - - return; - } - - if (doclear) - { - /* - * ":highlight clear [group]" command. - */ - line = linep; - if (ends_excmd(*line)) - { -#ifdef FEAT_GUI - /* First, we do not destroy the old values, but allocate the new - * ones and update the display. THEN we destroy the old values. - * If we destroy the old values first, then the old values - * (such as GuiFont's or GuiFontset's) will still be displayed but - * invalid because they were free'd. - */ - if (gui.in_use) - { -# ifdef FEAT_BEVAL_TIP - gui_init_tooltip_font(); -# endif -# if defined(FEAT_MENU) && (defined(FEAT_GUI_ATHENA) || defined(FEAT_GUI_MOTIF)) - gui_init_menu_font(); -# endif - } -# if defined(FEAT_GUI_MSWIN) || defined(FEAT_GUI_X11) - gui_mch_def_colors(); -# endif -# ifdef FEAT_GUI_X11 -# ifdef FEAT_MENU - - /* This only needs to be done when there is no Menu highlight - * group defined by default, which IS currently the case. - */ - gui_mch_new_menu_colors(); -# endif - if (gui.in_use) - { - gui_new_scrollbar_colors(); -# ifdef FEAT_BEVAL_GUI - gui_mch_new_tooltip_colors(); -# endif -# ifdef FEAT_MENU - gui_mch_new_menu_font(); -# endif - } -# endif - - /* Ok, we're done allocating the new default graphics items. - * The screen should already be refreshed at this point. - * It is now Ok to clear out the old data. - */ -#endif -#ifdef FEAT_EVAL - do_unlet((char_u *)"colors_name", TRUE); -#endif - restore_cterm_colors(); - - /* - * Clear all default highlight groups and load the defaults. - */ - for (idx = 0; idx < highlight_ga.ga_len; ++idx) - highlight_clear(idx); - init_highlight(TRUE, TRUE); -#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) - if (USE_24BIT) - highlight_gui_started(); - else -#endif - highlight_changed(); - redraw_later_clear(); - return; - } - name_end = skiptowhite(line); - linep = skipwhite(name_end); - } - - /* - * Find the group name in the table. If it does not exist yet, add it. - */ - id = syn_check_group(line, (int)(name_end - line)); - if (id == 0) /* failed (out of memory) */ - return; - idx = id - 1; /* index is ID minus one */ - - /* Return if "default" was used and the group already has settings. */ - if (dodefault && hl_has_settings(idx, TRUE)) - return; - - /* Make a copy so we can check if any attribute actually changed. */ - item_before = HL_TABLE()[idx]; - - if (STRCMP(HL_TABLE()[idx].sg_name_u, "NORMAL") == 0) - is_normal_group = TRUE; -#ifdef FEAT_TERMINAL - else if (STRCMP(HL_TABLE()[idx].sg_name_u, "TERMINAL") == 0) - is_terminal_group = TRUE; -#endif -#ifdef FEAT_GUI_X11 - else if (STRCMP(HL_TABLE()[idx].sg_name_u, "MENU") == 0) - is_menu_group = TRUE; - else if (STRCMP(HL_TABLE()[idx].sg_name_u, "SCROLLBAR") == 0) - is_scrollbar_group = TRUE; - else if (STRCMP(HL_TABLE()[idx].sg_name_u, "TOOLTIP") == 0) - is_tooltip_group = TRUE; -#endif - - /* Clear the highlighting for ":hi clear {group}" and ":hi clear". */ - if (doclear || (forceit && init)) - { - highlight_clear(idx); - if (!doclear) - HL_TABLE()[idx].sg_set = 0; - } - - if (!doclear) - while (!ends_excmd(*linep)) - { - key_start = linep; - if (*linep == '=') - { - semsg(_("E415: unexpected equal sign: %s"), key_start); - error = TRUE; - break; - } - - /* - * Isolate the key ("term", "ctermfg", "ctermbg", "font", "guifg" or - * "guibg"). - */ - while (*linep && !VIM_ISWHITE(*linep) && *linep != '=') - ++linep; - vim_free(key); - key = vim_strnsave_up(key_start, (int)(linep - key_start)); - if (key == NULL) - { - error = TRUE; - break; - } - linep = skipwhite(linep); - - if (STRCMP(key, "NONE") == 0) - { - if (!init || HL_TABLE()[idx].sg_set == 0) - { - if (!init) - HL_TABLE()[idx].sg_set |= SG_TERM+SG_CTERM+SG_GUI; - highlight_clear(idx); - } - continue; - } - - /* - * Check for the equal sign. - */ - if (*linep != '=') - { - semsg(_("E416: missing equal sign: %s"), key_start); - error = TRUE; - break; - } - ++linep; - - /* - * Isolate the argument. - */ - linep = skipwhite(linep); - if (*linep == '\'') /* guifg='color name' */ - { - arg_start = ++linep; - linep = vim_strchr(linep, '\''); - if (linep == NULL) - { - semsg(_(e_invarg2), key_start); - error = TRUE; - break; - } - } - else - { - arg_start = linep; - linep = skiptowhite(linep); - } - if (linep == arg_start) - { - semsg(_("E417: missing argument: %s"), key_start); - error = TRUE; - break; - } - vim_free(arg); - arg = vim_strnsave(arg_start, (int)(linep - arg_start)); - if (arg == NULL) - { - error = TRUE; - break; - } - if (*linep == '\'') - ++linep; - - /* - * Store the argument. - */ - if ( STRCMP(key, "TERM") == 0 - || STRCMP(key, "CTERM") == 0 - || STRCMP(key, "GUI") == 0) - { - attr = 0; - off = 0; - while (arg[off] != NUL) - { - for (i = sizeof(hl_attr_table) / sizeof(int); --i >= 0; ) - { - len = (int)STRLEN(hl_name_table[i]); - if (STRNICMP(arg + off, hl_name_table[i], len) == 0) - { - attr |= hl_attr_table[i]; - off += len; - break; - } - } - if (i < 0) - { - semsg(_("E418: Illegal value: %s"), arg); - error = TRUE; - break; - } - if (arg[off] == ',') /* another one follows */ - ++off; - } - if (error) - break; - if (*key == 'T') - { - if (!init || !(HL_TABLE()[idx].sg_set & SG_TERM)) - { - if (!init) - HL_TABLE()[idx].sg_set |= SG_TERM; - HL_TABLE()[idx].sg_term = attr; - } - } - else if (*key == 'C') - { - if (!init || !(HL_TABLE()[idx].sg_set & SG_CTERM)) - { - if (!init) - HL_TABLE()[idx].sg_set |= SG_CTERM; - HL_TABLE()[idx].sg_cterm = attr; - HL_TABLE()[idx].sg_cterm_bold = FALSE; - } - } -#if defined(FEAT_GUI) || defined(FEAT_EVAL) - else - { - if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI)) - { - if (!init) - HL_TABLE()[idx].sg_set |= SG_GUI; - HL_TABLE()[idx].sg_gui = attr; - } - } -#endif - } - else if (STRCMP(key, "FONT") == 0) - { - /* in non-GUI fonts are simply ignored */ -#ifdef FEAT_GUI - if (HL_TABLE()[idx].sg_font_name != NULL - && STRCMP(HL_TABLE()[idx].sg_font_name, arg) == 0) - { - /* Font name didn't change, ignore. */ - } - else if (!gui.shell_created) - { - /* GUI not started yet, always accept the name. */ - vim_free(HL_TABLE()[idx].sg_font_name); - HL_TABLE()[idx].sg_font_name = vim_strsave(arg); - did_change = TRUE; - } - else - { - GuiFont temp_sg_font = HL_TABLE()[idx].sg_font; -# ifdef FEAT_XFONTSET - GuiFontset temp_sg_fontset = HL_TABLE()[idx].sg_fontset; -# endif - /* First, save the current font/fontset. - * Then try to allocate the font/fontset. - * If the allocation fails, HL_TABLE()[idx].sg_font OR - * sg_fontset will be set to NOFONT or NOFONTSET respectively. - */ - - HL_TABLE()[idx].sg_font = NOFONT; -# ifdef FEAT_XFONTSET - HL_TABLE()[idx].sg_fontset = NOFONTSET; -# endif - hl_do_font(idx, arg, is_normal_group, is_menu_group, - is_tooltip_group, FALSE); - -# ifdef FEAT_XFONTSET - if (HL_TABLE()[idx].sg_fontset != NOFONTSET) - { - /* New fontset was accepted. Free the old one, if there - * was one. */ - gui_mch_free_fontset(temp_sg_fontset); - vim_free(HL_TABLE()[idx].sg_font_name); - HL_TABLE()[idx].sg_font_name = vim_strsave(arg); - did_change = TRUE; - } - else - HL_TABLE()[idx].sg_fontset = temp_sg_fontset; -# endif - if (HL_TABLE()[idx].sg_font != NOFONT) - { - /* New font was accepted. Free the old one, if there was - * one. */ - gui_mch_free_font(temp_sg_font); - vim_free(HL_TABLE()[idx].sg_font_name); - HL_TABLE()[idx].sg_font_name = vim_strsave(arg); - did_change = TRUE; - } - else - HL_TABLE()[idx].sg_font = temp_sg_font; - } -#endif - } - else if (STRCMP(key, "CTERMFG") == 0 || STRCMP(key, "CTERMBG") == 0) - { - if (!init || !(HL_TABLE()[idx].sg_set & SG_CTERM)) - { - if (!init) - HL_TABLE()[idx].sg_set |= SG_CTERM; - - /* When setting the foreground color, and previously the "bold" - * flag was set for a light color, reset it now */ - if (key[5] == 'F' && HL_TABLE()[idx].sg_cterm_bold)< |