用visualmark快速定位inst

今天发现了一个插件：visualmark，相当于一个书签，按ctrl+F2可以将某一行作为书签，高亮显示。F2可以在标注的书签之间切换。mm也有F2同样的功能。

下载地址：http://www.vim.org/scripts/script.php?script_id=1026

安装方法：直接放到插件文件夹$VIM/plugin

 

虽然这个书签在平时没什么大用，但是可以用他来实现一下例化模块的快速查找。

 

在低层模块比较多的模块中，尤其是顶层文件，taglist只能显示component，不能指定到具体例化的位置。用该插件自动标注“_inst”的位置，F2来切换跳转，虽然不能有单独的列表，但也比以前没有的时候方便了点。（自己不会写插件，改改插件还是可以的）。

 

实现后大概就是下面的样子，打开文件自动标注inst：

下面是实现过程：

1     仍然要修改插件的代码，在visualmark.vim中加入以下函数：

"------------------------------------------------------------------------------
"Add by myself
"Function    : AutoMarkInst() 
"Description : Auto Mark The line of inst 
"               Must set the inst name such as : abc_inst : abc 
"               Must have the plugin "visualmark"
"------------------------------------------------------------------------------   
" AutoMarkInst:
function AutoMarkInst()
    let line = 1
    while line <= line("$")
        let flag_mark = match(getline(line),"_inst")
        if (flag_mark != -1)
            let curr_line_number = line
            let sign_id = s:Vm_get_sign_id_from_line(curr_line_number)

            if sign_id < 0
                let is_on = 0
            else
                let is_on = 1
            endif

            if (is_on != 1)
                if !exists("b:Vm_sign_number")
                    let b:Vm_sign_number = 1
                endif

                exe 'sign define SignSymbol linehl=SignColor texthl=SignColor'
                exe 'sign place ' . b:Vm_sign_number . ' line=' . line . ' name=SignSymbol buffer=' . winbufnr(0)

                let vsn              = b:Vm_sign_number
                let b:Vm_sign_number = b:Vm_sign_number + 1
            endif
        endif
        let line = line + 1
    endwhile
endfunction
autocmd BufWinEnter *.vhd call AutoMarkInst() 

 

2   颜色可以自己修改，在插件开头位置，我把原来的颜色换掉了：

if &bg == "dark"
" highlight SignColor ctermfg=white ctermbg=blue guifg=white guibg=RoyalBlue3
 highlight SignColor ctermfg=black ctermbg=darkmagenta guifg=white guibg=darkcyan
else
 highlight SignColor ctermbg=white ctermfg=blue guibg=grey guifg=RoyalBlue3
endif

3    快捷键太多了，把mm这个快捷键去掉了

"  map <silent> <unique> mm <Plug>Vm_toggle_sign

4     vimrc中原来设置F2是保存，我一般都使用“,w”，不用F2按键，现在改成切换mark也可以。

PS： 例化时写成这种模式：abc_inst : abc ，才能检测到。

把整个插件的源文档贴在这：

visualmark.vim 

1 " Visual Mark
2 " 2005-10-27, brian wang
3 "
4 " Acknowledgements:
5 " - Thanks to Hari Krishna Dara's genutils.vim (http://vim.sourceforge.net/scripts/script.php?script_id=197)
6 " - Thanks to Mr. Charles E. Campbell, Jr. for making this script more plugin-like :-)
7 " - Thanks to Mr. Charles E. Campbell, Jr. for making this script adapt to
8 " dark/light backgrounds
9 " - Thanks to Evgeny Filatov for noticing a nasty bug in Vm_get_line_number :-)
10  
11   if exists( " loaded_VisualMark " )
12 finish
13 endif
14 let loaded_VisualMark = 1
15   if ! has( " signs " )
16 echoerr " ***sorry*** [ " .expand( " % " ). " ] your vim doesn't support signs "
17 finish
18 endif
19
20   if & bg == " dark "
21 " highlight SignColor ctermfg=white ctermbg=blue guifg=white guibg=RoyalBlue3
22 highlight SignColor ctermfg = black ctermbg = darkmagenta guifg = white guibg = darkcyan
23 else
24 highlight SignColor ctermbg = white ctermfg = blue guibg = grey guifg = RoyalBlue3
25 endif
26
27 " ---------------------------------------------------------------------
28 " Public Interface:
29 if ! hasmapto( ' <Plug>Vm_toggle_sign ' )
30 map < unique > < c - F2 > < Plug > Vm_toggle_sign
31 " map <silent> <unique> mm <Plug>Vm_toggle_sign
32 endif
33 nnoremap < silent > < script > < Plug > Vm_toggle_sign :call Vm_toggle_sign() < cr >
34
35 if ! hasmapto( ' <Plug>Vm_goto_next_sign ' )
36 map < unique > < F2 > < Plug > Vm_goto_next_sign
37 endif
38 nnoremap < silent > < script > < Plug > Vm_goto_next_sign :call Vm_goto_next_sign() < cr >
39
40 if ! hasmapto( ' <Plug>Vm_goto_prev_sign ' )
41 map < unique > < s - F2 > < Plug > Vm_goto_prev_sign
42 endif
43 nnoremap < silent > < script > < Plug > Vm_goto_prev_sign :call Vm_goto_prev_sign() < cr >
44
45 " ---------------------------------------------------------------------
46 " GetVimCmdOutput:
47 " Stole from Hari Krishna Dara's genutils.vim (http://vim.sourceforge.net/scripts/script.php?script_id=197)
48 " to ease the scripts dependency issue
49 fun ! s:GetVimCmdOutput(cmd)
50 " call Dfunc( " GetVimCmdOutput(cmd. " .a:cmd. " > ) " )
51
52 " Save the original locale setting for the messages
53 let old_lang = v:lang
54
55 " Set the language to English
56 exec " :lan mes en_US "
57
58 let v:errmsg = ''
59 let output = ''
60 let _z = @z
61
62 try
63 redir @z
64 silent exe a:cmd
65 catch / . */
66 let v:errmsg = substitute(v:exception, ' ^[^:]\+: ' , '' , '' )
67 finally
68 redir END
69 if v:errmsg == ''
70 let output = @z
71 endif
72 let @z = _z
73 endtry
74
75 " Restore the original locale
76 exec " :lan mes " . old_lang
77
78 " call Dret( " GetVimCmdOutput < " .output. " > " )
79 return output
80 endfun
81
82 " ---------------------------------------------------------------------
83 " Vm_place_sign:
84 fun ! s:Vm_place_sign()
85 " call Dfunc( " Vm_place_sign() " )
86
87 if ! exists( " b:Vm_sign_number " )
88 let b:Vm_sign_number = 1
89 endif
90
91 let ln = line ( " . " )
92
93 exe ' sign define SignSymbol linehl=SignColor texthl=SignColor '
94 exe ' sign place ' . b:Vm_sign_number . ' line= ' . ln . ' name=SignSymbol buffer= ' . winbufnr( 0 )
95
96 let vsn = b:Vm_sign_number
97 let b:Vm_sign_number = b:Vm_sign_number + 1
98
99 " call Dret( " Vm_place_sign : sign# " .vsn. " line # " .ln. " buf# " .winbufnr(0))
100 endfun
101
102 " ---------------------------------------------------------------------
103 " Vm_remove_sign:
104 fun ! s:Vm_remove_sign(sign_id)
105 " call Dfunc( " Vm_remove_sign(sign_id = " .a:sign_id. " ) " )
106 silent ! exe ' sign unplace ' . a:sign_id . ' buffer= ' . winbufnr( 0 )
107 " call Dret( " Vm_remove_sign " )
108 endfun
109
110 " ---------------------------------------------------------------------
111 " Vm_remove_all_signs:
112 fun ! s:Vm_remove_all_signs()
113 " call Dfunc( " Vm_remove_all_signs() " )
114 silent ! exe ' sign unplace * '
115 " call Dret( " Vm_remove_all_signs " )
116 endfun
117
118 " ---------------------------------------------------------------------
119 " Vm_get_sign_id_from_line:
120 fun ! s:Vm_get_sign_id_from_line(line_number)
121 " call Dfunc( " Vm_get_sign_id_from_line(line_number = " .a:line_number. " ) " )
122
123 let sign_list = s:GetVimCmdOutput( ' sign place buffer= ' . winbufnr( 0 ))
124 " call Decho(sign_list)
125
126 let line_str_index = match(sign_list, " line= " . a:line_number, 0 )
127 if line_str_index < 0
128 " call Dret( " Vm_get_sign_id_from_line - 1 " )
129 return - 1
130 endif
131
132 let id_str_index = matchend(sign_list, " id= " , line_str_index)
133 " let tmp = strpart(sign_list, id_str_index, 10) " Decho
134 " call Decho( " ID str index: " . tmp)
135 if id_str_index < 0
136 " call Dret( " Vm_get_sign_id_from_line - 1 " )
137 return - 1
138 endif
139
140 let space_index = match(sign_list, " " , id_str_index)
141 let id = strpart(sign_list, id_str_index, space_index - id_str_index)
142
143 " call Dret( " Vm_get_sign_id_from_line " .id)
144 return id
145 endfun
146
147 " ---------------------------------------------------------------------
148 " Vm_toggle_sign:
149 fun ! Vm_toggle_sign()
150 " call Dfunc( " Vm_toggle_sign() " )
151
152 let curr_line_number = line ( " . " )
153 let sign_id = s:Vm_get_sign_id_from_line(curr_line_number)
154
155 if sign_id < 0
156 let is_on = 0
157 else
158 let is_on = 1
159 endif
160
161 if (is_on != 0 )
162 call s:Vm_remove_sign(sign_id)
163 else
164 call s:Vm_place_sign()
165 endif
166
167 " call Dret( " Vm_toggle_sign " )
168 endfun
169
170 " ---------------------------------------------------------------------
171 " Vm_get_line_number:
172 fun ! s:Vm_get_line_number( string )
173 " call Dfunc( " Vm_get_line_number( string < " .a:string. " > ) " )
174
175 let line_str_index = match(a: string , " line= " , b:Vm_start_from)
176 if line_str_index <= 0
177 " call Dret( " Vm_get_line_number - 1 " )
178 return - 1
179 endif
180
181 let equal_sign_index = match(a: string , " = " , line_str_index)
182 let space_index = match(a: string , " " , equal_sign_index)
183 let line_number = strpart(a: string , equal_sign_index + 1 , space_index - equal_sign_index - 1 )
184 let b:Vm_start_from = space_index
185
186 " call Dret( " Vm_get_line_number " .line_number. " : = indx: " .equal_sign_index. " _indx = " .space_index)
187 return line_number + 0
188 endfun
189
190 " ---------------------------------------------------------------------
191 " Vm_get_next_sign_line:
192 fun ! s:Vm_get_next_sign_line(curr_line_number)
193 " call Dfunc( " Vm_get_next_sign_line(curr_line_number = " .a:curr_line_number. " > ) " )
194
195 let b:Vm_start_from = 1
196 let sign_list = s:GetVimCmdOutput( ' sign place buffer= ' . winbufnr( 0 ))
197 " call Decho( " sign_list < " .sign_list. " > " )
198
199 let curr_line_number = a:curr_line_number
200 let line_number = 1
201 let is_no_sign = 1
202 let min_line_number = - 1
203 let min_line_number_diff = 0
204
205 while 1
206 let line_number = s:Vm_get_line_number(sign_list)
207 if line_number < 0
208 break
209 endif
210
211 " Record the very first line that has a sign
212 if is_no_sign != 0
213 let min_line_number = line_number
214 elseif line_number < min_line_number
215 let min_line_number = line_number
216 endif
217 let is_no_sign = 0
218
219 " let tmp_diff = curr_line_number - line_number
220 let tmp_diff = line_number - curr_line_number
221 if tmp_diff > 0
222 " line_number is below curr_line_number
223 if min_line_number_diff > 0
224 if tmp_diff < min_line_number_diff
225 let min_line_number_diff = tmp_diff
226 endif
227 else
228 let min_line_number_diff = tmp_diff
229 endif
230 endif
231
232 " call Decho( " [DBG] Line Diff: # " . min_line_number_diff)
233 endwhile
234
235 let line_number = curr_line_number + min_line_number_diff
236 " call Decho( " [DBG] Line Diff: # " . min_line_number_diff)
237 " call Decho( " [DBG] Line Num: # " . line_number)
238
239 if is_no_sign != 0 || min_line_number_diff <= 0
240 let line_number = min_line_number
241 endif
242
243 " call Dret( " Vm_get_next_sign_line " .line_number . " XXX " )
244 return line_number
245 endfun
246
247 " ---------------------------------------------------------------------
248 " Vm_get_prev_sign_line:
249 fun ! s:Vm_get_prev_sign_line(curr_line_number)
250 " call Dfunc( " Vm_get_prev_sign_line(curr_line_number = " .a:curr_line_number. " > ) " )
251
252 let b:Vm_start_from = 1
253 let sign_list = s:GetVimCmdOutput( ' sign place buffer= ' . winbufnr( 0 ))
254 " call Decho( " sign_list < " .sign_list. " > " )
255
256 let curr_line_number = a:curr_line_number
257 let line_number = 1
258 let is_no_sign = 1
259 let max_line_number = - 1
260 let max_line_number_diff = 0
261
262 while 1
263 let line_number = s:Vm_get_line_number(sign_list)
264 if line_number < 0
265 break
266 endif
267
268 " Record the very first line that has a sign
269 if is_no_sign != 0
270 let max_line_number = line_number
271 elseif line_number > max_line_number
272 let max_line_number = line_number
273 endif
274 let is_no_sign = 0
275
276 let tmp_diff = curr_line_number - line_number
277 if tmp_diff > 0
278 " line_number is below curr_line_number
279 if max_line_number_diff > 0
280 if tmp_diff < max_line_number_diff
281 let max_line_number_diff = tmp_diff
282 endif
283 else
284 let max_line_number_diff = tmp_diff
285 endif
286 endif
287
288 " call Decho( " [DBG] Line Diff: # " . max_line_number_diff)
289 " call Decho( " [DBG] Tmp Diff: # " . tmp_diff)
290 endwhile
291
292 let line_number = curr_line_number - max_line_number_diff
293 " call Decho( " [DBG] Line Diff: # " . max_line_number_diff)
294 " call Decho( " [DBG] Line Num: # " . line_number)
295
296 if is_no_sign != 0 || max_line_number_diff <= 0
297 let line_number = max_line_number
298 endif
299
300 " call Dret( " Vm_get_prev_sign_line " .line_number . " XXX " )
301 return line_number
302 endfun
303
304 " ---------------------------------------------------------------------
305 " Vm_goto_next_sign:
306 fun ! Vm_goto_next_sign()
307 " call Dfunc( " Vm_goto_next_sign() " )
308
309 let curr_line_number = line ( " . " )
310 let next_sign_line_number = s:Vm_get_next_sign_line(curr_line_number)
311
312 " call Decho( " Next sign line #: " . next_sign_line_number)
313 if next_sign_line_number >= 0
314 exe " : " . next_sign_line_number
315 " call Decho( " Going to Line # " . next_sign_line_number)
316 endif
317
318 " call Dret( " Vm_goto_next_sign " )
319 endfun
320
321 " ---------------------------------------------------------------------
322 " Vm_goto_prev_sign:
323 fun ! Vm_goto_prev_sign()
324 " call Dfunc( " Vm_goto_prev_sign() " )
325
326 let curr_line_number = line ( " . " )
327 let prev_sign_line_number = s:Vm_get_prev_sign_line(curr_line_number)
328 " call Decho( " Previous sign line #: " . prev_sign_line_number)
329
330 if prev_sign_line_number >= 0
331 exe prev_sign_line_number
332 endif
333
334 " call Dret( " Vm_goto_prev_sign " )
335 endfun
336
337 " ---------------------------------------------------------------------
338 " ------------------------------------------------------------------------------
339 " Add by myself
340 " Function : AutoMarkInst()
341 " Description : Auto Mark The line of inst
342 " Must set the inst name such as : abc_inst : abc
343 " Must have the plugin " visualmark "
344 " ------------------------------------------------------------------------------
345 " AutoMarkInst:
346 function AutoMarkInst()
347 let line = 1
348 while line <= line ( " $ " )
349 let flag_mark = match(getline( line ), " _inst " )
350 if (flag_mark != - 1 )
351 let curr_line_number = line
352 let sign_id = s:Vm_get_sign_id_from_line(curr_line_number)
353
354 if sign_id < 0
355 let is_on = 0
356 else
357 let is_on = 1
358 endif
359
360 if (is_on != 1 )
361 if ! exists( " b:Vm_sign_number " )
362 let b:Vm_sign_number = 1
363 endif
364
365 exe ' sign define SignSymbol linehl=SignColor texthl=SignColor '
366 exe ' sign place ' . b:Vm_sign_number . ' line= ' . line . ' name=SignSymbol buffer= ' . winbufnr( 0 )
367
368 let vsn = b:Vm_sign_number
369 let b:Vm_sign_number = b:Vm_sign_number + 1
370 endif
371 endif
372 let line = line + 1
373 endwhile
374 endfunction
375 autocmd BufWinEnter * .vhd call AutoMarkInst()
376

 

 http://files.cnblogs.com/ifys/visualmark.rar

 

转载于:https://www.cnblogs.com/ifys/archive/2010/11/16/1878322.html