home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / runtime / ftplugin / pdf.vim < prev    next >
Encoding:
Text File  |  2010-08-15  |  2.6 KB  |  90 lines
  1. " Vim filetype plugin file
  2. " Language:    PDF
  3. " Maintainer:    Tim Pope <vimNOSPAM@tpope.info>
  4. " Last Change:    2007 Dec 16
  5.  
  6. if exists("b:did_ftplugin")
  7.     finish
  8. endif
  9. let b:did_ftplugin = 1
  10.  
  11. setlocal commentstring=%%s
  12. setlocal comments=:%
  13. let b:undo_ftplugin = "setlocal cms< com< | unlet! b:match_words"
  14.  
  15. if exists("g:loaded_matchit")
  16.     let b:match_words = '\<\%(\d\+\s\+\d\+\s\+\)obj\>:\<endobj\>,\<stream$:\<endstream\>,\<xref\>:\<trailer\>,<<:>>'
  17. endif
  18.  
  19. if exists("g:no_plugin_maps") || exists("g:no_pdf_maps") || v:version < 700
  20.     finish
  21. endif
  22.  
  23. if !exists("b:pdf_tagstack")
  24.     let b:pdf_tagstack = []
  25. endif
  26.  
  27. let b:undo_ftplugin .= " | silent! nunmap <buffer> <C-]> | silent! nunmap <buffer> <C-T>"
  28. nnoremap <silent><buffer> <C-]> :call <SID>Tag()<CR>
  29. " Inline, so the error from an empty tag stack will be simple.
  30. nnoremap <silent><buffer> <C-T> :if len(b:pdf_tagstack) > 0 <Bar> call setpos('.',remove(b:pdf_tagstack, -1)) <Bar> else <Bar> exe "norm! \<Lt>C-T>" <Bar> endif<CR>
  31.  
  32. function! s:Tag()
  33.     call add(b:pdf_tagstack,getpos('.'))
  34.     if getline('.') =~ '^\d\+$' && getline(line('.')-1) == 'startxref'
  35.     return s:dodigits(getline('.'))
  36.     elseif getline('.') =~ '/Prev\s\+\d\+\>\%(\s\+\d\)\@!' && expand("<cword>") =~ '^\d\+$'
  37.     return s:dodigits(expand("<cword>"))
  38.     elseif getline('.') =~ '^\d\{10\} \d\{5\} '
  39.     return s:dodigits(matchstr(getline('.'),'^\d\+'))
  40.     else
  41.     let line = getline(".")
  42.     let lastend = 0
  43.     let pat = '\<\d\+\s\+\d\+\s\+R\>'
  44.     while lastend >= 0
  45.         let beg = match(line,'\C'.pat,lastend)
  46.         let end = matchend(line,'\C'.pat,lastend)
  47.         if beg < col(".") && end >= col(".")
  48.         return s:doobject(matchstr(line,'\C'.pat,lastend))
  49.         endif
  50.         let lastend = end
  51.     endwhile
  52.     return s:notag()
  53.     endif
  54. endfunction
  55.  
  56. function! s:doobject(string)
  57.     let first = matchstr(a:string,'^\s*\zs\d\+')
  58.     let second = matchstr(a:string,'^\s*\d\+\s\+\zs\d\+')
  59.     norm! m'
  60.     if first != '' && second != ''
  61.     let oldline = line('.')
  62.     let oldcol = col('.')
  63.     1
  64.     if !search('^\s*'.first.'\s\+'.second.'\s\+obj\>')
  65.         exe oldline
  66.         exe 'norm! '.oldcol.'|'
  67.         return s:notag()
  68.     endif
  69.     endif
  70. endfunction
  71.  
  72. function! s:dodigits(digits)
  73.     let digits = 0 + substitute(a:digits,'^0*','','')
  74.     norm! m'
  75.     if digits <= 0
  76.     norm! 1go
  77.     else
  78.     " Go one character before the destination and advance.  This method
  79.     " lands us after a newline rather than before, if that is our target.
  80.     exe "goto ".(digits)."|norm! 1 "
  81.     endif
  82. endfunction
  83.  
  84. function! s:notag()
  85.     silent! call remove(b:pdf_tagstack,-1)
  86.     echohl ErrorMsg
  87.     echo "E426: tag not found"
  88.     echohl NONE
  89. endfunction
  90.