runtime/syntax/icon.vim

   1 " Vim syntax file
   2 " Language:     Icon
   3 " Maintainer:   Wendell Turner <wendell@adsi-m4.com>
   4 " URL:          ftp://ftp.halcyon.com/pub/users/wturner/icon.vim
   5 " Last Change:  2003 May 11
   6
   7 " For version 5.x: Clear all syntax items
   8 " For version 6.x: Quit when a syntax file was already loaded
   9 if version < 600
  10   syntax clear
  11 elseif exists("b:current_syntax")
  12   finish
  13 endif
  14
  15 syn keyword  iconFunction   abs acos any args asin atan bal
  16 syn keyword  iconFunction   callout center char chdir close collect copy
  17 syn keyword  iconFunction   cos cset delay delete detab display dtor
  18 syn keyword  iconFunction   entab errorclear exit exp find flush function
  19 syn keyword  iconFunction   get getch getche getenv iand icom image
  20 syn keyword  iconFunction   insert integer ior ishift ixor kbhit key
  21 syn keyword  iconFunction   left list loadfunc log many map match
  22 syn keyword  iconFunction   member move name numeric open ord pop
  23 syn keyword  iconFunction   pos proc pull push put read reads
  24 syn keyword  iconFunction   real remove rename repl reverse right rtod
  25 syn keyword  iconFunction   runerr save seek seq set sin sort
  26 syn keyword  iconFunction   sortf sqrt stop string system tab table
  27 syn keyword  iconFunction   tan trim type upto variable where write writes
  28
  29 " Keywords
  30 syn match iconKeyword "&allocated"
  31 syn match iconKeyword "&ascii"
  32 syn match iconKeyword "&clock"
  33 syn match iconKeyword "&collections"
  34 syn match iconKeyword "&cset"
  35 syn match iconKeyword "&current"
  36 syn match iconKeyword "&date"
  37 syn match iconKeyword "&dateline"
  38 syn match iconKeyword "&digits"
  39 syn match iconKeyword "&dump"
  40 syn match iconKeyword "&e"
  41 syn match iconKeyword "&error"
  42 syn match iconKeyword "&errornumber"
  43 syn match iconKeyword "&errortext"
  44 syn match iconKeyword "&errorvalue"
  45 syn match iconKeyword "&errout"
  46 syn match iconKeyword "&fail"
  47 syn match iconKeyword "&features"
  48 syn match iconKeyword "&file"
  49 syn match iconKeyword "&host"
  50 syn match iconKeyword "&input"
  51 syn match iconKeyword "&lcase"
  52 syn match iconKeyword "&letters"
  53 syn match iconKeyword "&level"
  54 syn match iconKeyword "&line"
  55 syn match iconKeyword "&main"
  56 syn match iconKeyword "&null"
  57 syn match iconKeyword "&output"
  58 syn match iconKeyword "&phi"
  59 syn match iconKeyword "&pi"
  60 syn match iconKeyword "&pos"
  61 syn match iconKeyword "&progname"
  62 syn match iconKeyword "&random"
  63 syn match iconKeyword "&regions"
  64 syn match iconKeyword "&source"
  65 syn match iconKeyword "&storage"
  66 syn match iconKeyword "&subject"
  67 syn match iconKeyword "&time"
  68 syn match iconKeyword "&trace"
  69 syn match iconKeyword "&ucase"
  70 syn match iconKeyword "&version"
  71
  72 " Reserved words
  73 syn keyword iconReserved break by case create default do
  74 syn keyword iconReserved else end every fail if
  75 syn keyword iconReserved initial link next not of
  76 syn keyword iconReserved procedure repeat return suspend
  77 syn keyword iconReserved then to until while
  78
  79 " Storage class reserved words
  80 syn keyword     iconStorageClass        global static local record
  81
  82 syn keyword     iconTodo        contained TODO FIXME XXX BUG
  83
  84 " String and Character constants
  85 " Highlight special characters (those which have a backslash) differently
  86 syn match iconSpecial contained "\\x\x\{2}\|\\\o\{3\}\|\\[bdeflnrtv\"\'\\]\|\\^c[a-zA-Z0-9]\|\\$"
  87 syn region      iconString      start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=iconSpecial
  88 syn region      iconCset        start=+'+ skip=+\\\\\|\\'+ end=+'+ contains=iconSpecial
  89 syn match       iconCharacter   "'[^\\]'"
  90
  91 " not sure about these
  92 "syn match      iconSpecialCharacter "'\\[bdeflnrtv]'"
  93 "syn match      iconSpecialCharacter "'\\\o\{3\}'"
  94 "syn match      iconSpecialCharacter "'\\x\x\{2}'"
  95 "syn match      iconSpecialCharacter "'\\^c\[a-zA-Z0-9]'"
  96
  97 "when wanted, highlight trailing white space
  98 if exists("icon_space_errors")
  99   syn match     iconSpaceError  "\s*$"
 100   syn match     iconSpaceError  " \+\t"me=e-1
 101 endif
 102
 103 "catch errors caused by wrong parenthesis
 104 syn cluster     iconParenGroup contains=iconParenError,iconIncluded,iconSpecial,iconTodo,iconUserCont,iconUserLabel,iconBitField
 105
 106 syn region      iconParen       transparent start='(' end=')' contains=ALLBUT,@iconParenGroup
 107 syn match       iconParenError  ")"
 108 syn match       iconInParen     contained "[{}]"
 109
 110
 111 syn case ignore
 112
 113 "integer number, or floating point number without a dot
 114 syn match       iconNumber              "\<\d\+\>"
 115
 116 "floating point number, with dot, optional exponent
 117 syn match       iconFloat               "\<\d\+\.\d*\(e[-+]\=\d\+\)\=\>"
 118
 119 "floating point number, starting with a dot, optional exponent
 120 syn match       iconFloat               "\.\d\+\(e[-+]\=\d\+\)\=\>"
 121
 122 "floating point number, without dot, with exponent
 123 syn match       iconFloat               "\<\d\+e[-+]\=\d\+\>"
 124
 125 "radix number
 126 syn match       iconRadix               "\<\d\{1,2}[rR][a-zA-Z0-9]\+\>"
 127
 128
 129 " syn match iconIdentifier      "\<[a-z_][a-z0-9_]*\>"
 130
 131 syn case match
 132
 133 " Comment
 134 syn match       iconComment     "#.*" contains=iconTodo,iconSpaceError
 135
 136 syn region      iconPreCondit start="^\s*$\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=iconComment,iconString,iconCharacter,iconNumber,iconCommentError,iconSpaceError
 137
 138 syn region      iconIncluded    contained start=+"+ skip=+\\\\\|\\"+ end=+"+
 139 syn match       iconIncluded    contained "<[^>]*>"
 140 syn match       iconInclude     "^\s*$\s*include\>\s*["<]" contains=iconIncluded
 141 "syn match iconLineSkip "\\$"
 142
 143 syn cluster     iconPreProcGroup contains=iconPreCondit,iconIncluded,iconInclude,iconDefine,iconInParen,iconUserLabel
 144
 145 syn region      iconDefine      start="^\s*$\s*\(define\>\|undef\>\)" skip="\\$" end="$" contains=ALLBUT,@iconPreProcGroup
 146
 147 "wt:syn region  iconPreProc "start="^\s*#\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" "end="$" contains=ALLBUT,@iconPreProcGroup
 148
 149 " Highlight User Labels
 150
 151 " syn cluster   iconMultiGroup contains=iconIncluded,iconSpecial,iconTodo,iconUserCont,iconUserLabel,iconBitField
 152
 153 if !exists("icon_minlines")
 154   let icon_minlines = 15
 155 endif
 156 exec "syn sync ccomment iconComment minlines=" . icon_minlines
 157
 158 " Define the default highlighting.
 159
 160 " For version 5.7 and earlier: only when not done already
 161 " For version 5.8 and later: only when an item doesn't have highlighting
 162 if version >= 508 || !exists("did_icon_syn_inits")
 163   if version < 508
 164     let did_icon_syn_inits = 1
 165     command -nargs=+ HiLink hi link <args>
 166   else
 167     command -nargs=+ HiLink hi def link <args>
 168   endif
 169
 170   " The default methods for highlighting.  Can be overridden later
 171
 172   " HiLink iconSpecialCharacter iconSpecial
 173
 174   HiLink iconOctalError         iconError
 175   HiLink iconParenError         iconError
 176   HiLink iconInParen            iconError
 177   HiLink iconCommentError       iconError
 178   HiLink iconSpaceError         iconError
 179   HiLink iconCommentError       iconError
 180   HiLink iconIncluded           iconString
 181   HiLink iconCommentString      iconString
 182   HiLink iconComment2String     iconString
 183   HiLink iconCommentSkip        iconComment
 184
 185   HiLink iconUserLabel          Label
 186   HiLink iconCharacter          Character
 187   HiLink iconNumber                     Number
 188   HiLink iconRadix                      Number
 189   HiLink iconFloat                      Float
 190   HiLink iconInclude            Include
 191   HiLink iconPreProc            PreProc
 192   HiLink iconDefine                     Macro
 193   HiLink iconError                      Error
 194   HiLink iconStatement          Statement
 195   HiLink iconPreCondit          PreCondit
 196   HiLink iconString                     String
 197   HiLink iconCset                       String
 198   HiLink iconComment            Comment
 199   HiLink iconSpecial            SpecialChar
 200   HiLink iconTodo                       Todo
 201   HiLink iconStorageClass       StorageClass
 202   HiLink iconFunction           Statement
 203   HiLink iconReserved           Label
 204   HiLink iconKeyword            Operator
 205
 206   "HiLink iconIdentifier        Identifier
 207
 208   delcommand HiLink
 209 endif
 210
 211 let b:current_syntax = "icon"
 212