Mercurial > vim

comparison runtime/syntax/dcl.vim @ 10048:43efa4f5a8ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/89bcfda6834aba724d12554a34b9ed49f5789fd5 Author: Bram Moolenaar <Bram@vim.org> Date: Tue Aug 30 23:26:57 2016 +0200 Updated runtime files. Remove version checks for Vim older than 6.0.
author Christian Brabandt <cb@256bit.org>
date Tue, 30 Aug 2016 23:30:09 +0200
parents 9305a1251e51
children 46763b01cd9a
comparison
equal deleted inserted replaced
10047:a62862410ca1 10048:43efa4f5a8ea
3 " Maintainer: Charles E. Campbell <NdrOchipS@PcampbellAfamily.Mbiz> 3 " Maintainer: Charles E. Campbell <NdrOchipS@PcampbellAfamily.Mbiz>
4 " Last Change: May 02, 2016 4 " Last Change: May 02, 2016
5 " Version: 9 5 " Version: 9
6 " URL: http://www.drchip.org/astronaut/vim/index.html#SYNTAX_DCL 6 " URL: http://www.drchip.org/astronaut/vim/index.html#SYNTAX_DCL
7 7
8 " For version 5.x: Clear all syntax items 8 " quit when a syntax file was already loaded
9 " For version 6.x: Quit when a syntax file was already loaded 9 if exists("b:current_syntax")
10 if version < 600
11 syntax clear
12 elseif exists("b:current_syntax")
13 finish 10 finish
14 endif 11 endif
15 12
16 if !has("patch-7.4.1142") 13 if !has("patch-7.4.1142")
17 setlocal iskeyword=$,@,48-57,_ 14 setlocal iskeyword=$,@,48-57,_
112 "syn region dclFuncList matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,@dclNextGroups 109 "syn region dclFuncList matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,@dclNextGroups
113 syn region dclFuncList matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,dclCmdDirPath,dclCmdProc,dclCmdProc,dclDirPath,dclFilename,dclFilename,dclMdfySet,dclMdfySetString,delCmdProc,dclExe,dclTodo 110 syn region dclFuncList matchgroup=Delimiter start="(" matchgroup=Delimiter end=")" contains=ALLBUT,dclCmdDirPath,dclCmdProc,dclCmdProc,dclDirPath,dclFilename,dclFilename,dclMdfySet,dclMdfySetString,delCmdProc,dclExe,dclTodo
114 syn match dclError ")" 111 syn match dclError ")"
115 112
116 " Define the default highlighting. 113 " Define the default highlighting.
117 " For version 5.7 and earlier: only when not done already 114 " Only when an item doesn't have highlighting yet
118 " For version 5.8 and later: only when an item doesn't have highlighting yet 115 command -nargs=+ HiLink hi def link <args>
119 if version >= 508 || !exists("did_dcl_syntax_inits")
120 if version < 508
121 let did_dcl_syntax_inits = 1
122 command -nargs=+ HiLink hi link <args>
123 else
124 command -nargs=+ HiLink hi def link <args>
125 endif
126 116
127 HiLink dclLogOper dclError 117 HiLink dclLogOper dclError
128 HiLink dclLogical dclOper 118 HiLink dclLogical dclOper
129 HiLink dclLogSep dclSep 119 HiLink dclLogSep dclSep
130 120
131 HiLink dclAssign Operator 121 HiLink dclAssign Operator
132 HiLink dclCmdProc Special 122 HiLink dclCmdProc Special
133 HiLink dclCmdProcStart Operator 123 HiLink dclCmdProcStart Operator
134 HiLink dclComment Comment 124 HiLink dclComment Comment
135 HiLink dclContinue Statement 125 HiLink dclContinue Statement
136 HiLink dclDevice Identifier 126 HiLink dclDevice Identifier
137 HiLink dclDirPath Identifier 127 HiLink dclDirPath Identifier
138 HiLink dclDirPath Identifier 128 HiLink dclDirPath Identifier
139 HiLink dclDirSep Delimiter 129 HiLink dclDirSep Delimiter
140 HiLink dclError Error 130 HiLink dclError Error
141 HiLink dclExe Statement 131 HiLink dclExe Statement
142 HiLink dclFilename NONE 132 HiLink dclFilename NONE
143 HiLink dclGotoLabel Label 133 HiLink dclGotoLabel Label
144 HiLink dclInstr Statement 134 HiLink dclInstr Statement
145 HiLink dclLexical Function 135 HiLink dclLexical Function
146 HiLink dclMdfy Type 136 HiLink dclMdfy Type
147 HiLink dclMdfyBrkt Delimiter 137 HiLink dclMdfyBrkt Delimiter
148 HiLink dclMdfySep Delimiter 138 HiLink dclMdfySep Delimiter
149 HiLink dclMdfySet Type 139 HiLink dclMdfySet Type
150 HiLink dclMdfySetString String 140 HiLink dclMdfySetString String
151 HiLink dclNumber Number 141 HiLink dclNumber Number
152 HiLink dclOper Operator 142 HiLink dclOper Operator
153 HiLink dclParam Special 143 HiLink dclParam Special
154 HiLink dclSep Delimiter 144 HiLink dclSep Delimiter
155 HiLink dclStart Delimiter 145 HiLink dclStart Delimiter
156 HiLink dclString String 146 HiLink dclString String
157 HiLink dclTodo Todo 147 HiLink dclTodo Todo
158 148
159 delcommand HiLink 149 delcommand HiLink
160 endif
161 150
162 let b:current_syntax = "dcl" 151 let b:current_syntax = "dcl"
163 152
164 " vim: ts=16 153 " vim: ts=16