| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | |
| 2 | " Vim syntax file |
| 3 | " Language: AfLex (from Lex syntax file) |
| 4 | " Maintainer: Mathieu Clabaut <mathieu.clabaut@free.fr> |
| 5 | " LastChange: 02 May 2001 |
| 6 | " Original: Lex, maintained by Dr. Charles E. Campbell, Jr. |
| 7 | " Comment: Replaced sourcing c.vim file by ada.vim and rename lex* |
| 8 | " in aflex* |
| 9 | |
| Bram Moolenaar | 89bcfda | 2016-08-30 23:26:57 +0200 | [diff] [blame] | 10 | " quit when a syntax file was already loaded |
| 11 | if exists("b:current_syntax") |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 12 | finish |
| 13 | endif |
| 14 | |
| 15 | " Read the Ada syntax to start with |
| Bram Moolenaar | 89bcfda | 2016-08-30 23:26:57 +0200 | [diff] [blame] | 16 | runtime! syntax/ada.vim |
| 17 | unlet b:current_syntax |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 18 | |
| 19 | |
| 20 | " --- AfLex stuff --- |
| 21 | |
| 22 | "I'd prefer to use aflex.* , but it doesn't handle forward definitions yet |
| 23 | syn cluster aflexListGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatString,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,aflexPatCode,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 |
| 24 | syn cluster aflexListPatCodeGroup contains=aflexAbbrvBlock,aflexAbbrv,aflexAbbrv,aflexAbbrvRegExp,aflexInclude,aflexPatBlock,aflexPat,aflexBrace,aflexPatTag,aflexPatTag,aflexPatComment,aflexPatCodeLine,aflexMorePat,aflexPatSep,aflexSlashQuote,cInParen,cUserLabel,cOctalZero,cCppSkip,cErrInBracket,cErrInParen,cOctalError,cCppOut2 |
| 25 | |
| 26 | " Abbreviations Section |
| 27 | syn region aflexAbbrvBlock start="^\([a-zA-Z_]\+\t\|%{\)" end="^%%$"me=e-2 skipnl nextgroup=aflexPatBlock contains=aflexAbbrv,aflexInclude,aflexAbbrvComment |
| 28 | syn match aflexAbbrv "^\I\i*\s"me=e-1 skipwhite contained nextgroup=aflexAbbrvRegExp |
| 29 | syn match aflexAbbrv "^%[sx]" contained |
| 30 | syn match aflexAbbrvRegExp "\s\S.*$"lc=1 contained nextgroup=aflexAbbrv,aflexInclude |
| 31 | syn region aflexInclude matchgroup=aflexSep start="^%{" end="%}" contained contains=ALLBUT,@aflexListGroup |
| 32 | syn region aflexAbbrvComment start="^\s\+/\*" end="\*/" |
| 33 | |
| 34 | "%% : Patterns {Actions} |
| 35 | syn region aflexPatBlock matchgroup=Todo start="^%%$" matchgroup=Todo end="^%%$" skipnl skipwhite contains=aflexPat,aflexPatTag,aflexPatComment |
| 36 | syn region aflexPat start=+\S+ skip="\\\\\|\\." end="\s"me=e-1 contained nextgroup=aflexMorePat,aflexPatSep contains=aflexPatString,aflexSlashQuote,aflexBrace |
| 37 | syn region aflexBrace start="\[" skip=+\\\\\|\\+ end="]" contained |
| 38 | syn region aflexPatString matchgroup=String start=+"+ skip=+\\\\\|\\"+ matchgroup=String end=+"+ contained |
| 39 | syn match aflexPatTag "^<\I\i*\(,\I\i*\)*>*" contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep |
| 40 | syn match aflexPatTag +^<\I\i*\(,\I\i*\)*>*\(\\\\\)*\\"+ contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep |
| 41 | syn region aflexPatComment start="^\s*/\*" end="\*/" skipnl contained contains=cTodo nextgroup=aflexPatComment,aflexPat,aflexPatString,aflexPatTag |
| 42 | syn match aflexPatCodeLine ".*$" contained contains=ALLBUT,@aflexListGroup |
| 43 | syn match aflexMorePat "\s*|\s*$" skipnl contained nextgroup=aflexPat,aflexPatTag,aflexPatComment |
| 44 | syn match aflexPatSep "\s\+" contained nextgroup=aflexMorePat,aflexPatCode,aflexPatCodeLine |
| 45 | syn match aflexSlashQuote +\(\\\\\)*\\"+ contained |
| 46 | syn region aflexPatCode matchgroup=Delimiter start="{" matchgroup=Delimiter end="}" skipnl contained contains=ALLBUT,@aflexListPatCodeGroup |
| 47 | |
| 48 | syn keyword aflexCFunctions BEGIN input unput woutput yyleng yylook yytext |
| 49 | syn keyword aflexCFunctions ECHO output winput wunput yyless yymore yywrap |
| 50 | |
| 51 | " <c.vim> includes several ALLBUTs; these have to be treated so as to exclude aflex* groups |
| 52 | syn cluster cParenGroup add=aflex.* |
| 53 | syn cluster cDefineGroup add=aflex.* |
| 54 | syn cluster cPreProcGroup add=aflex.* |
| 55 | syn cluster cMultiGroup add=aflex.* |
| 56 | |
| 57 | " Synchronization |
| 58 | syn sync clear |
| 59 | syn sync minlines=300 |
| 60 | syn sync match aflexSyncPat grouphere aflexPatBlock "^%[a-zA-Z]" |
| 61 | syn sync match aflexSyncPat groupthere aflexPatBlock "^<$" |
| 62 | syn sync match aflexSyncPat groupthere aflexPatBlock "^%%$" |
| 63 | |
| 64 | " Define the default highlighting. |
| Bram Moolenaar | 89bcfda | 2016-08-30 23:26:57 +0200 | [diff] [blame] | 65 | " Only when an item doesn't have highlighting yet |
| Bram Moolenaar | f37506f | 2016-08-31 22:22:10 +0200 | [diff] [blame] | 66 | hi def link aflexSlashQuote aflexPat |
| 67 | hi def link aflexBrace aflexPat |
| 68 | hi def link aflexAbbrvComment aflexPatComment |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 69 | |
| Bram Moolenaar | f37506f | 2016-08-31 22:22:10 +0200 | [diff] [blame] | 70 | hi def link aflexAbbrv SpecialChar |
| 71 | hi def link aflexAbbrvRegExp Macro |
| 72 | hi def link aflexCFunctions Function |
| 73 | hi def link aflexMorePat SpecialChar |
| 74 | hi def link aflexPat Function |
| 75 | hi def link aflexPatComment Comment |
| 76 | hi def link aflexPatString Function |
| 77 | hi def link aflexPatTag Special |
| 78 | hi def link aflexSep Delimiter |
| Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 79 | |
| 80 | let b:current_syntax = "aflex" |
| 81 | |
| 82 | " vim:ts=10 |