X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=plugin%2Fmkbuild.vim;h=82c03a2d9bf1c8271679c1a48b0d8fd494bb5470;hb=88c0758ecb26cafc1a243531059fabf26c790639;hp=fd92caa28683d51da22f310305e029dd17fee78f;hpb=e1ebb294da0c4950b5c2a23224cec7b3b1273e55;p=vim-mkbuild.git

diff --git a/plugin/mkbuild.vim b/plugin/mkbuild.vim
index fd92caa..82c03a2 100644
--- a/plugin/mkbuild.vim
+++ b/plugin/mkbuild.vim
@@ -138,3 +138,29 @@ function! mkbuild#DmenuOpen(cmd)
     execute a:cmd . " " . fname
   endif
 endfunction
+
+" Look recursively from the current directory for directories containing a
+" tags files and/or a cscope database.  Allow the user to select one of these
+" directories.  Both its tag file and its associated cscope database, as
+" present, are made active for cross referencing.
+function! mkbuild#SelectXrefs()
+  let cmd = 'find . -type f -name tags -o -name cscope.out | ' .
+    \ 'while read f; do echo $(dirname $f); done | sort -u | sed -e "s|\./||"'
+  let curr = s:chompsys('dirname "' . &tags . '"')
+  let dname = s:chompsys(cmd . ' | dmenu -i -l 20 -p "xref (' . curr . ')"')
+  if empty(dname)
+    return
+  endif
+  let file = dname . "/tags"
+  let &tags=''
+  if filereadable(file)
+    let &tags = file
+  endif
+  if has('cscope')
+    let file = dname . "/cscope.out"
+    exe 'cscope kill -1'
+    if filereadable(file)
+      exe 'cscope add ' . file
+    endif
+  endif
+endfunction