| " Vim syntax file |
| " Language: Lex |
| " Maintainer: Charles E. Campbell <NdrOchipS@PcampbellAfamily.Mbiz> |
| " Last Change: Nov 14, 2012 |
| " Version: 14 |
| " URL: http://mysite.verizon.net/astronaut/vim/index.html#vimlinks_syntax |
| " |
| " Option: |
| " lex_uses_cpp : if this variable exists, then C++ is loaded rather than C |
| |
| " For version 5.x: Clear all syntax items |
| " For version 6.x: Quit when a syntax file was already loaded |
| if version < 600 |
| syntax clear |
| elseif exists("b:current_syntax") |
| finish |
| endif |
| |
| " Read the C/C++ syntax to start with |
| let s:Cpath= fnameescape(expand("<sfile>:p:h").(exists("g:lex_uses_cpp")? "/cpp.vim" : "/c.vim")) |
| if !filereadable(s:Cpath) |
| for s:Cpath in split(globpath(&rtp,(exists("g:lex_uses_cpp")? "syntax/cpp.vim" : "syntax/c.vim")),"\n") |
| if filereadable(fnameescape(s:Cpath)) |
| let s:Cpath= fnameescape(s:Cpath) |
| break |
| endif |
| endfor |
| endif |
| exe "syn include @lexCcode ".s:Cpath |
| |
| " --- ========= --- |
| " --- Lex stuff --- |
| " --- ========= --- |
| |
| " Options Section |
| syn match lexOptions '^%\s*option\>.*$' contains=lexPatString |
| |
| " Abbreviations Section |
| if has("folding") |
| syn region lexAbbrvBlock fold start="^\(\h\+\s\|%{\)" end="^\ze%%$" skipnl nextgroup=lexPatBlock contains=lexAbbrv,lexInclude,lexAbbrvComment,lexStartState |
| else |
| syn region lexAbbrvBlock start="^\(\h\+\s\|%{\)" end="^\ze%%$" skipnl nextgroup=lexPatBlock contains=lexAbbrv,lexInclude,lexAbbrvComment,lexStartState |
| endif |
| syn match lexAbbrv "^\I\i*\s"me=e-1 skipwhite contained nextgroup=lexAbbrvRegExp |
| syn match lexAbbrv "^%[sx]" contained |
| syn match lexAbbrvRegExp "\s\S.*$"lc=1 contained nextgroup=lexAbbrv,lexInclude |
| if has("folding") |
| syn region lexInclude fold matchgroup=lexSep start="^%{" end="%}" contained contains=@lexCcode |
| syn region lexAbbrvComment fold start="^\s\+/\*" end="\*/" contains=@Spell |
| syn region lexAbbrvComment fold start="\%^/\*" end="\*/" contains=@Spell |
| syn region lexStartState fold matchgroup=lexAbbrv start="^%\a\+" end="$" contained |
| else |
| syn region lexInclude matchgroup=lexSep start="^%{" end="%}" contained contains=@lexCcode |
| syn region lexAbbrvComment start="^\s\+/\*" end="\*/" contains=@Spell |
| syn region lexAbbrvComment start="\%^/\*" end="\*/" contains=@Spell |
| syn region lexStartState matchgroup=lexAbbrv start="^%\a\+" end="$" contained |
| endif |
| |
| "%% : Patterns {Actions} |
| if has("folding") |
| syn region lexPatBlock fold matchgroup=Todo start="^%%$" matchgroup=Todo end="^%\ze%$" skipnl skipwhite nextgroup=lexFinalCodeBlock contains=lexPatTag,lexPatTagZone,lexPatComment,lexPat,lexPatInclude |
| syn region lexPat fold start=+\S+ skip="\\\\\|\\." end="\s"me=e-1 skipwhite contained nextgroup=lexMorePat,lexPatSep,lexPattern contains=lexPatTag,lexPatString,lexSlashQuote,lexBrace |
| syn region lexPatInclude fold matchgroup=lexSep start="^%{" end="%}" contained contains=lexPatCode |
| syn region lexBrace fold start="\[" skip=+\\\\\|\\+ end="]" contained |
| syn region lexPatString fold matchgroup=String start=+"+ skip=+\\\\\|\\"+ matchgroup=String end=+"+ contained |
| else |
| syn region lexPatBlock matchgroup=Todo start="^%%$" matchgroup=Todo end="^%%$" skipnl skipwhite nextgroup=lexFinalCodeBlock contains=lexPatTag,lexPatTagZone,lexPatComment,lexPat,lexPatInclude |
| syn region lexPat start=+\S+ skip="\\\\\|\\." end="\s"me=e-1 skipwhite contained nextgroup=lexMorePat,lexPatSep,lexPattern contains=lexPatTag,lexPatString,lexSlashQuote,lexBrace |
| syn region lexPatInclude matchgroup=lexSep start="^%{" end="%}" contained contains=lexPatCode |
| syn region lexBrace start="\[" skip=+\\\\\|\\+ end="]" contained |
| syn region lexPatString matchgroup=String start=+"+ skip=+\\\\\|\\"+ matchgroup=String end=+"+ contained |
| endif |
| syn match lexPatTag "^<\I\i*\(,\I\i*\)*>" contained nextgroup=lexPat,lexPatTag,lexMorePat,lexPatSep |
| syn match lexPatTagZone "^<\I\i*\(,\I\i*\)*>\s\+\ze{" contained nextgroup=lexPatTagZoneStart |
| syn match lexPatTag +^<\I\i*\(,\I\i*\)*>*\(\\\\\)*\\"+ contained nextgroup=lexPat,lexPatTag,lexMorePat,lexPatSep |
| |
| " Lex Patterns |
| syn region lexPattern start='[^ \t{}]' end="$" contained contains=lexPatRange |
| syn region lexPatRange matchgroup=Delimiter start='\[' skip='\\\\\|\\.' end='\]' contains=lexEscape |
| syn match lexEscape '\%(\\\\\)*\\.' contained |
| |
| if has("folding") |
| syn region lexPatTagZoneStart matchgroup=lexPatTag fold start='{' end='}' contained contains=lexPat,lexPatComment |
| syn region lexPatComment start="\s\+/\*" end="\*/" fold skipnl contained contains=cTodo skipwhite nextgroup=lexPatComment,lexPat,@Spell |
| else |
| syn region lexPatTagZoneStart matchgroup=lexPatTag start='{' end='}' contained contains=lexPat,lexPatComment |
| syn region lexPatComment start="\s\+/\*" end="\*/" skipnl contained contains=cTodo skipwhite nextgroup=lexPatComment,lexPat,@Spell |
| endif |
| syn match lexPatCodeLine "[^{\[].*" contained contains=@lexCcode |
| syn match lexMorePat "\s*|\s*$" skipnl contained nextgroup=lexPat,lexPatTag,lexPatComment |
| syn match lexPatSep "\s\+" contained nextgroup=lexMorePat,lexPatCode,lexPatCodeLine |
| syn match lexSlashQuote +\(\\\\\)*\\"+ contained |
| if has("folding") |
| syn region lexPatCode matchgroup=Delimiter start="{" end="}" fold skipnl contained contains=@lexCcode,lexCFunctions |
| else |
| syn region lexPatCode matchgroup=Delimiter start="{" end="}" skipnl contained contains=@lexCcode,lexCFunctions |
| endif |
| |
| " Lex "functions" which may appear in C/C++ code blocks |
| syn keyword lexCFunctions BEGIN input unput woutput yyleng yylook yytext |
| syn keyword lexCFunctions ECHO output winput wunput yyless yymore yywrap |
| |
| " %% |
| " lexAbbrevBlock |
| " %% |
| " lexPatBlock |
| " %% |
| " lexFinalCodeBlock |
| syn region lexFinalCodeBlock matchgroup=Todo start="%$"me=e-1 end="\%$" contained contains=@lexCcode |
| |
| " <c.vim> includes several ALLBUTs; these have to be treated so as to exclude lex* groups |
| syn cluster cParenGroup add=lex.* |
| syn cluster cDefineGroup add=lex.* |
| syn cluster cPreProcGroup add=lex.* |
| syn cluster cMultiGroup add=lex.* |
| |
| " Synchronization |
| syn sync clear |
| syn sync minlines=500 |
| syn sync match lexSyncPat grouphere lexPatBlock "^%[a-zA-Z]" |
| syn sync match lexSyncPat groupthere lexPatBlock "^<$" |
| syn sync match lexSyncPat groupthere lexPatBlock "^%%$" |
| |
| " The default highlighting. |
| hi def link lexAbbrvComment lexPatComment |
| hi def link lexAbbrvRegExp Macro |
| hi def link lexAbbrv SpecialChar |
| hi def link lexBrace lexPat |
| hi def link lexCFunctions Function |
| hi def link lexCstruct cStructure |
| hi def link lexMorePat SpecialChar |
| hi def link lexOptions PreProc |
| hi def link lexPatComment Comment |
| hi def link lexPat Function |
| hi def link lexPatString Function |
| hi def link lexPatTag Special |
| hi def link lexPatTagZone lexPatTag |
| hi def link lexSep Delimiter |
| hi def link lexSlashQuote lexPat |
| hi def link lexStartState Statement |
| |
| let b:current_syntax = "lex" |
| |
| " vim:ts=10 |