runtime/syntax/aflex.vim

   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
  10 " For version 5.x: Clear all syntax items
  11 " For version 6.x: Quit when a syntax file was already loaded
  12 if version < 600
  13    syntax clear
  14 elseif exists("b:current_syntax")
  15    finish
  16 endif
  17
  18 " Read the Ada syntax to start with
  19 if version < 600
  20    so <sfile>:p:h/ada.vim
  21 else
  22    runtime! syntax/ada.vim
  23    unlet b:current_syntax
  24 endif
  25
  26
  27 " --- AfLex stuff ---
  28
  29 "I'd prefer to use aflex.* , but it doesn't handle forward definitions yet
  30 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
  31 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
  32
  33 " Abbreviations Section
  34 syn region aflexAbbrvBlock      start="^\([a-zA-Z_]\+\t\|%{\)" end="^%%$"me=e-2 skipnl  nextgroup=aflexPatBlock contains=aflexAbbrv,aflexInclude,aflexAbbrvComment
  35 syn match  aflexAbbrv           "^\I\i*\s"me=e-1                        skipwhite       contained nextgroup=aflexAbbrvRegExp
  36 syn match  aflexAbbrv           "^%[sx]"                                        contained
  37 syn match  aflexAbbrvRegExp     "\s\S.*$"lc=1                           contained nextgroup=aflexAbbrv,aflexInclude
  38 syn region aflexInclude matchgroup=aflexSep     start="^%{" end="%}"    contained       contains=ALLBUT,@aflexListGroup
  39 syn region aflexAbbrvComment    start="^\s\+/\*"        end="\*/"
  40
  41 "%% : Patterns {Actions}
  42 syn region aflexPatBlock        matchgroup=Todo start="^%%$" matchgroup=Todo end="^%%$" skipnl skipwhite contains=aflexPat,aflexPatTag,aflexPatComment
  43 syn region aflexPat             start=+\S+ skip="\\\\\|\\."     end="\s"me=e-1  contained nextgroup=aflexMorePat,aflexPatSep contains=aflexPatString,aflexSlashQuote,aflexBrace
  44 syn region aflexBrace   start="\[" skip=+\\\\\|\\+              end="]"         contained
  45 syn region aflexPatString       matchgroup=String start=+"+     skip=+\\\\\|\\"+        matchgroup=String end=+"+       contained
  46 syn match  aflexPatTag  "^<\I\i*\(,\I\i*\)*>*"                  contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep
  47 syn match  aflexPatTag  +^<\I\i*\(,\I\i*\)*>*\(\\\\\)*\\"+              contained nextgroup=aflexPat,aflexPatTag,aflexMorePat,aflexPatSep
  48 syn region aflexPatComment      start="^\s*/\*" end="\*/"               skipnl  contained contains=cTodo nextgroup=aflexPatComment,aflexPat,aflexPatString,aflexPatTag
  49 syn match  aflexPatCodeLine     ".*$"                                   contained contains=ALLBUT,@aflexListGroup
  50 syn match  aflexMorePat "\s*|\s*$"                      skipnl  contained nextgroup=aflexPat,aflexPatTag,aflexPatComment
  51 syn match  aflexPatSep  "\s\+"                                  contained nextgroup=aflexMorePat,aflexPatCode,aflexPatCodeLine
  52 syn match  aflexSlashQuote      +\(\\\\\)*\\"+                          contained
  53 syn region aflexPatCode matchgroup=Delimiter start="{" matchgroup=Delimiter end="}"     skipnl contained contains=ALLBUT,@aflexListPatCodeGroup
  54
  55 syn keyword aflexCFunctions     BEGIN   input   unput   woutput yyleng  yylook  yytext
  56 syn keyword aflexCFunctions     ECHO    output  winput  wunput  yyless  yymore  yywrap
  57
  58 " <c.vim> includes several ALLBUTs; these have to be treated so as to exclude aflex* groups
  59 syn cluster cParenGroup add=aflex.*
  60 syn cluster cDefineGroup        add=aflex.*
  61 syn cluster cPreProcGroup       add=aflex.*
  62 syn cluster cMultiGroup add=aflex.*
  63
  64 " Synchronization
  65 syn sync clear
  66 syn sync minlines=300
  67 syn sync match aflexSyncPat     grouphere  aflexPatBlock        "^%[a-zA-Z]"
  68 syn sync match aflexSyncPat     groupthere aflexPatBlock        "^<$"
  69 syn sync match aflexSyncPat     groupthere aflexPatBlock        "^%%$"
  70
  71 " Define the default highlighting.
  72 " For version 5.7 and earlier: only when not done already
  73 " For version 5.8 and later: only when an item doesn't have highlighting yet
  74
  75 if version >= 508 || !exists("did_aflex_syntax_inits")
  76    if version < 508
  77       let did_aflex_syntax_inits = 1
  78       command -nargs=+ HiLink hi link <args>
  79    else
  80       command -nargs=+ HiLink hi def link <args>
  81    endif
  82   HiLink        aflexSlashQuote aflexPat
  83   HiLink        aflexBrace              aflexPat
  84   HiLink aflexAbbrvComment      aflexPatComment
  85
  86   HiLink        aflexAbbrv              SpecialChar
  87   HiLink        aflexAbbrvRegExp        Macro
  88   HiLink        aflexCFunctions Function
  89   HiLink        aflexMorePat    SpecialChar
  90   HiLink        aflexPat                Function
  91   HiLink        aflexPatComment Comment
  92   HiLink        aflexPatString  Function
  93   HiLink        aflexPatTag             Special
  94   HiLink        aflexSep                Delimiter
  95   delcommand HiLink
  96 endif
  97
  98 let b:current_syntax = "aflex"
  99
 100 " vim:ts=10