请问vim的quickfix如何不让它自动跳转到一个错误处？

Vim、Emacs配置和使用
回复
beyond93
帖子： 39
注册时间： 2005-05-06 0:46

请问vim的quickfix如何不让它自动跳转到一个错误处？

#1

帖子 由 beyond93 » 2009-08-09 21:21

如题！
页首
头像
eexpress
帖子： 58428
注册时间： 2005-08-14 21:55
来自： 长沙

Re: 请问vim的quickfix如何不让它自动跳转到一个错误处？

#2

帖子 由 eexpress » 2009-08-09 21:33

可quickfix就是作这事的啊。
带了行号索引的。
你为什么不要它跳。从这点说明下，估计更好解决你的问题。
● 鸣学
页首
beyond93
帖子： 39
注册时间： 2005-05-06 0:46

Re: 请问vim的quickfix如何不让它自动跳转到一个错误处？

#3

帖子 由 beyond93 » 2009-08-10 12:24

我把cscope的搜索结果放在quickfix窗口里，有时搜索结果有很多，自动跳转到第一个通常都不是我要的，
所以我想去掉这个功能
页首
suguineng
帖子： 4
注册时间： 2007-07-12 14:45

Re: 请问vim的quickfix如何不让它自动跳转到一个错误处？

#4

帖子 由 suguineng » 2009-08-21 18:37

:em11

我写了一个有关CSCOPE相关脚本,可以解决此问题

插件:cscope.vim

代码： 全选

""/*---------------------------------------------------------------------------
"" *	文件名称:	cscope.vim
"" *	内容摘要:	自定义cscope查找和显示,用于替代原有VIM里面白CSCOPE
"" *
"" *	修改纪录：	
"" *	修改人:	苏桂能 	日 期:	2009-8-20 
"" *	描  述:
"" *
"" *	Copyright (c) 2009, XINO.FZ.FJ.CN
"" *---------------------------------------------------------------------------*/

" 防止插件文件多次加载
if exists("s:m_CSCOPE_VIM_")
    finish
endif
let s:m_CSCOPE_VIM_ = 1


"/*-----------------------------------------------------------------------------
"	增加一些全局的环境配置变量
" *-----------------------------------------------------------------------------*/
" 配置所使用CSCOPE的程序名字
if !exists("g:CfgCsAppName")
    let g:CfgCsAppName = "cscope.exe"
endif

" 是否后台生成CSCOPE数据厍,默认使用后台生成, 目前还没有在LINUX平台下进行测试,只有在WINDOWS下测试通过
if !exists("g:CfgBgGenCsDB")
    let g:CfgBgGenCsDB = 1
endif

" 自动打开查找结果
if !exists("g:CfgAutoDisplayResult")
    let g:CfgAutoDisplayResult = 1
endif

"控制是否跳转第一个查找结果
if !exists("g:CfgAutoJumpToFirst")
    let g:CfgAutoJumpToFirst = 0
endif

"/*-----------------------------------------------------------------------------*/


"/*-----------------------------------------------------------------------------
"	 脚本变量控制
" *-----------------------------------------------------------------------------*/
" 生成数据厍的变量
let s:mCsGenDatabaseApp = g:CfgCsAppName." -b "

let s:mCsFindApp = g:CfgCsAppName." -C -d -f "

" 后台运行相关字符串
if has("win32")
    let s:mCsBgRunStr = "start /min "
else
    let s:mCsBgRunStr = "&"
endif

"/*-----------------------------------------------------------------------------*/


"/*---------------------------------------------------------------------------
" *	函数名称: 	CS_UpdateDatabase
" *	功能描述: 	更新CS数据厍
" *
" *	输入参数: 	fSrcListFile	源文件列表文件
"			fCsDatabase	CSCOPE的数据厍文件
" *	输出参数: 	无
" *	返 回 值:  	无
" *
" *	历史纪录：
" *	修改人		日期 			日志
" *	苏桂能	2009-8-21          	
" *---------------------------------------------------------------------------*/
function CS_UpdateDatabase( fSrcListFile, fCsDatabase ) 
    " 判断源文件列表文件是否存在
    if !filereadable( a:fSrcListFile )
	return 
    endif

    " 创建并执行命令
    let strGenDatabaseCmd = s:mCsGenDatabaseApp." -i ".a:fSrcListFile." -f ".a:fCsDatabase
    if g:CfgBgGenCsDB == 1
	if has("win32")
	    let strGenDatabaseCmd = s:mCsBgRunStr.strGenDatabaseCmd
	else 
	    let strGenDatabaseCmd = strGenDatabaseCmd.s:mCsBgRunStr
	endif
    endif
    silent! execute "!".strGenDatabaseCmd
endfunction


"/*---------------------------------------------------------------------------
" *	函数名称: 	CS_RunCsopeFindCmd
" *	功能描述: 	运行CSCOPE查找命令进行
" *
" *	输入参数: 	fCsDatabase	CS数据厍
" 			fCsFindType	要查找的类型
" 			fCsFindStr	要查找的字符串
" *	输出参数: 	
" *	返 回 值:  	返回命令运行的结果
" *
" *	历史纪录：
" *	修改人		日期 			日志
" *	苏桂能	2009-8-21          	
" *---------------------------------------------------------------------------*/
function CS_RunCsopeFindCmd( fCsDatabase, fCsFindType, fCsFindStr ) 
    let strFindResult = ""
    "参数合法性
    if !filereadable(a:fCsDatabase)
	echo "CS_RunCsopeFindCmd( fCsDatabase , fCsFindType, fCsFindStr ): fCsDatabasec Error"
	return strFindResult
    endif
    
    " 设置查找类型
    let strCsFindType = ""
    if a:fCsFindType == '0' || a:fCsFindType == 's'
	let strCsFindType = " -L -0 "  
    elseif a:fCsFindType == '1' || a:fCsFindType == 'g'
	let strCsFindType = " -L -1 "  
    elseif a:fCsFindType == '2' || a:fCsFindType == 'd'
	let strCsFindType = " -L -2 "  
    elseif a:fCsFindType == '3' || a:fCsFindType == 'c'
	let strCsFindType = " -L -3 "  
    elseif a:fCsFindType == '4' || a:fCsFindType == 't'
	let strCsFindType = " -L -4 "  
    elseif a:fCsFindType == '6' || a:fCsFindType == 'e'
	let strCsFindType = " -L -6 "  
    elseif a:fCsFindType == '7' || a:fCsFindType == 'f'
	let strCsFindType = " -L -7 "  
    elseif a:fCsFindType == '8' || a:fCsFindType == 'i'
	let strCsFindType = " -L -8 "  
    else
	echo "CS_RunCsopeFindCmd( fCsDatabase , fCsFindType, fCsFindStr ): fCsFindType Error"
	return strFindResult
    endif
    
    " 判断字符串是否为空
    if a:fCsFindStr == ""
	echo "CS_RunCsopeFindCmd( fCsDatabase , fCsFindType, fCsFindStr ): fCsFindStr Error"
	return strFindResult
    endif

    let strFindCmdStr = s:mCsFindApp.a:fCsDatabase.strCsFindType.a:fCsFindStr
    let strFindResult = system(shellescape(strFindCmdStr))

    return strFindResult

endfunction


"/*---------------------------------------------------------------------------
" *	函数名称: 	CS_FindSymbol
" *	功能描述: 	查找CSCOPE查找符号
" *
" *	输入参数: 	fCsDatabase	CS数据厍
" 			fCsFindType	要查找的类型
" 			fCsFindStr	要查找的字符串
" *	输出参数: 	
" *	返 回 值:  	
" *
" *	历史纪录：
" *	修改人		日期 			日志
" *	苏桂能	2009-8-21          	
" *---------------------------------------------------------------------------*/
function CS_FindSymbol( fCsDatabase, fCsFindType, fCsFindStr )
    
    let strCsDatabase = a:fCsDatabase
    if strCsDatabase == ""
	let strCsDatabase = "cscope.out"
    endif

    let strFindResult = CS_RunCsopeFindCmd( strCsDatabase, a:fCsFindType,a:fCsFindStr )


    " 临时文件
    let CsFindTempFile = tempname()
    let CsQuickFixTempFile = tempname()

    execute "redir! > ".CsFindTempFile
	silent echo strFindResult
    redir END

    let strCsFindType = ""
    if a:fCsFindType == '0' || a:fCsFindType == 's'
	let strCsFindType = "查找符号"  
    elseif a:fCsFindType == '1' || a:fCsFindType == 'g'
	let strCsFindType = "查找定义"  
    elseif a:fCsFindType == '2' || a:fCsFindType == 'd'
	let strCsFindType = "查找本函数调用的函数"  
    elseif a:fCsFindType == '3' || a:fCsFindType == 'c'
	let strCsFindType = "查找调用本函数的函数 "  
    elseif a:fCsFindType == '4' || a:fCsFindType == 't'
	let strCsFindType = "查找字符串"  
    elseif a:fCsFindType == '6' || a:fCsFindType == 'e'
	let strCsFindType = "查找egrep 模式"  
    elseif a:fCsFindType == '7' || a:fCsFindType == 'f'
	let strCsFindType = "查找文件"  
    elseif a:fCsFindType == '8' || a:fCsFindType == 'i'
	let strCsFindType = "查找包含本文件的文件"  
    else
	let strCsFindType = ""  
    endif

    execute "redir! > ".CsQuickFixTempFile
    let a:Line = ""
    silent! echo "===================================================================================="
    silent! echo "|\t".strCsFindType."[ ".a:fCsFindStr." ]"
    silent! echo "===================================================================================="
    for a:Line in readfile( CsFindTempFile )
	let strCmdOut = substitute( a:Line,"\\(.*\\) \\([0-9]\\+\\) \\(.*\\)$","\\2-\\1\t\\3","g")
	silent! echo strCmdOut
    endfor
    redir END

    let old_efm = &efm
    set efm=%l-%f\ %m
    if g:CfgAutoJumpToFirst
	execute "silent! cfile ".CsQuickFixTempFile
    else
	execute "silent! cgetfile ".CsQuickFixTempFile
    endif

    if g:CfgAutoDisplayResult
	copen
    endif

    let &efm = old_efm

    " 删除临时文件
    call delete(CsFindTempFile)
    call delete(CsQuickFixTempFile)
endfunction
插件使用方法:
其中:
g:m_PrjSrcListFile 指向存放源文件列表的文件
g:m_PrjCscopeDB 更新数据厍
更新数据厍:

代码： 全选

nmap <silent> ,ps	:call CS_UpdateDatabase(g:m_PrjSrcListFile,g:m_PrjCscopeDB)<CR>
可以将更新CSCOPE数据厍放在自动命令BufWritePost后,可以实现自动更新数据厍

代码： 全选

    	

let a:SrcPartern="*.c"
let a:autoCmd = "autocmd BufWritePost ".a:SrcPartern." call CS_UpdateDatabase(\"".g:m_PrjSrcListFile."\",\"".g:m_PrjCscopeDB."\")"
	execute a:autoCmd
查找相应的方法:

代码： 全选

nmap ,ts :call PRJ_SearchInCSDB("s")<CR>
nmap ,tg :call PRJ_SearchInCSDB("g")<CR>
                       
nmap ,tc :call PRJ_SearchInCSDB("c")<CR>
nmap ,td :call PRJ_SearchInCSDB("d")<CR>
                       
nmap ,tt :call PRJ_SearchInCSDB("t")<CR>
nmap ,te :call PRJ_SearchInCSDB("e")<CR>
                       
nmap ,tf :call PRJ_SearchInCSDB("f")<CR>
nmap ,ti :call PRJ_SearchInCSDB("i")<CR>

"/*---------------------------------------------------------------------------
" *	函数名称: 	PRJ_SearchInCSDB
" *	功能描述: 	在cscope中进行查找
" *
" *	输入参数: 	无
" *	输出参数: 	无
" *	返 回 值:  	无
" *
" *	历史纪录：
" *	修改人		日期 			日志
" *	苏桂能	2009-8-21          	
" *---------------------------------------------------------------------------*/
function PRJ_SearchInCSDB( fFindType )
    if a:fFindType == ""
	return
    endif

    let strFindStr = expand("<cword>")
    if strFindStr == ""
	return
    endif
     
    call CS_FindSymbol(g:m_PrjCscopeDB,a:fFindType,strFindStr)
endfunction

目前此脚本在WINDOWS上测试通过, 但没有在LINUX平台上做测试. 如果大家感兴趣,可以帮忙在LINUX下做一下测试. 谢谢.
页首
sarrow
帖子： 403
注册时间： 2007-10-27 1:04

Re: 请问vim的quickfix如何不让它自动跳转到一个错误处？

#5

帖子 由 sarrow » 2009-08-21 21:53

楼上的贡献了一个生成并管理csdb的插件，我就贡献一个函数，用来生成cscope.files的。

let g:csfiles_wildcard = "*.cpp *.c *.h *.hpp"

" function! Create_cscope_files(recurs) {{{3
function! Create_cscope_files(recurs)
let files = []
if a:recurs
let pattern = '**/*'
else
let pattern = '*'
endif
let files = split(glob(pattern), "\n")
call filter(files, '!isdirectory(v:val)')
call map(files, '"./".substitute(v:val, "\\", "/", "g")')
let pattern = escape(g:csfiles_wildcard, '.')
let pattern = substitute(pattern, ' \+', '\\|', 'g')
let pattern = substitute(pattern, '?', '.', 'g')
let pattern = substitute(pattern, '\*', '.*', 'g')
let pattern = '/\%('.pattern.'\)$'
call filter(files, 'v:val =~ pattern')
"echon join(files, "\n")
call writefile(files, "cscope.files")
endfunction

注，如果谁有兴趣，可以适当修改一下，一边适应可变后缀。
页首
回复

回到 “Vim和Emacs”