840 lines
31 KiB
VimL
840 lines
31 KiB
VimL
" Copyright (c) 1998-2006
|
|
" Michael Sharpe <feline@irendi.com>
|
|
"
|
|
" We grant permission to use, copy modify, distribute, and sell this
|
|
" software for any purpose without fee, provided that the above copyright
|
|
" notice and this text are not removed. We make no guarantee about the
|
|
" suitability of this software for any purpose and we are not liable
|
|
" for any damages resulting from its use. Further, we are under no
|
|
" obligation to maintain or extend this software. It is provided on an
|
|
" "as is" basis without any expressed or implied warranty.
|
|
|
|
" Directory & regex enhancements added by Bindu Wavell who is well known on
|
|
" vim.sf.net
|
|
"
|
|
" Patch for spaces in files/directories from Nathan Stien (also reported by
|
|
" Soeren Sonnenburg)
|
|
|
|
" Do not load a.vim if is has already been loaded.
|
|
if exists("loaded_alternateFile")
|
|
finish
|
|
endif
|
|
if (v:progname == "ex")
|
|
finish
|
|
endif
|
|
let loaded_alternateFile = 1
|
|
|
|
let alternateExtensionsDict = {}
|
|
|
|
" setup the default set of alternate extensions. The user can override in thier
|
|
" .vimrc if the defaults are not suitable. To override in a .vimrc simply set a
|
|
" g:alternateExtensions_<EXT> variable to a comma separated list of alternates,
|
|
" where <EXT> is the extension to map.
|
|
" E.g. let g:alternateExtensions_CPP = "inc,h,H,HPP,hpp"
|
|
" let g:alternateExtensions_{'aspx.cs'} = "aspx"
|
|
|
|
|
|
" This variable will be increased when an extension with greater number of dots
|
|
" is added by the AddAlternateExtensionMapping call.
|
|
let s:maxDotsInExtension = 1
|
|
|
|
" Function : AddAlternateExtensionMapping (PRIVATE)
|
|
" Purpose : simple helper function to add the default alternate extension
|
|
" mappings.
|
|
" Args : extension -- the extension to map
|
|
" alternates -- comma separated list of alternates extensions
|
|
" Returns : nothing
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
function! <SID>AddAlternateExtensionMapping(extension, alternates)
|
|
" This code does not actually work for variables like foo{'a.b.c.d.e'}
|
|
"let varName = "g:alternateExtensions_" . a:extension
|
|
"if (!exists(varName))
|
|
" let g:alternateExtensions_{a:extension} = a:alternates
|
|
"endif
|
|
|
|
" This code handles extensions which contains a dot. exists() fails with
|
|
" such names.
|
|
"let v:errmsg = ""
|
|
" FIXME this line causes ex to return 1 instead of 0 for some reason??
|
|
"silent! echo g:alternateExtensions_{a:extension}
|
|
"if (v:errmsg != "")
|
|
"let g:alternateExtensions_{a:extension} = a:alternates
|
|
"endif
|
|
|
|
let g:alternateExtensionsDict[a:extension] = a:alternates
|
|
let dotsNumber = strlen(substitute(a:extension, "[^.]", "", "g"))
|
|
if s:maxDotsInExtension < dotsNumber
|
|
let s:maxDotsInExtension = dotsNumber
|
|
endif
|
|
endfunction
|
|
|
|
|
|
" Add all the default extensions
|
|
" Mappings for C and C++
|
|
call <SID>AddAlternateExtensionMapping('h',"c,cpp,cxx,cc,CC")
|
|
call <SID>AddAlternateExtensionMapping('H',"C,CPP,CXX,CC")
|
|
call <SID>AddAlternateExtensionMapping('hpp',"cpp,c")
|
|
call <SID>AddAlternateExtensionMapping('HPP',"CPP,C")
|
|
call <SID>AddAlternateExtensionMapping('c',"h")
|
|
call <SID>AddAlternateExtensionMapping('C',"H")
|
|
call <SID>AddAlternateExtensionMapping('cpp',"h,hpp")
|
|
call <SID>AddAlternateExtensionMapping('CPP',"H,HPP")
|
|
call <SID>AddAlternateExtensionMapping('cc',"h")
|
|
call <SID>AddAlternateExtensionMapping('CC',"H,h")
|
|
call <SID>AddAlternateExtensionMapping('cxx',"h")
|
|
call <SID>AddAlternateExtensionMapping('CXX',"H")
|
|
" Mappings for PSL7
|
|
call <SID>AddAlternateExtensionMapping('psl',"ph")
|
|
call <SID>AddAlternateExtensionMapping('ph',"psl")
|
|
" Mappings for ADA
|
|
call <SID>AddAlternateExtensionMapping('adb',"ads")
|
|
call <SID>AddAlternateExtensionMapping('ads',"adb")
|
|
" Mappings for lex and yacc files
|
|
call <SID>AddAlternateExtensionMapping('l',"y,yacc,ypp")
|
|
call <SID>AddAlternateExtensionMapping('lex',"yacc,y,ypp")
|
|
call <SID>AddAlternateExtensionMapping('lpp',"ypp,y,yacc")
|
|
call <SID>AddAlternateExtensionMapping('y',"l,lex,lpp")
|
|
call <SID>AddAlternateExtensionMapping('yacc',"lex,l,lpp")
|
|
call <SID>AddAlternateExtensionMapping('ypp',"lpp,l,lex")
|
|
" Mappings for OCaml
|
|
call <SID>AddAlternateExtensionMapping('ml',"mli")
|
|
call <SID>AddAlternateExtensionMapping('mli',"ml")
|
|
" ASP stuff
|
|
call <SID>AddAlternateExtensionMapping('aspx.cs', 'aspx')
|
|
call <SID>AddAlternateExtensionMapping('aspx.vb', 'aspx')
|
|
call <SID>AddAlternateExtensionMapping('aspx', 'aspx.cs,aspx.vb')
|
|
|
|
" Setup default search path, unless the user has specified
|
|
" a path in their [._]vimrc.
|
|
if (!exists('g:alternateSearchPath'))
|
|
let g:alternateSearchPath = 'sfr:../source,sfr:../src,sfr:../include,sfr:../inc'
|
|
endif
|
|
|
|
" If this variable is true then a.vim will not alternate to a file/buffer which
|
|
" does not exist. E.g while editing a.c and the :A will not swtich to a.h
|
|
" unless it exists.
|
|
if (!exists('g:alternateNoDefaultAlternate'))
|
|
" by default a.vim will alternate to a file which does not exist
|
|
let g:alternateNoDefaultAlternate = 0
|
|
endif
|
|
|
|
" If this variable is true then a.vim will convert the alternate filename to a
|
|
" filename relative to the current working directory.
|
|
" Feature by Nathan Huizinga
|
|
if (!exists('g:alternateRelativeFiles'))
|
|
" by default a.vim will not convert the filename to one relative to the
|
|
" current working directory
|
|
let g:alternateRelativeFiles = 0
|
|
endif
|
|
|
|
|
|
" Function : GetNthItemFromList (PRIVATE)
|
|
" Purpose : Support reading items from a comma seperated list
|
|
" Used to iterate all the extensions in an extension spec
|
|
" Used to iterate all path prefixes
|
|
" Args : list -- the list (extension spec, file paths) to iterate
|
|
" n -- the extension to get
|
|
" Returns : the nth item (extension, path) from the list (extension
|
|
" spec), or "" for failure
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
" History : Renamed from GetNthExtensionFromSpec to GetNthItemFromList
|
|
" to reflect a more generic use of this function. -- Bindu
|
|
function! <SID>GetNthItemFromList(list, n)
|
|
let itemStart = 0
|
|
let itemEnd = -1
|
|
let pos = 0
|
|
let item = ""
|
|
let i = 0
|
|
while (i != a:n)
|
|
let itemStart = itemEnd + 1
|
|
let itemEnd = match(a:list, ",", itemStart)
|
|
let i = i + 1
|
|
if (itemEnd == -1)
|
|
if (i == a:n)
|
|
let itemEnd = strlen(a:list)
|
|
endif
|
|
break
|
|
endif
|
|
endwhile
|
|
if (itemEnd != -1)
|
|
let item = strpart(a:list, itemStart, itemEnd - itemStart)
|
|
endif
|
|
return item
|
|
endfunction
|
|
|
|
" Function : ExpandAlternatePath (PRIVATE)
|
|
" Purpose : Expand path info. A path with a prefix of "wdr:" will be
|
|
" treated as relative to the working directory (i.e. the
|
|
" directory where vim was started.) A path prefix of "abs:" will
|
|
" be treated as absolute. No prefix or "sfr:" will result in the
|
|
" path being treated as relative to the source file (see sfPath
|
|
" argument).
|
|
"
|
|
" A prefix of "reg:" will treat the pathSpec as a regular
|
|
" expression substitution that is applied to the source file
|
|
" path. The format is:
|
|
"
|
|
" reg:<sep><pattern><sep><subst><sep><flag><sep>
|
|
"
|
|
" <sep> seperator character, we often use one of [/|%#]
|
|
" <pattern> is what you are looking for
|
|
" <subst> is the output pattern
|
|
" <flag> can be g for global replace or empty
|
|
"
|
|
" EXAMPLE: 'reg:/inc/src/g/' will replace every instance
|
|
" of 'inc' with 'src' in the source file path. It is possible
|
|
" to use match variables so you could do something like:
|
|
" 'reg:|src/\([^/]*\)|inc/\1||' (see 'help :substitute',
|
|
" 'help pattern' and 'help sub-replace-special' for more details
|
|
"
|
|
" NOTE: a.vim uses ',' (comma) internally so DON'T use it
|
|
" in your regular expressions or other pathSpecs unless you update
|
|
" the rest of the a.vim code to use some other seperator.
|
|
"
|
|
" Args : pathSpec -- path component (or substitution patterns)
|
|
" sfPath -- source file path
|
|
" Returns : a path that can be used by AlternateFile()
|
|
" Author : Bindu Wavell <bindu@wavell.net>
|
|
function! <SID>ExpandAlternatePath(pathSpec, sfPath)
|
|
let prfx = strpart(a:pathSpec, 0, 4)
|
|
if (prfx == "wdr:" || prfx == "abs:")
|
|
let path = strpart(a:pathSpec, 4)
|
|
elseif (prfx == "reg:")
|
|
let re = strpart(a:pathSpec, 4)
|
|
let sep = strpart(re, 0, 1)
|
|
let patend = match(re, sep, 1)
|
|
let pat = strpart(re, 1, patend - 1)
|
|
let subend = match(re, sep, patend + 1)
|
|
let sub = strpart(re, patend+1, subend - patend - 1)
|
|
let flag = strpart(re, strlen(re) - 2)
|
|
if (flag == sep)
|
|
let flag = ''
|
|
endif
|
|
let path = substitute(a:sfPath, pat, sub, flag)
|
|
"call confirm('PAT: [' . pat . '] SUB: [' . sub . ']')
|
|
"call confirm(a:sfPath . ' => ' . path)
|
|
else
|
|
let path = a:pathSpec
|
|
if (prfx == "sfr:")
|
|
let path = strpart(path, 4)
|
|
endif
|
|
let path = a:sfPath . "/" . path
|
|
endif
|
|
return path
|
|
endfunction
|
|
|
|
" Function : FindFileInSearchPath (PRIVATE)
|
|
" Purpose : Searches for a file in the search path list
|
|
" Args : filename -- name of the file to search for
|
|
" pathList -- the path list to search
|
|
" relPathBase -- the path which relative paths are expanded from
|
|
" Returns : An expanded filename if found, the empty string otherwise
|
|
" Author : Michael Sharpe (feline@irendi.com)
|
|
" History : inline code written by Bindu Wavell originally
|
|
function! <SID>FindFileInSearchPath(fileName, pathList, relPathBase)
|
|
let filepath = ""
|
|
let m = 1
|
|
let pathListLen = strlen(a:pathList)
|
|
if (pathListLen > 0)
|
|
while (1)
|
|
let pathSpec = <SID>GetNthItemFromList(a:pathList, m)
|
|
if (pathSpec != "")
|
|
let path = <SID>ExpandAlternatePath(pathSpec, a:relPathBase)
|
|
let fullname = path . "/" . a:fileName
|
|
let foundMatch = <SID>BufferOrFileExists(fullname)
|
|
if (foundMatch)
|
|
let filepath = fullname
|
|
break
|
|
endif
|
|
else
|
|
break
|
|
endif
|
|
let m = m + 1
|
|
endwhile
|
|
endif
|
|
return filepath
|
|
endfunction
|
|
|
|
" Function : FindFileInSearchPathEx (PRIVATE)
|
|
" Purpose : Searches for a file in the search path list
|
|
" Args : filename -- name of the file to search for
|
|
" pathList -- the path list to search
|
|
" relPathBase -- the path which relative paths are expanded from
|
|
" count -- find the count'th occurence of the file on the path
|
|
" Returns : An expanded filename if found, the empty string otherwise
|
|
" Author : Michael Sharpe (feline@irendi.com)
|
|
" History : Based on <SID>FindFileInSearchPath() but with extensions
|
|
function! <SID>FindFileInSearchPathEx(fileName, pathList, relPathBase, count)
|
|
let filepath = ""
|
|
let m = 1
|
|
let spath = ""
|
|
let pathListLen = strlen(a:pathList)
|
|
if (pathListLen > 0)
|
|
while (1)
|
|
let pathSpec = <SID>GetNthItemFromList(a:pathList, m)
|
|
if (pathSpec != "")
|
|
let path = <SID>ExpandAlternatePath(pathSpec, a:relPathBase)
|
|
if (spath != "")
|
|
let spath = spath . ','
|
|
endif
|
|
let spath = spath . path
|
|
else
|
|
break
|
|
endif
|
|
let m = m + 1
|
|
endwhile
|
|
endif
|
|
|
|
if (&path != "")
|
|
if (spath != "")
|
|
let spath = spath . ','
|
|
endif
|
|
let spath = spath . &path
|
|
endif
|
|
|
|
let filepath = findfile(a:fileName, spath, a:count)
|
|
return filepath
|
|
endfunction
|
|
|
|
" Function : EnumerateFilesByExtension (PRIVATE)
|
|
" Purpose : enumerates all files by a particular list of alternate extensions.
|
|
" Args : path -- path of a file (not including the file)
|
|
" baseName -- base name of the file to be expanded
|
|
" extension -- extension whose alternates are to be enumerated
|
|
" Returns : comma separated list of files with extensions
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
function! EnumerateFilesByExtension(path, baseName, extension)
|
|
let enumeration = ""
|
|
let extSpec = ""
|
|
let v:errmsg = ""
|
|
silent! echo g:alternateExtensions_{a:extension}
|
|
if (v:errmsg == "")
|
|
let extSpec = g:alternateExtensions_{a:extension}
|
|
endif
|
|
if (extSpec == "")
|
|
if (has_key(g:alternateExtensionsDict, a:extension))
|
|
let extSpec = g:alternateExtensionsDict[a:extension]
|
|
endif
|
|
endif
|
|
if (extSpec != "")
|
|
let n = 1
|
|
let done = 0
|
|
while (!done)
|
|
let ext = <SID>GetNthItemFromList(extSpec, n)
|
|
if (ext != "")
|
|
if (a:path != "")
|
|
let newFilename = a:path . "/" . a:baseName . "." . ext
|
|
else
|
|
let newFilename = a:baseName . "." . ext
|
|
endif
|
|
if (enumeration == "")
|
|
let enumeration = newFilename
|
|
else
|
|
let enumeration = enumeration . "," . newFilename
|
|
endif
|
|
else
|
|
let done = 1
|
|
endif
|
|
let n = n + 1
|
|
endwhile
|
|
endif
|
|
return enumeration
|
|
endfunction
|
|
|
|
" Function : EnumerateFilesByExtensionInPath (PRIVATE)
|
|
" Purpose : enumerates all files by expanding the path list and the extension
|
|
" list.
|
|
" Args : baseName -- base name of the file
|
|
" extension -- extension whose alternates are to be enumerated
|
|
" pathList -- the list of paths to enumerate
|
|
" relPath -- the path of the current file for expansion of relative
|
|
" paths in the path list.
|
|
" Returns : A comma separated list of paths with extensions
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
function! EnumerateFilesByExtensionInPath(baseName, extension, pathList, relPathBase)
|
|
let enumeration = ""
|
|
let filepath = ""
|
|
let m = 1
|
|
let pathListLen = strlen(a:pathList)
|
|
if (pathListLen > 0)
|
|
while (1)
|
|
let pathSpec = <SID>GetNthItemFromList(a:pathList, m)
|
|
if (pathSpec != "")
|
|
let path = <SID>ExpandAlternatePath(pathSpec, a:relPathBase)
|
|
let pe = EnumerateFilesByExtension(path, a:baseName, a:extension)
|
|
if (enumeration == "")
|
|
let enumeration = pe
|
|
else
|
|
let enumeration = enumeration . "," . pe
|
|
endif
|
|
else
|
|
break
|
|
endif
|
|
let m = m + 1
|
|
endwhile
|
|
endif
|
|
return enumeration
|
|
endfunction
|
|
|
|
" Function : DetermineExtension (PRIVATE)
|
|
" Purpose : Determines the extension of a filename based on the register
|
|
" alternate extension. This allow extension which contain dots to
|
|
" be considered. E.g. foo.aspx.cs to foo.aspx where an alternate
|
|
" exists for the aspx.cs extension. Note that this will only accept
|
|
" extensions which contain less than 5 dots. This is only
|
|
" implemented in this manner for simplicity...it is doubtful that
|
|
" this will be a restriction in non-contrived situations.
|
|
" Args : The path to the file to find the extension in
|
|
" Returns : The matched extension if any
|
|
" Author : Michael Sharpe (feline@irendi.com)
|
|
" History : idea from Tom-Erik Duestad
|
|
" Notes : there is some magic occuring here. The exists() function does not
|
|
" work well when the curly brace variable has dots in it. And why
|
|
" should it, dots are not valid in variable names. But the exists
|
|
" function is wierd too. Lets say foo_c does exist. Then
|
|
" exists("foo_c.e.f") will be true...even though the variable does
|
|
" not exist. However the curly brace variables do work when the
|
|
" variable has dots in it. E.g foo_{'c'} is different from
|
|
" foo_{'c.d.e'}...and foo_{'c'} is identical to foo_c and
|
|
" foo_{'c.d.e'} is identical to foo_c.d.e right? Yes in the current
|
|
" implementation of vim. To trick vim to test for existence of such
|
|
" variables echo the curly brace variable and look for an error
|
|
" message.
|
|
function! DetermineExtension(path)
|
|
let mods = ":t"
|
|
let i = 0
|
|
while i <= s:maxDotsInExtension
|
|
let mods = mods . ":e"
|
|
let extension = fnamemodify(a:path, mods)
|
|
if (has_key(g:alternateExtensionsDict, extension))
|
|
return extension
|
|
endif
|
|
let v:errmsg = ""
|
|
silent! echo g:alternateExtensions_{extension}
|
|
if (v:errmsg == "")
|
|
return extension
|
|
endif
|
|
let i = i + 1
|
|
endwhile
|
|
return ""
|
|
endfunction
|
|
|
|
" Function : AlternateFile (PUBLIC)
|
|
" Purpose : Opens a new buffer by looking at the extension of the current
|
|
" buffer and finding the corresponding file. E.g. foo.c <--> foo.h
|
|
" Args : accepts one argument. If present it used the argument as the new
|
|
" extension.
|
|
" Returns : nothing
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
" History : + When an alternate can't be found in the same directory as the
|
|
" source file, a search path will be traversed looking for the
|
|
" alternates.
|
|
" + Moved some code into a separate function, minor optimization
|
|
" + rework to favor files in memory based on complete enumeration of
|
|
" all files extensions and paths
|
|
function! AlternateFile(splitWindow, ...)
|
|
let extension = DetermineExtension(expand("%:p"))
|
|
let baseName = substitute(expand("%:t"), "\." . extension . '$', "", "")
|
|
let currentPath = expand("%:p:h")
|
|
|
|
if (a:0 != 0)
|
|
let newFullname = currentPath . "/" . baseName . "." . a:1
|
|
call <SID>FindOrCreateBuffer(newFullname, a:splitWindow, 0)
|
|
else
|
|
let allfiles = ""
|
|
if (extension != "")
|
|
let allfiles1 = EnumerateFilesByExtension(currentPath, baseName, extension)
|
|
let allfiles2 = EnumerateFilesByExtensionInPath(baseName, extension, g:alternateSearchPath, currentPath)
|
|
|
|
if (allfiles1 != "")
|
|
if (allfiles2 != "")
|
|
let allfiles = allfiles1 . ',' . allfiles2
|
|
else
|
|
let allfiles = allfiles1
|
|
endif
|
|
else
|
|
let allfiles = allfiles2
|
|
endif
|
|
endif
|
|
|
|
if (allfiles != "")
|
|
let bestFile = ""
|
|
let bestScore = 0
|
|
let score = 0
|
|
let n = 1
|
|
|
|
let onefile = <SID>GetNthItemFromList(allfiles, n)
|
|
let bestFile = onefile
|
|
while (onefile != "" && score < 2)
|
|
let score = <SID>BufferOrFileExists(onefile)
|
|
if (score > bestScore)
|
|
let bestScore = score
|
|
let bestFile = onefile
|
|
endif
|
|
let n = n + 1
|
|
let onefile = <SID>GetNthItemFromList(allfiles, n)
|
|
endwhile
|
|
|
|
if (bestScore == 0 && g:alternateNoDefaultAlternate == 1)
|
|
echo "No existing alternate available"
|
|
else
|
|
call <SID>FindOrCreateBuffer(bestFile, a:splitWindow, 1)
|
|
let b:AlternateAllFiles = allfiles
|
|
endif
|
|
else
|
|
echo "No alternate file/buffer available"
|
|
endif
|
|
endif
|
|
endfunction
|
|
|
|
" Function : AlternateOpenFileUnderCursor (PUBLIC)
|
|
" Purpose : Opens file under the cursor
|
|
" Args : splitWindow -- indicates how to open the file
|
|
" Returns : Nothing
|
|
" Author : Michael Sharpe (feline@irendi.com) www.irendi.com
|
|
function! AlternateOpenFileUnderCursor(splitWindow,...)
|
|
let cursorFile = (a:0 > 0) ? a:1 : expand("<cfile>")
|
|
let currentPath = expand("%:p:h")
|
|
let openCount = 1
|
|
|
|
let fileName = <SID>FindFileInSearchPathEx(cursorFile, g:alternateSearchPath, currentPath, openCount)
|
|
if (fileName != "")
|
|
call <SID>FindOrCreateBuffer(fileName, a:splitWindow, 1)
|
|
let b:openCount = openCount
|
|
let b:cursorFile = cursorFile
|
|
let b:currentPath = currentPath
|
|
else
|
|
echo "Can't find file"
|
|
endif
|
|
endfunction
|
|
|
|
" Function : AlternateOpenNextFile (PUBLIC)
|
|
" Purpose : Opens the next file corresponding to the search which found the
|
|
" current file
|
|
" Args : bang -- indicates what to do if the current file has not been
|
|
" saved
|
|
" Returns : nothing
|
|
" Author : Michael Sharpe (feline@irendi.com) www.irendi.com
|
|
function! AlternateOpenNextFile(bang)
|
|
let cursorFile = ""
|
|
if (exists("b:cursorFile"))
|
|
let cursorFile = b:cursorFile
|
|
endif
|
|
|
|
let currentPath = ""
|
|
if (exists("b:currentPath"))
|
|
let currentPath = b:currentPath
|
|
endif
|
|
|
|
let openCount = 0
|
|
if (exists("b:openCount"))
|
|
let openCount = b:openCount + 1
|
|
endif
|
|
|
|
if (cursorFile != "" && currentPath != "" && openCount != 0)
|
|
let fileName = <SID>FindFileInSearchPathEx(cursorFile, g:alternateSearchPath, currentPath, openCount)
|
|
if (fileName != "")
|
|
call <SID>FindOrCreateBuffer(fileName, "n".a:bang, 0)
|
|
let b:openCount = openCount
|
|
let b:cursorFile = cursorFile
|
|
let b:currentPath = currentPath
|
|
else
|
|
let fileName = <SID>FindFileInSearchPathEx(cursorFile, g:alternateSearchPath, currentPath, 1)
|
|
if (fileName != "")
|
|
call <SID>FindOrCreateBuffer(fileName, "n".a:bang, 0)
|
|
let b:openCount = 1
|
|
let b:cursorFile = cursorFile
|
|
let b:currentPath = currentPath
|
|
else
|
|
echo "Can't find next file"
|
|
endif
|
|
endif
|
|
endif
|
|
endfunction
|
|
|
|
comm! -nargs=? -bang IH call AlternateOpenFileUnderCursor("n<bang>", <f-args>)
|
|
comm! -nargs=? -bang IHS call AlternateOpenFileUnderCursor("h<bang>", <f-args>)
|
|
comm! -nargs=? -bang IHV call AlternateOpenFileUnderCursor("v<bang>", <f-args>)
|
|
comm! -nargs=? -bang IHT call AlternateOpenFileUnderCursor("t<bang>", <f-args>)
|
|
comm! -nargs=? -bang IHN call AlternateOpenNextFile("<bang>")
|
|
imap <Leader>ih <ESC>:IHS<CR>
|
|
nmap <Leader>ih :IHS<CR>
|
|
imap <Leader>is <ESC>:IHS<CR>:A<CR>
|
|
nmap <Leader>is :IHS<CR>:A<CR>
|
|
imap <Leader>ihn <ESC>:IHN<CR>
|
|
nmap <Leader>ihn :IHN<CR>
|
|
|
|
"function! <SID>PrintList(theList)
|
|
" let n = 1
|
|
" let oneFile = <SID>GetNthItemFromList(a:theList, n)
|
|
" while (oneFile != "")
|
|
" let n = n + 1
|
|
" let oneFile = <SID>GetNthItemFromList(a:theList, n)
|
|
" endwhile
|
|
"endfunction
|
|
|
|
" Function : NextAlternate (PUBLIC)
|
|
" Purpose : Used to cycle through any other alternate file which existed on
|
|
" the search path.
|
|
" Args : bang (IN) - used to implement the AN vs AN! functionality
|
|
" Returns : nothing
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
function! NextAlternate(bang)
|
|
if (exists('b:AlternateAllFiles'))
|
|
let currentFile = expand("%")
|
|
let n = 1
|
|
let onefile = <SID>GetNthItemFromList(b:AlternateAllFiles, n)
|
|
while (onefile != "" && !<SID>EqualFilePaths(fnamemodify(onefile,":p"), fnamemodify(currentFile,":p")))
|
|
let n = n + 1
|
|
let onefile = <SID>GetNthItemFromList(b:AlternateAllFiles, n)
|
|
endwhile
|
|
|
|
if (onefile != "")
|
|
let stop = n
|
|
let n = n + 1
|
|
let foundAlternate = 0
|
|
let nextAlternate = ""
|
|
while (n != stop)
|
|
let nextAlternate = <SID>GetNthItemFromList(b:AlternateAllFiles, n)
|
|
if (nextAlternate == "")
|
|
let n = 1
|
|
continue
|
|
endif
|
|
let n = n + 1
|
|
if (<SID>EqualFilePaths(fnamemodify(nextAlternate, ":p"), fnamemodify(currentFile, ":p")))
|
|
continue
|
|
endif
|
|
if (filereadable(nextAlternate))
|
|
" on cygwin filereadable("foo.H") returns true if "foo.h" exists
|
|
if (has("unix") && $WINDIR != "" && fnamemodify(nextAlternate, ":p") ==? fnamemodify(currentFile, ":p"))
|
|
continue
|
|
endif
|
|
let foundAlternate = 1
|
|
break
|
|
endif
|
|
endwhile
|
|
if (foundAlternate == 1)
|
|
let s:AlternateAllFiles = b:AlternateAllFiles
|
|
"silent! execute ":e".a:bang." " . nextAlternate
|
|
call <SID>FindOrCreateBuffer(nextAlternate, "n".a:bang, 0)
|
|
let b:AlternateAllFiles = s:AlternateAllFiles
|
|
else
|
|
echo "Only this alternate file exists"
|
|
endif
|
|
else
|
|
echo "Could not find current file in alternates list"
|
|
endif
|
|
else
|
|
echo "No other alternate files exist"
|
|
endif
|
|
endfunction
|
|
|
|
comm! -nargs=? -bang A call AlternateFile("n<bang>", <f-args>)
|
|
comm! -nargs=? -bang AS call AlternateFile("h<bang>", <f-args>)
|
|
comm! -nargs=? -bang AV call AlternateFile("v<bang>", <f-args>)
|
|
comm! -nargs=? -bang AT call AlternateFile("t<bang>", <f-args>)
|
|
comm! -nargs=? -bang AN call NextAlternate("<bang>")
|
|
|
|
" Function : BufferOrFileExists (PRIVATE)
|
|
" Purpose : determines if a buffer or a readable file exists
|
|
" Args : fileName (IN) - name of the file to check
|
|
" Returns : 2 if it exists in memory, 1 if it exists, 0 otherwise
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
" History : Updated code to handle buffernames using just the
|
|
" filename and not the path.
|
|
function! <SID>BufferOrFileExists(fileName)
|
|
let result = 0
|
|
|
|
let lastBuffer = bufnr("$")
|
|
let i = 1
|
|
while i <= lastBuffer
|
|
if <SID>EqualFilePaths(expand("#".i.":p"), a:fileName)
|
|
let result = 2
|
|
break
|
|
endif
|
|
let i = i + 1
|
|
endwhile
|
|
|
|
if (!result)
|
|
let bufName = fnamemodify(a:fileName,":t")
|
|
let memBufName = bufname(bufName)
|
|
if (memBufName != "")
|
|
let memBufBasename = fnamemodify(memBufName, ":t")
|
|
if (bufName == memBufBasename)
|
|
let result = 2
|
|
endif
|
|
endif
|
|
|
|
if (!result)
|
|
let result = bufexists(bufName) || bufexists(a:fileName) || filereadable(a:fileName)
|
|
endif
|
|
endif
|
|
|
|
if (!result)
|
|
let result = filereadable(a:fileName)
|
|
endif
|
|
return result
|
|
endfunction
|
|
|
|
" Function : FindOrCreateBuffer (PRIVATE)
|
|
" Purpose : searches the buffer list (:ls) for the specified filename. If
|
|
" found, checks the window list for the buffer. If the buffer is in
|
|
" an already open window, it switches to the window. If the buffer
|
|
" was not in a window, it switches to that buffer. If the buffer did
|
|
" not exist, it creates it.
|
|
" Args : filename (IN) -- the name of the file
|
|
" doSplit (IN) -- indicates whether the window should be split
|
|
" ("v", "h", "n", "v!", "h!", "n!", "t", "t!")
|
|
" findSimilar (IN) -- indicate weather existing buffers should be
|
|
" prefered
|
|
" Returns : nothing
|
|
" Author : Michael Sharpe <feline@irendi.com>
|
|
" History : + bufname() was not working very well with the possibly strange
|
|
" paths that can abound with the search path so updated this
|
|
" slightly. -- Bindu
|
|
" + updated window switching code to make it more efficient -- Bindu
|
|
" Allow ! to be applied to buffer/split/editing commands for more
|
|
" vim/vi like consistency
|
|
" + implemented fix from Matt Perry
|
|
function! <SID>FindOrCreateBuffer(fileName, doSplit, findSimilar)
|
|
" Check to see if the buffer is already open before re-opening it.
|
|
let FILENAME = escape(a:fileName, ' ')
|
|
let bufNr = -1
|
|
let lastBuffer = bufnr("$")
|
|
let i = 1
|
|
if (a:findSimilar)
|
|
while i <= lastBuffer
|
|
if <SID>EqualFilePaths(expand("#".i.":p"), a:fileName)
|
|
let bufNr = i
|
|
break
|
|
endif
|
|
let i = i + 1
|
|
endwhile
|
|
|
|
if (bufNr == -1)
|
|
let bufName = bufname(a:fileName)
|
|
let bufFilename = fnamemodify(a:fileName,":t")
|
|
|
|
if (bufName == "")
|
|
let bufName = bufname(bufFilename)
|
|
endif
|
|
|
|
if (bufName != "")
|
|
let tail = fnamemodify(bufName, ":t")
|
|
if (tail != bufFilename)
|
|
let bufName = ""
|
|
endif
|
|
endif
|
|
if (bufName != "")
|
|
let bufNr = bufnr(bufName)
|
|
let FILENAME = bufName
|
|
endif
|
|
endif
|
|
endif
|
|
|
|
if (g:alternateRelativeFiles == 1)
|
|
let FILENAME = fnamemodify(FILENAME, ":p:.")
|
|
endif
|
|
|
|
let splitType = a:doSplit[0]
|
|
let bang = a:doSplit[1]
|
|
if (bufNr == -1)
|
|
" Buffer did not exist....create it
|
|
let v:errmsg=""
|
|
if (splitType == "h")
|
|
silent! execute ":split".bang." " . FILENAME
|
|
elseif (splitType == "v")
|
|
silent! execute ":vsplit".bang." " . FILENAME
|
|
elseif (splitType == "t")
|
|
silent! execute ":tab split".bang." " . FILENAME
|
|
else
|
|
silent! execute ":e".bang." " . FILENAME
|
|
endif
|
|
if (v:errmsg != "")
|
|
echo v:errmsg
|
|
endif
|
|
else
|
|
|
|
" Find the correct tab corresponding to the existing buffer
|
|
let tabNr = -1
|
|
" iterate tab pages
|
|
for i in range(tabpagenr('$'))
|
|
" get the list of buffers in the tab
|
|
let tabList = tabpagebuflist(i + 1)
|
|
let idx = 0
|
|
" iterate each buffer in the list
|
|
while idx < len(tabList)
|
|
" if it matches the buffer we are looking for...
|
|
if (tabList[idx] == bufNr)
|
|
" ... save the number
|
|
let tabNr = i + 1
|
|
break
|
|
endif
|
|
let idx = idx + 1
|
|
endwhile
|
|
if (tabNr != -1)
|
|
break
|
|
endif
|
|
endfor
|
|
" switch the the tab containing the buffer
|
|
if (tabNr != -1)
|
|
execute "tabn ".tabNr
|
|
endif
|
|
|
|
" Buffer was already open......check to see if it is in a window
|
|
let bufWindow = bufwinnr(bufNr)
|
|
if (bufWindow == -1)
|
|
" Buffer was not in a window so open one
|
|
let v:errmsg=""
|
|
if (splitType == "h")
|
|
silent! execute ":sbuffer".bang." " . FILENAME
|
|
elseif (splitType == "v")
|
|
silent! execute ":vert sbuffer " . FILENAME
|
|
elseif (splitType == "t")
|
|
silent! execute ":tab sbuffer " . FILENAME
|
|
else
|
|
silent! execute ":buffer".bang." " . FILENAME
|
|
endif
|
|
if (v:errmsg != "")
|
|
echo v:errmsg
|
|
endif
|
|
else
|
|
" Buffer is already in a window so switch to the window
|
|
execute bufWindow."wincmd w"
|
|
if (bufWindow != winnr())
|
|
" something wierd happened...open the buffer
|
|
let v:errmsg=""
|
|
if (splitType == "h")
|
|
silent! execute ":split".bang." " . FILENAME
|
|
elseif (splitType == "v")
|
|
silent! execute ":vsplit".bang." " . FILENAME
|
|
elseif (splitType == "t")
|
|
silent! execute ":tab split".bang." " . FILENAME
|
|
else
|
|
silent! execute ":e".bang." " . FILENAME
|
|
endif
|
|
if (v:errmsg != "")
|
|
echo v:errmsg
|
|
endif
|
|
endif
|
|
endif
|
|
endif
|
|
endfunction
|
|
|
|
" Function : EqualFilePaths (PRIVATE)
|
|
" Purpose : Compares two paths. Do simple string comparison anywhere but on
|
|
" Windows. On Windows take into account that file paths could differ
|
|
" in usage of separators and the fact that case does not matter.
|
|
" "c:\WINDOWS" is the same path as "c:/windows". has("win32unix") Vim
|
|
" version does not count as one having Windows path rules.
|
|
" Args : path1 (IN) -- first path
|
|
" path2 (IN) -- second path
|
|
" Returns : 1 if path1 is equal to path2, 0 otherwise.
|
|
" Author : Ilya Bobir <ilya@po4ta.com>
|
|
function! <SID>EqualFilePaths(path1, path2)
|
|
if has("win16") || has("win32") || has("win64") || has("win95")
|
|
return substitute(a:path1, "\/", "\\", "g") ==? substitute(a:path2, "\/", "\\", "g")
|
|
else
|
|
return a:path1 == a:path2
|
|
endif
|
|
endfunction
|