On Oct 9, 8:28 am, Christian Brabandt <[email protected]> wrote:
> Hi sinbad!
>
> On Sa, 08 Okt 2011, sinbad wrote:
>
> > does it matter how these entries are created (lgrep, lexpr)...?
> > For filling location lists, the script i am using uses 'lexpr' to
> > populate the location-list entries, the files are C source file.
> > I believe you might have used lgrep or someother command,
> > if you happen to work C code, can you try the same thing works
> > for Cscope results on quickfix or location lists. Clearly It didn't
> > work for me.
>
> > thanks for checking out for me.
>
> Can you give us a reproducible example how you created the location list
> and what you did to test it? Oh and what version are you using?
>
> regards,
> Christian
As an example i am using vim 7.3 source code. I am listing all the
references
of the ResetRedobuff() function using Gtags plugin of "Gnu Global"
tool.
Location List: the list is filled using the following Gtags command
:Gtags -r ResetRedobuff
:lopen
edit.c|404| ResetRedobuff();
edit.c|6436| ResetRedobuff();
misc2.c|1176| ResetRedobuff();
misc2.c|1177| ResetRedobuff();
normal.c|1506| ResetRedobuff();
normal.c|3626| ResetRedobuff();
normal.c|7380| ResetRedobuff();
spell.c|10317| ResetRedobuff();
" Fill the variable 'x' with current location lsit details
:let x = getloclist(0)
:echo x
[{'lnum': 404, 'bufnr': 1, 'col': 0, 'valid': 1, 'vcol': 0, 'nr': -1,
'type': '', 'pattern': '', 'text': ' ResetRedobuff();'},
{'lnum': 6436, 'bufnr': 1, 'col': 0, 'valid': 1, 'vcol':
0, 'nr': -1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}, {'lnum': 1176, 'bufnr': 3, 'col': 0, 'valid': 1,
'vcol': 0, 'nr': -1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}, {'lnum': 1177, 'bufnr': 3, 'col': 0,
'valid': 1, 'vcol': 0, 'nr': -1, 'type': '', 'pattern': '', 'text':
' ResetRedobuff();'}, {'lnum': 1506, 'bufnr': 4, 'col'
: 0, 'valid': 1, 'vcol': 0, 'nr': -1, 'type': '', 'pattern': '',
'text': ' ResetRedobuff();'}, {'lnum': 3626,
'bufnr': 4, 'col': 0, 'valid': 1, 'vcol': 0, 'nr': -1, 'type':
'', 'pattern': '', 'text': ' ResetRedobuff();'}, {'lnum':
7380, 'bufnr': 4, 'col': 0, 'valid': 1, 'vcol': 0, 'nr': -1, 'type':
'', 'pattern': '', 'text': ' ResetRedobuff();'
}, {'lnum': 10317, 'bufnr': 5, 'col': 0, 'valid': 1, 'vcol': 0, 'nr':
-1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}]
" set the location list with contents from 'x'
:call setloclist(0,x)
:lopen
New Location List: observe that the filenames are missing, all the
following are dead links.
|404| ResetRedobuff();
|6436| ResetRedobuff();
|1176| ResetRedobuff();
|1177| ResetRedobuff();
|1506| ResetRedobuff();
|3626| ResetRedobuff();
|7380| ResetRedobuff();
|10317| ResetRedobuff();
:echo getloclist(0) " observe that 'valid' field is '0'
[{'lnum': 404, 'bufnr': 0, 'col': 0, 'valid': 0, 'vcol': 0, 'nr': -1,
'type': '', 'pattern': '', 'text': ' ResetRedobuff();'},
{'lnum': 6436, 'bufnr': 0, 'col': 0, 'valid': 0, 'vcol':
0, 'nr': -1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}, {'lnum': 1176, 'bufnr': 0, 'col': 0, 'valid': 0,
'vcol': 0, 'nr': -1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}, {'lnum': 1177, 'bufnr': 0, 'col': 0,
'valid': 0, 'vcol': 0, 'nr': -1, 'type': '', 'pattern': '', 'text':
' ResetRedobuff();'}, {'lnum': 1506, 'bufnr': 0, 'col'
: 0, 'valid': 0, 'vcol': 0, 'nr': -1, 'type': '', 'pattern': '',
'text': ' ResetRedobuff();'}, {'lnum': 3626,
'bufnr': 0, 'col': 0, 'valid': 0, 'vcol': 0, 'nr': -1, 'type':
'', 'pattern': '', 'text': ' ResetRedobuff();'}, {'lnum':
7380, 'bufnr': 0, 'col': 0, 'valid': 0, 'vcol': 0, 'nr': -1, 'type':
'', 'pattern': '', 'text': ' ResetRedobuff();'
}, {'lnum': 10317, 'bufnr': 0, 'col': 0, 'valid': 0, 'vcol': 0, 'nr':
-1, 'type': '', 'pattern': '', 'text': '
ResetRedobuff();'}]
For reference i am pasting the Gtags plugin code.
" File: gtags.vim
" Author: Tama Communications Corporation
" Version: 0.5
" Last Modified: June 27, 2011
"
" Copyright and licence
" ---------------------
" Copyright (c) 2004, 2008, 2010, 2011 Tama Communications Corporation
"
" This file is part of GNU GLOBAL.
"
" This program is free software: you can redistribute it and/or modify
" it under the terms of the GNU General Public License as published by
" the Free Software Foundation, either version 3 of the License, or
" (at your option) any later version.
"
" This program is distributed in the hope that it will be useful,
" but WITHOUT ANY WARRANTY; without even the implied warranty of
" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
" GNU General Public License for more details.
"
" You should have received a copy of the GNU General Public License
" along with this program. If not, see <http://www.gnu.org/licenses/
>.
"
" Overview
" --------
" The gtags.vim plug-in script integrates the GNU GLOBAL source code
tag system
" with Vim. About the details, see http://www.gnu.org/software/global/.
"
" Installation
" ------------
" Drop the file in your plug-in directory or source it from your
vimrc.
" To use this script, you need the GNU GLOBAL-5.7 or later installed
" in your machine.
"
" Usage
" -----
" First of all, you must execute gtags(1) at the root of source
directory
" to make tag files. Assuming that your source directory is '/var/
src',
" it is necessary to execute the following commands.
"
" $ cd /var/src
" $ gtags
"
" And you will find four tag files in the directory.
"
" General form of Gtags command is as follows:
"
" :Gtags [option] pattern
"
" To go to func, you can say
"
" :Gtags func
"
" Input completion is available. If you forgot function name but
recall
" only some characters of the head, please input them and press <TAB>
key.
"
" :Gtags fu<TAB>
" :Gtags func <- Vim will append 'nc'.
"
" If you omitted argument, vim ask it like this:
"
" Gtags for pattern: <current token>
"
" Vim execute `global -x main', parse the output, list located
" objects in quickfix window and load the first entry. The quickfix
" windows is like this:
"
" gozilla/gozilla.c|200| main(int argc, char **argv)
" gtags-cscope/gtags-cscope.c|124| main(int argc, char **argv)
" gtags-parser/asm_scan.c|2056| int main()
" gtags-parser/gctags.c|157| main(int argc, char **argv)
" gtags-parser/php.c|2116| int main()
" gtags/gtags.c|152| main(int argc, char **argv)
" [Quickfix List]
"
" You can go to any entry using quickfix command.
"
" :cn'
" go to the next entry.
"
" :cp'
" go to the previous entry.
"
" :ccN'
" go to the Nth entry.
"
" :cl'
" list all entries.
"
" You can see the help of quickfix like this:
"
" :h quickfix
"
" Suggested map:
" map <C-n> :cn<CR>
" map <C-p> :cp<CR>
"
" You can use POSIX regular expression too. It requires more execution
time though.
"
" :Gtags ^[sg]et_
"
" It will match to both of 'set_value' and 'get_value'.
"
" To go to the referenced point of func, add -r option.
"
" :Gtags -r func
"
" To go to any symbols which are not defined in GTAGS, try this.
"
" :Gtags -s func
"
" To go to any string other than symbol, try this.
"
" :Gtags -g ^[sg]et_
"
" This command accomplishes the same function as grep(1) but is more
convenient
" because it retrieves the entire directory structure.
"
" To get list of objects in a file 'main.c', use -f command.
"
" :Gtags -f main.c
"
" If you are editing `main.c' itself, you can use '%' instead.
"
" :Gtags -f %
"
" You can browse project files whose path includes specified pattern.
" For example:
"
" :Gtags -P /vm/ <- all files under 'vm' directory.
" :Gtags -P \.h$ <- all include files.
" :Gtags -P init <- all paths includes 'init'
"
" If you omitted the argument and input only <ENTER> key to the
prompt,
" vim shows list of all files in your project.
"
" You can use all options of global(1) except for the -c, -p, -u and
" all long name options. They are sent to global(1) as is.
" For example, if you want to ignore case distinctions in pattern.
"
" :Gtags -gi paTtern
"
" It will match to both of 'PATTERN' and 'pattern'.
"
" If you want to search a pattern which starts with a hyphen like '-C'
" then you can use the -e option like grep(1).
"
" :Gtags -ge -C
"
" By default, Gtags command search only in source files. If you want
to
" search in both source files and text files, or only in text files
then
"
" :Gtags -go pattern # both source and text
" :Gtags -gO pattern # only text file
"
" See global(1) for other options.
"
" The GtagsCursor command brings you to the definition or reference of
" the current token.
"
" :GtagsCursor
"
" Suggested map:
" map <C-\>^] :GtagsCursor<CR>
"
" If you have the hypertext generated by htags(1) then you can display
" the same place on mozilla browser. Let's load mozilla and try this:
"
" :Gozilla
"
" Suggested map:
" map <C-g> :Gozilla<CR>
"
" If you want to load vim with all main()s then following command line
is useful.
"
" % vim '+Gtags main'
"
" Also see the chapter of 'vim editor' of the on-line manual of
GLOBAL.
"
" % info global
"
if exists("g:loaded_gtags") || &cp
finish
endif
let g:loaded_gtags = 1
" Open the Gtags output window. Set this variable to zero, to not
open
" the Gtags output window by default. You can open it manually by
using
" the :cwindow command.
" (This code was drived from 'grep.vim'.)
if !exists("g:Gtags_OpenQuickfixWindow")
let g:Gtags_OpenQuickfixWindow = 1
endif
" Character to use to quote patterns and file names before passing to
global.
" (This code was drived from 'grep.vim'.)
if !exists("g:Gtags_Shell_Quote_Char")
if has("win32") || has("win16") || has("win95")
let g:Gtags_Shell_Quote_Char = '"'
else
let g:Gtags_Shell_Quote_Char = "'"
endif
endif
if !exists("g:Gtags_Single_Quote_Char")
if has("win32") || has("win16") || has("win95")
let g:Gtags_Single_Quote_Char = "'"
let g:Gtags_Double_Quote_Char = '\"'
else
let s:sq = "'"
let s:dq = '"'
let g:Gtags_Single_Quote_Char = s:sq . s:dq . s:sq . s:dq .
s:sq
let g:Gtags_Double_Quote_Char = '"'
endif
endif
if !exists("g:Gtags_Use_Tags_Format")
let g:Gtags_Use_Tags_Format = 0
endif
"
" Display error message.
"
function! s:Error(msg)
echohl WarningMsg |
\ echomsg 'Error: ' . a:msg |
\ echohl None
endfunction
"
" Extract pattern or option string.
"
function! s:Extract(line, target)
let l:option = ''
let l:pattern = ''
let l:force_pattern = 0
let l:length = strlen(a:line)
let l:i = 0
" skip command name.
if a:line =~ '^Gtags'
let l:i = 5
endif
while l:i < l:length && a:line[l:i] == ' '
let l:i = l:i + 1
endwhile
while l:i < l:length
if a:line[l:i] == "-" && l:force_pattern == 0
let l:i = l:i + 1
" Ignore long name option like --help.
if l:i < l:length && a:line[l:i] == '-'
while l:i < l:length && a:line[l:i] != ' '
let l:i = l:i + 1
endwhile
else
while l:i < l:length && a:line[l:i] != ' '
let l:c = a:line[l:i]
let l:option = l:option . l:c
let l:i = l:i + 1
endwhile
if l:c == 'e'
let l:force_pattern = 1
endif
endif
else
let l:pattern = ''
" allow pattern includes blanks.
while l:i < l:length
if a:line[l:i] == "'"
let l:pattern = l:pattern .
g:Gtags_Single_Quote_Char
elseif a:line[l:i] == '"'
let l:pattern = l:pattern .
g:Gtags_Double_Quote_Char
else
let l:pattern = l:pattern . a:line[l:i]
endif
let l:i = l:i + 1
endwhile
if a:target == 'pattern'
return l:pattern
endif
endif
" Skip blanks.
while l:i < l:length && a:line[l:i] == ' '
let l:i = l:i + 1
endwhile
endwhile
if a:target == 'option'
return l:option
endif
return ''
endfunction
"
" Trim options to avoid errors.
"
function! s:TrimOption(option)
let l:option = ''
let l:length = strlen(a:option)
let l:i = 0
while l:i < l:length
let l:c = a:option[l:i]
if l:c !~ '[cenpquv]'
let l:option = l:option . l:c
endif
let l:i = l:i + 1
endwhile
return l:option
endfunction
"
" Execute global and load the result into quickfix window.
"
function! s:ExecLoad(option, long_option, pattern)
" Execute global(1) command and write the result to a temporary
file.
let l:isfile = 0
let l:option = ''
let l:result = ''
if a:option =~ 'f'
let l:isfile = 1
if filereadable(a:pattern) == 0
call s:Error('File ' . a:pattern . ' not found.')
return
endif
endif
if a:long_option != ''
let l:option = a:long_option . ' '
endif
if g:Gtags_Use_Tags_Format == 1
let l:option = l:option . '-qt'
else
let l:option = l:option . '-qx'
endif
let l:option = l:option . s:TrimOption(a:option)
if l:isfile == 1
let l:cmd = 'global ' . l:option . ' ' . a:pattern
else
let l:cmd = 'global ' . l:option . 'e ' .
g:Gtags_Shell_Quote_Char . a:pattern . g:Gtags_Shell_Quote_Char
endif
let l:result = system(l:cmd)
if v:shell_error != 0
if v:shell_error != 0
if v:shell_error == 2
call s:Error('invalid arguments. (gtags.vim requires
GLOBAL 5.7 or later)')
elseif v:shell_error == 3
call s:Error('GTAGS not found.')
else
call s:Error('global command failed. command line: ' .
l:cmd)
endif
endif
return
endif
if l:result == ''
if l:option =~ 'f'
call s:Error('Tag not found in ' . a:pattern . '.')
elseif l:option =~ 'P'
call s:Error('Path which matches to ' . a:pattern . ' not
found.')
elseif l:option =~ 'g'
call s:Error('Line which matches to ' . a:pattern . ' not
found.')
else
call s:Error('Tag which matches to ' .
g:Gtags_Shell_Quote_Char . a:pattern . g:Gtags_Shell_Quote_Char . '
not found.')
endif
return
endif
" Open the quickfix window
if g:Gtags_OpenQuickfixWindow == 1
" topleft vertical copen
botright copen
endif
" Parse the output of 'global -x or -t' and show in the quickfix
window.
let l:efm_org = &efm
if g:Gtags_Use_Tags_Format == 1
let &efm = "%*\\S\t%f\t%l"
else
let &efm = "%*\\S%*\\s%l%\\s%f%\\s%m"
endif
lexpr! l:result
let &efm = l:efm_org
endfunction
"
" RunGlobal()
"
function! s:RunGlobal(line)
let l:pattern = s:Extract(a:line, 'pattern')
if l:pattern == '%'
let l:pattern = expand('%')
elseif l:pattern == '#'
let l:pattern = expand('#')
endif
let l:option = s:Extract(a:line, 'option')
if l:option =~ 's' && l:option =~ 'r'
call s:Error('Both of -s and -r are not allowed.')
return
endif
" If no pattern supplied then get it from user.
if l:pattern == '' && l:option !~ 'P'
let s:option = l:option
if l:option =~ 'f'
let l:line = input("Gtags for file: ", expand('%'),
'file')
else
let l:line = input("Gtags for pattern: ",
expand('<cword>'), 'custom,GtagsCandidateCore')
endif
let l:pattern = s:Extract(l:line, 'pattern')
if l:pattern == ''
call s:Error('Pattern not specified.')
return
endif
endif
call s:ExecLoad(l:option, '', l:pattern)
endfunction
"
" Execute RunGlobal() depending on the current position.
"
function! s:GtagsCursor()
let l:pattern = expand("<cword>")
let l:option = "--from-here=\"" . line('.') . ":" . expand("%") .
"\""
call s:ExecLoad('', l:option, l:pattern)
endfunction
"
" Show the current position on mozilla.
" (You need to execute htags(1) in your source directory.)
"
function! s:Gozilla()
let l:lineno = line('.')
let l:filename = expand("%")
let l:result = system('gozilla +' . l:lineno . ' ' . l:filename)
endfunction
"
" Custom completion.
"
function! GtagsCandidate(lead, line, pos)
let s:option = s:Extract(a:line, 'option')
return GtagsCandidateCore(a:lead, a:line, a:pos)
endfunction
function! GtagsCandidateCore(lead, line, pos)
if s:option == 'g'
return ''
elseif s:option == 'f'
if isdirectory(a:lead)
if a:lead =~ '/$'
let l:pattern = a:lead . '*'
else
let l:pattern = a:lead . '/*'
endif
else
let l:pattern = a:lead . '*'
endif
return glob(l:pattern)
else
return system('global ' . '-c' . s:option . ' ' . a:lead)
endif
endfunction
" Define the set of Gtags commands
command! -nargs=* -complete=custom,GtagsCandidate Gtags call
s:RunGlobal(<q-args>)
command! -nargs=0 GtagsCursor call s:GtagsCursor()
command! -nargs=0 Gozilla call s:Gozilla()
" Suggested map:
"map <C-g> :Gozilla<CR>
"map <C-\> :Gozilla<CR>
"map <C-n> :cn<CR>
"map <C-p> :cp<CR>
--
You received this message from the "vim_use" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php
