To: vim_dev@googlegroups.com Subject: Patch 8.1.1693 Fcc: outbox From: Bram Moolenaar Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit ------------ Patch 8.1.1693 Problem: Syntax coloring and highlighting is in one big file. Solution: Move the highlighting to a separate file. (Yegappan Lakshmanan, closes #4674) Files: Filelist, src/Make_cyg_ming.mak, src/Make_morph.mak, src/Make_mvc.mak, src/Make_vms.mms, src/Makefile, src/README.md, src/globals.h, src/highlight.c, src/proto.h, src/proto/highlight.pro, src/proto/syntax.pro, src/structs.h, src/syntax.c *** ../vim-8.1.1692/Filelist 2019-07-14 15:09:52.298899047 +0200 --- Filelist 2019-07-14 20:29:14.915796714 +0200 *************** *** 50,55 **** --- 50,56 ---- src/gui_beval.c \ src/hardcopy.c \ src/hashtab.c \ + src/highlight.c \ src/indent.c \ src/insexpand.c \ src/json.c \ *************** *** 190,195 **** --- 191,197 ---- 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 \ *** ../vim-8.1.1692/src/Make_cyg_ming.mak 2019-07-14 14:55:20.372881409 +0200 --- src/Make_cyg_ming.mak 2019-07-14 20:29:14.915796714 +0200 *************** *** 730,735 **** --- 730,736 ---- $(OUTDIR)/getchar.o \ $(OUTDIR)/hardcopy.o \ $(OUTDIR)/hashtab.o \ + $(OUTDIR)/highlight.o \ $(OUTDIR)/indent.o \ $(OUTDIR)/insexpand.o \ $(OUTDIR)/json.o \ *** ../vim-8.1.1692/src/Make_morph.mak 2019-07-14 14:55:20.372881409 +0200 --- src/Make_morph.mak 2019-07-14 20:29:14.915796714 +0200 *************** *** 50,55 **** --- 50,56 ---- getchar.c \ hardcopy.c \ hashtab.c \ + highlight.c \ indent.c \ insexpand.c \ json.c \ *** ../vim-8.1.1692/src/Make_mvc.mak 2019-07-14 14:55:20.372881409 +0200 --- src/Make_mvc.mak 2019-07-14 20:29:14.915796714 +0200 *************** *** 739,744 **** --- 739,745 ---- $(OUTDIR)\getchar.obj \ $(OUTDIR)\hardcopy.obj \ $(OUTDIR)\hashtab.obj \ + $(OUTDIR)\highlight.obj \ $(OUTDIR)\indent.obj \ $(OUTDIR)\insexpand.obj \ $(OUTDIR)\json.obj \ *************** *** 1487,1492 **** --- 1488,1495 ---- $(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) *************** *** 1747,1752 **** --- 1750,1756 ---- proto/getchar.pro \ proto/hardcopy.pro \ proto/hashtab.pro \ + proto/highlight.pro \ proto/indent.pro \ proto/insexpand.pro \ proto/json.pro \ *** ../vim-8.1.1692/src/Make_vms.mms 2019-07-14 14:55:20.372881409 +0200 --- src/Make_vms.mms 2019-07-14 20:29:14.915796714 +0200 *************** *** 311,322 **** 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 \ $(GUI_SRC) $(PERL_SRC) $(PYTHON_SRC) $(TCL_SRC) \ $(RUBY_SRC) $(HANGULIN_SRC) $(MZSCH_SRC) $(XDIFF_SRC) --- 311,323 ---- 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 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) *************** *** 325,338 **** 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 \ $(GUI_OBJ) $(PERL_OBJ) $(PYTHON_OBJ) $(TCL_OBJ) \ $(RUBY_OBJ) $(HANGULIN_OBJ) $(MZSCH_OBJ) $(XDIFF_OBJ) --- 326,339 ---- 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 \ ! 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) *************** *** 599,604 **** --- 600,609 ---- 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 \ *** ../vim-8.1.1692/src/Makefile 2019-07-14 14:55:20.372881409 +0200 --- src/Makefile 2019-07-14 20:29:14.915796714 +0200 *************** *** 1604,1609 **** --- 1604,1610 ---- getchar.c \ hardcopy.c \ hashtab.c \ + highlight.c \ if_cscope.c \ if_xcmdsrv.c \ indent.c \ *************** *** 1725,1730 **** --- 1726,1732 ---- objects/getchar.o \ objects/hardcopy.o \ objects/hashtab.o \ + objects/highlight.o \ $(HANGULIN_OBJ) \ objects/if_cscope.o \ objects/if_xcmdsrv.o \ *************** *** 1860,1865 **** --- 1862,1868 ---- hardcopy.pro \ hashtab.pro \ hangulin.pro \ + highlight.pro \ if_cscope.pro \ if_lua.pro \ if_mzsch.pro \ *************** *** 3103,3108 **** --- 3106,3114 ---- 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 *************** *** 3554,3559 **** --- 3560,3569 ---- 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 \ *** ../vim-8.1.1692/src/README.md 2019-07-14 14:55:20.372881409 +0200 --- src/README.md 2019-07-14 20:29:14.915796714 +0200 *************** *** 34,39 **** --- 34,40 ---- 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 *** ../vim-8.1.1692/src/globals.h 2019-07-13 22:59:06.922076875 +0200 --- src/globals.h 2019-07-14 20:45:12.854986353 +0200 *************** *** 355,360 **** --- 355,370 ---- 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 *** ../vim-8.1.1692/src/highlight.c 2019-07-14 21:28:17.359155673 +0200 --- src/highlight.c 2019-07-14 20:44:55.623098541 +0200 *************** *** 0 **** --- 1,3575 ---- + /* 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 *** ../vim-8.1.1692/src/proto.h 2019-07-14 14:55:20.372881409 +0200 --- src/proto.h 2019-07-14 20:29:14.919796698 +0200 *************** *** 89,94 **** --- 89,95 ---- # endif # include "hardcopy.pro" # include "hashtab.pro" + # include "highlight.pro" # include "indent.pro" # ifdef FEAT_INS_EXPAND # include "insexpand.pro" *** ../vim-8.1.1692/src/proto/highlight.pro 2019-07-14 21:28:17.367155642 +0200 --- src/proto/highlight.pro 2019-07-14 20:29:14.919796698 +0200 *************** *** 0 **** --- 1,43 ---- + /* 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 : */ *** ../vim-8.1.1692/src/proto/syntax.pro 2018-05-17 13:52:52.000000000 +0200 --- src/proto/syntax.pro 2019-07-14 20:29:14.919796698 +0200 *************** *** 22,65 **** 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 : */ --- 22,25 ---- *** ../vim-8.1.1692/src/structs.h 2019-07-14 15:48:35.245984506 +0200 --- src/structs.h 2019-07-14 20:45:24.214912974 +0200 *************** *** 1000,1005 **** --- 1000,1057 ---- #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. */ typedef struct attr_entry *** ../vim-8.1.1692/src/syntax.c 2019-07-12 17:57:54.840524014 +0200 --- src/syntax.c 2019-07-14 20:29:14.919796698 +0200 *************** *** 13,118 **** #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 */ --- 13,18 ---- *************** *** 6811,10350 **** #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 * - **************************************/ --- 6711,6713 ---- *** ../vim-8.1.1692/src/version.c 2019-07-14 18:22:53.793088979 +0200 --- src/version.c 2019-07-14 20:30:42.827459572 +0200 *************** *** 779,780 **** --- 779,782 ---- { /* Add new patch number below this line */ + /**/ + 1693, /**/ -- Lose weight, NEVER Diet again with The "Invisible Weight Loss Patch" (spam e-mail) /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ \\\ an exciting new programming language -- http://www.Zimbu.org /// \\\ help me help AIDS victims -- http://ICCF-Holland.org ///