| " Vim syntax file |
| " Language: Icon |
| " Maintainer: Wendell Turner <wendell@adsi-m4.com> |
| " URL: ftp://ftp.halcyon.com/pub/users/wturner/icon.vim |
| " Last Change: 2003 May 11 |
| |
| " quit when a syntax file was already loaded |
| if exists("b:current_syntax") |
| finish |
| endif |
| |
| syn keyword iconFunction abs acos any args asin atan bal |
| syn keyword iconFunction callout center char chdir close collect copy |
| syn keyword iconFunction cos cset delay delete detab display dtor |
| syn keyword iconFunction entab errorclear exit exp find flush function |
| syn keyword iconFunction get getch getche getenv iand icom image |
| syn keyword iconFunction insert integer ior ishift ixor kbhit key |
| syn keyword iconFunction left list loadfunc log many map match |
| syn keyword iconFunction member move name numeric open ord pop |
| syn keyword iconFunction pos proc pull push put read reads |
| syn keyword iconFunction real remove rename repl reverse right rtod |
| syn keyword iconFunction runerr save seek seq set sin sort |
| syn keyword iconFunction sortf sqrt stop string system tab table |
| syn keyword iconFunction tan trim type upto variable where write writes |
| |
| " Keywords |
| syn match iconKeyword "&allocated" |
| syn match iconKeyword "&ascii" |
| syn match iconKeyword "&clock" |
| syn match iconKeyword "&collections" |
| syn match iconKeyword "&cset" |
| syn match iconKeyword "¤t" |
| syn match iconKeyword "&date" |
| syn match iconKeyword "&dateline" |
| syn match iconKeyword "&digits" |
| syn match iconKeyword "&dump" |
| syn match iconKeyword "&e" |
| syn match iconKeyword "&error" |
| syn match iconKeyword "&errornumber" |
| syn match iconKeyword "&errortext" |
| syn match iconKeyword "&errorvalue" |
| syn match iconKeyword "&errout" |
| syn match iconKeyword "&fail" |
| syn match iconKeyword "&features" |
| syn match iconKeyword "&file" |
| syn match iconKeyword "&host" |
| syn match iconKeyword "&input" |
| syn match iconKeyword "&lcase" |
| syn match iconKeyword "&letters" |
| syn match iconKeyword "&level" |
| syn match iconKeyword "&line" |
| syn match iconKeyword "&main" |
| syn match iconKeyword "&null" |
| syn match iconKeyword "&output" |
| syn match iconKeyword "&phi" |
| syn match iconKeyword "&pi" |
| syn match iconKeyword "&pos" |
| syn match iconKeyword "&progname" |
| syn match iconKeyword "&random" |
| syn match iconKeyword "®ions" |
| syn match iconKeyword "&source" |
| syn match iconKeyword "&storage" |
| syn match iconKeyword "&subject" |
| syn match iconKeyword "&time" |
| syn match iconKeyword "&trace" |
| syn match iconKeyword "&ucase" |
| syn match iconKeyword "&version" |
| |
| " Reserved words |
| syn keyword iconReserved break by case create default do |
| syn keyword iconReserved else end every fail if |
| syn keyword iconReserved initial link next not of |
| syn keyword iconReserved procedure repeat return suspend |
| syn keyword iconReserved then to until while |
| |
| " Storage class reserved words |
| syn keyword iconStorageClass global static local record |
| |
| syn keyword iconTodo contained TODO FIXME XXX BUG |
| |
| " String and Character constants |
| " Highlight special characters (those which have a backslash) differently |
| syn match iconSpecial contained "\\x\x\{2}\|\\\o\{3\}\|\\[bdeflnrtv\"\'\\]\|\\^c[a-zA-Z0-9]\|\\$" |
| syn region iconString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=iconSpecial |
| syn region iconCset start=+'+ skip=+\\\\\|\\'+ end=+'+ contains=iconSpecial |
| syn match iconCharacter "'[^\\]'" |
| |
| " not sure about these |
| "syn match iconSpecialCharacter "'\\[bdeflnrtv]'" |
| "syn match iconSpecialCharacter "'\\\o\{3\}'" |
| "syn match iconSpecialCharacter "'\\x\x\{2}'" |
| "syn match iconSpecialCharacter "'\\^c\[a-zA-Z0-9]'" |
| |
| "when wanted, highlight trailing white space |
| if exists("icon_space_errors") |
| syn match iconSpaceError "\s*$" |
| syn match iconSpaceError " \+\t"me=e-1 |
| endif |
| |
| "catch errors caused by wrong parenthesis |
| syn cluster iconParenGroup contains=iconParenError,iconIncluded,iconSpecial,iconTodo,iconUserCont,iconUserLabel,iconBitField |
| |
| syn region iconParen transparent start='(' end=')' contains=ALLBUT,@iconParenGroup |
| syn match iconParenError ")" |
| syn match iconInParen contained "[{}]" |
| |
| |
| syn case ignore |
| |
| "integer number, or floating point number without a dot |
| syn match iconNumber "\<\d\+\>" |
| |
| "floating point number, with dot, optional exponent |
| syn match iconFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=\>" |
| |
| "floating point number, starting with a dot, optional exponent |
| syn match iconFloat "\.\d\+\(e[-+]\=\d\+\)\=\>" |
| |
| "floating point number, without dot, with exponent |
| syn match iconFloat "\<\d\+e[-+]\=\d\+\>" |
| |
| "radix number |
| syn match iconRadix "\<\d\{1,2}[rR][a-zA-Z0-9]\+\>" |
| |
| |
| " syn match iconIdentifier "\<[a-z_][a-z0-9_]*\>" |
| |
| syn case match |
| |
| " Comment |
| syn match iconComment "#.*" contains=iconTodo,iconSpaceError |
| |
| syn region iconPreCondit start="^\s*$\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=iconComment,iconString,iconCharacter,iconNumber,iconCommentError,iconSpaceError |
| |
| syn region iconIncluded contained start=+"+ skip=+\\\\\|\\"+ end=+"+ |
| syn match iconIncluded contained "<[^>]*>" |
| syn match iconInclude "^\s*$\s*include\>\s*["<]" contains=iconIncluded |
| "syn match iconLineSkip "\\$" |
| |
| syn cluster iconPreProcGroup contains=iconPreCondit,iconIncluded,iconInclude,iconDefine,iconInParen,iconUserLabel |
| |
| syn region iconDefine start="^\s*$\s*\(define\>\|undef\>\)" skip="\\$" end="$" contains=ALLBUT,@iconPreProcGroup |
| |
| "wt:syn region iconPreProc "start="^\s*#\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" "end="$" contains=ALLBUT,@iconPreProcGroup |
| |
| " Highlight User Labels |
| |
| " syn cluster iconMultiGroup contains=iconIncluded,iconSpecial,iconTodo,iconUserCont,iconUserLabel,iconBitField |
| |
| if !exists("icon_minlines") |
| let icon_minlines = 15 |
| endif |
| exec "syn sync ccomment iconComment minlines=" . icon_minlines |
| |
| " Define the default highlighting. |
| |
| " Only when an item doesn't have highlighting |
| |
| " The default methods for highlighting. Can be overridden later |
| |
| " hi def link iconSpecialCharacter iconSpecial |
| |
| hi def link iconOctalError iconError |
| hi def link iconParenError iconError |
| hi def link iconInParen iconError |
| hi def link iconCommentError iconError |
| hi def link iconSpaceError iconError |
| hi def link iconCommentError iconError |
| hi def link iconIncluded iconString |
| hi def link iconCommentString iconString |
| hi def link iconComment2String iconString |
| hi def link iconCommentSkip iconComment |
| |
| hi def link iconUserLabel Label |
| hi def link iconCharacter Character |
| hi def link iconNumber Number |
| hi def link iconRadix Number |
| hi def link iconFloat Float |
| hi def link iconInclude Include |
| hi def link iconPreProc PreProc |
| hi def link iconDefine Macro |
| hi def link iconError Error |
| hi def link iconStatement Statement |
| hi def link iconPreCondit PreCondit |
| hi def link iconString String |
| hi def link iconCset String |
| hi def link iconComment Comment |
| hi def link iconSpecial SpecialChar |
| hi def link iconTodo Todo |
| hi def link iconStorageClass StorageClass |
| hi def link iconFunction Statement |
| hi def link iconReserved Label |
| hi def link iconKeyword Operator |
| |
| "hi def link iconIdentifier Identifier |
| |
| |
| let b:current_syntax = "icon" |
| |
