share/vim/vim58/syntax/lace.vim

   1 " Vim syntax file
   2 " Language:             lace
   3 " Maintainer:   Jocelyn Fiat <utilities@eiffel.com>
   4 " Last Change:  2001 May 09
   5
   6 " Copyright Interactive Software Engineering, 1998
   7 " You are free to use this file as you please, but
   8 " if you make a change or improvement you must send
   9 " it to the maintainer at <utilities@eiffel.com>
  10
  11
  12 " For version 5.x: Clear all syntax items
  13 " For version 6.x: Quit when a syntax file was already loaded
  14 if version < 600
  15   syntax clear
  16 elseif exists("b:current_syntax")
  17   finish
  18 endif
  19
  20 " LACE is case insensitive, but the style guide lines are not.
  21
  22 if !exists("lace_case_insensitive")
  23         syn case match
  24 else
  25         syn case ignore
  26 endif
  27
  28 " A bunch of useful LACE keywords
  29 syn keyword laceTopStruct               system root default option visible cluster
  30 syn keyword laceTopStruct               external generate end
  31 syn keyword laceOptionClause    collect assertion debug optimize trace
  32 syn keyword laceOptionClause    profile inline precompiled multithreaded
  33 syn keyword laceOptionClause    exception_trace dead_code_removal
  34 syn keyword laceOptionClause    array_optimization
  35 syn keyword laceOptionClause    inlining_size inlining
  36 syn keyword laceOptionClause    console_application dynamic_runtime
  37 syn keyword laceOptionClause    line_generation
  38 syn keyword laceOptionMark              yes no all
  39 syn keyword laceOptionMark              require ensure invariant loop check
  40 syn keyword laceClusterProp             use include exclude
  41 syn keyword laceAdaptClassName  adapt ignore rename as
  42 syn keyword laceAdaptClassName  creation export visible
  43 syn keyword laceExternal                include_path object makefile
  44
  45 " Operators
  46 syn match   laceOperator                "\$"
  47 syn match   laceBrackets                "[[\]]"
  48 syn match   laceExport                  "[{}]"
  49
  50 " Constants
  51 syn keyword laceBool            true false
  52 syn keyword laceBool            True False
  53 syn region  laceString          start=+"+ skip=+%"+ end=+"+ contains=laceEscape,laceStringError
  54 syn match   laceEscape          contained "%[^/]"
  55 syn match   laceEscape          contained "%/\d\+/"
  56 syn match   laceEscape          contained "^[ \t]*%"
  57 syn match   laceEscape          contained "%[ \t]*$"
  58 syn match   laceStringError     contained "%/[^0-9]"
  59 syn match   laceStringError     contained "%/\d\+[^0-9/]"
  60 syn match   laceStringError     "'\(%[^/]\|%/\d\+/\|[^'%]\)\+'"
  61 syn match   laceCharacter       "'\(%[^/]\|%/\d\+/\|[^'%]\)'" contains=laceEscape
  62 syn match   laceNumber          "-\=\<\d\+\(_\d\+\)*\>"
  63 syn match   laceNumber          "\<[01]\+[bB]\>"
  64 syn match   laceNumber          "-\=\<\d\+\(_\d\+\)*\.\(\d\+\(_\d\+\)*\)\=\([eE][-+]\=\d\+\(_\d\+\)*\)\="
  65 syn match   laceNumber          "-\=\.\d\+\(_\d\+\)*\([eE][-+]\=\d\+\(_\d\+\)*\)\="
  66 syn match   laceComment         "--.*" contains=laceTodo
  67
  68
  69 syn case match
  70
  71 " Case sensitive stuff
  72
  73 syn keyword laceTodo            TODO XXX FIXME
  74 syn match       laceClassName   "\<[A-Z][A-Z0-9_]*\>"
  75 syn match       laceCluster             "[a-zA-Z][a-zA-Z0-9_]*\s*:"
  76 syn match       laceCluster             "[a-zA-Z][a-zA-Z0-9_]*\s*(\s*[a-zA-Z][a-zA-Z0-9_]*\s*)\s*:"
  77
  78 " Catch mismatched parentheses
  79 syn match laceParenError        ")"
  80 syn match laceBracketError      "\]"
  81 syn region laceGeneric          transparent matchgroup=laceBrackets start="\[" end="\]" contains=ALLBUT,laceBracketError
  82 syn region laceParen            transparent start="(" end=")" contains=ALLBUT,laceParenError
  83
  84 " Should suffice for even very long strings and expressions
  85 syn sync lines=40
  86
  87 " Define the default highlighting.
  88 " For version 5.7 and earlier: only when not done already
  89 " For version 5.8 and later: only when an item doesn't have highlighting yet
  90 if version >= 508 || !exists("did_lace_syntax_inits")
  91   if version < 508
  92     let did_lace_syntax_inits = 1
  93     command -nargs=+ HiLink hi link <args>
  94   else
  95     command -nargs=+ HiLink hi def link <args>
  96   endif
  97
  98   HiLink laceTopStruct                  PreProc
  99
 100   HiLink laceOptionClause               Statement
 101   HiLink laceOptionMark                 Constant
 102   HiLink laceClusterProp                Label
 103   HiLink laceAdaptClassName             Label
 104   HiLink laceExternal                   Statement
 105   HiLink laceCluster                    ModeMsg
 106
 107   HiLink laceEscape                             Special
 108
 109   HiLink laceBool                               Boolean
 110   HiLink laceString                             String
 111   HiLink laceCharacter                  Character
 112   HiLink laceClassName                  Type
 113   HiLink laceNumber                             Number
 114
 115   HiLink laceOperator                   Special
 116   HiLink laceArray                              Special
 117   HiLink laceExport                             Special
 118   HiLink laceCreation                   Special
 119   HiLink laceBrackets                   Special
 120   HiLink laceConstraint                 Special
 121
 122   HiLink laceComment                    Comment
 123
 124   HiLink laceError                              Error
 125   HiLink laceStringError                Error
 126   HiLink laceParenError                 Error
 127   HiLink laceBracketError               Error
 128   HiLink laceTodo                               Todo
 129
 130   delcommand HiLink
 131 endif
 132
 133 let b:current_syntax = "lace"
 134
 135 " vim: ts=4