|
7
|
1 " Vim syntax file
|
|
|
2 " Language: CHILL
|
|
|
3 " Maintainer: YoungSang Yoon <image@lgic.co.kr>
|
|
|
4 " Last change: 2004 Jan 21
|
|
|
5 "
|
|
|
6
|
|
|
7 " first created by image@lgic.co.kr & modified by paris@lgic.co.kr
|
|
|
8
|
|
|
9 " CHILL (CCITT High Level Programming Language) is used for
|
|
|
10 " developing software of ATM switch at LGIC (LG Information
|
|
|
11 " & Communications LTd.)
|
|
|
12
|
|
|
13
|
|
|
14 " For version 5.x: Clear all syntax items
|
|
|
15 " For version 6.x: Quit when a syntax file was already loaded
|
|
|
16 if version < 600
|
|
|
17 syntax clear
|
|
|
18 elseif exists("b:current_syntax")
|
|
|
19 finish
|
|
|
20 endif
|
|
|
21
|
|
|
22 " A bunch of useful CHILL keywords
|
|
|
23 syn keyword chillStatement goto GOTO return RETURN returns RETURNS
|
|
|
24 syn keyword chillLabel CASE case ESAC esac
|
|
|
25 syn keyword chillConditional if IF else ELSE elsif ELSIF switch SWITCH THEN then FI fi
|
|
|
26 syn keyword chillLogical NOT not
|
|
|
27 syn keyword chillRepeat while WHILE for FOR do DO od OD TO to
|
|
|
28 syn keyword chillProcess START start STACKSIZE stacksize PRIORITY priority THIS this STOP stop
|
|
|
29 syn keyword chillBlock PROC proc PROCESS process
|
|
|
30 syn keyword chillSignal RECEIVE receive SEND send NONPERSISTENT nonpersistent PERSISTENT peristent SET set EVER ever
|
|
|
31
|
|
|
32 syn keyword chillTodo contained TODO FIXME XXX
|
|
|
33
|
|
|
34 " String and Character constants
|
|
|
35 " Highlight special characters (those which have a backslash) differently
|
|
|
36 syn match chillSpecial contained "\\x\x\+\|\\\o\{1,3\}\|\\.\|\\$"
|
|
|
37 syn region chillString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=chillSpecial
|
|
|
38 syn match chillCharacter "'[^\\]'"
|
|
|
39 syn match chillSpecialCharacter "'\\.'"
|
|
|
40 syn match chillSpecialCharacter "'\\\o\{1,3\}'"
|
|
|
41
|
|
|
42 "when wanted, highlight trailing white space
|
|
|
43 if exists("chill_space_errors")
|
|
|
44 syn match chillSpaceError "\s*$"
|
|
|
45 syn match chillSpaceError " \+\t"me=e-1
|
|
|
46 endif
|
|
|
47
|
|
|
48 "catch errors caused by wrong parenthesis
|
|
|
49 syn cluster chillParenGroup contains=chillParenError,chillIncluded,chillSpecial,chillTodo,chillUserCont,chillUserLabel,chillBitField
|
|
|
50 syn region chillParen transparent start='(' end=')' contains=ALLBUT,@chillParenGroup
|
|
|
51 syn match chillParenError ")"
|
|
|
52 syn match chillInParen contained "[{}]"
|
|
|
53
|
|
|
54 "integer number, or floating point number without a dot and with "f".
|
|
|
55 syn case ignore
|
|
|
56 syn match chillNumber "\<\d\+\(u\=l\=\|lu\|f\)\>"
|
|
|
57 "floating point number, with dot, optional exponent
|
|
|
58 syn match chillFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
|
|
|
59 "floating point number, starting with a dot, optional exponent
|
|
|
60 syn match chillFloat "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
|
|
|
61 "floating point number, without dot, with exponent
|
|
|
62 syn match chillFloat "\<\d\+e[-+]\=\d\+[fl]\=\>"
|
|
|
63 "hex number
|
|
|
64 syn match chillNumber "\<0x\x\+\(u\=l\=\|lu\)\>"
|
|
|
65 "syn match chillIdentifier "\<[a-z_][a-z0-9_]*\>"
|
|
|
66 syn case match
|
|
|
67 " flag an octal number with wrong digits
|
|
|
68 syn match chillOctalError "\<0\o*[89]"
|
|
|
69
|
|
|
70 if exists("chill_comment_strings")
|
|
|
71 " A comment can contain chillString, chillCharacter and chillNumber.
|
|
|
72 " But a "*/" inside a chillString in a chillComment DOES end the comment! So we
|
|
|
73 " need to use a special type of chillString: chillCommentString, which also ends on
|
|
|
74 " "*/", and sees a "*" at the start of the line as comment again.
|
|
|
75 " Unfortunately this doesn't very well work for // type of comments :-(
|
|
|
76 syntax match chillCommentSkip contained "^\s*\*\($\|\s\+\)"
|
|
|
77 syntax region chillCommentString contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=chillSpecial,chillCommentSkip
|
|
|
78 syntax region chillComment2String contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=chillSpecial
|
|
|
79 syntax region chillComment start="/\*" end="\*/" contains=chillTodo,chillCommentString,chillCharacter,chillNumber,chillFloat,chillSpaceError
|
|
|
80 syntax match chillComment "//.*" contains=chillTodo,chillComment2String,chillCharacter,chillNumber,chillSpaceError
|
|
|
81 else
|
|
|
82 syn region chillComment start="/\*" end="\*/" contains=chillTodo,chillSpaceError
|
|
|
83 syn match chillComment "//.*" contains=chillTodo,chillSpaceError
|
|
|
84 endif
|
|
|
85 syntax match chillCommentError "\*/"
|
|
|
86
|
|
|
87 syn keyword chillOperator SIZE size
|
|
|
88 syn keyword chillType dcl DCL int INT char CHAR bool BOOL REF ref LOC loc INSTANCE instance
|
|
|
89 syn keyword chillStructure struct STRUCT enum ENUM newmode NEWMODE synmode SYNMODE
|
|
|
90 "syn keyword chillStorageClass
|
|
|
91 syn keyword chillBlock PROC proc END end
|
|
|
92 syn keyword chillScope GRANT grant SEIZE seize
|
|
|
93 syn keyword chillEDML select SELECT delete DELETE update UPDATE in IN seq SEQ WHERE where INSERT insert include INCLUDE exclude EXCLUDE
|
|
|
94 syn keyword chillBoolConst true TRUE false FALSE
|
|
|
95
|
|
|
96 syn region chillPreCondit start="^\s*#\s*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=chillComment,chillString,chillCharacter,chillNumber,chillCommentError,chillSpaceError
|
|
|
97 syn region chillIncluded contained start=+"+ skip=+\\\\\|\\"+ end=+"+
|
|
|
98 syn match chillIncluded contained "<[^>]*>"
|
|
|
99 syn match chillInclude "^\s*#\s*include\>\s*["<]" contains=chillIncluded
|
|
|
100 "syn match chillLineSkip "\\$"
|
|
|
101 syn cluster chillPreProcGroup contains=chillPreCondit,chillIncluded,chillInclude,chillDefine,chillInParen,chillUserLabel
|
|
|
102 syn region chillDefine start="^\s*#\s*\(define\>\|undef\>\)" skip="\\$" end="$" contains=ALLBUT,@chillPreProcGroup
|
|
|
103 syn region chillPreProc start="^\s*#\s*\(pragma\>\|line\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" contains=ALLBUT,@chillPreProcGroup
|
|
|
104
|
|
|
105 " Highlight User Labels
|
|
|
106 syn cluster chillMultiGroup contains=chillIncluded,chillSpecial,chillTodo,chillUserCont,chillUserLabel,chillBitField
|
|
|
107 syn region chillMulti transparent start='?' end=':' contains=ALLBUT,@chillMultiGroup
|
|
|
108 " Avoid matching foo::bar() in C++ by requiring that the next char is not ':'
|
|
|
109 syn match chillUserCont "^\s*\I\i*\s*:$" contains=chillUserLabel
|
|
|
110 syn match chillUserCont ";\s*\I\i*\s*:$" contains=chillUserLabel
|
|
|
111 syn match chillUserCont "^\s*\I\i*\s*:[^:]"me=e-1 contains=chillUserLabel
|
|
|
112 syn match chillUserCont ";\s*\I\i*\s*:[^:]"me=e-1 contains=chillUserLabel
|
|
|
113
|
|
|
114 syn match chillUserLabel "\I\i*" contained
|
|
|
115
|
|
|
116 " Avoid recognizing most bitfields as labels
|
|
|
117 syn match chillBitField "^\s*\I\i*\s*:\s*[1-9]"me=e-1
|
|
|
118 syn match chillBitField ";\s*\I\i*\s*:\s*[1-9]"me=e-1
|
|
|
119
|
|
|
120 syn match chillBracket contained "[<>]"
|
|
|
121 if !exists("chill_minlines")
|
|
|
122 let chill_minlines = 15
|
|
|
123 endif
|
|
|
124 exec "syn sync ccomment chillComment minlines=" . chill_minlines
|
|
|
125
|
|
|
126 " Define the default highlighting.
|
|
|
127 " For version 5.7 and earlier: only when not done already
|
|
|
128 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
129 if version >= 508 || !exists("did_ch_syntax_inits")
|
|
|
130 if version < 508
|
|
|
131 let did_ch_syntax_inits = 1
|
|
|
132 command -nargs=+ HiLink hi link <args>
|
|
|
133 else
|
|
|
134 command -nargs=+ HiLink hi def link <args>
|
|
|
135 endif
|
|
|
136
|
|
|
137 HiLink chillLabel Label
|
|
|
138 HiLink chillUserLabel Label
|
|
|
139 HiLink chillConditional Conditional
|
|
|
140 " hi chillConditional term=bold ctermfg=red guifg=red gui=bold
|
|
|
141
|
|
|
142 HiLink chillRepeat Repeat
|
|
|
143 HiLink chillProcess Repeat
|
|
|
144 HiLink chillSignal Repeat
|
|
|
145 HiLink chillCharacter Character
|
|
|
146 HiLink chillSpecialCharacter chillSpecial
|
|
|
147 HiLink chillNumber Number
|
|
|
148 HiLink chillFloat Float
|
|
|
149 HiLink chillOctalError chillError
|
|
|
150 HiLink chillParenError chillError
|
|
|
151 HiLink chillInParen chillError
|
|
|
152 HiLink chillCommentError chillError
|
|
|
153 HiLink chillSpaceError chillError
|
|
|
154 HiLink chillOperator Operator
|
|
|
155 HiLink chillStructure Structure
|
|
|
156 HiLink chillBlock Operator
|
|
|
157 HiLink chillScope Operator
|
|
|
158 "hi chillEDML term=underline ctermfg=DarkRed guifg=Red
|
|
|
159 HiLink chillEDML PreProc
|
|
|
160 "hi chillBoolConst term=bold ctermfg=brown guifg=brown
|
|
|
161 HiLink chillBoolConst Constant
|
|
|
162 "hi chillLogical term=bold ctermfg=brown guifg=brown
|
|
|
163 HiLink chillLogical Constant
|
|
|
164 HiLink chillStorageClass StorageClass
|
|
|
165 HiLink chillInclude Include
|
|
|
166 HiLink chillPreProc PreProc
|
|
|
167 HiLink chillDefine Macro
|
|
|
168 HiLink chillIncluded chillString
|
|
|
169 HiLink chillError Error
|
|
|
170 HiLink chillStatement Statement
|
|
|
171 HiLink chillPreCondit PreCondit
|
|
|
172 HiLink chillType Type
|
|
|
173 HiLink chillCommentError chillError
|
|
|
174 HiLink chillCommentString chillString
|
|
|
175 HiLink chillComment2String chillString
|
|
|
176 HiLink chillCommentSkip chillComment
|
|
|
177 HiLink chillString String
|
|
|
178 HiLink chillComment Comment
|
|
|
179 " hi chillComment term=None ctermfg=lightblue guifg=lightblue
|
|
|
180 HiLink chillSpecial SpecialChar
|
|
|
181 HiLink chillTodo Todo
|
|
|
182 HiLink chillBlock Statement
|
|
|
183 "HiLink chillIdentifier Identifier
|
|
|
184 HiLink chillBracket Delimiter
|
|
|
185
|
|
|
186 delcommand HiLink
|
|
|
187 endif
|
|
|
188
|
|
|
189 let b:current_syntax = "chill"
|
|
|
190
|
|
|
191 " vim: ts=8
|
