" VHDL filetype plugin
" Language:    VHDL
" Maintainer:  R.Shankar <shankar.pec?gmail.com>
" Modified By: Gerald Lai <laigera+mnv?gmail.com>
" Last Change: 2011 Dec 11
"              2024 Jan 14 by MNV Project (browsefilter)
"              2023 Aug 28 by MNV Project (undo_ftplugin, commentstring)

" Only do this when not done yet for this buffer
if exists("b:did_ftplugin")
  finish
endif

" Don't load another plugin for this buffer
let b:did_ftplugin = 1

let s:cpo_save = &cpo
set cpo&mnv

" Set 'formatoptions' to break comment lines but not other lines,
" and insert the comment leader when hitting <CR> or using "o".
"setlocal fo-=t fo+=croqlm1

" Set 'comments' to format dashed lists in comments.
"setlocal comments=sO:*\ -,mO:*\ \ ,exO:*/,s1:/*,mb:*,ex:*/,://

setlocal commentstring=--\ %s

" Format comments to be up to 78 characters long
"setlocal tw=75

let b:undo_ftplugin = "setl cms< "

" Win32 and GTK can filter files in the browse dialog
"if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter")
"  if has("win32")
"    let b:browsefilter ..= "All Files (*.*)\t*\n"
"  else
"    let b:browsefilter ..= "All Files (*)\t*\n"
"  endif
"  let b:undo_ftplugin .= " | unlet! b:browsefilter"
"endif

" Let the matchit plugin know what items can be matched.
if ! exists("b:match_words")  &&  exists("loaded_matchit")
  let b:match_ignorecase=1
  let s:notend = '\%(\<end\s\+\)\@<!'
  let b:match_words =
    \ s:notend.'\<if\>:\<elsif\>:\<else\>:\<end\s\+if\>,'.
    \ s:notend.'\<case\>:\<when\>:\<end\s\+case\>,'.
    \ s:notend.'\<loop\>:\<end\s\+loop\>,'.
    \ s:notend.'\<for\>:\<end\s\+for\>,'.
    \ s:notend.'\<generate\>:\<end\s\+generate\>,'.
    \ s:notend.'\<record\>:\<end\s\+record\>,'.
    \ s:notend.'\<units\>:\<end\s\+units\>,'.
    \ s:notend.'\<process\>:\<end\s\+process\>,'.
    \ s:notend.'\<block\>:\<end\s\+block\>,'.
    \ s:notend.'\<function\>:\<end\s\+function\>,'.
    \ s:notend.'\<entity\>:\<end\s\+entity\>,'.
    \ s:notend.'\<component\>:\<end\s\+component\>,'.
    \ s:notend.'\<architecture\>:\<end\s\+architecture\>,'.
    \ s:notend.'\<package\>:\<end\s\+package\>,'.
    \ s:notend.'\<procedure\>:\<end\s\+procedure\>,'.
    \ s:notend.'\<configuration\>:\<end\s\+configuration\>'
  let b:undo_ftplugin .= " | unlet! b:match_ignorecase b:match_words"
endif

if !exists("no_plugin_maps") && !exists("no_vhdl_maps")
  " count repeat
  function! <SID>CountWrapper(cmd)
    let i = v:count1
    if a:cmd[0] == ":"
      while i > 0
	execute a:cmd
	let i = i - 1
      endwhile
    else
      execute "normal! gv\<Esc>"
      execute "normal ".i.a:cmd
      let curcol = col(".")
      let curline = line(".")
      normal! gv
      call cursor(curline, curcol)
    endif
  endfunction

  " explore motion
  " keywords: "architecture", "block", "configuration", "component", "entity", "function", "package", "procedure", "process", "record", "units"
  let b:vhdl_explore = '\%(architecture\|block\|configuration\|component\|entity\|function\|package\|procedure\|process\|record\|units\)'
  noremap  <buffer><silent>[[ :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\%(\\<end\\s\\+\\)\\@<!\\<".b:vhdl_explore."\\>\\c\\<Bar>\\%^","bW")')<CR>
  noremap  <buffer><silent>]] :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\%(\\<end\\s\\+\\)\\@<!\\<".b:vhdl_explore."\\>\\c\\<Bar>\\%$","W")')<CR>
  noremap  <buffer><silent>[] :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\<end\\s\\+".b:vhdl_explore."\\>\\c\\<Bar>\\%^","bW")')<CR>
  noremap  <buffer><silent>][ :<C-u>cal <SID>CountWrapper(':cal search("\\%(--.*\\)\\@<!\\<end\\s\\+".b:vhdl_explore."\\>\\c\\<Bar>\\%$","W")')<CR>
  vnoremap <buffer><silent>[[ :<C-u>cal <SID>CountWrapper('[[')<CR>
  vnoremap <buffer><silent>]] :<C-u>cal <SID>CountWrapper(']]')<CR>
  vnoremap <buffer><silent>[] :<C-u>cal <SID>CountWrapper('[]')<CR>
  vnoremap <buffer><silent>][ :<C-u>cal <SID>CountWrapper('][')<CR>
  let b:undo_ftplugin .=
	\ " | silent! execute 'nunmap <buffer> [['" .
	\ " | silent! execute 'nunmap <buffer> ]]'" .
	\ " | silent! execute 'nunmap <buffer> []'" .
	\ " | silent! execute 'nunmap <buffer> ]['" .
	\ " | silent! execute 'vunmap <buffer> [['" .
	\ " | silent! execute 'vunmap <buffer> ]]'" .
	\ " | silent! execute 'vunmap <buffer> []'" .
	\ " | silent! execute 'vunmap <buffer> ]['"
endif

let &cpo = s:cpo_save
unlet s:cpo_save
