1" VHDL filetype plugin
2" Language:    VHDL
3" Maintainer:  R.Shankar <shankar.r?freescale.com>
4" Modified By: Gerald Lai <laigera+vim?gmail.com>
5" Last Change: 2006 Feb 16
6
7" Only do this when not done yet for this buffer
8if exists("b:did_ftplugin")
9  finish
10endif
11
12" Don't load another plugin for this buffer
13let b:did_ftplugin = 1
14
15" Set 'formatoptions' to break comment lines but not other lines,
16" and insert the comment leader when hitting <CR> or using "o".
17"setlocal fo-=t fo+=croqlm1
18
19" Set 'comments' to format dashed lists in comments.
20"setlocal comments=sO:*\ -,mO:*\ \ ,exO:*/,s1:/*,mb:*,ex:*/,://
21
22" Format comments to be up to 78 characters long
23"setlocal tw=75
24
25set cpo-=C
26
27" Win32 can filter files in the browse dialog
28"if has("gui_win32") && !exists("b:browsefilter")
29"  let b:browsefilter = "Verilog Source Files (*.v)\t*.v\n" .
30"   \ "All Files (*.*)\t*.*\n"
31"endif
32
33" Let the matchit plugin know what items can be matched.
34if ! exists("b:match_words")  &&  exists("loaded_matchit")
35  let b:match_ignorecase=1
36  let s:notend = '\%(\<end\s\+\)\@<!'
37  let b:match_words =
38    \ s:notend.'\<if\>:\<elsif\>:\<else\>:\<end\s\+if\>,'.
39    \ s:notend.'\<case\>:\<when\>:\<end\s\+case\>,'.
40    \ s:notend.'\<loop\>:\<end\s\+loop\>,'.
41    \ s:notend.'\<for\>:\<end\s\+for\>,'.
42    \ s:notend.'\<generate\>:\<end\s\+generate\>,'.
43    \ s:notend.'\<record\>:\<end\s\+record\>,'.
44    \ s:notend.'\<units\>:\<end\s\+units\>,'.
45    \ s:notend.'\<process\>:\<end\s\+process\>,'.
46    \ s:notend.'\<block\>:\<end\s\+block\>,'.
47    \ s:notend.'\<function\>:\<end\s\+function\>,'.
48    \ s:notend.'\<entity\>:\<end\s\+entity\>,'.
49    \ s:notend.'\<component\>:\<end\s\+component\>,'.
50    \ s:notend.'\<architecture\>:\<end\s\+architecture\>,'.
51    \ s:notend.'\<package\>:\<end\s\+package\>,'.
52    \ s:notend.'\<procedure\>:\<end\s\+procedure\>,'.
53    \ s:notend.'\<configuration\>:\<end\s\+configuration\>'
54endif
55
56" count repeat
57function! <SID>CountWrapper(cmd)
58  let i = v:count1
59  if a:cmd[0] == ":"
60    while i > 0
61      execute a:cmd
62      let i = i - 1
63    endwhile
64  else
65    execute "normal! gv\<Esc>"
66    execute "normal ".i.a:cmd
67    let curcol = col(".")
68    let curline = line(".")
69    normal! gv
70    call cursor(curline, curcol)
71  endif
72endfunction
73
74" explore motion
75" keywords: "architecture", "block", "configuration", "component", "entity", "function", "package", "procedure", "process", "record", "units"
76let b:vhdl_explore = '\%(architecture\|block\|configuration\|component\|entity\|function\|package\|procedure\|process\|record\|units\)'
77noremap  <buffer><silent>[[ :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\%(\\<end\\s\\+\\)\\@<!\\<".b:vhdl_explore."\\>\\c\\<Bar>\\%^","bW")')<CR>
78noremap  <buffer><silent>]] :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\%(\\<end\\s\\+\\)\\@<!\\<".b:vhdl_explore."\\>\\c\\<Bar>\\%$","W")')<CR>
79noremap  <buffer><silent>[] :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\<end\\s\\+".b:vhdl_explore."\\>\\c\\<Bar>\\%^","bW")')<CR>
80noremap  <buffer><silent>][ :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\<end\\s\\+".b:vhdl_explore."\\>\\c\\<Bar>\\%$","W")')<CR>
81vnoremap <buffer><silent>[[ :<C-u>cal <SID>CountWrapper('[[')<CR>
82vnoremap <buffer><silent>]] :<C-u>cal <SID>CountWrapper(']]')<CR>
83vnoremap <buffer><silent>[] :<C-u>cal <SID>CountWrapper('[]')<CR>
84vnoremap <buffer><silent>][ :<C-u>cal <SID>CountWrapper('][')<CR>
85