Problem: Syntax coloring and highlighting is in one big file.
Solution: Move the highlighting to a separate file. (Yegappan Lakshmanan,
closes #4674)
src/gui_beval.c \
src/hardcopy.c \
src/hashtab.c \
+ src/highlight.c \
src/indent.c \
src/insexpand.c \
src/json.c \
src/proto/gui_beval.pro \
src/proto/hardcopy.pro \
src/proto/hashtab.pro \
+ src/proto/highlight.pro \
src/proto/indent.pro \
src/proto/insexpand.pro \
src/proto/json.pro \
$(OUTDIR)/getchar.o \
$(OUTDIR)/hardcopy.o \
$(OUTDIR)/hashtab.o \
+ $(OUTDIR)/highlight.o \
$(OUTDIR)/indent.o \
$(OUTDIR)/insexpand.o \
$(OUTDIR)/json.o \
getchar.c \
hardcopy.c \
hashtab.c \
+ highlight.c \
indent.c \
insexpand.c \
json.c \
$(OUTDIR)\getchar.obj \
$(OUTDIR)\hardcopy.obj \
$(OUTDIR)\hashtab.obj \
+ $(OUTDIR)\highlight.obj \
$(OUTDIR)\indent.obj \
$(OUTDIR)\insexpand.obj \
$(OUTDIR)\json.obj \
$(OUTDIR)/hashtab.obj: $(OUTDIR) hashtab.c $(INCL)
+$(OUTDIR)/highlight.obj: $(OUTDIR) highlight.c $(INCL)
+
$(OUTDIR)/indent.obj: $(OUTDIR) indent.c $(INCL)
$(OUTDIR)/insexpand.obj: $(OUTDIR) insexpand.c $(INCL)
proto/getchar.pro \
proto/hardcopy.pro \
proto/hashtab.pro \
+ proto/highlight.pro \
proto/indent.pro \
proto/insexpand.pro \
proto/json.pro \
crypt.c crypt_zip.c debugger.c dict.c diff.c digraph.c edit.c eval.c \
evalfunc.c ex_cmds.c ex_cmds2.c ex_docmd.c ex_eval.c ex_getln.c \
if_cscope.c if_xcmdsrv.c fileio.c findfile.c fold.c getchar.c \
- hardcopy.c hashtab.c indent.c insexpand.c json.c list.c main.c mark.c \
- menu.c mbyte.c memfile.c memline.c message.c misc1.c misc2.c move.c \
- normal.c ops.c option.c popupmnu.c popupwin.c profiler.c quickfix.c \
- regexp.c search.c sha256.c sign.c spell.c spellfile.c syntax.c tag.c \
- term.c termlib.c testing.c textprop.c ui.c undo.c usercmd.c userfunc.c \
- version.c screen.c window.c os_unix.c os_vms.c pathdef.c \
+ hardcopy.c hashtab.c highlight.c indent.c insexpand.c json.c list.c \
+ main.c mark.c menu.c mbyte.c memfile.c memline.c message.c misc1.c \
+ misc2.c move.c normal.c ops.c option.c popupmnu.c popupwin.c \
+ profiler.c quickfix.c regexp.c search.c sha256.c sign.c spell.c \
+ spellfile.c syntax.c tag.c term.c termlib.c testing.c textprop.c ui.c \
+ undo.c usercmd.c userfunc.c version.c screen.c window.c os_unix.c \
+ os_vms.c pathdef.c \
$(GUI_SRC) $(PERL_SRC) $(PYTHON_SRC) $(TCL_SRC) \
$(RUBY_SRC) $(HANGULIN_SRC) $(MZSCH_SRC) $(XDIFF_SRC)
digraph.obj edit.obj eval.obj evalfunc.obj ex_cmds.obj ex_cmds2.obj \
ex_docmd.obj ex_eval.obj ex_getln.obj if_cscope.obj if_xcmdsrv.obj \
fileio.obj findfile.obj fold.obj getchar.obj hardcopy.obj hashtab.obj \
- indent.obj insexpand.obj json.obj list.obj main.obj mark.obj \
- menu.obj memfile.obj memline.obj message.obj misc1.obj misc2.obj \
- move.obj mbyte.obj normal.obj ops.obj option.obj popupmnu.obj \
- popupwin.obj profiler.obj quickfix.obj regexp.obj search.obj \
- sha256.obj sign.obj spell.obj spellfile.obj syntax.obj tag.obj \
- term.obj termlib.obj testing.obj textprop.obj ui.obj undo.obj usercmd.obj \
- userfunc.obj screen.obj version.obj window.obj os_unix.obj os_vms.obj \
- pathdef.obj if_mzsch.obj \
+ highlight.obj indent.obj insexpand.obj json.obj list.obj main.obj \
+ mark.obj menu.obj memfile.obj memline.obj message.obj misc1.obj \
+ misc2.obj move.obj mbyte.obj normal.obj ops.obj option.obj \
+ popupmnu.obj popupwin.obj profiler.obj quickfix.obj regexp.obj \
+ search.obj sha256.obj sign.obj spell.obj spellfile.obj syntax.obj \
+ tag.obj term.obj termlib.obj testing.obj textprop.obj ui.obj undo.obj \
+ usercmd.obj userfunc.obj screen.obj version.obj window.obj \
+ os_unix.obj os_vms.obj pathdef.obj if_mzsch.obj \
$(GUI_OBJ) $(PERL_OBJ) $(PYTHON_OBJ) $(TCL_OBJ) \
$(RUBY_OBJ) $(HANGULIN_OBJ) $(MZSCH_OBJ) $(XDIFF_OBJ)
ascii.h keymap.h term.h macros.h structs.h regexp.h \
gui.h beval.h [.proto]gui_beval.pro option.h ex_cmds.h proto.h \
globals.h
+highlight.obj : highlight.c vim.h [.auto]config.h feature.h os_unix.h \
+ ascii.h keymap.h term.h macros.h structs.h regexp.h \
+ gui.h beval.h [.proto]gui_beval.pro option.h ex_cmds.h proto.h \
+ globals.h
if_cscope.obj : if_cscope.c vim.h [.auto]config.h feature.h os_unix.h \
ascii.h keymap.h term.h macros.h structs.h regexp.h \
gui.h beval.h [.proto]gui_beval.pro option.h ex_cmds.h proto.h \
getchar.c \
hardcopy.c \
hashtab.c \
+ highlight.c \
if_cscope.c \
if_xcmdsrv.c \
indent.c \
objects/getchar.o \
objects/hardcopy.o \
objects/hashtab.o \
+ objects/highlight.o \
$(HANGULIN_OBJ) \
objects/if_cscope.o \
objects/if_xcmdsrv.o \
hardcopy.pro \
hashtab.pro \
hangulin.pro \
+ highlight.pro \
if_cscope.pro \
if_lua.pro \
if_mzsch.pro \
objects/hangulin.o: hangulin.c
$(CCC) -o $@ hangulin.c
+objects/highlight.o: highlight.c
+ $(CCC) -o $@ highlight.c
+
objects/if_cscope.o: if_cscope.c
$(CCC) -o $@ if_cscope.c
auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
proto.h globals.h
+objects/highlight.o: highlight.c vim.h protodef.h auto/config.h feature.h os_unix.h \
+ auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
+ proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
+ proto.h globals.h
objects/if_cscope.o: if_cscope.c vim.h protodef.h auto/config.h feature.h \
os_unix.h auto/osdef.h ascii.h keymap.h term.h macros.h option.h beval.h \
proto/gui_beval.pro structs.h regexp.h gui.h alloc.h ex_cmds.h spell.h \
findfile.c | search for files in 'path'
fold.c | folding
getchar.c | getting characters and key mapping
+highlight.c | syntax highlighting
indent.c | C and Lisp indentation
insexpand.c | Insert mode completion
mark.c | marks
EXTERN int scroll_region INIT(= FALSE); /* term supports scroll region */
EXTERN int t_colors INIT(= 0); /* int value of T_CCO */
+// highlight groups for 'highlight' option
+EXTERN garray_T highlight_ga INIT(= {0 COMMA 0 COMMA sizeof(hl_group_T) COMMA 10 COMMA NULL});
+
+#ifdef FEAT_CMDL_COMPL
+// Flags to indicate an additional string for highlight name completion.
+EXTERN int include_none INIT(= 0); // when 1 include "None"
+EXTERN int include_default INIT(= 0); // when 1 include "default"
+EXTERN int include_link INIT(= 0); // when 2 include "link" and "clear"
+#endif
+
/*
* When highlight_match is TRUE, highlight a match, starting at the cursor
* position. Search_match_lines is the number of lines after the match (0 for
--- /dev/null
+/* vi:set ts=8 sts=4 sw=4 noet:
+ *
+ * VIM - Vi IMproved by Bram Moolenaar
+ *
+ * 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.
+ */
+
+/*
+ * Highlighting stuff
+ */
+
+#include "vim.h"
+
+#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
+
+/*
+ * 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 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)
+
+/*
+ * 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;
+ hl_group_T 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)
+ {
+ HL_TABLE()[idx].sg_cterm &= ~HL_BOLD;
+ HL_TABLE()[idx].sg_cterm_bold = FALSE;
+ }
+
+ if (VIM_ISDIGIT(*arg))
+ color = atoi((char *)arg);
+ else if (STRICMP(arg, "fg") == 0)
+ {
+ if (cterm_normal_fg_color)
+ color = cterm_normal_fg_color - 1;
+ else
+ {
+ emsg(_("E419: FG color unknown"));
+ error = TRUE;
+ break;
+ }
+ }
+ else if (STRICMP(arg, "bg") == 0)
+ {
+ if (cterm_normal_bg_color > 0)
+ color = cterm_normal_bg_color - 1;
+ else
+ {
+ emsg(_("E420: BG color unknown"));
+ error = TRUE;
+ break;
+ }
+ }
+ else
+ {
+ int bold = MAYBE;
+
+#if defined(__QNXNTO__)
+ static int *color_numbers_8_qansi = color_numbers_8;
+ // On qnx, the 8 & 16 color arrays are the same
+ if (STRNCMP(T_NAME, "qansi", 5) == 0)
+ color_numbers_8_qansi = color_numbers_16;
+#endif
+
+ // reduce calls to STRICMP a bit, it can be slow
+ off = TOUPPER_ASC(*arg);
+ for (i = (sizeof(color_names) / sizeof(char *)); --i >= 0; )
+ if (off == color_names[i][0]
+ && STRICMP(arg + 1, color_names[i] + 1) == 0)
+ break;
+ if (i < 0)
+ {
+ semsg(_("E421: Color name or number not recognized: %s"), key_start);
+ error = TRUE;
+ break;
+ }
+
+ color = lookup_color(i, key[5] == 'F', &bold);
+
+ // set/reset bold attribute to get light foreground
+ // colors (on some terminals, e.g. "linux")
+ if (bold == TRUE)
+ {
+ HL_TABLE()[idx].sg_cterm |= HL_BOLD;
+ HL_TABLE()[idx].sg_cterm_bold = TRUE;
+ }
+ else if (bold == FALSE)
+ HL_TABLE()[idx].sg_cterm &= ~HL_BOLD;
+ }
+
+ // Add one to the argument, to avoid zero. Zero is used for
+ // "NONE", then "color" is -1.
+ if (key[5] == 'F')
+ {
+ HL_TABLE()[idx].sg_cterm_fg = color + 1;
+ if (is_normal_group)
+ {
+ cterm_normal_fg_color = color + 1;
+ cterm_normal_fg_bold = (HL_TABLE()[idx].sg_cterm & HL_BOLD);
+#ifdef FEAT_GUI
+ // Don't do this if the GUI is used.
+ if (!gui.in_use && !gui.starting)
+#endif
+ {
+ must_redraw = CLEAR;
+ if (termcap_active && color >= 0)
+ term_fg_color(color);
+ }
+ }
+ }
+ else
+ {
+ HL_TABLE()[idx].sg_cterm_bg = color + 1;
+ if (is_normal_group)
+ {
+ cterm_normal_bg_color = color + 1;
+#ifdef FEAT_GUI
+ // Don't mess with 'background' if the GUI is used.
+ if (!gui.in_use && !gui.starting)
+#endif
+ {
+ must_redraw = CLEAR;
+ if (color >= 0)
+ {
+ int dark = -1;
+
+ if (termcap_active)
+ term_bg_color(color);
+ if (t_colors < 16)
+ dark = (color == 0 || color == 4);
+ // Limit the heuristic to the standard 16 colors
+ else if (color < 16)
+ dark = (color < 7 || color == 8);
+ // Set the 'background' option if the value is
+ // wrong.
+ if (dark != -1
+ && dark != (*p_bg == 'd')
+ && !option_was_set((char_u *)"bg"))
+ {
+ set_option_value((char_u *)"bg", 0L,
+ (char_u *)(dark ? "dark" : "light"), 0);
+ reset_option_was_set((char_u *)"bg");
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ else if (STRCMP(key, "GUIFG") == 0)
+ {
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ char_u **namep = &HL_TABLE()[idx].sg_gui_fg_name;
+
+ if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
+ {
+ if (!init)
+ HL_TABLE()[idx].sg_set |= SG_GUI;
+
+# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ // In GUI guifg colors are only used when recognized
+ i = color_name2handle(arg);
+ if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !USE_24BIT)
+ {
+ HL_TABLE()[idx].sg_gui_fg = i;
+# endif
+ if (*namep == NULL || STRCMP(*namep, arg) != 0)
+ {
+ vim_free(*namep);
+ if (STRCMP(arg, "NONE") != 0)
+ *namep = vim_strsave(arg);
+ else
+ *namep = NULL;
+ did_change = TRUE;
+ }
+# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+# ifdef FEAT_GUI_X11
+ if (is_menu_group && gui.menu_fg_pixel != i)
+ {
+ gui.menu_fg_pixel = i;
+ do_colors = TRUE;
+ }
+ if (is_scrollbar_group && gui.scroll_fg_pixel != i)
+ {
+ gui.scroll_fg_pixel = i;
+ do_colors = TRUE;
+ }
+# ifdef FEAT_BEVAL_GUI
+ if (is_tooltip_group && gui.tooltip_fg_pixel != i)
+ {
+ gui.tooltip_fg_pixel = i;
+ do_colors = TRUE;
+ }
+# endif
+# endif
+ }
+# endif
+ }
+#endif
+ }
+ else if (STRCMP(key, "GUIBG") == 0)
+ {
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ char_u **namep = &HL_TABLE()[idx].sg_gui_bg_name;
+
+ if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
+ {
+ if (!init)
+ HL_TABLE()[idx].sg_set |= SG_GUI;
+
+# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ // In GUI guifg colors are only used when recognized
+ i = color_name2handle(arg);
+ if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !USE_24BIT)
+ {
+ HL_TABLE()[idx].sg_gui_bg = i;
+# endif
+ if (*namep == NULL || STRCMP(*namep, arg) != 0)
+ {
+ vim_free(*namep);
+ if (STRCMP(arg, "NONE") != 0)
+ *namep = vim_strsave(arg);
+ else
+ *namep = NULL;
+ did_change = TRUE;
+ }
+# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+# ifdef FEAT_GUI_X11
+ if (is_menu_group && gui.menu_bg_pixel != i)
+ {
+ gui.menu_bg_pixel = i;
+ do_colors = TRUE;
+ }
+ if (is_scrollbar_group && gui.scroll_bg_pixel != i)
+ {
+ gui.scroll_bg_pixel = i;
+ do_colors = TRUE;
+ }
+# ifdef FEAT_BEVAL_GUI
+ if (is_tooltip_group && gui.tooltip_bg_pixel != i)
+ {
+ gui.tooltip_bg_pixel = i;
+ do_colors = TRUE;
+ }
+# endif
+# endif
+ }
+# endif
+ }
+#endif
+ }
+ else if (STRCMP(key, "GUISP") == 0)
+ {
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ char_u **namep = &HL_TABLE()[idx].sg_gui_sp_name;
+
+ if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
+ {
+ if (!init)
+ HL_TABLE()[idx].sg_set |= SG_GUI;
+
+# ifdef FEAT_GUI
+ i = color_name2handle(arg);
+ if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !gui.in_use)
+ {
+ HL_TABLE()[idx].sg_gui_sp = i;
+# endif
+ if (*namep == NULL || STRCMP(*namep, arg) != 0)
+ {
+ vim_free(*namep);
+ if (STRCMP(arg, "NONE") != 0)
+ *namep = vim_strsave(arg);
+ else
+ *namep = NULL;
+ did_change = TRUE;
+ }
+# ifdef FEAT_GUI
+ }
+# endif
+ }
+#endif
+ }
+ else if (STRCMP(key, "START") == 0 || STRCMP(key, "STOP") == 0)
+ {
+ char_u buf[100];
+ char_u *tname;
+
+ if (!init)
+ HL_TABLE()[idx].sg_set |= SG_TERM;
+
+ /*
+ * The "start" and "stop" arguments can be a literal escape
+ * sequence, or a comma separated list of terminal codes.
+ */
+ if (STRNCMP(arg, "t_", 2) == 0)
+ {
+ off = 0;
+ buf[0] = 0;
+ while (arg[off] != NUL)
+ {
+ // Isolate one termcap name
+ for (len = 0; arg[off + len] &&
+ arg[off + len] != ','; ++len)
+ ;
+ tname = vim_strnsave(arg + off, len);
+ if (tname == NULL) // out of memory
+ {
+ error = TRUE;
+ break;
+ }
+ // lookup the escape sequence for the item
+ p = get_term_code(tname);
+ vim_free(tname);
+ if (p == NULL) // ignore non-existing things
+ p = (char_u *)"";
+
+ // Append it to the already found stuff
+ if ((int)(STRLEN(buf) + STRLEN(p)) >= 99)
+ {
+ semsg(_("E422: terminal code too long: %s"), arg);
+ error = TRUE;
+ break;
+ }
+ STRCAT(buf, p);
+
+ // Advance to the next item
+ off += len;
+ if (arg[off] == ',') // another one follows
+ ++off;
+ }
+ }
+ else
+ {
+ /*
+ * Copy characters from arg[] to buf[], translating <> codes.
+ */
+ for (p = arg, off = 0; off < 100 - 6 && *p; )
+ {
+ len = trans_special(&p, buf + off, FALSE, FALSE);
+ if (len > 0) // recognized special char
+ off += len;
+ else // copy as normal char
+ buf[off++] = *p++;
+ }
+ buf[off] = NUL;
+ }
+ if (error)
+ break;
+
+ if (STRCMP(buf, "NONE") == 0) // resetting the value
+ p = NULL;
+ else
+ p = vim_strsave(buf);
+ if (key[2] == 'A')
+ {
+ vim_free(HL_TABLE()[idx].sg_start);
+ HL_TABLE()[idx].sg_start = p;
+ }
+ else
+ {
+ vim_free(HL_TABLE()[idx].sg_stop);
+ HL_TABLE()[idx].sg_stop = p;
+ }
+ }
+ else
+ {
+ semsg(_("E423: Illegal argument: %s"), key_start);
+ error = TRUE;
+ break;
+ }
+ HL_TABLE()[idx].sg_cleared = FALSE;
+
+ /*
+ * When highlighting has been given for a group, don't link it.
+ */
+ if (!init || !(HL_TABLE()[idx].sg_set & SG_LINK))
+ HL_TABLE()[idx].sg_link = 0;
+
+ /*
+ * Continue with next argument.
+ */
+ linep = skipwhite(linep);
+ }
+
+ /*
+ * If there is an error, and it's a new entry, remove it from the table.
+ */
+ if (error && idx == highlight_ga.ga_len)
+ syn_unadd_group();
+ else
+ {
+ if (is_normal_group)
+ {
+ HL_TABLE()[idx].sg_term_attr = 0;
+ HL_TABLE()[idx].sg_cterm_attr = 0;
+#ifdef FEAT_GUI
+ HL_TABLE()[idx].sg_gui_attr = 0;
+ /*
+ * Need to update all groups, because they might be using "bg"
+ * and/or "fg", which have been changed now.
+ */
+#endif
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ if (USE_24BIT)
+ {
+ highlight_gui_started();
+ did_highlight_changed = TRUE;
+ redraw_all_later(NOT_VALID);
+ }
+#endif
+ }
+#ifdef FEAT_TERMINAL
+ else if (is_terminal_group)
+ set_terminal_default_colors(
+ HL_TABLE()[idx].sg_cterm_fg, HL_TABLE()[idx].sg_cterm_bg);
+#endif
+#ifdef FEAT_GUI_X11
+# ifdef FEAT_MENU
+ else if (is_menu_group)
+ {
+ if (gui.in_use && do_colors)
+ gui_mch_new_menu_colors();
+ }
+# endif
+ else if (is_scrollbar_group)
+ {
+ if (gui.in_use && do_colors)
+ gui_new_scrollbar_colors();
+ else
+ set_hl_attr(idx);
+ }
+# ifdef FEAT_BEVAL_GUI
+ else if (is_tooltip_group)
+ {
+ if (gui.in_use && do_colors)
+ gui_mch_new_tooltip_colors();
+ }
+# endif
+#endif
+ else
+ set_hl_attr(idx);
+#ifdef FEAT_EVAL
+ HL_TABLE()[idx].sg_script_ctx = current_sctx;
+ HL_TABLE()[idx].sg_script_ctx.sc_lnum += sourcing_lnum;
+#endif
+ }
+
+ vim_free(key);
+ vim_free(arg);
+
+ // Only call highlight_changed() once, after a sequence of highlight
+ // commands, and only if an attribute actually changed.
+ if ((did_change
+ || memcmp(&HL_TABLE()[idx], &item_before, sizeof(item_before)) != 0)
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ && !did_highlight_changed
+#endif
+ )
+ {
+ // Do not trigger a redraw when highlighting is changed while
+ // redrawing. This may happen when evaluating 'statusline' changes the
+ // StatusLine group.
+ if (!updating_screen)
+ redraw_all_later(NOT_VALID);
+ need_highlight_changed = TRUE;
+ }
+}
+
+#if defined(EXITFREE) || defined(PROTO)
+ void
+free_highlight(void)
+{
+ int i;
+
+ for (i = 0; i < highlight_ga.ga_len; ++i)
+ {
+ highlight_clear(i);
+ vim_free(HL_TABLE()[i].sg_name);
+ vim_free(HL_TABLE()[i].sg_name_u);
+ }
+ ga_clear(&highlight_ga);
+}
+#endif
+
+/*
+ * Reset the cterm colors to what they were before Vim was started, if
+ * possible. Otherwise reset them to zero.
+ */
+ void
+restore_cterm_colors(void)
+{
+#if defined(MSWIN) && !defined(FEAT_GUI_MSWIN)
+ // Since t_me has been set, this probably means that the user
+ // wants to use this as default colors. Need to reset default
+ // background/foreground colors.
+ mch_set_normal_colors();
+#else
+# ifdef VIMDLL
+ if (!gui.in_use)
+ {
+ mch_set_normal_colors();
+ return;
+ }
+# endif
+ cterm_normal_fg_color = 0;
+ cterm_normal_fg_bold = 0;
+ cterm_normal_bg_color = 0;
+# ifdef FEAT_TERMGUICOLORS
+ cterm_normal_fg_gui_color = INVALCOLOR;
+ cterm_normal_bg_gui_color = INVALCOLOR;
+# endif
+#endif
+}
+
+/*
+ * Return TRUE if highlight group "idx" has any settings.
+ * When "check_link" is TRUE also check for an existing link.
+ */
+ static int
+hl_has_settings(int idx, int check_link)
+{
+ return ( HL_TABLE()[idx].sg_term_attr != 0
+ || HL_TABLE()[idx].sg_cterm_attr != 0
+ || HL_TABLE()[idx].sg_cterm_fg != 0
+ || HL_TABLE()[idx].sg_cterm_bg != 0
+#ifdef FEAT_GUI
+ || HL_TABLE()[idx].sg_gui_attr != 0
+ || HL_TABLE()[idx].sg_gui_fg_name != NULL
+ || HL_TABLE()[idx].sg_gui_bg_name != NULL
+ || HL_TABLE()[idx].sg_gui_sp_name != NULL
+ || HL_TABLE()[idx].sg_font_name != NULL
+#endif
+ || (check_link && (HL_TABLE()[idx].sg_set & SG_LINK)));
+}
+
+/*
+ * Clear highlighting for one group.
+ */
+ static void
+highlight_clear(int idx)
+{
+ HL_TABLE()[idx].sg_cleared = TRUE;
+
+ HL_TABLE()[idx].sg_term = 0;
+ VIM_CLEAR(HL_TABLE()[idx].sg_start);
+ VIM_CLEAR(HL_TABLE()[idx].sg_stop);
+ HL_TABLE()[idx].sg_term_attr = 0;
+ HL_TABLE()[idx].sg_cterm = 0;
+ HL_TABLE()[idx].sg_cterm_bold = FALSE;
+ HL_TABLE()[idx].sg_cterm_fg = 0;
+ HL_TABLE()[idx].sg_cterm_bg = 0;
+ HL_TABLE()[idx].sg_cterm_attr = 0;
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ HL_TABLE()[idx].sg_gui = 0;
+ VIM_CLEAR(HL_TABLE()[idx].sg_gui_fg_name);
+ VIM_CLEAR(HL_TABLE()[idx].sg_gui_bg_name);
+ VIM_CLEAR(HL_TABLE()[idx].sg_gui_sp_name);
+#endif
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ HL_TABLE()[idx].sg_gui_fg = INVALCOLOR;
+ HL_TABLE()[idx].sg_gui_bg = INVALCOLOR;
+#endif
+#ifdef FEAT_GUI
+ HL_TABLE()[idx].sg_gui_sp = INVALCOLOR;
+ gui_mch_free_font(HL_TABLE()[idx].sg_font);
+ HL_TABLE()[idx].sg_font = NOFONT;
+# ifdef FEAT_XFONTSET
+ gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
+ HL_TABLE()[idx].sg_fontset = NOFONTSET;
+# endif
+ VIM_CLEAR(HL_TABLE()[idx].sg_font_name);
+ HL_TABLE()[idx].sg_gui_attr = 0;
+#endif
+#ifdef FEAT_EVAL
+ // Clear the script ID only when there is no link, since that is not
+ // cleared.
+ if (HL_TABLE()[idx].sg_link == 0)
+ {
+ HL_TABLE()[idx].sg_script_ctx.sc_sid = 0;
+ HL_TABLE()[idx].sg_script_ctx.sc_lnum = 0;
+ }
+#endif
+}
+
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
+/*
+ * Set the normal foreground and background colors according to the "Normal"
+ * highlighting group. For X11 also set "Menu", "Scrollbar", and
+ * "Tooltip" colors.
+ */
+ void
+set_normal_colors(void)
+{
+# ifdef FEAT_GUI
+# ifdef FEAT_TERMGUICOLORS
+ if (gui.in_use)
+# endif
+ {
+ if (set_group_colors((char_u *)"Normal",
+ &gui.norm_pixel, &gui.back_pixel,
+ FALSE, TRUE, FALSE))
+ {
+ gui_mch_new_colors();
+ must_redraw = CLEAR;
+ }
+# ifdef FEAT_GUI_X11
+ if (set_group_colors((char_u *)"Menu",
+ &gui.menu_fg_pixel, &gui.menu_bg_pixel,
+ TRUE, FALSE, FALSE))
+ {
+# ifdef FEAT_MENU
+ gui_mch_new_menu_colors();
+# endif
+ must_redraw = CLEAR;
+ }
+# ifdef FEAT_BEVAL_GUI
+ if (set_group_colors((char_u *)"Tooltip",
+ &gui.tooltip_fg_pixel, &gui.tooltip_bg_pixel,
+ FALSE, FALSE, TRUE))
+ {
+# ifdef FEAT_TOOLBAR
+ gui_mch_new_tooltip_colors();
+# endif
+ must_redraw = CLEAR;
+ }
+# endif
+ if (set_group_colors((char_u *)"Scrollbar",
+ &gui.scroll_fg_pixel, &gui.scroll_bg_pixel,
+ FALSE, FALSE, FALSE))
+ {
+ gui_new_scrollbar_colors();
+ must_redraw = CLEAR;
+ }
+# endif
+ }
+# endif
+# ifdef FEAT_TERMGUICOLORS
+# ifdef FEAT_GUI
+ else
+# endif
+ {
+ int idx;
+
+ idx = syn_name2id((char_u *)"Normal") - 1;
+ if (idx >= 0)
+ {
+ gui_do_one_color(idx, FALSE, FALSE);
+
+ // If the normal fg or bg color changed a complete redraw is
+ // required.
+ if (cterm_normal_fg_gui_color != HL_TABLE()[idx].sg_gui_fg
+ || cterm_normal_bg_gui_color != HL_TABLE()[idx].sg_gui_bg)
+ {
+ // if the GUI color is INVALCOLOR then we use the default cterm
+ // color
+ cterm_normal_fg_gui_color = HL_TABLE()[idx].sg_gui_fg;
+ cterm_normal_bg_gui_color = HL_TABLE()[idx].sg_gui_bg;
+ must_redraw = CLEAR;
+ }
+ }
+ }
+# endif
+}
+#endif
+
+#if defined(FEAT_GUI) || defined(PROTO)
+/*
+ * Set the colors for "Normal", "Menu", "Tooltip" or "Scrollbar".
+ */
+ static int
+set_group_colors(
+ char_u *name,
+ guicolor_T *fgp,
+ guicolor_T *bgp,
+ int do_menu,
+ int use_norm,
+ int do_tooltip)
+{
+ int idx;
+
+ idx = syn_name2id(name) - 1;
+ if (idx >= 0)
+ {
+ gui_do_one_color(idx, do_menu, do_tooltip);
+
+ if (HL_TABLE()[idx].sg_gui_fg != INVALCOLOR)
+ *fgp = HL_TABLE()[idx].sg_gui_fg;
+ else if (use_norm)
+ *fgp = gui.def_norm_pixel;
+ if (HL_TABLE()[idx].sg_gui_bg != INVALCOLOR)
+ *bgp = HL_TABLE()[idx].sg_gui_bg;
+ else if (use_norm)
+ *bgp = gui.def_back_pixel;
+ return TRUE;
+ }
+ return FALSE;
+}
+
+/*
+ * Get the font of the "Normal" group.
+ * Returns "" when it's not found or not set.
+ */
+ char_u *
+hl_get_font_name(void)
+{
+ int id;
+ char_u *s;
+
+ id = syn_name2id((char_u *)"Normal");
+ if (id > 0)
+ {
+ s = HL_TABLE()[id - 1].sg_font_name;
+ if (s != NULL)
+ return s;
+ }
+ return (char_u *)"";
+}
+
+/*
+ * Set font for "Normal" group. Called by gui_mch_init_font() when a font has
+ * actually chosen to be used.
+ */
+ void
+hl_set_font_name(char_u *font_name)
+{
+ int id;
+
+ id = syn_name2id((char_u *)"Normal");
+ if (id > 0)
+ {
+ vim_free(HL_TABLE()[id - 1].sg_font_name);
+ HL_TABLE()[id - 1].sg_font_name = vim_strsave(font_name);
+ }
+}
+
+/*
+ * Set background color for "Normal" group. Called by gui_set_bg_color()
+ * when the color is known.
+ */
+ void
+hl_set_bg_color_name(
+ char_u *name) // must have been allocated
+{
+ int id;
+
+ if (name != NULL)
+ {
+ id = syn_name2id((char_u *)"Normal");
+ if (id > 0)
+ {
+ vim_free(HL_TABLE()[id - 1].sg_gui_bg_name);
+ HL_TABLE()[id - 1].sg_gui_bg_name = name;
+ }
+ }
+}
+
+/*
+ * Set foreground color for "Normal" group. Called by gui_set_fg_color()
+ * when the color is known.
+ */
+ void
+hl_set_fg_color_name(
+ char_u *name) // must have been allocated
+{
+ int id;
+
+ if (name != NULL)
+ {
+ id = syn_name2id((char_u *)"Normal");
+ if (id > 0)
+ {
+ vim_free(HL_TABLE()[id - 1].sg_gui_fg_name);
+ HL_TABLE()[id - 1].sg_gui_fg_name = name;
+ }
+ }
+}
+
+/*
+ * Return the handle for a font name.
+ * Returns NOFONT when failed.
+ */
+ static GuiFont
+font_name2handle(char_u *name)
+{
+ if (STRCMP(name, "NONE") == 0)
+ return NOFONT;
+
+ return gui_mch_get_font(name, TRUE);
+}
+
+# ifdef FEAT_XFONTSET
+/*
+ * Return the handle for a fontset name.
+ * Returns NOFONTSET when failed.
+ */
+ static GuiFontset
+fontset_name2handle(char_u *name, int fixed_width)
+{
+ if (STRCMP(name, "NONE") == 0)
+ return NOFONTSET;
+
+ return gui_mch_get_fontset(name, TRUE, fixed_width);
+}
+# endif
+
+/*
+ * Get the font or fontset for one highlight group.
+ */
+ static void
+hl_do_font(
+ int idx,
+ char_u *arg,
+ int do_normal, // set normal font
+ int do_menu UNUSED, // set menu font
+ int do_tooltip UNUSED, // set tooltip font
+ int free_font) // free current font/fontset
+{
+# ifdef FEAT_XFONTSET
+ // If 'guifontset' is not empty, first try using the name as a
+ // fontset. If that doesn't work, use it as a font name.
+ if (*p_guifontset != NUL
+# ifdef FONTSET_ALWAYS
+ || do_menu
+# endif
+# ifdef FEAT_BEVAL_TIP
+ // In Athena & Motif, the Tooltip highlight group is always a fontset
+ || do_tooltip
+# endif
+ )
+ {
+ if (free_font)
+ gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
+ HL_TABLE()[idx].sg_fontset = fontset_name2handle(arg, 0
+# ifdef FONTSET_ALWAYS
+ || do_menu
+# endif
+# ifdef FEAT_BEVAL_TIP
+ || do_tooltip
+# endif
+ );
+ }
+ if (HL_TABLE()[idx].sg_fontset != NOFONTSET)
+ {
+ // If it worked and it's the Normal group, use it as the normal
+ // fontset. Same for the Menu group.
+ if (do_normal)
+ gui_init_font(arg, TRUE);
+# if (defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)) && defined(FEAT_MENU)
+ if (do_menu)
+ {
+# ifdef FONTSET_ALWAYS
+ gui.menu_fontset = HL_TABLE()[idx].sg_fontset;
+# else
+ // YIKES! This is a bug waiting to crash the program
+ gui.menu_font = HL_TABLE()[idx].sg_fontset;
+# endif
+ gui_mch_new_menu_font();
+ }
+# ifdef FEAT_BEVAL_GUI
+ if (do_tooltip)
+ {
+ // The Athena widget set cannot currently handle switching between
+ // displaying a single font and a fontset.
+ // If the XtNinternational resource is set to True at widget
+ // creation, then a fontset is always used, otherwise an
+ // XFontStruct is used.
+ gui.tooltip_fontset = (XFontSet)HL_TABLE()[idx].sg_fontset;
+ gui_mch_new_tooltip_font();
+ }
+# endif
+# endif
+ }
+ else
+# endif
+ {
+ if (free_font)
+ gui_mch_free_font(HL_TABLE()[idx].sg_font);
+ HL_TABLE()[idx].sg_font = font_name2handle(arg);
+ // If it worked and it's the Normal group, use it as the
+ // normal font. Same for the Menu group.
+ if (HL_TABLE()[idx].sg_font != NOFONT)
+ {
+ if (do_normal)
+ gui_init_font(arg, FALSE);
+#ifndef FONTSET_ALWAYS
+# if (defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)) && defined(FEAT_MENU)
+ if (do_menu)
+ {
+ gui.menu_font = HL_TABLE()[idx].sg_font;
+ gui_mch_new_menu_font();
+ }
+# endif
+#endif
+ }
+ }
+}
+
+#endif // FEAT_GUI
+
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
+/*
+ * Return the handle for a color name.
+ * Returns INVALCOLOR when failed.
+ */
+ guicolor_T
+color_name2handle(char_u *name)
+{
+ if (STRCMP(name, "NONE") == 0)
+ return INVALCOLOR;
+
+ if (STRICMP(name, "fg") == 0 || STRICMP(name, "foreground") == 0)
+ {
+#if defined(FEAT_TERMGUICOLORS) && defined(FEAT_GUI)
+ if (gui.in_use)
+#endif
+#ifdef FEAT_GUI
+ return gui.norm_pixel;
+#endif
+#ifdef FEAT_TERMGUICOLORS
+ if (cterm_normal_fg_gui_color != INVALCOLOR)
+ return cterm_normal_fg_gui_color;
+ // Guess that the foreground is black or white.
+ return GUI_GET_COLOR((char_u *)(*p_bg == 'l' ? "black" : "white"));
+#endif
+ }
+ if (STRICMP(name, "bg") == 0 || STRICMP(name, "background") == 0)
+ {
+#if defined(FEAT_TERMGUICOLORS) && defined(FEAT_GUI)
+ if (gui.in_use)
+#endif
+#ifdef FEAT_GUI
+ return gui.back_pixel;
+#endif
+#ifdef FEAT_TERMGUICOLORS
+ if (cterm_normal_bg_gui_color != INVALCOLOR)
+ return cterm_normal_bg_gui_color;
+ // Guess that the background is white or black.
+ return GUI_GET_COLOR((char_u *)(*p_bg == 'l' ? "white" : "black"));
+#endif
+ }
+
+ return GUI_GET_COLOR(name);
+}
+#endif
+
+/*
+ * Table with the specifications for an attribute number.
+ * Note that this table is used by ALL buffers. This is required because the
+ * GUI can redraw at any time for any buffer.
+ */
+static garray_T term_attr_table = {0, 0, 0, 0, NULL};
+
+#define TERM_ATTR_ENTRY(idx) ((attrentry_T *)term_attr_table.ga_data)[idx]
+
+static garray_T cterm_attr_table = {0, 0, 0, 0, NULL};
+
+#define CTERM_ATTR_ENTRY(idx) ((attrentry_T *)cterm_attr_table.ga_data)[idx]
+
+#ifdef FEAT_GUI
+static garray_T gui_attr_table = {0, 0, 0, 0, NULL};
+
+#define GUI_ATTR_ENTRY(idx) ((attrentry_T *)gui_attr_table.ga_data)[idx]
+#endif
+
+/*
+ * Return the attr number for a set of colors and font.
+ * Add a new entry to the term_attr_table, cterm_attr_table or gui_attr_table
+ * if the combination is new.
+ * Return 0 for error (no more room).
+ */
+ static int
+get_attr_entry(garray_T *table, attrentry_T *aep)
+{
+ int i;
+ attrentry_T *taep;
+ static int recursive = FALSE;
+
+ /*
+ * Init the table, in case it wasn't done yet.
+ */
+ table->ga_itemsize = sizeof(attrentry_T);
+ table->ga_growsize = 7;
+
+ /*
+ * Try to find an entry with the same specifications.
+ */
+ for (i = 0; i < table->ga_len; ++i)
+ {
+ taep = &(((attrentry_T *)table->ga_data)[i]);
+ if ( aep->ae_attr == taep->ae_attr
+ && (
+#ifdef FEAT_GUI
+ (table == &gui_attr_table
+ && (aep->ae_u.gui.fg_color == taep->ae_u.gui.fg_color
+ && aep->ae_u.gui.bg_color
+ == taep->ae_u.gui.bg_color
+ && aep->ae_u.gui.sp_color
+ == taep->ae_u.gui.sp_color
+ && aep->ae_u.gui.font == taep->ae_u.gui.font
+# ifdef FEAT_XFONTSET
+ && aep->ae_u.gui.fontset == taep->ae_u.gui.fontset
+# endif
+ ))
+ ||
+#endif
+ (table == &term_attr_table
+ && (aep->ae_u.term.start == NULL)
+ == (taep->ae_u.term.start == NULL)
+ && (aep->ae_u.term.start == NULL
+ || STRCMP(aep->ae_u.term.start,
+ taep->ae_u.term.start) == 0)
+ && (aep->ae_u.term.stop == NULL)
+ == (taep->ae_u.term.stop == NULL)
+ && (aep->ae_u.term.stop == NULL
+ || STRCMP(aep->ae_u.term.stop,
+ taep->ae_u.term.stop) == 0))
+ || (table == &cterm_attr_table
+ && aep->ae_u.cterm.fg_color
+ == taep->ae_u.cterm.fg_color
+ && aep->ae_u.cterm.bg_color
+ == taep->ae_u.cterm.bg_color
+#ifdef FEAT_TERMGUICOLORS
+ && aep->ae_u.cterm.fg_rgb
+ == taep->ae_u.cterm.fg_rgb
+ && aep->ae_u.cterm.bg_rgb
+ == taep->ae_u.cterm.bg_rgb
+#endif
+ )))
+
+ return i + ATTR_OFF;
+ }
+
+ if (table->ga_len + ATTR_OFF > MAX_TYPENR)
+ {
+ /*
+ * Running out of attribute entries! remove all attributes, and
+ * compute new ones for all groups.
+ * When called recursively, we are really out of numbers.
+ */
+ if (recursive)
+ {
+ emsg(_("E424: Too many different highlighting attributes in use"));
+ return 0;
+ }
+ recursive = TRUE;
+
+ clear_hl_tables();
+
+ must_redraw = CLEAR;
+
+ for (i = 0; i < highlight_ga.ga_len; ++i)
+ set_hl_attr(i);
+
+ recursive = FALSE;
+ }
+
+ /*
+ * This is a new combination of colors and font, add an entry.
+ */
+ if (ga_grow(table, 1) == FAIL)
+ return 0;
+
+ taep = &(((attrentry_T *)table->ga_data)[table->ga_len]);
+ vim_memset(taep, 0, sizeof(attrentry_T));
+ taep->ae_attr = aep->ae_attr;
+#ifdef FEAT_GUI
+ if (table == &gui_attr_table)
+ {
+ taep->ae_u.gui.fg_color = aep->ae_u.gui.fg_color;
+ taep->ae_u.gui.bg_color = aep->ae_u.gui.bg_color;
+ taep->ae_u.gui.sp_color = aep->ae_u.gui.sp_color;
+ taep->ae_u.gui.font = aep->ae_u.gui.font;
+# ifdef FEAT_XFONTSET
+ taep->ae_u.gui.fontset = aep->ae_u.gui.fontset;
+# endif
+ }
+#endif
+ if (table == &term_attr_table)
+ {
+ if (aep->ae_u.term.start == NULL)
+ taep->ae_u.term.start = NULL;
+ else
+ taep->ae_u.term.start = vim_strsave(aep->ae_u.term.start);
+ if (aep->ae_u.term.stop == NULL)
+ taep->ae_u.term.stop = NULL;
+ else
+ taep->ae_u.term.stop = vim_strsave(aep->ae_u.term.stop);
+ }
+ else if (table == &cterm_attr_table)
+ {
+ taep->ae_u.cterm.fg_color = aep->ae_u.cterm.fg_color;
+ taep->ae_u.cterm.bg_color = aep->ae_u.cterm.bg_color;
+#ifdef FEAT_TERMGUICOLORS
+ taep->ae_u.cterm.fg_rgb = aep->ae_u.cterm.fg_rgb;
+ taep->ae_u.cterm.bg_rgb = aep->ae_u.cterm.bg_rgb;
+#endif
+ }
+ ++table->ga_len;
+ return (table->ga_len - 1 + ATTR_OFF);
+}
+
+#if defined(FEAT_TERMINAL) || defined(PROTO)
+/*
+ * Get an attribute index for a cterm entry.
+ * Uses an existing entry when possible or adds one when needed.
+ */
+ int
+get_cterm_attr_idx(int attr, int fg, int bg)
+{
+ attrentry_T at_en;
+
+ vim_memset(&at_en, 0, sizeof(attrentry_T));
+#ifdef FEAT_TERMGUICOLORS
+ at_en.ae_u.cterm.fg_rgb = INVALCOLOR;
+ at_en.ae_u.cterm.bg_rgb = INVALCOLOR;
+#endif
+ at_en.ae_attr = attr;
+ at_en.ae_u.cterm.fg_color = fg;
+ at_en.ae_u.cterm.bg_color = bg;
+ return get_attr_entry(&cterm_attr_table, &at_en);
+}
+#endif
+
+#if (defined(FEAT_TERMINAL) && defined(FEAT_TERMGUICOLORS)) || defined(PROTO)
+/*
+ * Get an attribute index for a 'termguicolors' entry.
+ * Uses an existing entry when possible or adds one when needed.
+ */
+ int
+get_tgc_attr_idx(int attr, guicolor_T fg, guicolor_T bg)
+{
+ attrentry_T at_en;
+
+ vim_memset(&at_en, 0, sizeof(attrentry_T));
+ at_en.ae_attr = attr;
+ if (fg == INVALCOLOR && bg == INVALCOLOR)
+ {
+ // If both GUI colors are not set fall back to the cterm colors. Helps
+ // if the GUI only has an attribute, such as undercurl.
+ at_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
+ at_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
+ }
+ else
+ {
+ at_en.ae_u.cterm.fg_rgb = fg;
+ at_en.ae_u.cterm.bg_rgb = bg;
+ }
+ return get_attr_entry(&cterm_attr_table, &at_en);
+}
+#endif
+
+#if (defined(FEAT_TERMINAL) && defined(FEAT_GUI)) || defined(PROTO)
+/*
+ * Get an attribute index for a cterm entry.
+ * Uses an existing entry when possible or adds one when needed.
+ */
+ int
+get_gui_attr_idx(int attr, guicolor_T fg, guicolor_T bg)
+{
+ attrentry_T at_en;
+
+ vim_memset(&at_en, 0, sizeof(attrentry_T));
+ at_en.ae_attr = attr;
+ at_en.ae_u.gui.fg_color = fg;
+ at_en.ae_u.gui.bg_color = bg;
+ return get_attr_entry(&gui_attr_table, &at_en);
+}
+#endif
+
+/*
+ * Clear all highlight tables.
+ */
+ void
+clear_hl_tables(void)
+{
+ int i;
+ attrentry_T *taep;
+
+#ifdef FEAT_GUI
+ ga_clear(&gui_attr_table);
+#endif
+ for (i = 0; i < term_attr_table.ga_len; ++i)
+ {
+ taep = &(((attrentry_T *)term_attr_table.ga_data)[i]);
+ vim_free(taep->ae_u.term.start);
+ vim_free(taep->ae_u.term.stop);
+ }
+ ga_clear(&term_attr_table);
+ ga_clear(&cterm_attr_table);
+}
+
+/*
+ * Combine special attributes (e.g., for spelling) with other attributes
+ * (e.g., for syntax highlighting).
+ * "prim_attr" overrules "char_attr".
+ * This creates a new group when required.
+ * Since we expect there to be few spelling mistakes we don't cache the
+ * result.
+ * Return the resulting attributes.
+ */
+ int
+hl_combine_attr(int char_attr, int prim_attr)
+{
+ attrentry_T *char_aep = NULL;
+ attrentry_T *spell_aep;
+ attrentry_T new_en;
+
+ if (char_attr == 0)
+ return prim_attr;
+ if (char_attr <= HL_ALL && prim_attr <= HL_ALL)
+ return ATTR_COMBINE(char_attr, prim_attr);
+#ifdef FEAT_GUI
+ if (gui.in_use)
+ {
+ if (char_attr > HL_ALL)
+ char_aep = syn_gui_attr2entry(char_attr);
+ if (char_aep != NULL)
+ new_en = *char_aep;
+ else
+ {
+ vim_memset(&new_en, 0, sizeof(new_en));
+ new_en.ae_u.gui.fg_color = INVALCOLOR;
+ new_en.ae_u.gui.bg_color = INVALCOLOR;
+ new_en.ae_u.gui.sp_color = INVALCOLOR;
+ if (char_attr <= HL_ALL)
+ new_en.ae_attr = char_attr;
+ }
+
+ if (prim_attr <= HL_ALL)
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
+ else
+ {
+ spell_aep = syn_gui_attr2entry(prim_attr);
+ if (spell_aep != NULL)
+ {
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr,
+ spell_aep->ae_attr);
+ if (spell_aep->ae_u.gui.fg_color != INVALCOLOR)
+ new_en.ae_u.gui.fg_color = spell_aep->ae_u.gui.fg_color;
+ if (spell_aep->ae_u.gui.bg_color != INVALCOLOR)
+ new_en.ae_u.gui.bg_color = spell_aep->ae_u.gui.bg_color;
+ if (spell_aep->ae_u.gui.sp_color != INVALCOLOR)
+ new_en.ae_u.gui.sp_color = spell_aep->ae_u.gui.sp_color;
+ if (spell_aep->ae_u.gui.font != NOFONT)
+ new_en.ae_u.gui.font = spell_aep->ae_u.gui.font;
+# ifdef FEAT_XFONTSET
+ if (spell_aep->ae_u.gui.fontset != NOFONTSET)
+ new_en.ae_u.gui.fontset = spell_aep->ae_u.gui.fontset;
+# endif
+ }
+ }
+ return get_attr_entry(&gui_attr_table, &new_en);
+ }
+#endif
+
+ if (IS_CTERM)
+ {
+ if (char_attr > HL_ALL)
+ char_aep = syn_cterm_attr2entry(char_attr);
+ if (char_aep != NULL)
+ new_en = *char_aep;
+ else
+ {
+ vim_memset(&new_en, 0, sizeof(new_en));
+#ifdef FEAT_TERMGUICOLORS
+ new_en.ae_u.cterm.bg_rgb = INVALCOLOR;
+ new_en.ae_u.cterm.fg_rgb = INVALCOLOR;
+#endif
+ if (char_attr <= HL_ALL)
+ new_en.ae_attr = char_attr;
+ }
+
+ if (prim_attr <= HL_ALL)
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
+ else
+ {
+ spell_aep = syn_cterm_attr2entry(prim_attr);
+ if (spell_aep != NULL)
+ {
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr,
+ spell_aep->ae_attr);
+ if (spell_aep->ae_u.cterm.fg_color > 0)
+ new_en.ae_u.cterm.fg_color = spell_aep->ae_u.cterm.fg_color;
+ if (spell_aep->ae_u.cterm.bg_color > 0)
+ new_en.ae_u.cterm.bg_color = spell_aep->ae_u.cterm.bg_color;
+#ifdef FEAT_TERMGUICOLORS
+ // If both fg and bg are not set fall back to cterm colors.
+ // Helps for SpellBad which uses undercurl in the GUI.
+ if (COLOR_INVALID(spell_aep->ae_u.cterm.fg_rgb)
+ && COLOR_INVALID(spell_aep->ae_u.cterm.bg_rgb))
+ {
+ if (spell_aep->ae_u.cterm.fg_color > 0)
+ new_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
+ if (spell_aep->ae_u.cterm.bg_color > 0)
+ new_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
+ }
+ else
+ {
+ if (spell_aep->ae_u.cterm.fg_rgb != INVALCOLOR)
+ new_en.ae_u.cterm.fg_rgb = spell_aep->ae_u.cterm.fg_rgb;
+ if (spell_aep->ae_u.cterm.bg_rgb != INVALCOLOR)
+ new_en.ae_u.cterm.bg_rgb = spell_aep->ae_u.cterm.bg_rgb;
+ }
+#endif
+ }
+ }
+ return get_attr_entry(&cterm_attr_table, &new_en);
+ }
+
+ if (char_attr > HL_ALL)
+ char_aep = syn_term_attr2entry(char_attr);
+ if (char_aep != NULL)
+ new_en = *char_aep;
+ else
+ {
+ vim_memset(&new_en, 0, sizeof(new_en));
+ if (char_attr <= HL_ALL)
+ new_en.ae_attr = char_attr;
+ }
+
+ if (prim_attr <= HL_ALL)
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
+ else
+ {
+ spell_aep = syn_term_attr2entry(prim_attr);
+ if (spell_aep != NULL)
+ {
+ new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, spell_aep->ae_attr);
+ if (spell_aep->ae_u.term.start != NULL)
+ {
+ new_en.ae_u.term.start = spell_aep->ae_u.term.start;
+ new_en.ae_u.term.stop = spell_aep->ae_u.term.stop;
+ }
+ }
+ }
+ return get_attr_entry(&term_attr_table, &new_en);
+}
+
+#ifdef FEAT_GUI
+ attrentry_T *
+syn_gui_attr2entry(int attr)
+{
+ attr -= ATTR_OFF;
+ if (attr >= gui_attr_table.ga_len) // did ":syntax clear"
+ return NULL;
+ return &(GUI_ATTR_ENTRY(attr));
+}
+#endif
+
+/*
+ * Get the highlight attributes (HL_BOLD etc.) from an attribute nr.
+ * Only to be used when "attr" > HL_ALL.
+ */
+ int
+syn_attr2attr(int attr)
+{
+ attrentry_T *aep;
+
+#ifdef FEAT_GUI
+ if (gui.in_use)
+ aep = syn_gui_attr2entry(attr);
+ else
+#endif
+ if (IS_CTERM)
+ aep = syn_cterm_attr2entry(attr);
+ else
+ aep = syn_term_attr2entry(attr);
+
+ if (aep == NULL) // highlighting not set
+ return 0;
+ return aep->ae_attr;
+}
+
+
+ attrentry_T *
+syn_term_attr2entry(int attr)
+{
+ attr -= ATTR_OFF;
+ if (attr >= term_attr_table.ga_len) // did ":syntax clear"
+ return NULL;
+ return &(TERM_ATTR_ENTRY(attr));
+}
+
+ attrentry_T *
+syn_cterm_attr2entry(int attr)
+{
+ attr -= ATTR_OFF;
+ if (attr >= cterm_attr_table.ga_len) // did ":syntax clear"
+ return NULL;
+ return &(CTERM_ATTR_ENTRY(attr));
+}
+
+#define LIST_ATTR 1
+#define LIST_STRING 2
+#define LIST_INT 3
+
+ static void
+highlight_list_one(int id)
+{
+ hl_group_T *sgp;
+ int didh = FALSE;
+
+ sgp = &HL_TABLE()[id - 1]; // index is ID minus one
+
+ if (message_filtered(sgp->sg_name))
+ return;
+
+ didh = highlight_list_arg(id, didh, LIST_ATTR,
+ sgp->sg_term, NULL, "term");
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_start, "start");
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_stop, "stop");
+
+ didh = highlight_list_arg(id, didh, LIST_ATTR,
+ sgp->sg_cterm, NULL, "cterm");
+ didh = highlight_list_arg(id, didh, LIST_INT,
+ sgp->sg_cterm_fg, NULL, "ctermfg");
+ didh = highlight_list_arg(id, didh, LIST_INT,
+ sgp->sg_cterm_bg, NULL, "ctermbg");
+
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ didh = highlight_list_arg(id, didh, LIST_ATTR,
+ sgp->sg_gui, NULL, "gui");
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_gui_fg_name, "guifg");
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_gui_bg_name, "guibg");
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_gui_sp_name, "guisp");
+#endif
+#ifdef FEAT_GUI
+ didh = highlight_list_arg(id, didh, LIST_STRING,
+ 0, sgp->sg_font_name, "font");
+#endif
+
+ if (sgp->sg_link && !got_int)
+ {
+ (void)syn_list_header(didh, 9999, id);
+ didh = TRUE;
+ msg_puts_attr("links to", HL_ATTR(HLF_D));
+ msg_putchar(' ');
+ msg_outtrans(HL_TABLE()[HL_TABLE()[id - 1].sg_link - 1].sg_name);
+ }
+
+ if (!didh)
+ highlight_list_arg(id, didh, LIST_STRING, 0, (char_u *)"cleared", "");
+#ifdef FEAT_EVAL
+ if (p_verbose > 0)
+ last_set_msg(sgp->sg_script_ctx);
+#endif
+}
+
+ static int
+highlight_list_arg(
+ int id,
+ int didh,
+ int type,
+ int iarg,
+ char_u *sarg,
+ char *name)
+{
+ char_u buf[100];
+ char_u *ts;
+ int i;
+
+ if (got_int)
+ return FALSE;
+ if (type == LIST_STRING ? (sarg != NULL) : (iarg != 0))
+ {
+ ts = buf;
+ if (type == LIST_INT)
+ sprintf((char *)buf, "%d", iarg - 1);
+ else if (type == LIST_STRING)
+ ts = sarg;
+ else // type == LIST_ATTR
+ {
+ buf[0] = NUL;
+ for (i = 0; hl_attr_table[i] != 0; ++i)
+ {
+ if (iarg & hl_attr_table[i])
+ {
+ if (buf[0] != NUL)
+ vim_strcat(buf, (char_u *)",", 100);
+ vim_strcat(buf, (char_u *)hl_name_table[i], 100);
+ iarg &= ~hl_attr_table[i]; // don't want "inverse"
+ }
+ }
+ }
+
+ (void)syn_list_header(didh,
+ (int)(vim_strsize(ts) + STRLEN(name) + 1), id);
+ didh = TRUE;
+ if (!got_int)
+ {
+ if (*name != NUL)
+ {
+ msg_puts_attr(name, HL_ATTR(HLF_D));
+ msg_puts_attr("=", HL_ATTR(HLF_D));
+ }
+ msg_outtrans(ts);
+ }
+ }
+ return didh;
+}
+
+#if (((defined(FEAT_EVAL) || defined(FEAT_PRINTER))) && defined(FEAT_SYN_HL)) || defined(PROTO)
+/*
+ * Return "1" if highlight group "id" has attribute "flag".
+ * Return NULL otherwise.
+ */
+ char_u *
+highlight_has_attr(
+ int id,
+ int flag,
+ int modec) // 'g' for GUI, 'c' for cterm, 't' for term
+{
+ int attr;
+
+ if (id <= 0 || id > highlight_ga.ga_len)
+ return NULL;
+
+#if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ if (modec == 'g')
+ attr = HL_TABLE()[id - 1].sg_gui;
+ else
+#endif
+ if (modec == 'c')
+ attr = HL_TABLE()[id - 1].sg_cterm;
+ else
+ attr = HL_TABLE()[id - 1].sg_term;
+
+ if (attr & flag)
+ return (char_u *)"1";
+ return NULL;
+}
+#endif
+
+#if (defined(FEAT_SYN_HL) && defined(FEAT_EVAL)) || defined(PROTO)
+/*
+ * Return color name of highlight group "id".
+ */
+ char_u *
+highlight_color(
+ int id,
+ char_u *what, // "font", "fg", "bg", "sp", "fg#", "bg#" or "sp#"
+ int modec) // 'g' for GUI, 'c' for cterm, 't' for term
+{
+ static char_u name[20];
+ int n;
+ int fg = FALSE;
+ int sp = FALSE;
+ int font = FALSE;
+
+ if (id <= 0 || id > highlight_ga.ga_len)
+ return NULL;
+
+ if (TOLOWER_ASC(what[0]) == 'f' && TOLOWER_ASC(what[1]) == 'g')
+ fg = TRUE;
+ else if (TOLOWER_ASC(what[0]) == 'f' && TOLOWER_ASC(what[1]) == 'o'
+ && TOLOWER_ASC(what[2]) == 'n' && TOLOWER_ASC(what[3]) == 't')
+ font = TRUE;
+ else if (TOLOWER_ASC(what[0]) == 's' && TOLOWER_ASC(what[1]) == 'p')
+ sp = TRUE;
+ else if (!(TOLOWER_ASC(what[0]) == 'b' && TOLOWER_ASC(what[1]) == 'g'))
+ return NULL;
+ if (modec == 'g')
+ {
+# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+# ifdef FEAT_GUI
+ // return font name
+ if (font)
+ return HL_TABLE()[id - 1].sg_font_name;
+# endif
+
+ // return #RRGGBB form (only possible when GUI is running)
+ if ((USE_24BIT) && what[2] == '#')
+ {
+ guicolor_T color;
+ long_u rgb;
+ static char_u buf[10];
+
+ if (fg)
+ color = HL_TABLE()[id - 1].sg_gui_fg;
+ else if (sp)
+# ifdef FEAT_GUI
+ color = HL_TABLE()[id - 1].sg_gui_sp;
+# else
+ color = INVALCOLOR;
+# endif
+ else
+ color = HL_TABLE()[id - 1].sg_gui_bg;
+ if (color == INVALCOLOR)
+ return NULL;
+ rgb = (long_u)GUI_MCH_GET_RGB(color);
+ sprintf((char *)buf, "#%02x%02x%02x",
+ (unsigned)(rgb >> 16),
+ (unsigned)(rgb >> 8) & 255,
+ (unsigned)rgb & 255);
+ return buf;
+ }
+# endif
+ if (fg)
+ return (HL_TABLE()[id - 1].sg_gui_fg_name);
+ if (sp)
+ return (HL_TABLE()[id - 1].sg_gui_sp_name);
+ return (HL_TABLE()[id - 1].sg_gui_bg_name);
+ }
+ if (font || sp)
+ return NULL;
+ if (modec == 'c')
+ {
+ if (fg)
+ n = HL_TABLE()[id - 1].sg_cterm_fg - 1;
+ else
+ n = HL_TABLE()[id - 1].sg_cterm_bg - 1;
+ if (n < 0)
+ return NULL;
+ sprintf((char *)name, "%d", n);
+ return name;
+ }
+ // term doesn't have color
+ return NULL;
+}
+#endif
+
+#if (defined(FEAT_SYN_HL) \
+ && (defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)) \
+ && defined(FEAT_PRINTER)) || defined(PROTO)
+/*
+ * Return color name of highlight group "id" as RGB value.
+ */
+ long_u
+highlight_gui_color_rgb(
+ int id,
+ int fg) // TRUE = fg, FALSE = bg
+{
+ guicolor_T color;
+
+ if (id <= 0 || id > highlight_ga.ga_len)
+ return 0L;
+
+ if (fg)
+ color = HL_TABLE()[id - 1].sg_gui_fg;
+ else
+ color = HL_TABLE()[id - 1].sg_gui_bg;
+
+ if (color == INVALCOLOR)
+ return 0L;
+
+ return GUI_MCH_GET_RGB(color);
+}
+#endif
+
+/*
+ * Output the syntax list header.
+ * Return TRUE when started a new line.
+ */
+ int
+syn_list_header(
+ int did_header, // did header already
+ int outlen, // length of string that comes
+ int id) // highlight group id
+{
+ int endcol = 19;
+ int newline = TRUE;
+ int name_col = 0;
+
+ if (!did_header)
+ {
+ msg_putchar('\n');
+ if (got_int)
+ return TRUE;
+ msg_outtrans(HL_TABLE()[id - 1].sg_name);
+ name_col = msg_col;
+ endcol = 15;
+ }
+ else if (msg_col + outlen + 1 >= Columns)
+ {
+ msg_putchar('\n');
+ if (got_int)
+ return TRUE;
+ }
+ else
+ {
+ if (msg_col >= endcol) // wrap around is like starting a new line
+ newline = FALSE;
+ }
+
+ if (msg_col >= endcol) // output at least one space
+ endcol = msg_col + 1;
+ if (Columns <= endcol) // avoid hang for tiny window
+ endcol = Columns - 1;
+
+ msg_advance(endcol);
+
+ // Show "xxx" with the attributes.
+ if (!did_header)
+ {
+ if (endcol == Columns - 1 && endcol <= name_col)
+ msg_putchar(' ');
+ msg_puts_attr("xxx", syn_id2attr(id));
+ msg_putchar(' ');
+ }
+
+ return newline;
+}
+
+/*
+ * Set the attribute numbers for a highlight group.
+ * Called after one of the attributes has changed.
+ */
+ static void
+set_hl_attr(
+ int idx) // index in array
+{
+ attrentry_T at_en;
+ hl_group_T *sgp = HL_TABLE() + idx;
+
+ // The "Normal" group doesn't need an attribute number
+ if (sgp->sg_name_u != NULL && STRCMP(sgp->sg_name_u, "NORMAL") == 0)
+ return;
+
+#ifdef FEAT_GUI
+ /*
+ * For the GUI mode: If there are other than "normal" highlighting
+ * attributes, need to allocate an attr number.
+ */
+ if (sgp->sg_gui_fg == INVALCOLOR
+ && sgp->sg_gui_bg == INVALCOLOR
+ && sgp->sg_gui_sp == INVALCOLOR
+ && sgp->sg_font == NOFONT
+# ifdef FEAT_XFONTSET
+ && sgp->sg_fontset == NOFONTSET
+# endif
+ )
+ {
+ sgp->sg_gui_attr = sgp->sg_gui;
+ }
+ else
+ {
+ at_en.ae_attr = sgp->sg_gui;
+ at_en.ae_u.gui.fg_color = sgp->sg_gui_fg;
+ at_en.ae_u.gui.bg_color = sgp->sg_gui_bg;
+ at_en.ae_u.gui.sp_color = sgp->sg_gui_sp;
+ at_en.ae_u.gui.font = sgp->sg_font;
+# ifdef FEAT_XFONTSET
+ at_en.ae_u.gui.fontset = sgp->sg_fontset;
+# endif
+ sgp->sg_gui_attr = get_attr_entry(&gui_attr_table, &at_en);
+ }
+#endif
+ /*
+ * For the term mode: If there are other than "normal" highlighting
+ * attributes, need to allocate an attr number.
+ */
+ if (sgp->sg_start == NULL && sgp->sg_stop == NULL)
+ sgp->sg_term_attr = sgp->sg_term;
+ else
+ {
+ at_en.ae_attr = sgp->sg_term;
+ at_en.ae_u.term.start = sgp->sg_start;
+ at_en.ae_u.term.stop = sgp->sg_stop;
+ sgp->sg_term_attr = get_attr_entry(&term_attr_table, &at_en);
+ }
+
+ /*
+ * For the color term mode: If there are other than "normal"
+ * highlighting attributes, need to allocate an attr number.
+ */
+ if (sgp->sg_cterm_fg == 0 && sgp->sg_cterm_bg == 0
+# ifdef FEAT_TERMGUICOLORS
+ && sgp->sg_gui_fg == INVALCOLOR
+ && sgp->sg_gui_bg == INVALCOLOR
+# endif
+ )
+ sgp->sg_cterm_attr = sgp->sg_cterm;
+ else
+ {
+ at_en.ae_attr = sgp->sg_cterm;
+ at_en.ae_u.cterm.fg_color = sgp->sg_cterm_fg;
+ at_en.ae_u.cterm.bg_color = sgp->sg_cterm_bg;
+# ifdef FEAT_TERMGUICOLORS
+# ifdef MSWIN
+# ifdef VIMDLL
+ // Only when not using the GUI.
+ if (!gui.in_use && !gui.starting)
+# endif
+ {
+ int id;
+ guicolor_T fg, bg;
+
+ id = syn_name2id((char_u *)"Normal");
+ if (id > 0)
+ {
+ syn_id2colors(id, &fg, &bg);
+ if (sgp->sg_gui_fg == INVALCOLOR)
+ sgp->sg_gui_fg = fg;
+ if (sgp->sg_gui_bg == INVALCOLOR)
+ sgp->sg_gui_bg = bg;
+ }
+
+ }
+# endif
+ at_en.ae_u.cterm.fg_rgb = GUI_MCH_GET_RGB2(sgp->sg_gui_fg);
+ at_en.ae_u.cterm.bg_rgb = GUI_MCH_GET_RGB2(sgp->sg_gui_bg);
+ if (at_en.ae_u.cterm.fg_rgb == INVALCOLOR
+ && at_en.ae_u.cterm.bg_rgb == INVALCOLOR)
+ {
+ // If both fg and bg are invalid fall back to the cterm colors.
+ // Helps when the GUI only uses an attribute, e.g. undercurl.
+ at_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
+ at_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
+ }
+# endif
+ sgp->sg_cterm_attr = get_attr_entry(&cterm_attr_table, &at_en);
+ }
+}
+
+/*
+ * Lookup a highlight group name and return its ID.
+ * If it is not found, 0 is returned.
+ */
+ int
+syn_name2id(char_u *name)
+{
+ int i;
+ char_u name_u[200];
+
+ // Avoid using stricmp() too much, it's slow on some systems
+ // Avoid alloc()/free(), these are slow too. ID names over 200 chars
+ // don't deserve to be found!
+ vim_strncpy(name_u, name, 199);
+ vim_strup(name_u);
+ for (i = highlight_ga.ga_len; --i >= 0; )
+ if (HL_TABLE()[i].sg_name_u != NULL
+ && STRCMP(name_u, HL_TABLE()[i].sg_name_u) == 0)
+ break;
+ return i + 1;
+}
+
+/*
+ * Lookup a highlight group name and return its attributes.
+ * Return zero if not found.
+ */
+ int
+syn_name2attr(char_u *name)
+{
+ int id = syn_name2id(name);
+
+ if (id != 0)
+ return syn_id2attr(id);
+ return 0;
+}
+
+#if defined(FEAT_EVAL) || defined(PROTO)
+/*
+ * Return TRUE if highlight group "name" exists.
+ */
+ int
+highlight_exists(char_u *name)
+{
+ return (syn_name2id(name) > 0);
+}
+
+# if defined(FEAT_SEARCH_EXTRA) || defined(PROTO)
+/*
+ * Return the name of highlight group "id".
+ * When not a valid ID return an empty string.
+ */
+ char_u *
+syn_id2name(int id)
+{
+ if (id <= 0 || id > highlight_ga.ga_len)
+ return (char_u *)"";
+ return HL_TABLE()[id - 1].sg_name;
+}
+# endif
+#endif
+
+/*
+ * Like syn_name2id(), but take a pointer + length argument.
+ */
+ int
+syn_namen2id(char_u *linep, int len)
+{
+ char_u *name;
+ int id = 0;
+
+ name = vim_strnsave(linep, len);
+ if (name != NULL)
+ {
+ id = syn_name2id(name);
+ vim_free(name);
+ }
+ return id;
+}
+
+/*
+ * Find highlight group name in the table and return its ID.
+ * The argument is a pointer to the name and the length of the name.
+ * If it doesn't exist yet, a new entry is created.
+ * Return 0 for failure.
+ */
+ int
+syn_check_group(char_u *pp, int len)
+{
+ int id;
+ char_u *name;
+
+ name = vim_strnsave(pp, len);
+ if (name == NULL)
+ return 0;
+
+ id = syn_name2id(name);
+ if (id == 0) // doesn't exist yet
+ id = syn_add_group(name);
+ else
+ vim_free(name);
+ return id;
+}
+
+/*
+ * Add new highlight group and return its ID.
+ * "name" must be an allocated string, it will be consumed.
+ * Return 0 for failure.
+ */
+ static int
+syn_add_group(char_u *name)
+{
+ char_u *p;
+
+ // Check that the name is ASCII letters, digits and underscore.
+ for (p = name; *p != NUL; ++p)
+ {
+ if (!vim_isprintc(*p))
+ {
+ emsg(_("E669: Unprintable character in group name"));
+ vim_free(name);
+ return 0;
+ }
+ else if (!ASCII_ISALNUM(*p) && *p != '_')
+ {
+ // This is an error, but since there previously was no check only
+ // give a warning.
+ msg_source(HL_ATTR(HLF_W));
+ msg(_("W18: Invalid character in group name"));
+ break;
+ }
+ }
+
+ /*
+ * First call for this growarray: init growing array.
+ */
+ if (highlight_ga.ga_data == NULL)
+ {
+ highlight_ga.ga_itemsize = sizeof(hl_group_T);
+ highlight_ga.ga_growsize = 10;
+ }
+
+ if (highlight_ga.ga_len >= MAX_HL_ID)
+ {
+ emsg(_("E849: Too many highlight and syntax groups"));
+ vim_free(name);
+ return 0;
+ }
+
+ /*
+ * Make room for at least one other syntax_highlight entry.
+ */
+ if (ga_grow(&highlight_ga, 1) == FAIL)
+ {
+ vim_free(name);
+ return 0;
+ }
+
+ vim_memset(&(HL_TABLE()[highlight_ga.ga_len]), 0, sizeof(hl_group_T));
+ HL_TABLE()[highlight_ga.ga_len].sg_name = name;
+ HL_TABLE()[highlight_ga.ga_len].sg_name_u = vim_strsave_up(name);
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
+ HL_TABLE()[highlight_ga.ga_len].sg_gui_bg = INVALCOLOR;
+ HL_TABLE()[highlight_ga.ga_len].sg_gui_fg = INVALCOLOR;
+# ifdef FEAT_GUI
+ HL_TABLE()[highlight_ga.ga_len].sg_gui_sp = INVALCOLOR;
+# endif
+#endif
+ ++highlight_ga.ga_len;
+
+ return highlight_ga.ga_len; // ID is index plus one
+}
+
+/*
+ * When, just after calling syn_add_group(), an error is discovered, this
+ * function deletes the new name.
+ */
+ static void
+syn_unadd_group(void)
+{
+ --highlight_ga.ga_len;
+ vim_free(HL_TABLE()[highlight_ga.ga_len].sg_name);
+ vim_free(HL_TABLE()[highlight_ga.ga_len].sg_name_u);
+}
+
+/*
+ * Translate a group ID to highlight attributes.
+ */
+ int
+syn_id2attr(int hl_id)
+{
+ int attr;
+ hl_group_T *sgp;
+
+ hl_id = syn_get_final_id(hl_id);
+ sgp = &HL_TABLE()[hl_id - 1]; // index is ID minus one
+
+#ifdef FEAT_GUI
+ /*
+ * Only use GUI attr when the GUI is being used.
+ */
+ if (gui.in_use)
+ attr = sgp->sg_gui_attr;
+ else
+#endif
+ if (IS_CTERM)
+ attr = sgp->sg_cterm_attr;
+ else
+ attr = sgp->sg_term_attr;
+
+ return attr;
+}
+
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
+/*
+ * Get the GUI colors and attributes for a group ID.
+ * NOTE: the colors will be INVALCOLOR when not set, the color otherwise.
+ */
+ int
+syn_id2colors(int hl_id, guicolor_T *fgp, guicolor_T *bgp)
+{
+ hl_group_T *sgp;
+
+ hl_id = syn_get_final_id(hl_id);
+ sgp = &HL_TABLE()[hl_id - 1]; // index is ID minus one
+
+ *fgp = sgp->sg_gui_fg;
+ *bgp = sgp->sg_gui_bg;
+ return sgp->sg_gui;
+}
+#endif
+
+#if (defined(MSWIN) \
+ && (!defined(FEAT_GUI_MSWIN) || defined(VIMDLL)) \
+ && defined(FEAT_TERMGUICOLORS)) || defined(PROTO)
+ void
+syn_id2cterm_bg(int hl_id, int *fgp, int *bgp)
+{
+ hl_group_T *sgp;
+
+ hl_id = syn_get_final_id(hl_id);
+ sgp = &HL_TABLE()[hl_id - 1]; // index is ID minus one
+ *fgp = sgp->sg_cterm_fg - 1;
+ *bgp = sgp->sg_cterm_bg - 1;
+}
+#endif
+
+/*
+ * Translate a group ID to the final group ID (following links).
+ */
+ int
+syn_get_final_id(int hl_id)
+{
+ int count;
+ hl_group_T *sgp;
+
+ if (hl_id > highlight_ga.ga_len || hl_id < 1)
+ return 0; // Can be called from eval!!
+
+ /*
+ * Follow links until there is no more.
+ * Look out for loops! Break after 100 links.
+ */
+ for (count = 100; --count >= 0; )
+ {
+ sgp = &HL_TABLE()[hl_id - 1]; // index is ID minus one
+ if (sgp->sg_link == 0 || sgp->sg_link > highlight_ga.ga_len)
+ break;
+ hl_id = sgp->sg_link;
+ }
+
+ return hl_id;
+}
+
+#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
+/*
+ * Call this function just after the GUI has started.
+ * Also called when 'termguicolors' was set, gui.in_use will be FALSE then.
+ * It finds the font and color handles for the highlighting groups.
+ */
+ void
+highlight_gui_started(void)
+{
+ int idx;
+
+ // First get the colors from the "Normal" and "Menu" group, if set
+ if (USE_24BIT)
+ set_normal_colors();
+
+ for (idx = 0; idx < highlight_ga.ga_len; ++idx)
+ gui_do_one_color(idx, FALSE, FALSE);
+
+ highlight_changed();
+}
+
+ static void
+gui_do_one_color(
+ int idx,
+ int do_menu UNUSED, // TRUE: might set the menu font
+ int do_tooltip UNUSED) // TRUE: might set the tooltip font
+{
+ int didit = FALSE;
+
+# ifdef FEAT_GUI
+# ifdef FEAT_TERMGUICOLORS
+ if (gui.in_use)
+# endif
+ if (HL_TABLE()[idx].sg_font_name != NULL)
+ {
+ hl_do_font(idx, HL_TABLE()[idx].sg_font_name, FALSE, do_menu,
+ do_tooltip, TRUE);
+ didit = TRUE;
+ }
+# endif
+ if (HL_TABLE()[idx].sg_gui_fg_name != NULL)
+ {
+ HL_TABLE()[idx].sg_gui_fg =
+ color_name2handle(HL_TABLE()[idx].sg_gui_fg_name);
+ didit = TRUE;
+ }
+ if (HL_TABLE()[idx].sg_gui_bg_name != NULL)
+ {
+ HL_TABLE()[idx].sg_gui_bg =
+ color_name2handle(HL_TABLE()[idx].sg_gui_bg_name);
+ didit = TRUE;
+ }
+# ifdef FEAT_GUI
+ if (HL_TABLE()[idx].sg_gui_sp_name != NULL)
+ {
+ HL_TABLE()[idx].sg_gui_sp =
+ color_name2handle(HL_TABLE()[idx].sg_gui_sp_name);
+ didit = TRUE;
+ }
+# endif
+ if (didit) // need to get a new attr number
+ set_hl_attr(idx);
+}
+#endif
+
+#if defined(USER_HIGHLIGHT) && defined(FEAT_STL_OPT)
+/*
+ * Apply difference between User[1-9] and HLF_S to HLF_SNC, HLF_ST or HLF_STNC.
+ */
+ static void
+combine_stl_hlt(
+ int id,
+ int id_S,
+ int id_alt,
+ int hlcnt,
+ int i,
+ int hlf,
+ int *table)
+{
+ hl_group_T *hlt = HL_TABLE();
+
+ if (id_alt == 0)
+ {
+ vim_memset(&hlt[hlcnt + i], 0, sizeof(hl_group_T));
+ hlt[hlcnt + i].sg_term = highlight_attr[hlf];
+ hlt[hlcnt + i].sg_cterm = highlight_attr[hlf];
+# if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ hlt[hlcnt + i].sg_gui = highlight_attr[hlf];
+# endif
+ }
+ else
+ mch_memmove(&hlt[hlcnt + i],
+ &hlt[id_alt - 1],
+ sizeof(hl_group_T));
+ hlt[hlcnt + i].sg_link = 0;
+
+ hlt[hlcnt + i].sg_term ^=
+ hlt[id - 1].sg_term ^ hlt[id_S - 1].sg_term;
+ if (hlt[id - 1].sg_start != hlt[id_S - 1].sg_start)
+ hlt[hlcnt + i].sg_start = hlt[id - 1].sg_start;
+ if (hlt[id - 1].sg_stop != hlt[id_S - 1].sg_stop)
+ hlt[hlcnt + i].sg_stop = hlt[id - 1].sg_stop;
+ hlt[hlcnt + i].sg_cterm ^=
+ hlt[id - 1].sg_cterm ^ hlt[id_S - 1].sg_cterm;
+ if (hlt[id - 1].sg_cterm_fg != hlt[id_S - 1].sg_cterm_fg)
+ hlt[hlcnt + i].sg_cterm_fg = hlt[id - 1].sg_cterm_fg;
+ if (hlt[id - 1].sg_cterm_bg != hlt[id_S - 1].sg_cterm_bg)
+ hlt[hlcnt + i].sg_cterm_bg = hlt[id - 1].sg_cterm_bg;
+# if defined(FEAT_GUI) || defined(FEAT_EVAL)
+ hlt[hlcnt + i].sg_gui ^=
+ hlt[id - 1].sg_gui ^ hlt[id_S - 1].sg_gui;
+# endif
+# ifdef FEAT_GUI
+ if (hlt[id - 1].sg_gui_fg != hlt[id_S - 1].sg_gui_fg)
+ hlt[hlcnt + i].sg_gui_fg = hlt[id - 1].sg_gui_fg;
+ if (hlt[id - 1].sg_gui_bg != hlt[id_S - 1].sg_gui_bg)
+ hlt[hlcnt + i].sg_gui_bg = hlt[id - 1].sg_gui_bg;
+ if (hlt[id - 1].sg_gui_sp != hlt[id_S - 1].sg_gui_sp)
+ hlt[hlcnt + i].sg_gui_sp = hlt[id - 1].sg_gui_sp;
+ if (hlt[id - 1].sg_font != hlt[id_S - 1].sg_font)
+ hlt[hlcnt + i].sg_font = hlt[id - 1].sg_font;
+# ifdef FEAT_XFONTSET
+ if (hlt[id - 1].sg_fontset != hlt[id_S - 1].sg_fontset)
+ hlt[hlcnt + i].sg_fontset = hlt[id - 1].sg_fontset;
+# endif
+# endif
+ highlight_ga.ga_len = hlcnt + i + 1;
+ set_hl_attr(hlcnt + i); // At long last we can apply
+ table[i] = syn_id2attr(hlcnt + i + 1);
+}
+#endif
+
+/*
+ * Translate the 'highlight' option into attributes in highlight_attr[] and
+ * set up the user highlights User1..9. If FEAT_STL_OPT is in use, a set of
+ * corresponding highlights to use on top of HLF_SNC is computed.
+ * Called only when the 'highlight' option has been changed and upon first
+ * screen redraw after any :highlight command.
+ * Return FAIL when an invalid flag is found in 'highlight'. OK otherwise.
+ */
+ int
+highlight_changed(void)
+{
+ int hlf;
+ int i;
+ char_u *p;
+ int attr;
+ char_u *end;
+ int id;
+#ifdef USER_HIGHLIGHT
+ char_u userhl[30]; // use 30 to avoid compiler warning
+# ifdef FEAT_STL_OPT
+ int id_S = -1;
+ int id_SNC = 0;
+# ifdef FEAT_TERMINAL
+ int id_ST = 0;
+ int id_STNC = 0;
+# endif
+ int hlcnt;
+# endif
+#endif
+ static int hl_flags[HLF_COUNT] = HL_FLAGS;
+
+ need_highlight_changed = FALSE;
+
+ /*
+ * Clear all attributes.
+ */
+ for (hlf = 0; hlf < (int)HLF_COUNT; ++hlf)
+ highlight_attr[hlf] = 0;
+
+ /*
+ * First set all attributes to their default value.
+ * Then use the attributes from the 'highlight' option.
+ */
+ for (i = 0; i < 2; ++i)
+ {
+ if (i)
+ p = p_hl;
+ else
+ p = get_highlight_default();
+ if (p == NULL) // just in case
+ continue;
+
+ while (*p)
+ {
+ for (hlf = 0; hlf < (int)HLF_COUNT; ++hlf)
+ if (hl_flags[hlf] == *p)
+ break;
+ ++p;
+ if (hlf == (int)HLF_COUNT || *p == NUL)
+ return FAIL;
+
+ /*
+ * Allow several hl_flags to be combined, like "bu" for
+ * bold-underlined.
+ */
+ attr = 0;
+ for ( ; *p && *p != ','; ++p) // parse upto comma
+ {
+ if (VIM_ISWHITE(*p)) // ignore white space
+ continue;
+
+ if (attr > HL_ALL) // Combination with ':' is not allowed.
+ return FAIL;
+
+ switch (*p)
+ {
+ case 'b': attr |= HL_BOLD;
+ break;
+ case 'i': attr |= HL_ITALIC;
+ break;
+ case '-':
+ case 'n': // no highlighting
+ break;
+ case 'r': attr |= HL_INVERSE;
+ break;
+ case 's': attr |= HL_STANDOUT;
+ break;
+ case 'u': attr |= HL_UNDERLINE;
+ break;
+ case 'c': attr |= HL_UNDERCURL;
+ break;
+ case 't': attr |= HL_STRIKETHROUGH;
+ break;
+ case ':': ++p; // highlight group name
+ if (attr || *p == NUL) // no combinations
+ return FAIL;
+ end = vim_strchr(p, ',');
+ if (end == NULL)
+ end = p + STRLEN(p);
+ id = syn_check_group(p, (int)(end - p));
+ if (id == 0)
+ return FAIL;
+ attr = syn_id2attr(id);
+ p = end - 1;
+#if defined(FEAT_STL_OPT) && defined(USER_HIGHLIGHT)
+ if (hlf == (int)HLF_SNC)
+ id_SNC = syn_get_final_id(id);
+# ifdef FEAT_TERMINAL
+ else if (hlf == (int)HLF_ST)
+ id_ST = syn_get_final_id(id);
+ else if (hlf == (int)HLF_STNC)
+ id_STNC = syn_get_final_id(id);
+# endif
+ else if (hlf == (int)HLF_S)
+ id_S = syn_get_final_id(id);
+#endif
+ break;
+ default: return FAIL;
+ }
+ }
+ highlight_attr[hlf] = attr;
+
+ p = skip_to_option_part(p); // skip comma and spaces
+ }
+ }
+
+#ifdef USER_HIGHLIGHT
+ /*
+ * Setup the user highlights
+ *
+ * Temporarily utilize 28 more hl entries:
+ * 9 for User1-User9 combined with StatusLineNC
+ * 9 for User1-User9 combined with StatusLineTerm
+ * 9 for User1-User9 combined with StatusLineTermNC
+ * 1 for StatusLine default
+ * Have to be in there simultaneously in case of table overflows in
+ * get_attr_entry()
+ */
+# ifdef FEAT_STL_OPT
+ if (ga_grow(&highlight_ga, 28) == FAIL)
+ return FAIL;
+ hlcnt = highlight_ga.ga_len;
+ if (id_S == -1)
+ {
+ // Make sure id_S is always valid to simplify code below. Use the last
+ // entry.
+ vim_memset(&HL_TABLE()[hlcnt + 27], 0, sizeof(hl_group_T));
+ HL_TABLE()[hlcnt + 18].sg_term = highlight_attr[HLF_S];
+ id_S = hlcnt + 19;
+ }
+# endif
+ for (i = 0; i < 9; i++)
+ {
+ sprintf((char *)userhl, "User%d", i + 1);
+ id = syn_name2id(userhl);
+ if (id == 0)
+ {
+ highlight_user[i] = 0;
+# ifdef FEAT_STL_OPT
+ highlight_stlnc[i] = 0;
+# ifdef FEAT_TERMINAL
+ highlight_stlterm[i] = 0;
+ highlight_stltermnc[i] = 0;
+# endif
+# endif
+ }
+ else
+ {
+ highlight_user[i] = syn_id2attr(id);
+# ifdef FEAT_STL_OPT
+ combine_stl_hlt(id, id_S, id_SNC, hlcnt, i,
+ HLF_SNC, highlight_stlnc);
+# ifdef FEAT_TERMINAL
+ combine_stl_hlt(id, id_S, id_ST, hlcnt + 9, i,
+ HLF_ST, highlight_stlterm);
+ combine_stl_hlt(id, id_S, id_STNC, hlcnt + 18, i,
+ HLF_STNC, highlight_stltermnc);
+# endif
+# endif
+ }
+ }
+# ifdef FEAT_STL_OPT
+ highlight_ga.ga_len = hlcnt;
+# endif
+
+#endif // USER_HIGHLIGHT
+
+ return OK;
+}
+
+#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
+
+static void highlight_list(void);
+static void highlight_list_two(int cnt, int attr);
+
+/*
+ * Handle command line completion for :highlight command.
+ */
+ void
+set_context_in_highlight_cmd(expand_T *xp, char_u *arg)
+{
+ char_u *p;
+
+ // Default: expand group names
+ xp->xp_context = EXPAND_HIGHLIGHT;
+ xp->xp_pattern = arg;
+ include_link = 2;
+ include_default = 1;
+
+ // (part of) subcommand already typed
+ if (*arg != NUL)
+ {
+ p = skiptowhite(arg);
+ if (*p != NUL) // past "default" or group name
+ {
+ include_default = 0;
+ if (STRNCMP("default", arg, p - arg) == 0)
+ {
+ arg = skipwhite(p);
+ xp->xp_pattern = arg;
+ p = skiptowhite(arg);
+ }
+ if (*p != NUL) // past group name
+ {
+ include_link = 0;
+ if (arg[1] == 'i' && arg[0] == 'N')
+ highlight_list();
+ if (STRNCMP("link", arg, p - arg) == 0
+ || STRNCMP("clear", arg, p - arg) == 0)
+ {
+ xp->xp_pattern = skipwhite(p);
+ p = skiptowhite(xp->xp_pattern);
+ if (*p != NUL) // past first group name
+ {
+ xp->xp_pattern = skipwhite(p);
+ p = skiptowhite(xp->xp_pattern);
+ }
+ }
+ if (*p != NUL) // past group name(s)
+ xp->xp_context = EXPAND_NOTHING;
+ }
+ }
+ }
+}
+
+/*
+ * List highlighting matches in a nice way.
+ */
+ static void
+highlight_list(void)
+{
+ int i;
+
+ for (i = 10; --i >= 0; )
+ highlight_list_two(i, HL_ATTR(HLF_D));
+ for (i = 40; --i >= 0; )
+ highlight_list_two(99, 0);
+}
+
+ static void
+highlight_list_two(int cnt, int attr)
+{
+ msg_puts_attr(&("N \bI \b! \b"[cnt / 11]), attr);
+ msg_clr_eos();
+ out_flush();
+ ui_delay(cnt == 99 ? 40L : (long)cnt * 50L, FALSE);
+}
+
+#endif // FEAT_CMDL_COMPL
+
+#if defined(FEAT_CMDL_COMPL) || (defined(FEAT_SYN_HL) && defined(FEAT_EVAL)) \
+ || defined(FEAT_SIGNS) || defined(PROTO)
+/*
+ * Function given to ExpandGeneric() to obtain the list of group names.
+ */
+ char_u *
+get_highlight_name(expand_T *xp UNUSED, int idx)
+{
+ return get_highlight_name_ext(xp, idx, TRUE);
+}
+
+/*
+ * Obtain a highlight group name.
+ * When "skip_cleared" is TRUE don't return a cleared entry.
+ */
+ char_u *
+get_highlight_name_ext(expand_T *xp UNUSED, int idx, int skip_cleared)
+{
+ if (idx < 0)
+ return NULL;
+
+ // Items are never removed from the table, skip the ones that were
+ // cleared.
+ if (skip_cleared && idx < highlight_ga.ga_len && HL_TABLE()[idx].sg_cleared)
+ return (char_u *)"";
+
+#ifdef FEAT_CMDL_COMPL
+ if (idx == highlight_ga.ga_len && include_none != 0)
+ return (char_u *)"none";
+ if (idx == highlight_ga.ga_len + include_none && include_default != 0)
+ return (char_u *)"default";
+ if (idx == highlight_ga.ga_len + include_none + include_default
+ && include_link != 0)
+ return (char_u *)"link";
+ if (idx == highlight_ga.ga_len + include_none + include_default + 1
+ && include_link != 0)
+ return (char_u *)"clear";
+#endif
+ if (idx >= highlight_ga.ga_len)
+ return NULL;
+ return HL_TABLE()[idx].sg_name;
+}
+#endif
+
+#if defined(FEAT_GUI) || defined(PROTO)
+/*
+ * Free all the highlight group fonts.
+ * Used when quitting for systems which need it.
+ */
+ void
+free_highlight_fonts(void)
+{
+ int idx;
+
+ for (idx = 0; idx < highlight_ga.ga_len; ++idx)
+ {
+ gui_mch_free_font(HL_TABLE()[idx].sg_font);
+ HL_TABLE()[idx].sg_font = NOFONT;
+# ifdef FEAT_XFONTSET
+ gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
+ HL_TABLE()[idx].sg_fontset = NOFONTSET;
+# endif
+ }
+
+ gui_mch_free_font(gui.norm_font);
+# ifdef FEAT_XFONTSET
+ gui_mch_free_fontset(gui.fontset);
+# endif
+# ifndef FEAT_GUI_GTK
+ gui_mch_free_font(gui.bold_font);
+ gui_mch_free_font(gui.ital_font);
+ gui_mch_free_font(gui.boldital_font);
+# endif
+}
+#endif
# endif
# include "hardcopy.pro"
# include "hashtab.pro"
+# include "highlight.pro"
# include "indent.pro"
# ifdef FEAT_INS_EXPAND
# include "insexpand.pro"
--- /dev/null
+/* highlight.c */
+void init_highlight(int both, int reset);
+int load_colors(char_u *name);
+int lookup_color(int idx, int foreground, int *boldp);
+void do_highlight(char_u *line, int forceit, int init);
+void free_highlight(void);
+void restore_cterm_colors(void);
+void set_normal_colors(void);
+char_u *hl_get_font_name(void);
+void hl_set_font_name(char_u *font_name);
+void hl_set_bg_color_name(char_u *name);
+void hl_set_fg_color_name(char_u *name);
+guicolor_T color_name2handle(char_u *name);
+int get_cterm_attr_idx(int attr, int fg, int bg);
+int get_tgc_attr_idx(int attr, guicolor_T fg, guicolor_T bg);
+int get_gui_attr_idx(int attr, guicolor_T fg, guicolor_T bg);
+void clear_hl_tables(void);
+int hl_combine_attr(int char_attr, int prim_attr);
+attrentry_T *syn_gui_attr2entry(int attr);
+int syn_attr2attr(int attr);
+attrentry_T *syn_term_attr2entry(int attr);
+attrentry_T *syn_cterm_attr2entry(int attr);
+char_u *highlight_has_attr(int id, int flag, int modec);
+char_u *highlight_color(int id, char_u *what, int modec);
+long_u highlight_gui_color_rgb(int id, int fg);
+int syn_list_header(int did_header, int outlen, int id);
+int syn_name2id(char_u *name);
+int syn_name2attr(char_u *name);
+int highlight_exists(char_u *name);
+char_u *syn_id2name(int id);
+int syn_namen2id(char_u *linep, int len);
+int syn_check_group(char_u *pp, int len);
+int syn_id2attr(int hl_id);
+int syn_id2colors(int hl_id, guicolor_T *fgp, guicolor_T *bgp);
+void syn_id2cterm_bg(int hl_id, int *fgp, int *bgp);
+int syn_get_final_id(int hl_id);
+void highlight_gui_started(void);
+int highlight_changed(void);
+void set_context_in_highlight_cmd(expand_T *xp, char_u *arg);
+char_u *get_highlight_name(expand_T *xp, int idx);
+char_u *get_highlight_name_ext(expand_T *xp, int idx, int skip_cleared);
+void free_highlight_fonts(void);
+/* vim: set ft=c : */
int syn_get_foldlevel(win_T *wp, long lnum);
void ex_syntime(exarg_T *eap);
char_u *get_syntime_arg(expand_T *xp, int idx);
-void init_highlight(int both, int reset);
-int load_colors(char_u *name);
-int lookup_color(int idx, int foreground, int *boldp);
-void do_highlight(char_u *line, int forceit, int init);
-void free_highlight(void);
-void restore_cterm_colors(void);
-void set_normal_colors(void);
-char_u *hl_get_font_name(void);
-void hl_set_font_name(char_u *font_name);
-void hl_set_bg_color_name(char_u *name);
-void hl_set_fg_color_name(char_u *name);
-guicolor_T color_name2handle(char_u *name);
-int get_cterm_attr_idx(int attr, int fg, int bg);
-int get_tgc_attr_idx(int attr, guicolor_T fg, guicolor_T bg);
-int get_gui_attr_idx(int attr, guicolor_T fg, guicolor_T bg);
-void clear_hl_tables(void);
-int hl_combine_attr(int char_attr, int prim_attr);
-attrentry_T *syn_gui_attr2entry(int attr);
-int syn_attr2attr(int attr);
-attrentry_T *syn_term_attr2entry(int attr);
-attrentry_T *syn_cterm_attr2entry(int attr);
-char_u *highlight_has_attr(int id, int flag, int modec);
-char_u *highlight_color(int id, char_u *what, int modec);
-long_u highlight_gui_color_rgb(int id, int fg);
-int syn_name2id(char_u *name);
-int syn_name2attr(char_u *name);
-int highlight_exists(char_u *name);
-char_u *syn_id2name(int id);
-int syn_namen2id(char_u *linep, int len);
-int syn_check_group(char_u *pp, int len);
-int syn_id2attr(int hl_id);
-int syn_id2colors(int hl_id, guicolor_T *fgp, guicolor_T *bgp);
-void syn_id2cterm_bg(int hl_id, int *fgp, int *bgp);
-int syn_get_final_id(int hl_id);
-void highlight_gui_started(void);
-int highlight_changed(void);
-void set_context_in_highlight_cmd(expand_T *xp, char_u *arg);
-char_u *get_highlight_name(expand_T *xp, int idx);
-char_u *get_highlight_name_ext(expand_T *xp, int idx, int skip_cleared);
-void free_highlight_fonts(void);
/* vim: set ft=c : */
};
#endif // FEAT_SYN_HL
+/*
+ * 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.
+ */
+typedef struct
+{
+ 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
+} hl_group_T;
+
+#define HL_TABLE() ((hl_group_T *)((highlight_ga.ga_data)))
+#define MAX_HL_ID 20000 // maximum value for a highlight ID.
+
/*
* Structure shared between syntax.c, screen.c and gui_x11.c.
*/
#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 */
#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)
- {
- HL_TABLE()[idx].sg_cterm &= ~HL_BOLD;
- HL_TABLE()[idx].sg_cterm_bold = FALSE;
- }
-
- if (VIM_ISDIGIT(*arg))
- color = atoi((char *)arg);
- else if (STRICMP(arg, "fg") == 0)
- {
- if (cterm_normal_fg_color)
- color = cterm_normal_fg_color - 1;
- else
- {
- emsg(_("E419: FG color unknown"));
- error = TRUE;
- break;
- }
- }
- else if (STRICMP(arg, "bg") == 0)
- {
- if (cterm_normal_bg_color > 0)
- color = cterm_normal_bg_color - 1;
- else
- {
- emsg(_("E420: BG color unknown"));
- error = TRUE;
- break;
- }
- }
- else
- {
- int bold = MAYBE;
-
-#if defined(__QNXNTO__)
- static int *color_numbers_8_qansi = color_numbers_8;
- /* On qnx, the 8 & 16 color arrays are the same */
- if (STRNCMP(T_NAME, "qansi", 5) == 0)
- color_numbers_8_qansi = color_numbers_16;
-#endif
-
- /* reduce calls to STRICMP a bit, it can be slow */
- off = TOUPPER_ASC(*arg);
- for (i = (sizeof(color_names) / sizeof(char *)); --i >= 0; )
- if (off == color_names[i][0]
- && STRICMP(arg + 1, color_names[i] + 1) == 0)
- break;
- if (i < 0)
- {
- semsg(_("E421: Color name or number not recognized: %s"), key_start);
- error = TRUE;
- break;
- }
-
- color = lookup_color(i, key[5] == 'F', &bold);
-
- /* set/reset bold attribute to get light foreground
- * colors (on some terminals, e.g. "linux") */
- if (bold == TRUE)
- {
- HL_TABLE()[idx].sg_cterm |= HL_BOLD;
- HL_TABLE()[idx].sg_cterm_bold = TRUE;
- }
- else if (bold == FALSE)
- HL_TABLE()[idx].sg_cterm &= ~HL_BOLD;
- }
-
- /* Add one to the argument, to avoid zero. Zero is used for
- * "NONE", then "color" is -1. */
- if (key[5] == 'F')
- {
- HL_TABLE()[idx].sg_cterm_fg = color + 1;
- if (is_normal_group)
- {
- cterm_normal_fg_color = color + 1;
- cterm_normal_fg_bold = (HL_TABLE()[idx].sg_cterm & HL_BOLD);
-#ifdef FEAT_GUI
- /* Don't do this if the GUI is used. */
- if (!gui.in_use && !gui.starting)
-#endif
- {
- must_redraw = CLEAR;
- if (termcap_active && color >= 0)
- term_fg_color(color);
- }
- }
- }
- else
- {
- HL_TABLE()[idx].sg_cterm_bg = color + 1;
- if (is_normal_group)
- {
- cterm_normal_bg_color = color + 1;
-#ifdef FEAT_GUI
- /* Don't mess with 'background' if the GUI is used. */
- if (!gui.in_use && !gui.starting)
-#endif
- {
- must_redraw = CLEAR;
- if (color >= 0)
- {
- int dark = -1;
-
- if (termcap_active)
- term_bg_color(color);
- if (t_colors < 16)
- dark = (color == 0 || color == 4);
- /* Limit the heuristic to the standard 16 colors */
- else if (color < 16)
- dark = (color < 7 || color == 8);
- /* Set the 'background' option if the value is
- * wrong. */
- if (dark != -1
- && dark != (*p_bg == 'd')
- && !option_was_set((char_u *)"bg"))
- {
- set_option_value((char_u *)"bg", 0L,
- (char_u *)(dark ? "dark" : "light"), 0);
- reset_option_was_set((char_u *)"bg");
- }
- }
- }
- }
- }
- }
- }
- else if (STRCMP(key, "GUIFG") == 0)
- {
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- char_u **namep = &HL_TABLE()[idx].sg_gui_fg_name;
-
- if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
- {
- if (!init)
- HL_TABLE()[idx].sg_set |= SG_GUI;
-
-# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- /* In GUI guifg colors are only used when recognized */
- i = color_name2handle(arg);
- if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !USE_24BIT)
- {
- HL_TABLE()[idx].sg_gui_fg = i;
-# endif
- if (*namep == NULL || STRCMP(*namep, arg) != 0)
- {
- vim_free(*namep);
- if (STRCMP(arg, "NONE") != 0)
- *namep = vim_strsave(arg);
- else
- *namep = NULL;
- did_change = TRUE;
- }
-# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
-# ifdef FEAT_GUI_X11
- if (is_menu_group && gui.menu_fg_pixel != i)
- {
- gui.menu_fg_pixel = i;
- do_colors = TRUE;
- }
- if (is_scrollbar_group && gui.scroll_fg_pixel != i)
- {
- gui.scroll_fg_pixel = i;
- do_colors = TRUE;
- }
-# ifdef FEAT_BEVAL_GUI
- if (is_tooltip_group && gui.tooltip_fg_pixel != i)
- {
- gui.tooltip_fg_pixel = i;
- do_colors = TRUE;
- }
-# endif
-# endif
- }
-# endif
- }
-#endif
- }
- else if (STRCMP(key, "GUIBG") == 0)
- {
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- char_u **namep = &HL_TABLE()[idx].sg_gui_bg_name;
-
- if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
- {
- if (!init)
- HL_TABLE()[idx].sg_set |= SG_GUI;
-
-# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- /* In GUI guifg colors are only used when recognized */
- i = color_name2handle(arg);
- if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !USE_24BIT)
- {
- HL_TABLE()[idx].sg_gui_bg = i;
-# endif
- if (*namep == NULL || STRCMP(*namep, arg) != 0)
- {
- vim_free(*namep);
- if (STRCMP(arg, "NONE") != 0)
- *namep = vim_strsave(arg);
- else
- *namep = NULL;
- did_change = TRUE;
- }
-# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
-# ifdef FEAT_GUI_X11
- if (is_menu_group && gui.menu_bg_pixel != i)
- {
- gui.menu_bg_pixel = i;
- do_colors = TRUE;
- }
- if (is_scrollbar_group && gui.scroll_bg_pixel != i)
- {
- gui.scroll_bg_pixel = i;
- do_colors = TRUE;
- }
-# ifdef FEAT_BEVAL_GUI
- if (is_tooltip_group && gui.tooltip_bg_pixel != i)
- {
- gui.tooltip_bg_pixel = i;
- do_colors = TRUE;
- }
-# endif
-# endif
- }
-# endif
- }
-#endif
- }
- else if (STRCMP(key, "GUISP") == 0)
- {
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- char_u **namep = &HL_TABLE()[idx].sg_gui_sp_name;
-
- if (!init || !(HL_TABLE()[idx].sg_set & SG_GUI))
- {
- if (!init)
- HL_TABLE()[idx].sg_set |= SG_GUI;
-
-# ifdef FEAT_GUI
- i = color_name2handle(arg);
- if (i != INVALCOLOR || STRCMP(arg, "NONE") == 0 || !gui.in_use)
- {
- HL_TABLE()[idx].sg_gui_sp = i;
-# endif
- if (*namep == NULL || STRCMP(*namep, arg) != 0)
- {
- vim_free(*namep);
- if (STRCMP(arg, "NONE") != 0)
- *namep = vim_strsave(arg);
- else
- *namep = NULL;
- did_change = TRUE;
- }
-# ifdef FEAT_GUI
- }
-# endif
- }
-#endif
- }
- else if (STRCMP(key, "START") == 0 || STRCMP(key, "STOP") == 0)
- {
- char_u buf[100];
- char_u *tname;
-
- if (!init)
- HL_TABLE()[idx].sg_set |= SG_TERM;
-
- /*
- * The "start" and "stop" arguments can be a literal escape
- * sequence, or a comma separated list of terminal codes.
- */
- if (STRNCMP(arg, "t_", 2) == 0)
- {
- off = 0;
- buf[0] = 0;
- while (arg[off] != NUL)
- {
- /* Isolate one termcap name */
- for (len = 0; arg[off + len] &&
- arg[off + len] != ','; ++len)
- ;
- tname = vim_strnsave(arg + off, len);
- if (tname == NULL) /* out of memory */
- {
- error = TRUE;
- break;
- }
- /* lookup the escape sequence for the item */
- p = get_term_code(tname);
- vim_free(tname);
- if (p == NULL) /* ignore non-existing things */
- p = (char_u *)"";
-
- /* Append it to the already found stuff */
- if ((int)(STRLEN(buf) + STRLEN(p)) >= 99)
- {
- semsg(_("E422: terminal code too long: %s"), arg);
- error = TRUE;
- break;
- }
- STRCAT(buf, p);
-
- /* Advance to the next item */
- off += len;
- if (arg[off] == ',') /* another one follows */
- ++off;
- }
- }
- else
- {
- /*
- * Copy characters from arg[] to buf[], translating <> codes.
- */
- for (p = arg, off = 0; off < 100 - 6 && *p; )
- {
- len = trans_special(&p, buf + off, FALSE, FALSE);
- if (len > 0) /* recognized special char */
- off += len;
- else /* copy as normal char */
- buf[off++] = *p++;
- }
- buf[off] = NUL;
- }
- if (error)
- break;
-
- if (STRCMP(buf, "NONE") == 0) /* resetting the value */
- p = NULL;
- else
- p = vim_strsave(buf);
- if (key[2] == 'A')
- {
- vim_free(HL_TABLE()[idx].sg_start);
- HL_TABLE()[idx].sg_start = p;
- }
- else
- {
- vim_free(HL_TABLE()[idx].sg_stop);
- HL_TABLE()[idx].sg_stop = p;
- }
- }
- else
- {
- semsg(_("E423: Illegal argument: %s"), key_start);
- error = TRUE;
- break;
- }
- HL_TABLE()[idx].sg_cleared = FALSE;
-
- /*
- * When highlighting has been given for a group, don't link it.
- */
- if (!init || !(HL_TABLE()[idx].sg_set & SG_LINK))
- HL_TABLE()[idx].sg_link = 0;
-
- /*
- * Continue with next argument.
- */
- linep = skipwhite(linep);
- }
-
- /*
- * If there is an error, and it's a new entry, remove it from the table.
- */
- if (error && idx == highlight_ga.ga_len)
- syn_unadd_group();
- else
- {
- if (is_normal_group)
- {
- HL_TABLE()[idx].sg_term_attr = 0;
- HL_TABLE()[idx].sg_cterm_attr = 0;
-#ifdef FEAT_GUI
- HL_TABLE()[idx].sg_gui_attr = 0;
- /*
- * Need to update all groups, because they might be using "bg"
- * and/or "fg", which have been changed now.
- */
-#endif
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- if (USE_24BIT)
- {
- highlight_gui_started();
- did_highlight_changed = TRUE;
- redraw_all_later(NOT_VALID);
- }
-#endif
- }
-#ifdef FEAT_TERMINAL
- else if (is_terminal_group)
- set_terminal_default_colors(
- HL_TABLE()[idx].sg_cterm_fg, HL_TABLE()[idx].sg_cterm_bg);
-#endif
-#ifdef FEAT_GUI_X11
-# ifdef FEAT_MENU
- else if (is_menu_group)
- {
- if (gui.in_use && do_colors)
- gui_mch_new_menu_colors();
- }
-# endif
- else if (is_scrollbar_group)
- {
- if (gui.in_use && do_colors)
- gui_new_scrollbar_colors();
- else
- set_hl_attr(idx);
- }
-# ifdef FEAT_BEVAL_GUI
- else if (is_tooltip_group)
- {
- if (gui.in_use && do_colors)
- gui_mch_new_tooltip_colors();
- }
-# endif
-#endif
- else
- set_hl_attr(idx);
-#ifdef FEAT_EVAL
- HL_TABLE()[idx].sg_script_ctx = current_sctx;
- HL_TABLE()[idx].sg_script_ctx.sc_lnum += sourcing_lnum;
-#endif
- }
-
- vim_free(key);
- vim_free(arg);
-
- /* Only call highlight_changed() once, after a sequence of highlight
- * commands, and only if an attribute actually changed. */
- if ((did_change
- || memcmp(&HL_TABLE()[idx], &item_before, sizeof(item_before)) != 0)
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- && !did_highlight_changed
-#endif
- )
- {
- /* Do not trigger a redraw when highlighting is changed while
- * redrawing. This may happen when evaluating 'statusline' changes the
- * StatusLine group. */
- if (!updating_screen)
- redraw_all_later(NOT_VALID);
- need_highlight_changed = TRUE;
- }
-}
-
-#if defined(EXITFREE) || defined(PROTO)
- void
-free_highlight(void)
-{
- int i;
-
- for (i = 0; i < highlight_ga.ga_len; ++i)
- {
- highlight_clear(i);
- vim_free(HL_TABLE()[i].sg_name);
- vim_free(HL_TABLE()[i].sg_name_u);
- }
- ga_clear(&highlight_ga);
-}
-#endif
-
-/*
- * Reset the cterm colors to what they were before Vim was started, if
- * possible. Otherwise reset them to zero.
- */
- void
-restore_cterm_colors(void)
-{
-#if defined(MSWIN) && !defined(FEAT_GUI_MSWIN)
- /* Since t_me has been set, this probably means that the user
- * wants to use this as default colors. Need to reset default
- * background/foreground colors. */
- mch_set_normal_colors();
-#else
-# ifdef VIMDLL
- if (!gui.in_use)
- {
- mch_set_normal_colors();
- return;
- }
-# endif
- cterm_normal_fg_color = 0;
- cterm_normal_fg_bold = 0;
- cterm_normal_bg_color = 0;
-# ifdef FEAT_TERMGUICOLORS
- cterm_normal_fg_gui_color = INVALCOLOR;
- cterm_normal_bg_gui_color = INVALCOLOR;
-# endif
-#endif
-}
-
-/*
- * Return TRUE if highlight group "idx" has any settings.
- * When "check_link" is TRUE also check for an existing link.
- */
- static int
-hl_has_settings(int idx, int check_link)
-{
- return ( HL_TABLE()[idx].sg_term_attr != 0
- || HL_TABLE()[idx].sg_cterm_attr != 0
- || HL_TABLE()[idx].sg_cterm_fg != 0
- || HL_TABLE()[idx].sg_cterm_bg != 0
-#ifdef FEAT_GUI
- || HL_TABLE()[idx].sg_gui_attr != 0
- || HL_TABLE()[idx].sg_gui_fg_name != NULL
- || HL_TABLE()[idx].sg_gui_bg_name != NULL
- || HL_TABLE()[idx].sg_gui_sp_name != NULL
- || HL_TABLE()[idx].sg_font_name != NULL
-#endif
- || (check_link && (HL_TABLE()[idx].sg_set & SG_LINK)));
-}
-
-/*
- * Clear highlighting for one group.
- */
- static void
-highlight_clear(int idx)
-{
- HL_TABLE()[idx].sg_cleared = TRUE;
-
- HL_TABLE()[idx].sg_term = 0;
- VIM_CLEAR(HL_TABLE()[idx].sg_start);
- VIM_CLEAR(HL_TABLE()[idx].sg_stop);
- HL_TABLE()[idx].sg_term_attr = 0;
- HL_TABLE()[idx].sg_cterm = 0;
- HL_TABLE()[idx].sg_cterm_bold = FALSE;
- HL_TABLE()[idx].sg_cterm_fg = 0;
- HL_TABLE()[idx].sg_cterm_bg = 0;
- HL_TABLE()[idx].sg_cterm_attr = 0;
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- HL_TABLE()[idx].sg_gui = 0;
- VIM_CLEAR(HL_TABLE()[idx].sg_gui_fg_name);
- VIM_CLEAR(HL_TABLE()[idx].sg_gui_bg_name);
- VIM_CLEAR(HL_TABLE()[idx].sg_gui_sp_name);
-#endif
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- HL_TABLE()[idx].sg_gui_fg = INVALCOLOR;
- HL_TABLE()[idx].sg_gui_bg = INVALCOLOR;
-#endif
-#ifdef FEAT_GUI
- HL_TABLE()[idx].sg_gui_sp = INVALCOLOR;
- gui_mch_free_font(HL_TABLE()[idx].sg_font);
- HL_TABLE()[idx].sg_font = NOFONT;
-# ifdef FEAT_XFONTSET
- gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
- HL_TABLE()[idx].sg_fontset = NOFONTSET;
-# endif
- VIM_CLEAR(HL_TABLE()[idx].sg_font_name);
- HL_TABLE()[idx].sg_gui_attr = 0;
-#endif
-#ifdef FEAT_EVAL
- /* Clear the script ID only when there is no link, since that is not
- * cleared. */
- if (HL_TABLE()[idx].sg_link == 0)
- {
- HL_TABLE()[idx].sg_script_ctx.sc_sid = 0;
- HL_TABLE()[idx].sg_script_ctx.sc_lnum = 0;
- }
-#endif
-}
-
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
-/*
- * Set the normal foreground and background colors according to the "Normal"
- * highlighting group. For X11 also set "Menu", "Scrollbar", and
- * "Tooltip" colors.
- */
- void
-set_normal_colors(void)
-{
-# ifdef FEAT_GUI
-# ifdef FEAT_TERMGUICOLORS
- if (gui.in_use)
-# endif
- {
- if (set_group_colors((char_u *)"Normal",
- &gui.norm_pixel, &gui.back_pixel,
- FALSE, TRUE, FALSE))
- {
- gui_mch_new_colors();
- must_redraw = CLEAR;
- }
-# ifdef FEAT_GUI_X11
- if (set_group_colors((char_u *)"Menu",
- &gui.menu_fg_pixel, &gui.menu_bg_pixel,
- TRUE, FALSE, FALSE))
- {
-# ifdef FEAT_MENU
- gui_mch_new_menu_colors();
-# endif
- must_redraw = CLEAR;
- }
-# ifdef FEAT_BEVAL_GUI
- if (set_group_colors((char_u *)"Tooltip",
- &gui.tooltip_fg_pixel, &gui.tooltip_bg_pixel,
- FALSE, FALSE, TRUE))
- {
-# ifdef FEAT_TOOLBAR
- gui_mch_new_tooltip_colors();
-# endif
- must_redraw = CLEAR;
- }
-# endif
- if (set_group_colors((char_u *)"Scrollbar",
- &gui.scroll_fg_pixel, &gui.scroll_bg_pixel,
- FALSE, FALSE, FALSE))
- {
- gui_new_scrollbar_colors();
- must_redraw = CLEAR;
- }
-# endif
- }
-# endif
-# ifdef FEAT_TERMGUICOLORS
-# ifdef FEAT_GUI
- else
-# endif
- {
- int idx;
-
- idx = syn_name2id((char_u *)"Normal") - 1;
- if (idx >= 0)
- {
- gui_do_one_color(idx, FALSE, FALSE);
-
- /* If the normal fg or bg color changed a complete redraw is
- * required. */
- if (cterm_normal_fg_gui_color != HL_TABLE()[idx].sg_gui_fg
- || cterm_normal_bg_gui_color != HL_TABLE()[idx].sg_gui_bg)
- {
- /* if the GUI color is INVALCOLOR then we use the default cterm
- * color */
- cterm_normal_fg_gui_color = HL_TABLE()[idx].sg_gui_fg;
- cterm_normal_bg_gui_color = HL_TABLE()[idx].sg_gui_bg;
- must_redraw = CLEAR;
- }
- }
- }
-# endif
-}
-#endif
-
-#if defined(FEAT_GUI) || defined(PROTO)
-/*
- * Set the colors for "Normal", "Menu", "Tooltip" or "Scrollbar".
- */
- static int
-set_group_colors(
- char_u *name,
- guicolor_T *fgp,
- guicolor_T *bgp,
- int do_menu,
- int use_norm,
- int do_tooltip)
-{
- int idx;
-
- idx = syn_name2id(name) - 1;
- if (idx >= 0)
- {
- gui_do_one_color(idx, do_menu, do_tooltip);
-
- if (HL_TABLE()[idx].sg_gui_fg != INVALCOLOR)
- *fgp = HL_TABLE()[idx].sg_gui_fg;
- else if (use_norm)
- *fgp = gui.def_norm_pixel;
- if (HL_TABLE()[idx].sg_gui_bg != INVALCOLOR)
- *bgp = HL_TABLE()[idx].sg_gui_bg;
- else if (use_norm)
- *bgp = gui.def_back_pixel;
- return TRUE;
- }
- return FALSE;
-}
-
-/*
- * Get the font of the "Normal" group.
- * Returns "" when it's not found or not set.
- */
- char_u *
-hl_get_font_name(void)
-{
- int id;
- char_u *s;
-
- id = syn_name2id((char_u *)"Normal");
- if (id > 0)
- {
- s = HL_TABLE()[id - 1].sg_font_name;
- if (s != NULL)
- return s;
- }
- return (char_u *)"";
-}
-
-/*
- * Set font for "Normal" group. Called by gui_mch_init_font() when a font has
- * actually chosen to be used.
- */
- void
-hl_set_font_name(char_u *font_name)
-{
- int id;
-
- id = syn_name2id((char_u *)"Normal");
- if (id > 0)
- {
- vim_free(HL_TABLE()[id - 1].sg_font_name);
- HL_TABLE()[id - 1].sg_font_name = vim_strsave(font_name);
- }
-}
-
-/*
- * Set background color for "Normal" group. Called by gui_set_bg_color()
- * when the color is known.
- */
- void
-hl_set_bg_color_name(
- char_u *name) /* must have been allocated */
-{
- int id;
-
- if (name != NULL)
- {
- id = syn_name2id((char_u *)"Normal");
- if (id > 0)
- {
- vim_free(HL_TABLE()[id - 1].sg_gui_bg_name);
- HL_TABLE()[id - 1].sg_gui_bg_name = name;
- }
- }
-}
-
-/*
- * Set foreground color for "Normal" group. Called by gui_set_fg_color()
- * when the color is known.
- */
- void
-hl_set_fg_color_name(
- char_u *name) /* must have been allocated */
-{
- int id;
-
- if (name != NULL)
- {
- id = syn_name2id((char_u *)"Normal");
- if (id > 0)
- {
- vim_free(HL_TABLE()[id - 1].sg_gui_fg_name);
- HL_TABLE()[id - 1].sg_gui_fg_name = name;
- }
- }
-}
-
-/*
- * Return the handle for a font name.
- * Returns NOFONT when failed.
- */
- static GuiFont
-font_name2handle(char_u *name)
-{
- if (STRCMP(name, "NONE") == 0)
- return NOFONT;
-
- return gui_mch_get_font(name, TRUE);
-}
-
-# ifdef FEAT_XFONTSET
-/*
- * Return the handle for a fontset name.
- * Returns NOFONTSET when failed.
- */
- static GuiFontset
-fontset_name2handle(char_u *name, int fixed_width)
-{
- if (STRCMP(name, "NONE") == 0)
- return NOFONTSET;
-
- return gui_mch_get_fontset(name, TRUE, fixed_width);
-}
-# endif
-
-/*
- * Get the font or fontset for one highlight group.
- */
- static void
-hl_do_font(
- int idx,
- char_u *arg,
- int do_normal, /* set normal font */
- int do_menu UNUSED, /* set menu font */
- int do_tooltip UNUSED, /* set tooltip font */
- int free_font) /* free current font/fontset */
-{
-# ifdef FEAT_XFONTSET
- /* If 'guifontset' is not empty, first try using the name as a
- * fontset. If that doesn't work, use it as a font name. */
- if (*p_guifontset != NUL
-# ifdef FONTSET_ALWAYS
- || do_menu
-# endif
-# ifdef FEAT_BEVAL_TIP
- /* In Athena & Motif, the Tooltip highlight group is always a fontset */
- || do_tooltip
-# endif
- )
- {
- if (free_font)
- gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
- HL_TABLE()[idx].sg_fontset = fontset_name2handle(arg, 0
-# ifdef FONTSET_ALWAYS
- || do_menu
-# endif
-# ifdef FEAT_BEVAL_TIP
- || do_tooltip
-# endif
- );
- }
- if (HL_TABLE()[idx].sg_fontset != NOFONTSET)
- {
- /* If it worked and it's the Normal group, use it as the normal
- * fontset. Same for the Menu group. */
- if (do_normal)
- gui_init_font(arg, TRUE);
-# if (defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)) && defined(FEAT_MENU)
- if (do_menu)
- {
-# ifdef FONTSET_ALWAYS
- gui.menu_fontset = HL_TABLE()[idx].sg_fontset;
-# else
- /* YIKES! This is a bug waiting to crash the program */
- gui.menu_font = HL_TABLE()[idx].sg_fontset;
-# endif
- gui_mch_new_menu_font();
- }
-# ifdef FEAT_BEVAL_GUI
- if (do_tooltip)
- {
- /* The Athena widget set cannot currently handle switching between
- * displaying a single font and a fontset.
- * If the XtNinternational resource is set to True at widget
- * creation, then a fontset is always used, otherwise an
- * XFontStruct is used.
- */
- gui.tooltip_fontset = (XFontSet)HL_TABLE()[idx].sg_fontset;
- gui_mch_new_tooltip_font();
- }
-# endif
-# endif
- }
- else
-# endif
- {
- if (free_font)
- gui_mch_free_font(HL_TABLE()[idx].sg_font);
- HL_TABLE()[idx].sg_font = font_name2handle(arg);
- /* If it worked and it's the Normal group, use it as the
- * normal font. Same for the Menu group. */
- if (HL_TABLE()[idx].sg_font != NOFONT)
- {
- if (do_normal)
- gui_init_font(arg, FALSE);
-#ifndef FONTSET_ALWAYS
-# if (defined(FEAT_GUI_MOTIF) || defined(FEAT_GUI_ATHENA)) && defined(FEAT_MENU)
- if (do_menu)
- {
- gui.menu_font = HL_TABLE()[idx].sg_font;
- gui_mch_new_menu_font();
- }
-# endif
-#endif
- }
- }
-}
-
-#endif /* FEAT_GUI */
-
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
-/*
- * Return the handle for a color name.
- * Returns INVALCOLOR when failed.
- */
- guicolor_T
-color_name2handle(char_u *name)
-{
- if (STRCMP(name, "NONE") == 0)
- return INVALCOLOR;
-
- if (STRICMP(name, "fg") == 0 || STRICMP(name, "foreground") == 0)
- {
-#if defined(FEAT_TERMGUICOLORS) && defined(FEAT_GUI)
- if (gui.in_use)
-#endif
-#ifdef FEAT_GUI
- return gui.norm_pixel;
-#endif
-#ifdef FEAT_TERMGUICOLORS
- if (cterm_normal_fg_gui_color != INVALCOLOR)
- return cterm_normal_fg_gui_color;
- /* Guess that the foreground is black or white. */
- return GUI_GET_COLOR((char_u *)(*p_bg == 'l' ? "black" : "white"));
-#endif
- }
- if (STRICMP(name, "bg") == 0 || STRICMP(name, "background") == 0)
- {
-#if defined(FEAT_TERMGUICOLORS) && defined(FEAT_GUI)
- if (gui.in_use)
-#endif
-#ifdef FEAT_GUI
- return gui.back_pixel;
-#endif
-#ifdef FEAT_TERMGUICOLORS
- if (cterm_normal_bg_gui_color != INVALCOLOR)
- return cterm_normal_bg_gui_color;
- /* Guess that the background is white or black. */
- return GUI_GET_COLOR((char_u *)(*p_bg == 'l' ? "white" : "black"));
-#endif
- }
-
- return GUI_GET_COLOR(name);
-}
-#endif
-
-/*
- * Table with the specifications for an attribute number.
- * Note that this table is used by ALL buffers. This is required because the
- * GUI can redraw at any time for any buffer.
- */
-static garray_T term_attr_table = {0, 0, 0, 0, NULL};
-
-#define TERM_ATTR_ENTRY(idx) ((attrentry_T *)term_attr_table.ga_data)[idx]
-
-static garray_T cterm_attr_table = {0, 0, 0, 0, NULL};
-
-#define CTERM_ATTR_ENTRY(idx) ((attrentry_T *)cterm_attr_table.ga_data)[idx]
-
-#ifdef FEAT_GUI
-static garray_T gui_attr_table = {0, 0, 0, 0, NULL};
-
-#define GUI_ATTR_ENTRY(idx) ((attrentry_T *)gui_attr_table.ga_data)[idx]
-#endif
-
-/*
- * Return the attr number for a set of colors and font.
- * Add a new entry to the term_attr_table, cterm_attr_table or gui_attr_table
- * if the combination is new.
- * Return 0 for error (no more room).
- */
- static int
-get_attr_entry(garray_T *table, attrentry_T *aep)
-{
- int i;
- attrentry_T *taep;
- static int recursive = FALSE;
-
- /*
- * Init the table, in case it wasn't done yet.
- */
- table->ga_itemsize = sizeof(attrentry_T);
- table->ga_growsize = 7;
-
- /*
- * Try to find an entry with the same specifications.
- */
- for (i = 0; i < table->ga_len; ++i)
- {
- taep = &(((attrentry_T *)table->ga_data)[i]);
- if ( aep->ae_attr == taep->ae_attr
- && (
-#ifdef FEAT_GUI
- (table == &gui_attr_table
- && (aep->ae_u.gui.fg_color == taep->ae_u.gui.fg_color
- && aep->ae_u.gui.bg_color
- == taep->ae_u.gui.bg_color
- && aep->ae_u.gui.sp_color
- == taep->ae_u.gui.sp_color
- && aep->ae_u.gui.font == taep->ae_u.gui.font
-# ifdef FEAT_XFONTSET
- && aep->ae_u.gui.fontset == taep->ae_u.gui.fontset
-# endif
- ))
- ||
-#endif
- (table == &term_attr_table
- && (aep->ae_u.term.start == NULL)
- == (taep->ae_u.term.start == NULL)
- && (aep->ae_u.term.start == NULL
- || STRCMP(aep->ae_u.term.start,
- taep->ae_u.term.start) == 0)
- && (aep->ae_u.term.stop == NULL)
- == (taep->ae_u.term.stop == NULL)
- && (aep->ae_u.term.stop == NULL
- || STRCMP(aep->ae_u.term.stop,
- taep->ae_u.term.stop) == 0))
- || (table == &cterm_attr_table
- && aep->ae_u.cterm.fg_color
- == taep->ae_u.cterm.fg_color
- && aep->ae_u.cterm.bg_color
- == taep->ae_u.cterm.bg_color
-#ifdef FEAT_TERMGUICOLORS
- && aep->ae_u.cterm.fg_rgb
- == taep->ae_u.cterm.fg_rgb
- && aep->ae_u.cterm.bg_rgb
- == taep->ae_u.cterm.bg_rgb
-#endif
- )))
-
- return i + ATTR_OFF;
- }
-
- if (table->ga_len + ATTR_OFF > MAX_TYPENR)
- {
- /*
- * Running out of attribute entries! remove all attributes, and
- * compute new ones for all groups.
- * When called recursively, we are really out of numbers.
- */
- if (recursive)
- {
- emsg(_("E424: Too many different highlighting attributes in use"));
- return 0;
- }
- recursive = TRUE;
-
- clear_hl_tables();
-
- must_redraw = CLEAR;
-
- for (i = 0; i < highlight_ga.ga_len; ++i)
- set_hl_attr(i);
-
- recursive = FALSE;
- }
-
- /*
- * This is a new combination of colors and font, add an entry.
- */
- if (ga_grow(table, 1) == FAIL)
- return 0;
-
- taep = &(((attrentry_T *)table->ga_data)[table->ga_len]);
- vim_memset(taep, 0, sizeof(attrentry_T));
- taep->ae_attr = aep->ae_attr;
-#ifdef FEAT_GUI
- if (table == &gui_attr_table)
- {
- taep->ae_u.gui.fg_color = aep->ae_u.gui.fg_color;
- taep->ae_u.gui.bg_color = aep->ae_u.gui.bg_color;
- taep->ae_u.gui.sp_color = aep->ae_u.gui.sp_color;
- taep->ae_u.gui.font = aep->ae_u.gui.font;
-# ifdef FEAT_XFONTSET
- taep->ae_u.gui.fontset = aep->ae_u.gui.fontset;
-# endif
- }
-#endif
- if (table == &term_attr_table)
- {
- if (aep->ae_u.term.start == NULL)
- taep->ae_u.term.start = NULL;
- else
- taep->ae_u.term.start = vim_strsave(aep->ae_u.term.start);
- if (aep->ae_u.term.stop == NULL)
- taep->ae_u.term.stop = NULL;
- else
- taep->ae_u.term.stop = vim_strsave(aep->ae_u.term.stop);
- }
- else if (table == &cterm_attr_table)
- {
- taep->ae_u.cterm.fg_color = aep->ae_u.cterm.fg_color;
- taep->ae_u.cterm.bg_color = aep->ae_u.cterm.bg_color;
-#ifdef FEAT_TERMGUICOLORS
- taep->ae_u.cterm.fg_rgb = aep->ae_u.cterm.fg_rgb;
- taep->ae_u.cterm.bg_rgb = aep->ae_u.cterm.bg_rgb;
-#endif
- }
- ++table->ga_len;
- return (table->ga_len - 1 + ATTR_OFF);
-}
-
-#if defined(FEAT_TERMINAL) || defined(PROTO)
-/*
- * Get an attribute index for a cterm entry.
- * Uses an existing entry when possible or adds one when needed.
- */
- int
-get_cterm_attr_idx(int attr, int fg, int bg)
-{
- attrentry_T at_en;
-
- vim_memset(&at_en, 0, sizeof(attrentry_T));
-#ifdef FEAT_TERMGUICOLORS
- at_en.ae_u.cterm.fg_rgb = INVALCOLOR;
- at_en.ae_u.cterm.bg_rgb = INVALCOLOR;
-#endif
- at_en.ae_attr = attr;
- at_en.ae_u.cterm.fg_color = fg;
- at_en.ae_u.cterm.bg_color = bg;
- return get_attr_entry(&cterm_attr_table, &at_en);
-}
-#endif
-
-#if (defined(FEAT_TERMINAL) && defined(FEAT_TERMGUICOLORS)) || defined(PROTO)
-/*
- * Get an attribute index for a 'termguicolors' entry.
- * Uses an existing entry when possible or adds one when needed.
- */
- int
-get_tgc_attr_idx(int attr, guicolor_T fg, guicolor_T bg)
-{
- attrentry_T at_en;
-
- vim_memset(&at_en, 0, sizeof(attrentry_T));
- at_en.ae_attr = attr;
- if (fg == INVALCOLOR && bg == INVALCOLOR)
- {
- /* If both GUI colors are not set fall back to the cterm colors. Helps
- * if the GUI only has an attribute, such as undercurl. */
- at_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
- at_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
- }
- else
- {
- at_en.ae_u.cterm.fg_rgb = fg;
- at_en.ae_u.cterm.bg_rgb = bg;
- }
- return get_attr_entry(&cterm_attr_table, &at_en);
-}
-#endif
-
-#if (defined(FEAT_TERMINAL) && defined(FEAT_GUI)) || defined(PROTO)
-/*
- * Get an attribute index for a cterm entry.
- * Uses an existing entry when possible or adds one when needed.
- */
- int
-get_gui_attr_idx(int attr, guicolor_T fg, guicolor_T bg)
-{
- attrentry_T at_en;
-
- vim_memset(&at_en, 0, sizeof(attrentry_T));
- at_en.ae_attr = attr;
- at_en.ae_u.gui.fg_color = fg;
- at_en.ae_u.gui.bg_color = bg;
- return get_attr_entry(&gui_attr_table, &at_en);
-}
-#endif
-
-/*
- * Clear all highlight tables.
- */
- void
-clear_hl_tables(void)
-{
- int i;
- attrentry_T *taep;
-
-#ifdef FEAT_GUI
- ga_clear(&gui_attr_table);
-#endif
- for (i = 0; i < term_attr_table.ga_len; ++i)
- {
- taep = &(((attrentry_T *)term_attr_table.ga_data)[i]);
- vim_free(taep->ae_u.term.start);
- vim_free(taep->ae_u.term.stop);
- }
- ga_clear(&term_attr_table);
- ga_clear(&cterm_attr_table);
-}
-
-/*
- * Combine special attributes (e.g., for spelling) with other attributes
- * (e.g., for syntax highlighting).
- * "prim_attr" overrules "char_attr".
- * This creates a new group when required.
- * Since we expect there to be few spelling mistakes we don't cache the
- * result.
- * Return the resulting attributes.
- */
- int
-hl_combine_attr(int char_attr, int prim_attr)
-{
- attrentry_T *char_aep = NULL;
- attrentry_T *spell_aep;
- attrentry_T new_en;
-
- if (char_attr == 0)
- return prim_attr;
- if (char_attr <= HL_ALL && prim_attr <= HL_ALL)
- return ATTR_COMBINE(char_attr, prim_attr);
-#ifdef FEAT_GUI
- if (gui.in_use)
- {
- if (char_attr > HL_ALL)
- char_aep = syn_gui_attr2entry(char_attr);
- if (char_aep != NULL)
- new_en = *char_aep;
- else
- {
- vim_memset(&new_en, 0, sizeof(new_en));
- new_en.ae_u.gui.fg_color = INVALCOLOR;
- new_en.ae_u.gui.bg_color = INVALCOLOR;
- new_en.ae_u.gui.sp_color = INVALCOLOR;
- if (char_attr <= HL_ALL)
- new_en.ae_attr = char_attr;
- }
-
- if (prim_attr <= HL_ALL)
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
- else
- {
- spell_aep = syn_gui_attr2entry(prim_attr);
- if (spell_aep != NULL)
- {
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr,
- spell_aep->ae_attr);
- if (spell_aep->ae_u.gui.fg_color != INVALCOLOR)
- new_en.ae_u.gui.fg_color = spell_aep->ae_u.gui.fg_color;
- if (spell_aep->ae_u.gui.bg_color != INVALCOLOR)
- new_en.ae_u.gui.bg_color = spell_aep->ae_u.gui.bg_color;
- if (spell_aep->ae_u.gui.sp_color != INVALCOLOR)
- new_en.ae_u.gui.sp_color = spell_aep->ae_u.gui.sp_color;
- if (spell_aep->ae_u.gui.font != NOFONT)
- new_en.ae_u.gui.font = spell_aep->ae_u.gui.font;
-# ifdef FEAT_XFONTSET
- if (spell_aep->ae_u.gui.fontset != NOFONTSET)
- new_en.ae_u.gui.fontset = spell_aep->ae_u.gui.fontset;
-# endif
- }
- }
- return get_attr_entry(&gui_attr_table, &new_en);
- }
-#endif
-
- if (IS_CTERM)
- {
- if (char_attr > HL_ALL)
- char_aep = syn_cterm_attr2entry(char_attr);
- if (char_aep != NULL)
- new_en = *char_aep;
- else
- {
- vim_memset(&new_en, 0, sizeof(new_en));
-#ifdef FEAT_TERMGUICOLORS
- new_en.ae_u.cterm.bg_rgb = INVALCOLOR;
- new_en.ae_u.cterm.fg_rgb = INVALCOLOR;
-#endif
- if (char_attr <= HL_ALL)
- new_en.ae_attr = char_attr;
- }
-
- if (prim_attr <= HL_ALL)
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
- else
- {
- spell_aep = syn_cterm_attr2entry(prim_attr);
- if (spell_aep != NULL)
- {
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr,
- spell_aep->ae_attr);
- if (spell_aep->ae_u.cterm.fg_color > 0)
- new_en.ae_u.cterm.fg_color = spell_aep->ae_u.cterm.fg_color;
- if (spell_aep->ae_u.cterm.bg_color > 0)
- new_en.ae_u.cterm.bg_color = spell_aep->ae_u.cterm.bg_color;
-#ifdef FEAT_TERMGUICOLORS
- /* If both fg and bg are not set fall back to cterm colors.
- * Helps for SpellBad which uses undercurl in the GUI. */
- if (COLOR_INVALID(spell_aep->ae_u.cterm.fg_rgb)
- && COLOR_INVALID(spell_aep->ae_u.cterm.bg_rgb))
- {
- if (spell_aep->ae_u.cterm.fg_color > 0)
- new_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
- if (spell_aep->ae_u.cterm.bg_color > 0)
- new_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
- }
- else
- {
- if (spell_aep->ae_u.cterm.fg_rgb != INVALCOLOR)
- new_en.ae_u.cterm.fg_rgb = spell_aep->ae_u.cterm.fg_rgb;
- if (spell_aep->ae_u.cterm.bg_rgb != INVALCOLOR)
- new_en.ae_u.cterm.bg_rgb = spell_aep->ae_u.cterm.bg_rgb;
- }
-#endif
- }
- }
- return get_attr_entry(&cterm_attr_table, &new_en);
- }
-
- if (char_attr > HL_ALL)
- char_aep = syn_term_attr2entry(char_attr);
- if (char_aep != NULL)
- new_en = *char_aep;
- else
- {
- vim_memset(&new_en, 0, sizeof(new_en));
- if (char_attr <= HL_ALL)
- new_en.ae_attr = char_attr;
- }
-
- if (prim_attr <= HL_ALL)
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, prim_attr);
- else
- {
- spell_aep = syn_term_attr2entry(prim_attr);
- if (spell_aep != NULL)
- {
- new_en.ae_attr = ATTR_COMBINE(new_en.ae_attr, spell_aep->ae_attr);
- if (spell_aep->ae_u.term.start != NULL)
- {
- new_en.ae_u.term.start = spell_aep->ae_u.term.start;
- new_en.ae_u.term.stop = spell_aep->ae_u.term.stop;
- }
- }
- }
- return get_attr_entry(&term_attr_table, &new_en);
-}
-
-#ifdef FEAT_GUI
-
- attrentry_T *
-syn_gui_attr2entry(int attr)
-{
- attr -= ATTR_OFF;
- if (attr >= gui_attr_table.ga_len) /* did ":syntax clear" */
- return NULL;
- return &(GUI_ATTR_ENTRY(attr));
-}
-#endif /* FEAT_GUI */
-
-/*
- * Get the highlight attributes (HL_BOLD etc.) from an attribute nr.
- * Only to be used when "attr" > HL_ALL.
- */
- int
-syn_attr2attr(int attr)
-{
- attrentry_T *aep;
-
-#ifdef FEAT_GUI
- if (gui.in_use)
- aep = syn_gui_attr2entry(attr);
- else
-#endif
- if (IS_CTERM)
- aep = syn_cterm_attr2entry(attr);
- else
- aep = syn_term_attr2entry(attr);
-
- if (aep == NULL) /* highlighting not set */
- return 0;
- return aep->ae_attr;
-}
-
-
- attrentry_T *
-syn_term_attr2entry(int attr)
-{
- attr -= ATTR_OFF;
- if (attr >= term_attr_table.ga_len) /* did ":syntax clear" */
- return NULL;
- return &(TERM_ATTR_ENTRY(attr));
-}
-
- attrentry_T *
-syn_cterm_attr2entry(int attr)
-{
- attr -= ATTR_OFF;
- if (attr >= cterm_attr_table.ga_len) /* did ":syntax clear" */
- return NULL;
- return &(CTERM_ATTR_ENTRY(attr));
-}
-
-#define LIST_ATTR 1
-#define LIST_STRING 2
-#define LIST_INT 3
-
- static void
-highlight_list_one(int id)
-{
- struct hl_group *sgp;
- int didh = FALSE;
-
- sgp = &HL_TABLE()[id - 1]; // index is ID minus one
-
- if (message_filtered(sgp->sg_name))
- return;
-
- didh = highlight_list_arg(id, didh, LIST_ATTR,
- sgp->sg_term, NULL, "term");
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_start, "start");
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_stop, "stop");
-
- didh = highlight_list_arg(id, didh, LIST_ATTR,
- sgp->sg_cterm, NULL, "cterm");
- didh = highlight_list_arg(id, didh, LIST_INT,
- sgp->sg_cterm_fg, NULL, "ctermfg");
- didh = highlight_list_arg(id, didh, LIST_INT,
- sgp->sg_cterm_bg, NULL, "ctermbg");
-
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- didh = highlight_list_arg(id, didh, LIST_ATTR,
- sgp->sg_gui, NULL, "gui");
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_gui_fg_name, "guifg");
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_gui_bg_name, "guibg");
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_gui_sp_name, "guisp");
-#endif
-#ifdef FEAT_GUI
- didh = highlight_list_arg(id, didh, LIST_STRING,
- 0, sgp->sg_font_name, "font");
-#endif
-
- if (sgp->sg_link && !got_int)
- {
- (void)syn_list_header(didh, 9999, id);
- didh = TRUE;
- msg_puts_attr("links to", HL_ATTR(HLF_D));
- msg_putchar(' ');
- msg_outtrans(HL_TABLE()[HL_TABLE()[id - 1].sg_link - 1].sg_name);
- }
-
- if (!didh)
- highlight_list_arg(id, didh, LIST_STRING, 0, (char_u *)"cleared", "");
-#ifdef FEAT_EVAL
- if (p_verbose > 0)
- last_set_msg(sgp->sg_script_ctx);
-#endif
-}
-
- static int
-highlight_list_arg(
- int id,
- int didh,
- int type,
- int iarg,
- char_u *sarg,
- char *name)
-{
- char_u buf[100];
- char_u *ts;
- int i;
-
- if (got_int)
- return FALSE;
- if (type == LIST_STRING ? (sarg != NULL) : (iarg != 0))
- {
- ts = buf;
- if (type == LIST_INT)
- sprintf((char *)buf, "%d", iarg - 1);
- else if (type == LIST_STRING)
- ts = sarg;
- else /* type == LIST_ATTR */
- {
- buf[0] = NUL;
- for (i = 0; hl_attr_table[i] != 0; ++i)
- {
- if (iarg & hl_attr_table[i])
- {
- if (buf[0] != NUL)
- vim_strcat(buf, (char_u *)",", 100);
- vim_strcat(buf, (char_u *)hl_name_table[i], 100);
- iarg &= ~hl_attr_table[i]; /* don't want "inverse" */
- }
- }
- }
-
- (void)syn_list_header(didh,
- (int)(vim_strsize(ts) + STRLEN(name) + 1), id);
- didh = TRUE;
- if (!got_int)
- {
- if (*name != NUL)
- {
- msg_puts_attr(name, HL_ATTR(HLF_D));
- msg_puts_attr("=", HL_ATTR(HLF_D));
- }
- msg_outtrans(ts);
- }
- }
- return didh;
-}
-
-#if (((defined(FEAT_EVAL) || defined(FEAT_PRINTER))) && defined(FEAT_SYN_HL)) || defined(PROTO)
-/*
- * Return "1" if highlight group "id" has attribute "flag".
- * Return NULL otherwise.
- */
- char_u *
-highlight_has_attr(
- int id,
- int flag,
- int modec) /* 'g' for GUI, 'c' for cterm, 't' for term */
-{
- int attr;
-
- if (id <= 0 || id > highlight_ga.ga_len)
- return NULL;
-
-#if defined(FEAT_GUI) || defined(FEAT_EVAL)
- if (modec == 'g')
- attr = HL_TABLE()[id - 1].sg_gui;
- else
-#endif
- if (modec == 'c')
- attr = HL_TABLE()[id - 1].sg_cterm;
- else
- attr = HL_TABLE()[id - 1].sg_term;
-
- if (attr & flag)
- return (char_u *)"1";
- return NULL;
-}
-#endif
-
-#if (defined(FEAT_SYN_HL) && defined(FEAT_EVAL)) || defined(PROTO)
-/*
- * Return color name of highlight group "id".
- */
- char_u *
-highlight_color(
- int id,
- char_u *what, /* "font", "fg", "bg", "sp", "fg#", "bg#" or "sp#" */
- int modec) /* 'g' for GUI, 'c' for cterm, 't' for term */
-{
- static char_u name[20];
- int n;
- int fg = FALSE;
- int sp = FALSE;
- int font = FALSE;
-
- if (id <= 0 || id > highlight_ga.ga_len)
- return NULL;
-
- if (TOLOWER_ASC(what[0]) == 'f' && TOLOWER_ASC(what[1]) == 'g')
- fg = TRUE;
- else if (TOLOWER_ASC(what[0]) == 'f' && TOLOWER_ASC(what[1]) == 'o'
- && TOLOWER_ASC(what[2]) == 'n' && TOLOWER_ASC(what[3]) == 't')
- font = TRUE;
- else if (TOLOWER_ASC(what[0]) == 's' && TOLOWER_ASC(what[1]) == 'p')
- sp = TRUE;
- else if (!(TOLOWER_ASC(what[0]) == 'b' && TOLOWER_ASC(what[1]) == 'g'))
- return NULL;
- if (modec == 'g')
- {
-# if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
-# ifdef FEAT_GUI
- /* return font name */
- if (font)
- return HL_TABLE()[id - 1].sg_font_name;
-# endif
-
- /* return #RRGGBB form (only possible when GUI is running) */
- if ((USE_24BIT) && what[2] == '#')
- {
- guicolor_T color;
- long_u rgb;
- static char_u buf[10];
-
- if (fg)
- color = HL_TABLE()[id - 1].sg_gui_fg;
- else if (sp)
-# ifdef FEAT_GUI
- color = HL_TABLE()[id - 1].sg_gui_sp;
-# else
- color = INVALCOLOR;
-# endif
- else
- color = HL_TABLE()[id - 1].sg_gui_bg;
- if (color == INVALCOLOR)
- return NULL;
- rgb = (long_u)GUI_MCH_GET_RGB(color);
- sprintf((char *)buf, "#%02x%02x%02x",
- (unsigned)(rgb >> 16),
- (unsigned)(rgb >> 8) & 255,
- (unsigned)rgb & 255);
- return buf;
- }
-# endif
- if (fg)
- return (HL_TABLE()[id - 1].sg_gui_fg_name);
- if (sp)
- return (HL_TABLE()[id - 1].sg_gui_sp_name);
- return (HL_TABLE()[id - 1].sg_gui_bg_name);
- }
- if (font || sp)
- return NULL;
- if (modec == 'c')
- {
- if (fg)
- n = HL_TABLE()[id - 1].sg_cterm_fg - 1;
- else
- n = HL_TABLE()[id - 1].sg_cterm_bg - 1;
- if (n < 0)
- return NULL;
- sprintf((char *)name, "%d", n);
- return name;
- }
- /* term doesn't have color */
- return NULL;
-}
-#endif
-
-#if (defined(FEAT_SYN_HL) \
- && (defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)) \
- && defined(FEAT_PRINTER)) || defined(PROTO)
-/*
- * Return color name of highlight group "id" as RGB value.
- */
- long_u
-highlight_gui_color_rgb(
- int id,
- int fg) /* TRUE = fg, FALSE = bg */
-{
- guicolor_T color;
-
- if (id <= 0 || id > highlight_ga.ga_len)
- return 0L;
-
- if (fg)
- color = HL_TABLE()[id - 1].sg_gui_fg;
- else
- color = HL_TABLE()[id - 1].sg_gui_bg;
-
- if (color == INVALCOLOR)
- return 0L;
-
- return GUI_MCH_GET_RGB(color);
-}
-#endif
-
-/*
- * Output the syntax list header.
- * Return TRUE when started a new line.
- */
- static int
-syn_list_header(
- int did_header, /* did header already */
- int outlen, /* length of string that comes */
- int id) /* highlight group id */
-{
- int endcol = 19;
- int newline = TRUE;
- int name_col = 0;
-
- if (!did_header)
- {
- msg_putchar('\n');
- if (got_int)
- return TRUE;
- msg_outtrans(HL_TABLE()[id - 1].sg_name);
- name_col = msg_col;
- endcol = 15;
- }
- else if (msg_col + outlen + 1 >= Columns)
- {
- msg_putchar('\n');
- if (got_int)
- return TRUE;
- }
- else
- {
- if (msg_col >= endcol) /* wrap around is like starting a new line */
- newline = FALSE;
- }
-
- if (msg_col >= endcol) /* output at least one space */
- endcol = msg_col + 1;
- if (Columns <= endcol) /* avoid hang for tiny window */
- endcol = Columns - 1;
-
- msg_advance(endcol);
-
- /* Show "xxx" with the attributes. */
- if (!did_header)
- {
- if (endcol == Columns - 1 && endcol <= name_col)
- msg_putchar(' ');
- msg_puts_attr("xxx", syn_id2attr(id));
- msg_putchar(' ');
- }
-
- return newline;
-}
-
-/*
- * Set the attribute numbers for a highlight group.
- * Called after one of the attributes has changed.
- */
- static void
-set_hl_attr(
- int idx) /* index in array */
-{
- attrentry_T at_en;
- struct hl_group *sgp = HL_TABLE() + idx;
-
- /* The "Normal" group doesn't need an attribute number */
- if (sgp->sg_name_u != NULL && STRCMP(sgp->sg_name_u, "NORMAL") == 0)
- return;
-
-#ifdef FEAT_GUI
- /*
- * For the GUI mode: If there are other than "normal" highlighting
- * attributes, need to allocate an attr number.
- */
- if (sgp->sg_gui_fg == INVALCOLOR
- && sgp->sg_gui_bg == INVALCOLOR
- && sgp->sg_gui_sp == INVALCOLOR
- && sgp->sg_font == NOFONT
-# ifdef FEAT_XFONTSET
- && sgp->sg_fontset == NOFONTSET
-# endif
- )
- {
- sgp->sg_gui_attr = sgp->sg_gui;
- }
- else
- {
- at_en.ae_attr = sgp->sg_gui;
- at_en.ae_u.gui.fg_color = sgp->sg_gui_fg;
- at_en.ae_u.gui.bg_color = sgp->sg_gui_bg;
- at_en.ae_u.gui.sp_color = sgp->sg_gui_sp;
- at_en.ae_u.gui.font = sgp->sg_font;
-# ifdef FEAT_XFONTSET
- at_en.ae_u.gui.fontset = sgp->sg_fontset;
-# endif
- sgp->sg_gui_attr = get_attr_entry(&gui_attr_table, &at_en);
- }
-#endif
- /*
- * For the term mode: If there are other than "normal" highlighting
- * attributes, need to allocate an attr number.
- */
- if (sgp->sg_start == NULL && sgp->sg_stop == NULL)
- sgp->sg_term_attr = sgp->sg_term;
- else
- {
- at_en.ae_attr = sgp->sg_term;
- at_en.ae_u.term.start = sgp->sg_start;
- at_en.ae_u.term.stop = sgp->sg_stop;
- sgp->sg_term_attr = get_attr_entry(&term_attr_table, &at_en);
- }
-
- /*
- * For the color term mode: If there are other than "normal"
- * highlighting attributes, need to allocate an attr number.
- */
- if (sgp->sg_cterm_fg == 0 && sgp->sg_cterm_bg == 0
-# ifdef FEAT_TERMGUICOLORS
- && sgp->sg_gui_fg == INVALCOLOR
- && sgp->sg_gui_bg == INVALCOLOR
-# endif
- )
- sgp->sg_cterm_attr = sgp->sg_cterm;
- else
- {
- at_en.ae_attr = sgp->sg_cterm;
- at_en.ae_u.cterm.fg_color = sgp->sg_cterm_fg;
- at_en.ae_u.cterm.bg_color = sgp->sg_cterm_bg;
-# ifdef FEAT_TERMGUICOLORS
-# ifdef MSWIN
-# ifdef VIMDLL
- // Only when not using the GUI.
- if (!gui.in_use && !gui.starting)
-# endif
- {
- int id;
- guicolor_T fg, bg;
-
- id = syn_name2id((char_u *)"Normal");
- if (id > 0)
- {
- syn_id2colors(id, &fg, &bg);
- if (sgp->sg_gui_fg == INVALCOLOR)
- sgp->sg_gui_fg = fg;
- if (sgp->sg_gui_bg == INVALCOLOR)
- sgp->sg_gui_bg = bg;
- }
-
- }
-# endif
- at_en.ae_u.cterm.fg_rgb = GUI_MCH_GET_RGB2(sgp->sg_gui_fg);
- at_en.ae_u.cterm.bg_rgb = GUI_MCH_GET_RGB2(sgp->sg_gui_bg);
- if (at_en.ae_u.cterm.fg_rgb == INVALCOLOR
- && at_en.ae_u.cterm.bg_rgb == INVALCOLOR)
- {
- /* If both fg and bg are invalid fall back to the cterm colors.
- * Helps when the GUI only uses an attribute, e.g. undercurl. */
- at_en.ae_u.cterm.fg_rgb = CTERMCOLOR;
- at_en.ae_u.cterm.bg_rgb = CTERMCOLOR;
- }
-# endif
- sgp->sg_cterm_attr = get_attr_entry(&cterm_attr_table, &at_en);
- }
-}
-
-/*
- * Lookup a highlight group name and return its ID.
- * If it is not found, 0 is returned.
- */
- int
-syn_name2id(char_u *name)
-{
- int i;
- char_u name_u[200];
-
- /* Avoid using stricmp() too much, it's slow on some systems */
- /* Avoid alloc()/free(), these are slow too. ID names over 200 chars
- * don't deserve to be found! */
- vim_strncpy(name_u, name, 199);
- vim_strup(name_u);
- for (i = highlight_ga.ga_len; --i >= 0; )
- if (HL_TABLE()[i].sg_name_u != NULL
- && STRCMP(name_u, HL_TABLE()[i].sg_name_u) == 0)
- break;
- return i + 1;
-}
-
-/*
- * Lookup a highlight group name and return its attributes.
- * Return zero if not found.
- */
- int
-syn_name2attr(char_u *name)
-{
- int id = syn_name2id(name);
-
- if (id != 0)
- return syn_id2attr(id);
- return 0;
-}
-
-#if defined(FEAT_EVAL) || defined(PROTO)
-/*
- * Return TRUE if highlight group "name" exists.
- */
- int
-highlight_exists(char_u *name)
-{
- return (syn_name2id(name) > 0);
-}
-
-# if defined(FEAT_SEARCH_EXTRA) || defined(PROTO)
-/*
- * Return the name of highlight group "id".
- * When not a valid ID return an empty string.
- */
- char_u *
-syn_id2name(int id)
-{
- if (id <= 0 || id > highlight_ga.ga_len)
- return (char_u *)"";
- return HL_TABLE()[id - 1].sg_name;
-}
-# endif
-#endif
-
-/*
- * Like syn_name2id(), but take a pointer + length argument.
- */
- int
-syn_namen2id(char_u *linep, int len)
-{
- char_u *name;
- int id = 0;
-
- name = vim_strnsave(linep, len);
- if (name != NULL)
- {
- id = syn_name2id(name);
- vim_free(name);
- }
- return id;
-}
-
-/*
- * Find highlight group name in the table and return its ID.
- * The argument is a pointer to the name and the length of the name.
- * If it doesn't exist yet, a new entry is created.
- * Return 0 for failure.
- */
- int
-syn_check_group(char_u *pp, int len)
-{
- int id;
- char_u *name;
-
- name = vim_strnsave(pp, len);
- if (name == NULL)
- return 0;
-
- id = syn_name2id(name);
- if (id == 0) /* doesn't exist yet */
- id = syn_add_group(name);
- else
- vim_free(name);
- return id;
-}
-
-/*
- * Add new highlight group and return its ID.
- * "name" must be an allocated string, it will be consumed.
- * Return 0 for failure.
- */
- static int
-syn_add_group(char_u *name)
-{
- char_u *p;
-
- /* Check that the name is ASCII letters, digits and underscore. */
- for (p = name; *p != NUL; ++p)
- {
- if (!vim_isprintc(*p))
- {
- emsg(_("E669: Unprintable character in group name"));
- vim_free(name);
- return 0;
- }
- else if (!ASCII_ISALNUM(*p) && *p != '_')
- {
- /* This is an error, but since there previously was no check only
- * give a warning. */
- msg_source(HL_ATTR(HLF_W));
- msg(_("W18: Invalid character in group name"));
- break;
- }
- }
-
- /*
- * First call for this growarray: init growing array.
- */
- if (highlight_ga.ga_data == NULL)
- {
- highlight_ga.ga_itemsize = sizeof(struct hl_group);
- highlight_ga.ga_growsize = 10;
- }
-
- if (highlight_ga.ga_len >= MAX_HL_ID)
- {
- emsg(_("E849: Too many highlight and syntax groups"));
- vim_free(name);
- return 0;
- }
-
- /*
- * Make room for at least one other syntax_highlight entry.
- */
- if (ga_grow(&highlight_ga, 1) == FAIL)
- {
- vim_free(name);
- return 0;
- }
-
- vim_memset(&(HL_TABLE()[highlight_ga.ga_len]), 0, sizeof(struct hl_group));
- HL_TABLE()[highlight_ga.ga_len].sg_name = name;
- HL_TABLE()[highlight_ga.ga_len].sg_name_u = vim_strsave_up(name);
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS)
- HL_TABLE()[highlight_ga.ga_len].sg_gui_bg = INVALCOLOR;
- HL_TABLE()[highlight_ga.ga_len].sg_gui_fg = INVALCOLOR;
-# ifdef FEAT_GUI
- HL_TABLE()[highlight_ga.ga_len].sg_gui_sp = INVALCOLOR;
-# endif
-#endif
- ++highlight_ga.ga_len;
-
- return highlight_ga.ga_len; /* ID is index plus one */
-}
-
-/*
- * When, just after calling syn_add_group(), an error is discovered, this
- * function deletes the new name.
- */
- static void
-syn_unadd_group(void)
-{
- --highlight_ga.ga_len;
- vim_free(HL_TABLE()[highlight_ga.ga_len].sg_name);
- vim_free(HL_TABLE()[highlight_ga.ga_len].sg_name_u);
-}
-
-/*
- * Translate a group ID to highlight attributes.
- */
- int
-syn_id2attr(int hl_id)
-{
- int attr;
- struct hl_group *sgp;
-
- hl_id = syn_get_final_id(hl_id);
- sgp = &HL_TABLE()[hl_id - 1]; /* index is ID minus one */
-
-#ifdef FEAT_GUI
- /*
- * Only use GUI attr when the GUI is being used.
- */
- if (gui.in_use)
- attr = sgp->sg_gui_attr;
- else
-#endif
- if (IS_CTERM)
- attr = sgp->sg_cterm_attr;
- else
- attr = sgp->sg_term_attr;
-
- return attr;
-}
-
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
-/*
- * Get the GUI colors and attributes for a group ID.
- * NOTE: the colors will be INVALCOLOR when not set, the color otherwise.
- */
- int
-syn_id2colors(int hl_id, guicolor_T *fgp, guicolor_T *bgp)
-{
- struct hl_group *sgp;
-
- hl_id = syn_get_final_id(hl_id);
- sgp = &HL_TABLE()[hl_id - 1]; /* index is ID minus one */
-
- *fgp = sgp->sg_gui_fg;
- *bgp = sgp->sg_gui_bg;
- return sgp->sg_gui;
-}
-#endif
-
-#if (defined(MSWIN) \
- && (!defined(FEAT_GUI_MSWIN) || defined(VIMDLL)) \
- && defined(FEAT_TERMGUICOLORS)) || defined(PROTO)
- void
-syn_id2cterm_bg(int hl_id, int *fgp, int *bgp)
-{
- struct hl_group *sgp;
-
- hl_id = syn_get_final_id(hl_id);
- sgp = &HL_TABLE()[hl_id - 1]; /* index is ID minus one */
- *fgp = sgp->sg_cterm_fg - 1;
- *bgp = sgp->sg_cterm_bg - 1;
-}
-#endif
-
-/*
- * Translate a group ID to the final group ID (following links).
- */
- int
-syn_get_final_id(int hl_id)
-{
- int count;
- struct hl_group *sgp;
-
- if (hl_id > highlight_ga.ga_len || hl_id < 1)
- return 0; /* Can be called from eval!! */
-
- /*
- * Follow links until there is no more.
- * Look out for loops! Break after 100 links.
- */
- for (count = 100; --count >= 0; )
- {
- sgp = &HL_TABLE()[hl_id - 1]; /* index is ID minus one */
- if (sgp->sg_link == 0 || sgp->sg_link > highlight_ga.ga_len)
- break;
- hl_id = sgp->sg_link;
- }
-
- return hl_id;
-}
-
-#if defined(FEAT_GUI) || defined(FEAT_TERMGUICOLORS) || defined(PROTO)
-/*
- * Call this function just after the GUI has started.
- * Also called when 'termguicolors' was set, gui.in_use will be FALSE then.
- * It finds the font and color handles for the highlighting groups.
- */
- void
-highlight_gui_started(void)
-{
- int idx;
-
- /* First get the colors from the "Normal" and "Menu" group, if set */
- if (USE_24BIT)
- set_normal_colors();
-
- for (idx = 0; idx < highlight_ga.ga_len; ++idx)
- gui_do_one_color(idx, FALSE, FALSE);
-
- highlight_changed();
-}
-
- static void
-gui_do_one_color(
- int idx,
- int do_menu UNUSED, /* TRUE: might set the menu font */
- int do_tooltip UNUSED) /* TRUE: might set the tooltip font */
-{
- int didit = FALSE;
-
-# ifdef FEAT_GUI
-# ifdef FEAT_TERMGUICOLORS
- if (gui.in_use)
-# endif
- if (HL_TABLE()[idx].sg_font_name != NULL)
- {
- hl_do_font(idx, HL_TABLE()[idx].sg_font_name, FALSE, do_menu,
- do_tooltip, TRUE);
- didit = TRUE;
- }
-# endif
- if (HL_TABLE()[idx].sg_gui_fg_name != NULL)
- {
- HL_TABLE()[idx].sg_gui_fg =
- color_name2handle(HL_TABLE()[idx].sg_gui_fg_name);
- didit = TRUE;
- }
- if (HL_TABLE()[idx].sg_gui_bg_name != NULL)
- {
- HL_TABLE()[idx].sg_gui_bg =
- color_name2handle(HL_TABLE()[idx].sg_gui_bg_name);
- didit = TRUE;
- }
-# ifdef FEAT_GUI
- if (HL_TABLE()[idx].sg_gui_sp_name != NULL)
- {
- HL_TABLE()[idx].sg_gui_sp =
- color_name2handle(HL_TABLE()[idx].sg_gui_sp_name);
- didit = TRUE;
- }
-# endif
- if (didit) /* need to get a new attr number */
- set_hl_attr(idx);
-}
-#endif
-
-#if defined(USER_HIGHLIGHT) && defined(FEAT_STL_OPT)
-/*
- * Apply difference between User[1-9] and HLF_S to HLF_SNC, HLF_ST or HLF_STNC.
- */
- static void
-combine_stl_hlt(
- int id,
- int id_S,
- int id_alt,
- int hlcnt,
- int i,
- int hlf,
- int *table)
-{
- struct hl_group *hlt = HL_TABLE();
-
- if (id_alt == 0)
- {
- vim_memset(&hlt[hlcnt + i], 0, sizeof(struct hl_group));
- hlt[hlcnt + i].sg_term = highlight_attr[hlf];
- hlt[hlcnt + i].sg_cterm = highlight_attr[hlf];
-# if defined(FEAT_GUI) || defined(FEAT_EVAL)
- hlt[hlcnt + i].sg_gui = highlight_attr[hlf];
-# endif
- }
- else
- mch_memmove(&hlt[hlcnt + i],
- &hlt[id_alt - 1],
- sizeof(struct hl_group));
- hlt[hlcnt + i].sg_link = 0;
-
- hlt[hlcnt + i].sg_term ^=
- hlt[id - 1].sg_term ^ hlt[id_S - 1].sg_term;
- if (hlt[id - 1].sg_start != hlt[id_S - 1].sg_start)
- hlt[hlcnt + i].sg_start = hlt[id - 1].sg_start;
- if (hlt[id - 1].sg_stop != hlt[id_S - 1].sg_stop)
- hlt[hlcnt + i].sg_stop = hlt[id - 1].sg_stop;
- hlt[hlcnt + i].sg_cterm ^=
- hlt[id - 1].sg_cterm ^ hlt[id_S - 1].sg_cterm;
- if (hlt[id - 1].sg_cterm_fg != hlt[id_S - 1].sg_cterm_fg)
- hlt[hlcnt + i].sg_cterm_fg = hlt[id - 1].sg_cterm_fg;
- if (hlt[id - 1].sg_cterm_bg != hlt[id_S - 1].sg_cterm_bg)
- hlt[hlcnt + i].sg_cterm_bg = hlt[id - 1].sg_cterm_bg;
-# if defined(FEAT_GUI) || defined(FEAT_EVAL)
- hlt[hlcnt + i].sg_gui ^=
- hlt[id - 1].sg_gui ^ hlt[id_S - 1].sg_gui;
-# endif
-# ifdef FEAT_GUI
- if (hlt[id - 1].sg_gui_fg != hlt[id_S - 1].sg_gui_fg)
- hlt[hlcnt + i].sg_gui_fg = hlt[id - 1].sg_gui_fg;
- if (hlt[id - 1].sg_gui_bg != hlt[id_S - 1].sg_gui_bg)
- hlt[hlcnt + i].sg_gui_bg = hlt[id - 1].sg_gui_bg;
- if (hlt[id - 1].sg_gui_sp != hlt[id_S - 1].sg_gui_sp)
- hlt[hlcnt + i].sg_gui_sp = hlt[id - 1].sg_gui_sp;
- if (hlt[id - 1].sg_font != hlt[id_S - 1].sg_font)
- hlt[hlcnt + i].sg_font = hlt[id - 1].sg_font;
-# ifdef FEAT_XFONTSET
- if (hlt[id - 1].sg_fontset != hlt[id_S - 1].sg_fontset)
- hlt[hlcnt + i].sg_fontset = hlt[id - 1].sg_fontset;
-# endif
-# endif
- highlight_ga.ga_len = hlcnt + i + 1;
- set_hl_attr(hlcnt + i); /* At long last we can apply */
- table[i] = syn_id2attr(hlcnt + i + 1);
-}
-#endif
-
-/*
- * Translate the 'highlight' option into attributes in highlight_attr[] and
- * set up the user highlights User1..9. If FEAT_STL_OPT is in use, a set of
- * corresponding highlights to use on top of HLF_SNC is computed.
- * Called only when the 'highlight' option has been changed and upon first
- * screen redraw after any :highlight command.
- * Return FAIL when an invalid flag is found in 'highlight'. OK otherwise.
- */
- int
-highlight_changed(void)
-{
- int hlf;
- int i;
- char_u *p;
- int attr;
- char_u *end;
- int id;
-#ifdef USER_HIGHLIGHT
- char_u userhl[30]; // use 30 to avoid compiler warning
-# ifdef FEAT_STL_OPT
- int id_S = -1;
- int id_SNC = 0;
-# ifdef FEAT_TERMINAL
- int id_ST = 0;
- int id_STNC = 0;
-# endif
- int hlcnt;
-# endif
-#endif
- static int hl_flags[HLF_COUNT] = HL_FLAGS;
-
- need_highlight_changed = FALSE;
-
- /*
- * Clear all attributes.
- */
- for (hlf = 0; hlf < (int)HLF_COUNT; ++hlf)
- highlight_attr[hlf] = 0;
-
- /*
- * First set all attributes to their default value.
- * Then use the attributes from the 'highlight' option.
- */
- for (i = 0; i < 2; ++i)
- {
- if (i)
- p = p_hl;
- else
- p = get_highlight_default();
- if (p == NULL) /* just in case */
- continue;
-
- while (*p)
- {
- for (hlf = 0; hlf < (int)HLF_COUNT; ++hlf)
- if (hl_flags[hlf] == *p)
- break;
- ++p;
- if (hlf == (int)HLF_COUNT || *p == NUL)
- return FAIL;
-
- /*
- * Allow several hl_flags to be combined, like "bu" for
- * bold-underlined.
- */
- attr = 0;
- for ( ; *p && *p != ','; ++p) /* parse upto comma */
- {
- if (VIM_ISWHITE(*p)) /* ignore white space */
- continue;
-
- if (attr > HL_ALL) /* Combination with ':' is not allowed. */
- return FAIL;
-
- switch (*p)
- {
- case 'b': attr |= HL_BOLD;
- break;
- case 'i': attr |= HL_ITALIC;
- break;
- case '-':
- case 'n': /* no highlighting */
- break;
- case 'r': attr |= HL_INVERSE;
- break;
- case 's': attr |= HL_STANDOUT;
- break;
- case 'u': attr |= HL_UNDERLINE;
- break;
- case 'c': attr |= HL_UNDERCURL;
- break;
- case 't': attr |= HL_STRIKETHROUGH;
- break;
- case ':': ++p; /* highlight group name */
- if (attr || *p == NUL) /* no combinations */
- return FAIL;
- end = vim_strchr(p, ',');
- if (end == NULL)
- end = p + STRLEN(p);
- id = syn_check_group(p, (int)(end - p));
- if (id == 0)
- return FAIL;
- attr = syn_id2attr(id);
- p = end - 1;
-#if defined(FEAT_STL_OPT) && defined(USER_HIGHLIGHT)
- if (hlf == (int)HLF_SNC)
- id_SNC = syn_get_final_id(id);
-# ifdef FEAT_TERMINAL
- else if (hlf == (int)HLF_ST)
- id_ST = syn_get_final_id(id);
- else if (hlf == (int)HLF_STNC)
- id_STNC = syn_get_final_id(id);
-# endif
- else if (hlf == (int)HLF_S)
- id_S = syn_get_final_id(id);
-#endif
- break;
- default: return FAIL;
- }
- }
- highlight_attr[hlf] = attr;
-
- p = skip_to_option_part(p); /* skip comma and spaces */
- }
- }
-
-#ifdef USER_HIGHLIGHT
- /* Setup the user highlights
- *
- * Temporarily utilize 28 more hl entries:
- * 9 for User1-User9 combined with StatusLineNC
- * 9 for User1-User9 combined with StatusLineTerm
- * 9 for User1-User9 combined with StatusLineTermNC
- * 1 for StatusLine default
- * Have to be in there simultaneously in case of table overflows in
- * get_attr_entry()
- */
-# ifdef FEAT_STL_OPT
- if (ga_grow(&highlight_ga, 28) == FAIL)
- return FAIL;
- hlcnt = highlight_ga.ga_len;
- if (id_S == -1)
- {
- /* Make sure id_S is always valid to simplify code below. Use the last
- * entry. */
- vim_memset(&HL_TABLE()[hlcnt + 27], 0, sizeof(struct hl_group));
- HL_TABLE()[hlcnt + 18].sg_term = highlight_attr[HLF_S];
- id_S = hlcnt + 19;
- }
-# endif
- for (i = 0; i < 9; i++)
- {
- sprintf((char *)userhl, "User%d", i + 1);
- id = syn_name2id(userhl);
- if (id == 0)
- {
- highlight_user[i] = 0;
-# ifdef FEAT_STL_OPT
- highlight_stlnc[i] = 0;
-# ifdef FEAT_TERMINAL
- highlight_stlterm[i] = 0;
- highlight_stltermnc[i] = 0;
-# endif
-# endif
- }
- else
- {
- highlight_user[i] = syn_id2attr(id);
-# ifdef FEAT_STL_OPT
- combine_stl_hlt(id, id_S, id_SNC, hlcnt, i,
- HLF_SNC, highlight_stlnc);
-# ifdef FEAT_TERMINAL
- combine_stl_hlt(id, id_S, id_ST, hlcnt + 9, i,
- HLF_ST, highlight_stlterm);
- combine_stl_hlt(id, id_S, id_STNC, hlcnt + 18, i,
- HLF_STNC, highlight_stltermnc);
-# endif
-# endif
- }
- }
-# ifdef FEAT_STL_OPT
- highlight_ga.ga_len = hlcnt;
-# endif
-
-#endif /* USER_HIGHLIGHT */
-
- return OK;
-}
-
-#if defined(FEAT_CMDL_COMPL) || defined(PROTO)
-
-static void highlight_list(void);
-static void highlight_list_two(int cnt, int attr);
-
-/*
- * Handle command line completion for :highlight command.
- */
- void
-set_context_in_highlight_cmd(expand_T *xp, char_u *arg)
-{
- char_u *p;
-
- /* Default: expand group names */
- xp->xp_context = EXPAND_HIGHLIGHT;
- xp->xp_pattern = arg;
- include_link = 2;
- include_default = 1;
-
- /* (part of) subcommand already typed */
- if (*arg != NUL)
- {
- p = skiptowhite(arg);
- if (*p != NUL) /* past "default" or group name */
- {
- include_default = 0;
- if (STRNCMP("default", arg, p - arg) == 0)
- {
- arg = skipwhite(p);
- xp->xp_pattern = arg;
- p = skiptowhite(arg);
- }
- if (*p != NUL) /* past group name */
- {
- include_link = 0;
- if (arg[1] == 'i' && arg[0] == 'N')
- highlight_list();
- if (STRNCMP("link", arg, p - arg) == 0
- || STRNCMP("clear", arg, p - arg) == 0)
- {
- xp->xp_pattern = skipwhite(p);
- p = skiptowhite(xp->xp_pattern);
- if (*p != NUL) /* past first group name */
- {
- xp->xp_pattern = skipwhite(p);
- p = skiptowhite(xp->xp_pattern);
- }
- }
- if (*p != NUL) /* past group name(s) */
- xp->xp_context = EXPAND_NOTHING;
- }
- }
- }
-}
-
-/*
- * List highlighting matches in a nice way.
- */
- static void
-highlight_list(void)
-{
- int i;
-
- for (i = 10; --i >= 0; )
- highlight_list_two(i, HL_ATTR(HLF_D));
- for (i = 40; --i >= 0; )
- highlight_list_two(99, 0);
-}
-
- static void
-highlight_list_two(int cnt, int attr)
-{
- msg_puts_attr(&("N \bI \b! \b"[cnt / 11]), attr);
- msg_clr_eos();
- out_flush();
- ui_delay(cnt == 99 ? 40L : (long)cnt * 50L, FALSE);
-}
-
-#endif /* FEAT_CMDL_COMPL */
-
-#if defined(FEAT_CMDL_COMPL) || (defined(FEAT_SYN_HL) && defined(FEAT_EVAL)) \
- || defined(FEAT_SIGNS) || defined(PROTO)
-/*
- * Function given to ExpandGeneric() to obtain the list of group names.
- */
- char_u *
-get_highlight_name(expand_T *xp UNUSED, int idx)
-{
- return get_highlight_name_ext(xp, idx, TRUE);
-}
-
-/*
- * Obtain a highlight group name.
- * When "skip_cleared" is TRUE don't return a cleared entry.
- */
- char_u *
-get_highlight_name_ext(expand_T *xp UNUSED, int idx, int skip_cleared)
-{
- if (idx < 0)
- return NULL;
-
- /* Items are never removed from the table, skip the ones that were
- * cleared. */
- if (skip_cleared && idx < highlight_ga.ga_len && HL_TABLE()[idx].sg_cleared)
- return (char_u *)"";
-
-#ifdef FEAT_CMDL_COMPL
- if (idx == highlight_ga.ga_len && include_none != 0)
- return (char_u *)"none";
- if (idx == highlight_ga.ga_len + include_none && include_default != 0)
- return (char_u *)"default";
- if (idx == highlight_ga.ga_len + include_none + include_default
- && include_link != 0)
- return (char_u *)"link";
- if (idx == highlight_ga.ga_len + include_none + include_default + 1
- && include_link != 0)
- return (char_u *)"clear";
-#endif
- if (idx >= highlight_ga.ga_len)
- return NULL;
- return HL_TABLE()[idx].sg_name;
-}
-#endif
-
-#if defined(FEAT_GUI) || defined(PROTO)
-/*
- * Free all the highlight group fonts.
- * Used when quitting for systems which need it.
- */
- void
-free_highlight_fonts(void)
-{
- int idx;
-
- for (idx = 0; idx < highlight_ga.ga_len; ++idx)
- {
- gui_mch_free_font(HL_TABLE()[idx].sg_font);
- HL_TABLE()[idx].sg_font = NOFONT;
-# ifdef FEAT_XFONTSET
- gui_mch_free_fontset(HL_TABLE()[idx].sg_fontset);
- HL_TABLE()[idx].sg_fontset = NOFONTSET;
-# endif
- }
-
- gui_mch_free_font(gui.norm_font);
-# ifdef FEAT_XFONTSET
- gui_mch_free_fontset(gui.fontset);
-# endif
-# ifndef FEAT_GUI_GTK
- gui_mch_free_font(gui.bold_font);
- gui_mch_free_font(gui.ital_font);
- gui_mch_free_font(gui.boldital_font);
-# endif
-}
-#endif
-
-/**************************************
- * End of Highlighting stuff *
- **************************************/
static int included_patches[] =
{ /* Add new patch number below this line */
+/**/
+ 1693,
/**/
1692,
/**/
projects / vim / commitdiff