utils 0.0.67 → 0.0.68

data/lib/utils/config/vim/autoload/AlignMaps.vim

@@ -1,330 +0,0 @@
-" AlignMaps.vim : support functions for AlignMaps
-"   Author: Charles E. Campbell, Jr.
-"   Date:   Mar 03, 2009
-" Version:           41
-" ---------------------------------------------------------------------
-"  Load Once: {{{1
-if &cp || exists("g:loaded_AlignMaps")
- finish
-endif
-let g:loaded_AlignMaps= "v41"
-let s:keepcpo         = &cpo
-set cpo&vim
-
-" =====================================================================
-" Functions: {{{1
-
-" ---------------------------------------------------------------------
-" AlignMaps#WrapperStart: {{{2
-fun! AlignMaps#WrapperStart(vis) range
-"  call Dfunc("AlignMaps#WrapperStart(vis=".a:vis.")")
-
-  if a:vis
-   norm! '<ma'>
-  endif
-
-  if line("'y") == 0 || line("'z") == 0 || !exists("s:alignmaps_wrapcnt") || s:alignmaps_wrapcnt <= 0
-"   call Decho("wrapper initialization")
-   let s:alignmaps_wrapcnt    = 1
-   let s:alignmaps_keepgd     = &gdefault
-   let s:alignmaps_keepsearch = @/
-   let s:alignmaps_keepch     = &ch
-   let s:alignmaps_keepmy     = SaveMark("'y")
-   let s:alignmaps_keepmz     = SaveMark("'z")
-   let s:alignmaps_posn       = SaveWinPosn(0)
-   " set up fencepost blank lines
-   put =''
-   norm! mz'a
-   put! =''
-   ky
-   let s:alignmaps_zline      = line("'z")
-   exe "'y,'zs/@/\177/ge"
-  else
-"   call Decho("embedded wrapper")
-   let s:alignmaps_wrapcnt    = s:alignmaps_wrapcnt + 1
-   norm! 'yjma'zk
-  endif
-
-  " change some settings to align-standard values
-  set nogd
-  set ch=2
-  AlignPush
-  norm! 'zk
-"  call Dret("AlignMaps#WrapperStart : alignmaps_wrapcnt=".s:alignmaps_wrapcnt." my=".line("'y")." mz=".line("'z"))
-endfun
-
-" ---------------------------------------------------------------------
-" AlignMaps#WrapperEnd:	{{{2
-fun! AlignMaps#WrapperEnd() range
-"  call Dfunc("AlignMaps#WrapperEnd() alignmaps_wrapcnt=".s:alignmaps_wrapcnt." my=".line("'y")." mz=".line("'z"))
-
-  " remove trailing white space introduced by whatever in the modification zone
-  'y,'zs/ \+$//e
-
-  " restore AlignCtrl settings
-  AlignPop
-
-  let s:alignmaps_wrapcnt= s:alignmaps_wrapcnt - 1
-  if s:alignmaps_wrapcnt <= 0
-   " initial wrapper ending
-   exe "'y,'zs/\177/@/ge"
-
-   " if the 'z line hasn't moved, then go ahead and restore window position
-   let zstationary= s:alignmaps_zline == line("'z")
-
-   " remove fencepost blank lines.
-   " restore 'a
-   norm! 'yjmakdd'zdd
-
-   " restore original 'y, 'z, and window positioning
-   call RestoreMark(s:alignmaps_keepmy)
-   call RestoreMark(s:alignmaps_keepmz)
-   if zstationary > 0
-    call RestoreWinPosn(s:alignmaps_posn)
-"    call Decho("restored window positioning")
-   endif
-
-   " restoration of options
-   let &gd= s:alignmaps_keepgd
-   let &ch= s:alignmaps_keepch
-   let @/ = s:alignmaps_keepsearch
-
-   " remove script variables
-   unlet s:alignmaps_keepch
-   unlet s:alignmaps_keepsearch
-   unlet s:alignmaps_keepmy
-   unlet s:alignmaps_keepmz
-   unlet s:alignmaps_keepgd
-   unlet s:alignmaps_posn
-  endif
-
-"  call Dret("AlignMaps#WrapperEnd : alignmaps_wrapcnt=".s:alignmaps_wrapcnt." my=".line("'y")." mz=".line("'z"))
-endfun
-
-" ---------------------------------------------------------------------
-" AlignMaps#StdAlign: some semi-standard align calls {{{2
-fun! AlignMaps#StdAlign(mode) range
-"  call Dfunc("AlignMaps#StdAlign(mode=".a:mode.")")
-  if     a:mode == 1
-   " align on @
-"   call Decho("align on @")
-   AlignCtrl mIp1P1=l @
-   'a,.Align
-  elseif a:mode == 2
-   " align on @, retaining all initial white space on each line
-"   call Decho("align on @, retaining all initial white space on each line")
-   AlignCtrl mWp1P1=l @
-   'a,.Align
-  elseif a:mode == 3
-   " like mode 2, but ignore /* */-style comments
-"   call Decho("like mode 2, but ignore /* */-style comments")
-   AlignCtrl v ^\s*/[/*]
-   AlignCtrl mWp1P1=l @
-   'a,.Align
-  else
-   echoerr "(AlignMaps) AlignMaps#StdAlign doesn't support mode#".a:mode
-  endif
-"  call Dret("AlignMaps#StdAlign")
-endfun
-
-" ---------------------------------------------------------------------
-" AlignMaps#CharJoiner: joins lines which end in the given character (spaces {{{2
-"             at end are ignored)
-fun! AlignMaps#CharJoiner(chr)
-"  call Dfunc("AlignMaps#CharJoiner(chr=".a:chr.")")
-  let aline = line("'a")
-  let rep   = line(".") - aline
-  while rep > 0
-  	norm! 'a
-  	while match(getline(aline),a:chr . "\s*$") != -1 && rep >= 0
-  	  " while = at end-of-line, delete it and join with next
-  	  norm! 'a$
-  	  j!
-  	  let rep = rep - 1
-  	endwhile
-  	" update rep(eat) count
-  	let rep = rep - 1
-  	if rep <= 0
-  	  " terminate loop if at end-of-block
-  	  break
-  	endif
-  	" prepare for next line
-  	norm! jma
-  	let aline = line("'a")
-  endwhile
-"  call Dret("AlignMaps#CharJoiner")
-endfun
-
-" ---------------------------------------------------------------------
-" AlignMaps#Equals: supports \t= and \T= {{{2
-fun! AlignMaps#Equals() range
-"  call Dfunc("AlignMaps#Equals()")
-  'a,'zs/\s\+\([*/+\-%|&\~^]\==\)/ \1/e
-  'a,'zs@ \+\([*/+\-%|&\~^]\)=@\1=@ge
-  'a,'zs/==/\="\<Char-0x0f>\<Char-0x0f>"/ge
-  'a,'zs/\([!<>:]\)=/\=submatch(1)."\<Char-0x0f>"/ge
-  norm g'zk
-  AlignCtrl mIp1P1=l =
-  AlignCtrl g =
-  'a,'z-1Align
-  'a,'z-1s@\([*/+\-%|&\~^!=]\)\( \+\)=@\2\1=@ge
-  'a,'z-1s/\( \+\);/;\1/ge
-  if &ft == "c" || &ft == "cpp"
-"   call Decho("exception for ".&ft)
-   'a,'z-1v/^\s*\/[*/]/s/\/[*/]/@&@/e
-   'a,'z-1v/^\s*\/[*/]/s/\*\//@&/e
-   if exists("g:mapleader")
-    exe "norm 'zk"
-    call AlignMaps#StdAlign(1)
-   else
-    exe "norm 'zk"
-    call AlignMaps#StdAlign(1)
-   endif
-   'y,'zs/^\(\s*\) @/\1/e
-  endif
-  'a,'z-1s/\%x0f/=/ge
-  'y,'zs/ @//eg
-"  call Dret("AlignMaps#Equals")
-endfun
-
-" ---------------------------------------------------------------------
-" AlignMaps#Afnc: useful for splitting one-line function beginnings {{{2
-"            into one line per argument format
-fun! AlignMaps#Afnc()
-"  call Dfunc("AlignMaps#Afnc()")
-
-  " keep display quiet
-  let chkeep = &ch
-  let gdkeep = &gd
-  let vekeep = &ve
-  set ch=2 nogd ve=
-
-  " will use marks y,z ; save current values
-  let mykeep = SaveMark("'y")
-  let mzkeep = SaveMark("'z")
-
-  " Find beginning of function -- be careful to skip over comments
-  let cmmntid  = synIDtrans(hlID("Comment"))
-  let stringid = synIDtrans(hlID("String"))
-  exe "norm! ]]"
-  while search(")","bW") != 0
-"   call Decho("line=".line(".")." col=".col("."))
-   let parenid= synIDtrans(synID(line("."),col("."),1))
-   if parenid != cmmntid && parenid != stringid
-   	break
-   endif
-  endwhile
-  norm! %my
-  s/(\s*\(\S\)/(\r  \1/e
-  exe "norm! `y%"
-  s/)\s*\(\/[*/]\)/)\r\1/e
-  exe "norm! `y%mz"
-  'y,'zs/\s\+$//e
-  'y,'zs/^\s\+//e
-  'y+1,'zs/^/  /
-
-  " insert newline after every comma only one parenthesis deep
-  sil! exe "norm! `y\<right>h"
-  let parens   = 1
-  let cmmnt    = 0
-  let cmmntline= -1
-  while parens >= 1
-"   call Decho("parens=".parens." @a=".@a)
-   exe 'norm! ma "ay`a '
-   if @a == "("
-    let parens= parens + 1
-   elseif @a == ")"
-    let parens= parens - 1
-
-   " comment bypass:  /* ... */  or //...
-   elseif cmmnt == 0 && @a == '/'
-    let cmmnt= 1
-   elseif cmmnt == 1
-	if @a == '/'
-	 let cmmnt    = 2   " //...
-	 let cmmntline= line(".")
-	elseif @a == '*'
-	 let cmmnt= 3   " /*...
-	else
-	 let cmmnt= 0
-	endif
-   elseif cmmnt == 2 && line(".") != cmmntline
-	let cmmnt    = 0
-	let cmmntline= -1
-   elseif cmmnt == 3 && @a == '*'
-	let cmmnt= 4
-   elseif cmmnt == 4
-	if @a == '/'
-	 let cmmnt= 0   " ...*/
-	elseif @a != '*'
-	 let cmmnt= 3
-	endif
-
-   elseif @a == "," && parens == 1 && cmmnt == 0
-	exe "norm! i\<CR>\<Esc>"
-   endif
-  endwhile
-  norm! `y%mz%
-  sil! 'y,'zg/^\s*$/d
-
-  " perform substitutes to mark fields for Align
-  sil! 'y+1,'zv/^\//s/^\s\+\(\S\)/  \1/e
-  sil! 'y+1,'zv/^\//s/\(\S\)\s\+/\1 /eg
-  sil! 'y+1,'zv/^\//s/\* \+/*/ge
-  sil! 'y+1,'zv/^\//s/\w\zs\s*\*/ */ge
-  "                                                 func
-  "                    ws  <- declaration   ->    <-ptr  ->   <-var->    <-[array][]    ->   <-glop->      <-end->
-  sil! 'y+1,'zv/^\//s/^\s*\(\(\K\k*\s*\)\+\)\s\+\([(*]*\)\s*\(\K\k*\)\s*\(\(\[.\{-}]\)*\)\s*\(.\{-}\)\=\s*\([,)]\)\s*$/  \1@#\3@\4\5@\7\8/e
-  sil! 'y+1,'z+1g/^\s*\/[*/]/norm! kJ
-  sil! 'y+1,'z+1s%/[*/]%@&@%ge
-  sil! 'y+1,'z+1s%*/%@&%ge
-  AlignCtrl mIp0P0=l @
-  sil! 'y+1,'zAlign
-  sil! 'y,'zs%@\(/[*/]\)@%\t\1 %e
-  sil! 'y,'zs%@\*/% */%e
-  sil! 'y,'zs/@\([,)]\)/\1/
-  sil! 'y,'zs/@/ /
-  AlignCtrl mIlrp0P0= # @
-  sil! 'y+1,'zAlign
-  sil! 'y+1,'zs/#/ /
-  sil! 'y+1,'zs/@//
-  sil! 'y+1,'zs/\(\s\+\)\([,)]\)/\2\1/e
-
-  " Restore
-  call RestoreMark(mykeep)
-  call RestoreMark(mzkeep)
-  let &ch= chkeep
-  let &gd= gdkeep
-  let &ve= vekeep
-
-"  call Dret("AlignMaps#Afnc")
-endfun
-
-" ---------------------------------------------------------------------
-"  AlignMaps#FixMultiDec: converts a   type arg,arg,arg;   line to multiple lines {{{2
-fun! AlignMaps#FixMultiDec()
-"  call Dfunc("AlignMaps#FixMultiDec()")
-
-  " save register x
-  let xkeep   = @x
-  let curline = getline(".")
-"  call Decho("curline<".curline.">")
-
-  " Get the type.  I'm assuming one type per line (ie.  int x; double y;   on one line will not be handled properly)
-  let @x=substitute(curline,'^\(\s*[a-zA-Z_ \t][a-zA-Z0-9_ \t]*\)\s\+[(*]*\h.*$','\1','')
-"  call Decho("@x<".@x.">")
-
-  " transform line
-  exe 's/,/;\r'.@x.' /ge'
-
-  "restore register x
-  let @x= xkeep
-
-"  call Dret("AlignMaps#FixMultiDec : my=".line("'y")." mz=".line("'z"))
-endfun
-
-" ---------------------------------------------------------------------
-"  Restore: {{{1
-let &cpo= s:keepcpo
-unlet s:keepcpo
-" vim: ts=4 fdm=marker

data/lib/utils/config/vim/autoload/ctrlp/bookmarkdir.vim

@@ -1,139 +0,0 @@
-" =============================================================================
-" File:          autoload/ctrlp/bookmarkdir.vim
-" Description:   Bookmarked directories extension
-" Author:        Kien Nguyen <github.com/kien>
-" =============================================================================
-
-" Init {{{1
-if exists('g:loaded_ctrlp_bookmarkdir') && g:loaded_ctrlp_bookmarkdir
-	fini
-en
-let g:loaded_ctrlp_bookmarkdir = 1
-
-cal add(g:ctrlp_ext_vars, {
-	\ 'init': 'ctrlp#bookmarkdir#init()',
-	\ 'accept': 'ctrlp#bookmarkdir#accept',
-	\ 'lname': 'bookmarked dirs',
-	\ 'sname': 'bkd',
-	\ 'type': 'tabs',
-	\ 'opmul': 1,
-	\ 'nolim': 1,
-	\ 'wipe': 'ctrlp#bookmarkdir#remove',
-	\ })
-
-let s:id = g:ctrlp_builtins + len(g:ctrlp_ext_vars)
-" Utilities {{{1
-fu! s:getinput(str, ...)
-	echoh Identifier
-	cal inputsave()
-	let input = call('input', a:0 ? [a:str] + a:000 : [a:str])
-	cal inputrestore()
-	echoh None
-	retu input
-endf
-
-fu! s:cachefile()
-	if !exists('s:cadir') || !exists('s:cafile')
-		let s:cadir = ctrlp#utils#cachedir().ctrlp#utils#lash().'bkd'
-		let s:cafile = s:cadir.ctrlp#utils#lash().'cache.txt'
-	en
-	retu s:cafile
-endf
-
-fu! s:writecache(lines)
-	cal ctrlp#utils#writecache(a:lines, s:cadir, s:cafile)
-endf
-
-fu! s:getbookmarks()
-	retu ctrlp#utils#readfile(s:cachefile())
-endf
-
-fu! s:savebookmark(name, cwd)
-	let entries = filter(s:getbookmarks(), 's:parts(v:val)[1] != a:cwd')
-	cal s:writecache(insert(entries, a:name.'	'.a:cwd))
-endf
-
-fu! s:setentries()
-	let time = getftime(s:cachefile())
-	if !( exists('s:bookmarks') && time == s:bookmarks[0] )
-		let s:bookmarks = [time, s:getbookmarks()]
-	en
-endf
-
-fu! s:parts(str)
-	let mlist = matchlist(a:str, '\v([^\t]+)\t(.*)$')
-	retu mlist != [] ? mlist[1:2] : ['', '']
-endf
-
-fu! s:process(entries, type)
-	retu map(a:entries, 's:modify(v:val, a:type)')
-endf
-
-fu! s:modify(entry, type)
-	let [name, dir] = s:parts(a:entry)
-	let dir = fnamemodify(dir, a:type)
-	retu name.'	'.( dir == '' ? '.' : dir )
-endf
-
-fu! s:msg(name, cwd)
-	redr
-	echoh Identifier | echon 'Bookmarked ' | echoh Constant
-	echon a:name.' ' | echoh Directory | echon a:cwd
-	echoh None
-endf
-
-fu! s:syntax()
-	if !ctrlp#nosy()
-		cal ctrlp#hicheck('CtrlPBookmark', 'Identifier')
-		cal ctrlp#hicheck('CtrlPTabExtra', 'Comment')
-		sy match CtrlPBookmark '^> [^\t]\+' contains=CtrlPLinePre
-		sy match CtrlPTabExtra '\zs\t.*\ze$'
-	en
-endf
-" Public {{{1
-fu! ctrlp#bookmarkdir#init()
-	cal s:setentries()
-	cal s:syntax()
-	retu s:process(copy(s:bookmarks[1]), ':.')
-endf
-
-fu! ctrlp#bookmarkdir#accept(mode, str)
-	let parts = s:parts(s:modify(a:str, ':p'))
-	cal call('s:savebookmark', parts)
-	if a:mode =~ 't\|v\|h'
-		cal ctrlp#exit()
-	en
-	cal ctrlp#setdir(parts[1], a:mode =~ 't\|h' ? 'chd!' : 'lc!')
-	if a:mode == 'e'
-		cal ctrlp#switchtype(0)
-		cal ctrlp#recordhist()
-		cal ctrlp#prtclear()
-	en
-endf
-
-fu! ctrlp#bookmarkdir#add(dir)
-	let str = 'Directory to bookmark: '
-	let cwd = a:dir != '' ? a:dir : s:getinput(str, getcwd(), 'dir')
-	if cwd == '' | retu | en
-	let cwd = fnamemodify(cwd, ':p')
-	let name = s:getinput('Bookmark as: ', cwd)
-	if name == '' | retu | en
-	let name = tr(name, '	', ' ')
-	cal s:savebookmark(name, cwd)
-	cal s:msg(name, cwd)
-endf
-
-fu! ctrlp#bookmarkdir#remove(entries)
-	cal s:process(a:entries, ':p')
-	cal s:writecache(a:entries == [] ? [] :
-		\ filter(s:getbookmarks(), 'index(a:entries, v:val) < 0'))
-	cal s:setentries()
-	retu s:process(copy(s:bookmarks[1]), ':.')
-endf
-
-fu! ctrlp#bookmarkdir#id()
-	retu s:id
-endf
-"}}}
-
-" vim:fen:fdm=marker:fmr={{{,}}}:fdl=0:fdc=1:ts=2:sw=2:sts=2

data/lib/utils/config/vim/autoload/ctrlp/buffertag.vim

@@ -1,238 +0,0 @@
-" =============================================================================
-" File:          autoload/ctrlp/buffertag.vim
-" Description:   Buffer Tag extension
-" Maintainer:    Kien Nguyen <github.com/kien>
-" Credits:       Much of the code was taken from tagbar.vim by Jan Larres, plus
-"                a few lines from taglist.vim by Yegappan Lakshmanan and from
-"                buffertag.vim by Takeshi Nishida.
-" =============================================================================
-
-" Init {{{1
-if exists('g:loaded_ctrlp_buftag') && g:loaded_ctrlp_buftag
-	fini
-en
-let g:loaded_ctrlp_buftag = 1
-
-cal add(g:ctrlp_ext_vars, {
-	\ 'init': 'ctrlp#buffertag#init(s:crfile)',
-	\ 'accept': 'ctrlp#buffertag#accept',
-	\ 'lname': 'buffer tags',
-	\ 'sname': 'bft',
-	\ 'exit': 'ctrlp#buffertag#exit()',
-	\ 'type': 'tabs',
-	\ 'opts': 'ctrlp#buffertag#opts()',
-	\ })
-
-let s:id = g:ctrlp_builtins + len(g:ctrlp_ext_vars)
-
-let [s:pref, s:opts] = ['g:ctrlp_buftag_', {
-	\ 'systemenc': ['s:enc', &enc],
-	\ 'ctags_bin': ['s:bin', ''],
-	\ 'types': ['s:usr_types', {}],
-	\ }]
-
-let s:bins = [
-	\ 'ctags-exuberant',
-	\ 'exuberant-ctags',
-	\ 'exctags',
-	\ '/usr/local/bin/ctags',
-	\ '/opt/local/bin/ctags',
-	\ 'ctags',
-	\ 'ctags.exe',
-	\ 'tags',
-	\ ]
-
-let s:types = {
-	\ 'asm'    : '%sasm%sasm%sdlmt',
-	\ 'aspperl': '%sasp%sasp%sfsv',
-	\ 'aspvbs' : '%sasp%sasp%sfsv',
-	\ 'awk'    : '%sawk%sawk%sf',
-	\ 'beta'   : '%sbeta%sbeta%sfsv',
-	\ 'c'      : '%sc%sc%sdgsutvf',
-	\ 'cpp'    : '%sc++%sc++%snvdtcgsuf',
-	\ 'cs'     : '%sc#%sc#%sdtncEgsipm',
-	\ 'cobol'  : '%scobol%scobol%sdfgpPs',
-	\ 'eiffel' : '%seiffel%seiffel%scf',
-	\ 'erlang' : '%serlang%serlang%sdrmf',
-	\ 'expect' : '%stcl%stcl%scfp',
-	\ 'fortran': '%sfortran%sfortran%spbceiklmntvfs',
-	\ 'html'   : '%shtml%shtml%saf',
-	\ 'java'   : '%sjava%sjava%spcifm',
-	\ 'javascript': '%sjavascript%sjavascript%sf',
-	\ 'lisp'   : '%slisp%slisp%sf',
-	\ 'lua'    : '%slua%slua%sf',
-	\ 'make'   : '%smake%smake%sm',
-	\ 'pascal' : '%spascal%spascal%sfp',
-	\ 'perl'   : '%sperl%sperl%sclps',
-	\ 'php'    : '%sphp%sphp%scdvf',
-	\ 'python' : '%spython%spython%scmf',
-	\ 'rexx'   : '%srexx%srexx%ss',
-	\ 'ruby'   : '%sruby%sruby%scfFm',
-	\ 'scheme' : '%sscheme%sscheme%ssf',
-	\ 'sh'     : '%ssh%ssh%sf',
-	\ 'csh'    : '%ssh%ssh%sf',
-	\ 'zsh'    : '%ssh%ssh%sf',
-	\ 'slang'  : '%sslang%sslang%snf',
-	\ 'sml'    : '%ssml%ssml%secsrtvf',
-	\ 'sql'    : '%ssql%ssql%scFPrstTvfp',
-	\ 'tcl'    : '%stcl%stcl%scfmp',
-	\ 'vera'   : '%svera%svera%scdefgmpPtTvx',
-	\ 'verilog': '%sverilog%sverilog%smcPertwpvf',
-	\ 'vim'    : '%svim%svim%savf',
-	\ 'yacc'   : '%syacc%syacc%sl',
-	\ }
-
-cal map(s:types, 'printf(v:val, "--language-force=", " --", "-types=")')
-
-if executable('jsctags')
-	cal extend(s:types, { 'javascript': { 'args': '-f -', 'bin': 'jsctags' } })
-en
-
-fu! ctrlp#buffertag#opts()
-	for [ke, va] in items(s:opts)
-		let {va[0]} = exists(s:pref.ke) ? {s:pref.ke} : va[1]
-	endfo
-	" Ctags bin
-	if empty(s:bin)
-		for bin in s:bins | if executable(bin)
-			let s:bin = bin
-			brea
-		en | endfo
-	el
-		let s:bin = expand(s:bin, 1)
-	en
-	" Types
-	cal extend(s:types, s:usr_types)
-endf
-" Utilities {{{1
-fu! s:validfile(fname, ftype)
-	if ( !empty(a:fname) || !empty(a:ftype) ) && filereadable(a:fname)
-		\ && index(keys(s:types), a:ftype) >= 0 | retu 1 | en
-	retu 0
-endf
-
-fu! s:exectags(cmd)
-	if exists('+ssl')
-		let [ssl, &ssl] = [&ssl, 0]
-	en
-	if &sh =~ 'cmd\.exe'
-		let [sxq, &sxq, shcf, &shcf] = [&sxq, '"', &shcf, '/s /c']
-	en
-	let output = system(a:cmd)
-	if &sh =~ 'cmd\.exe'
-		let [&sxq, &shcf] = [sxq, shcf]
-	en
-	if exists('+ssl')
-		let &ssl = ssl
-	en
-	retu output
-endf
-
-fu! s:exectagsonfile(fname, ftype)
-	let [ags, ft] = ['-f - --sort=no --excmd=pattern --fields=nKs ', a:ftype]
-	if type(s:types[ft]) == 1
-		let ags .= s:types[ft]
-		let bin = s:bin
-	elsei type(s:types[ft]) == 4
-		let ags = s:types[ft]['args']
-		let bin = expand(s:types[ft]['bin'], 1)
-	en
-	if empty(bin) | retu '' | en
-	let cmd = s:esctagscmd(bin, ags, a:fname)
-	if empty(cmd) | retu '' | en
-	let output = s:exectags(cmd)
-	if v:shell_error || output =~ 'Warning: cannot open' | retu '' | en
-	retu output
-endf
-
-fu! s:esctagscmd(bin, args, ...)
-	if exists('+ssl')
-		let [ssl, &ssl] = [&ssl, 0]
-	en
-	let fname = a:0 == 1 ? shellescape(a:1) : ''
-	let cmd = shellescape(a:bin).' '.a:args.' '.fname
-	if exists('+ssl')
-		let &ssl = ssl
-	en
-	if has('iconv')
-		let last = s:enc != &enc ? s:enc : !empty($LANG) ? $LANG : &enc
-		let cmd = iconv(cmd, &enc, last)
-	en
-	retu cmd
-endf
-
-fu! s:process(fname, ftype)
-	if !s:validfile(a:fname, a:ftype) | retu [] | endif
-	let ftime = getftime(a:fname)
-	if has_key(g:ctrlp_buftags, a:fname)
-		\ && g:ctrlp_buftags[a:fname]['time'] >= ftime
-		let lines = g:ctrlp_buftags[a:fname]['lines']
-	el
-		let data = s:exectagsonfile(a:fname, a:ftype)
-		let [raw, lines] = [split(data, '\n\+'), []]
-		for line in raw | if len(split(line, ';"')) == 2
-			let parsed_line = s:parseline(line)
-			if parsed_line != ''
-				cal add(lines, parsed_line)
-			en
-		en | endfo
-		let cache = { a:fname : { 'time': ftime, 'lines': lines } }
-		cal extend(g:ctrlp_buftags, cache)
-	en
-	retu lines
-endf
-
-fu! s:parseline(line)
-	let eval = '\v^([^\t]+)\t(.+)\t\/\^(.+)\$\/\;\"\t(.+)\tline(no)?\:(\d+)'
-	let vals = matchlist(a:line, eval)
-	if vals == [] | retu '' | en
-	let [bufnr, bufname] = [bufnr('^'.vals[2].'$'), fnamemodify(vals[2], ':p:t')]
-	retu vals[1].'	'.vals[4].'|'.bufnr.':'.bufname.'|'.vals[6].'| '.vals[3]
-endf
-
-fu! s:syntax()
-	if !ctrlp#nosy()
-		cal ctrlp#hicheck('CtrlPTagKind', 'Title')
-		cal ctrlp#hicheck('CtrlPBufName', 'Directory')
-		cal ctrlp#hicheck('CtrlPTabExtra', 'Comment')
-		sy match CtrlPTagKind '\zs[^\t|]\+\ze|\d\+:[^|]\+|\d\+|'
-		sy match CtrlPBufName '|\d\+:\zs[^|]\+\ze|\d\+|'
-		sy match CtrlPTabExtra '\zs\t.*\ze$' contains=CtrlPBufName,CtrlPTagKind
-	en
-endf
-" Public {{{1
-fu! ctrlp#buffertag#init(fname)
-	let bufs = exists('s:btmode') && s:btmode
-		\ ? filter(ctrlp#buffers(), 'filereadable(v:val)')
-		\ : [exists('s:bufname') ? s:bufname : a:fname]
-	let lines = []
-	for each in bufs
-		let bname = fnamemodify(each, ':p')
-		let tftype = get(split(getbufvar(bname, '&ft'), '\.'), 0, '')
-		cal extend(lines, s:process(bname, tftype))
-	endfo
-	cal s:syntax()
-	retu lines
-endf
-
-fu! ctrlp#buffertag#accept(mode, str)
-	let vals = matchlist(a:str, '\v^[^\t]+\t+[^\t|]+\|(\d+)\:[^\t|]+\|(\d+)\|')
-	if vals == [] | retu | en
-	let [bufnm, linenr] = [fnamemodify(bufname(str2nr(vals[1])), ':p'), vals[2]]
-	cal ctrlp#acceptfile(a:mode, bufnm, linenr)
-endf
-
-fu! ctrlp#buffertag#cmd(mode, ...)
-	let s:btmode = a:mode
-	if a:0 && !empty(a:1)
-		let s:bufname = fnamemodify(a:1, ':p')
-	en
-	retu s:id
-endf
-
-fu! ctrlp#buffertag#exit()
-	unl! s:btmode s:bufname
-endf
-"}}}
-
-" vim:fen:fdm=marker:fmr={{{,}}}:fdl=0:fdc=1:ts=2:sw=2:sts=2