Mercurial > hg > RemoteEditor > vim7

comparison runtime/indent/occam.vim @ 48:67300faee616 v7-3-618

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
v7-3-618
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 01 Aug 2012 18:08:28 +0900
parents 76efa0be13f1
children
comparison
equal deleted inserted replaced
47:6c0584ec21b1 48:67300faee616
18 18
19 " Only define the function once 19 " Only define the function once
20 if exists("*GetOccamIndent") 20 if exists("*GetOccamIndent")
21 finish 21 finish
22 endif 22 endif
23 let s:keepcpo= &cpo
24 set cpo&vim
23 25
24 "{{{ Indent definitions 26 "{{{ Indent definitions
25 " Define carriage return indent 27 " Define carriage return indent
26 let s:FirstLevelIndent = '^\C\s*\(IF\|ALT\|PRI\s\+ALT\|PAR\|SEQ\|PRI\s\+PAR\|WHILE\|VALOF\|CLAIM\|FORKING\)\>\|\(--.*\)\@<!\(\<PROC\>\|??\|\<CASE\>\s*\(--.*\)\=\_$\)' 28 let s:FirstLevelIndent = '^\C\s*\(IF\|ALT\|PRI\s\+ALT\|PAR\|SEQ\|PRI\s\+PAR\|WHILE\|VALOF\|CLAIM\|FORKING\)\>\|\(--.*\)\@<!\(\<PROC\>\|??\|\<CASE\>\s*\(--.*\)\=\_$\)'
27 let s:FirstLevelNonColonEndIndent = '^\C\s*PROTOCOL\>\|\(--.*\)\@<!\<\(\(CHAN\|DATA\)\s\+TYPE\|FUNCTION\)\>' 29 let s:FirstLevelNonColonEndIndent = '^\C\s*PROTOCOL\>\|\(--.*\)\@<!\<\(\(CHAN\|DATA\)\s\+TYPE\|FUNCTION\)\>'
178 180
179 return curindent 181 return curindent
180 182
181 endfunction 183 endfunction
182 "}}} 184 "}}}
185
186 let &cpo = s:keepcpo
187 unlet s:keepcpo