diff options
Diffstat (limited to 'runtime/plugin')
| -rw-r--r-- | runtime/plugin/README.txt | 9 | ||||
| -rw-r--r-- | runtime/plugin/explorer.vim | 1326 | ||||
| -rw-r--r-- | runtime/plugin/gzip.vim | 157 | ||||
| -rw-r--r-- | runtime/plugin/netrw.vim | 1160 | ||||
| -rw-r--r-- | runtime/plugin/rrhelper.vim | 47 | ||||
| -rw-r--r-- | runtime/plugin/tohtml.vim | 27 |
6 files changed, 2726 insertions, 0 deletions
diff --git a/runtime/plugin/README.txt b/runtime/plugin/README.txt new file mode 100644 index 000000000..489ebf613 --- /dev/null +++ b/runtime/plugin/README.txt @@ -0,0 +1,9 @@ +The plugin directory is for standard Vim plugin scripts. + +All files here ending in .vim will be sourced by Vim when it starts up. + +Standard plugins: +explorer.vim file browser +gzip.vim edit compressed files +netrw.vim edit files over a network +rrhelper.vim used for --remote-wait editing diff --git a/runtime/plugin/explorer.vim b/runtime/plugin/explorer.vim new file mode 100644 index 000000000..4a5b6057f --- /dev/null +++ b/runtime/plugin/explorer.vim @@ -0,0 +1,1326 @@ +"============================================================================= +" File: explorer.vim +" Author: M A Aziz Ahmed (aziz@acorn-networks.com - doesn't work) +" Last Change: 2004 May 13 +" Version: 2.5 + changes +" Additions by Mark Waggoner (waggoner@aracnet.com) et al. +"----------------------------------------------------------------------------- +" This file implements a file explorer. +"----------------------------------------------------------------------------- +" Normally, this file will reside in the plugins directory and be +" automatically sourced. If not, you must manually source this file +" using :source explorer.vim +" +" To use it, just edit a directory (vi dirname) or type :Explore to +" launch the file explorer in the current window, or :Sexplore to split +" the current window and launch explorer there. +" +" If the current buffer is modified, the window is always split. +" +" It is also possible to delete files and rename files within explorer. +" See :help file-explorer for more details +" +"----------------------------------------------------------------------------- +" Update history removed, it's not very interesting. +" Contributors were: Doug Potts, Bram Moolenaar, Thomas Köhler +"============================================================================= + +" Has this already been loaded? +if exists("loaded_explorer") + finish +endif +let loaded_explorer=1 + +" Line continuation used here +let s:cpo_save = &cpo +set cpo&vim + +"--- +" Default settings for global configuration variables + +" Split vertically instead of horizontally? +if !exists("g:explVertical") + let g:explVertical=0 +endif + +" How big to make the window? Set to "" to avoid resizing +if !exists("g:explWinSize") + let g:explWinSize=15 +endif + +" When opening a new file/directory, split below current window (or +" above)? 1 = below, 0 = to above +if !exists("g:explSplitBelow") + let g:explSplitBelow = &splitbelow +endif + +" Split to right of current window (or to left)? +" 1 = to right, 0 = to left +if !exists("g:explSplitRight") + let g:explSplitRight = &splitright +endif + +" Start the first explorer window... +" Defaults to be the same as explSplitBelow +if !exists("g:explStartBelow") + let g:explStartBelow = g:explSplitBelow +endif + +" Start the first explorer window... +" Defaults to be the same as explSplitRight +if !exists("g:explStartRight") + let g:explStartRight = g:explSplitRight +endif + +" Show detailed help? +if !exists("g:explDetailedHelp") + let g:explDetailedHelp=0 +endif + +" Show file size and dates? +if !exists("g:explDetailedList") + let g:explDetailedList=0 +endif + +" Format for the date +if !exists("g:explDateFormat") + let g:explDateFormat="%d %b %Y %H:%M" +endif + +" Files to hide +if !exists("g:explHideFiles") + let g:explHideFiles='' +endif + +" Field to sort by +if !exists("g:explSortBy") + let g:explSortBy='name' +endif + +" Segregate directories? 1, 0, or -1 +if !exists("g:explDirsFirst") + let g:explDirsFirst=1 +endif + +" Segregate items in suffixes option? 1, 0, or -1 +if !exists("g:explSuffixesLast") + let g:explSuffixesLast=1 +endif + +" Include separator lines between directories, files, and suffixes? +if !exists("g:explUseSeparators") + let g:explUseSeparators=0 +endif + +" Execute file handler +if !exists("g:explFileHandler") + if has("win32") + " for Win32 use rundll32 + function! s:explFileHandlerWin32(fn) + exec 'silent !start rundll32 url.dll,FileProtocolHandler "' + \ . escape(a:fn, '%#') . '"' + endfunction + let g:explFileHandler = "<SID>explFileHandlerWin32" + + elseif has("unix") + " for KDE use kfmclient, for GNUME use gnome-open + if executable("kfmclient") + let g:explFileHandlerCmd = "kfmclient exec" + elseif executable("gnome-open") + let g:explFileHandlerCmd = "gnome-open" + else + let g:explFileHandlerCmd = "" + endif + if g:explFileHandlerCmd != "" + function! s:explFileHandlerUnix(fn) + if &shellredir =~ "%s" + let redir = substitute(&shellredir, "%s", "/dev/null", "") + else + let redir = &shellredir . "/dev/null" + endif + " Need to escape % and # but not spaces. + exec "silent !" . g:explFileHandlerCmd . " '" . escape(a:fn, '%#') . "'" . redir + endfunction + let g:explFileHandler = "<SID>explFileHandlerUnix" + endif + endif +endif + +"--- +" script variables - these are the same across all +" explorer windows + +" characters that must be escaped for a regular expression +let s:escregexp = '/*^$.~\' + +" characters that must be escaped for filenames +if has("dos16") || has("dos32") || has("win16") || has("win32") || has("os2") + let s:escfilename = ' %#' +else + let s:escfilename = ' \%#[]' +endif + + +" A line to use for separating sections +let s:separator='"---------------------------------------------------' + +"--- +" Create commands + +if !exists(':Explore') + command -n=? -complete=dir Explore :call s:StartExplorer(0, '<a>') +endif +if !exists(':Sexplore') + command -n=? -complete=dir Sexplore :call s:StartExplorer(1, '<a>') +endif + +"--- +" Start the explorer using the preferences from the global variables +" +function! s:StartExplorer(split, start_dir) + let startcmd = "edit" + if a:start_dir != "" + let fname=a:start_dir + else + let fname = expand("%:p:h") + endif + if fname == "" + let fname = getcwd() + endif + + " Create a variable to use if splitting vertically + let splitMode = "" + if g:explVertical == 1 + let splitMode = "vertical" + endif + + " Save the user's settings for splitbelow and splitright + let savesplitbelow = &splitbelow + let savesplitright = &splitright + + if a:split || &modified + let startcmd = splitMode . " " . g:explWinSize . "new " . fname + let &splitbelow = g:explStartBelow + let &splitright = g:explStartRight + else + let startcmd = "edit " . fname + endif + silent execute startcmd + let &splitbelow = savesplitbelow + let &splitright = savesplitright +endfunction + +"--- +" This is the main entry for 'editing' a directory +" +function! s:EditDir() + " Get out of here right away if this isn't a directory! + let name = expand("%") + if name == "" + let name = expand("%:p") + endif + if !isdirectory(name) + return + endif + + " Turn off the swapfile, set the buffer type so that it won't get + " written, and so that it will get deleted when it gets hidden. + setlocal noreadonly modifiable + setlocal noswapfile + setlocal buftype=nowrite + setlocal bufhidden=delete + " Don't wrap around long lines + setlocal nowrap + + " No need for any insertmode abbreviations, since we don't allow + " insertions anyway! + iabc <buffer> + + " Long or short listing? Use the global variable the first time + " explorer is called, after that use the script variable as set by + " the interactive user. + if exists("s:longlist") + let w:longlist = s:longlist + else + let w:longlist = g:explDetailedList + endif + + " Show keyboard shortcuts? + if exists("s:longhelp") + let w:longhelp = s:longhelp + else + let w:longhelp = g:explDetailedHelp + endif + + " Set the sort based on the global variables the first time. If you + " later change the sort order, it will be retained in the s:sortby + " variable for the next time you open explorer + let w:sortdirection=1 + let w:sortdirlabel = "" + let w:sorttype = "" + if exists("s:sortby") + let sortby=s:sortby + else + let sortby=g:explSortBy + endif + if sortby =~ "reverse" + let w:sortdirection=-1 + let w:sortdirlabel = "reverse " + endif + if sortby =~ "date" + let w:sorttype = "date" + elseif sortby =~ "size" + let w:sorttype = "size" + else + let w:sorttype = "name" + endif + call s:SetSuffixesLast() + + " If directory is already loaded, don't open it again! + if line('$') > 1 + setlocal readonly nomodifiable + return + endif + + " Get the complete path to the directory to look at with a slash at + " the end. This also removes "/../" and "/./" things. + let b:completePath = s:Path(expand("%:p")) + + " Add a slash at the end + if b:completePath !~ '/$' + let b:completePath = b:completePath . '/' + endif + + " escape special characters for exec commands + let b:completePathEsc = escape(b:completePath, s:escfilename) + let b:parentDirEsc = substitute(b:completePathEsc, '/[^/]*/$', '/', 'g') + + " Set up syntax highlighting + " Something wrong with the evaluation of the conditional though... + if has("syntax") && exists("g:syntax_on") && !has("syntax_items") + syn match browseSynopsis "^\"[ -].*" + syn match browseDirectory "[^\"].*/ " + syn match browseDirectory "[^\"].*/$" + syn match browseCurDir "^\"= .*$" + syn match browseSortBy "^\" Sorted by .*$" contains=browseSuffixInfo + syn match browseSuffixInfo "(.*)$" contained + syn match browseFilter "^\" Not Showing:.*$" + syn match browseFiletime "««\d\+$" + exec('syn match browseSuffixes "' . b:suffixesHighlight . '"') + + "hi def link browseSynopsis PreProc + hi def link browseSynopsis Special + hi def link browseDirectory Directory + hi def link browseCurDir Statement + hi def link browseSortBy String + hi def link browseSuffixInfo Type + hi def link browseFilter String + hi def link browseFiletime Ignore + hi def link browseSuffixes Type + endif + + " Set filter for hiding files + let b:filterFormula=substitute(g:explHideFiles, '\([^\\]\),', '\1\\|', 'g') + if b:filterFormula != '' + let b:filtering="\nNot showing: " . b:filterFormula + else + let b:filtering="" + endif + + " Show the files + call s:ShowDirectory() + + " Set up mappings for this buffer + let cpo_save = &cpo + set cpo&vim + nnoremap <buffer> <cr> :call <SID>EditEntry("","edit")<cr> + nnoremap <buffer> - :exec ("silent e " . b:parentDirEsc)<cr> + if exists("g:explFileHandler") + nnoremap <buffer> x :call <SID>ExecuteEntry()<cr> + endif + nnoremap <buffer> o :call <SID>OpenEntry()<cr> + nnoremap <buffer> O :call <SID>OpenEntryPrevWindow()<cr> + nnoremap <buffer> p :call <SID>EditEntry("","pedit")<cr> + nnoremap <buffer> ? :call <SID>ToggleHelp()<cr> + nnoremap <buffer> a :call <SID>ShowAllFiles()<cr> + nnoremap <buffer> R :call <SID>RenameFile()<cr> + nnoremap <buffer> D :. call <SID>DeleteFile()<cr> + vnoremap <buffer> D :call <SID>DeleteFile()<cr> + nnoremap <buffer> i :call <SID>ToggleLongList()<cr> + nnoremap <buffer> s :call <SID>SortSelect()<cr> + nnoremap <buffer> r :call <SID>SortReverse()<cr> + nnoremap <buffer> c :exec "cd ".b:completePathEsc<cr> + nnoremap <buffer> <2-leftmouse> :call <SID>DoubleClick()<cr> + if exists("*ExplorerCustomMap") + call ExplorerCustomMap() + endif + let &cpo = cpo_save + + " prevent the buffer from being modified + setlocal readonly nomodifiable +endfunction + +"--- +" Determine the number of windows open to this buffer number. +" Care of Yegappan Lakshman. Thanks! +fun! s:BufInWindows(bnum) + let cnt = 0 + let winnum = 1 + while 1 + let bufnum = winbufnr(winnum) + if bufnum < 0 + break + endif + if bufnum == a:bnum + let cnt = cnt + 1 + endif + let winnum = winnum + 1 + endwhile + + return cnt +endfunction + +" If this is the only window, open file in a new window +" Otherwise, open file in the most recently visited window +" +function! s:OpenEntryPrevWindow() + " Figure out if there are any other windows + let n = winnr() + wincmd p + " No other window? Then open a new one + if n == winnr() + call s:OpenEntry() + " Other windows exist + else + " Check if the previous buffer is modified - ask if they want to save! + " Was it modified, and is it the only window open to this file + if &modified && s:BufInWindows(winbufnr(winnr())) < 2 + let bufname = bufname(winbufnr(winnr())) + + let action=confirm("Save Changes in " . bufname . "?","&Yes\n&No\n&Cancel") + " Yes - try to save - if there is an error, cancel + if action == 1 + let v:errmsg = "" + silent w + if v:errmsg != "" + echoerr "Unable to write buffer!" + wincmd p + return + endif + " No, abandon changes + elseif action == 2 + set nomodified + echomsg "Warning, abandoning changes in " . bufname + " Cancel (or any other result), don't do the open + else + wincmd p + return + endif + endif + wincmd p + call s:EditEntry("wincmd p","edit") + endif +endfunction + + +"--- +" Open a file or directory in a new window. +" Use g:explSplitBelow and g:explSplitRight to decide where to put the +" split window, and resize the original explorer window if it is +" larger than g:explWinSize +" +function! s:OpenEntry() + " Are we on a line with a file name? + let l = getline(".") + if l =~ '^"' + return + endif + + " Copy window settings to script settings + let s:sortby=w:sortdirlabel . w:sorttype + let s:longhelp = w:longhelp + let s:longlist = w:longlist + + " Get the window number of the explorer window + let n = winnr() + + " Save the user's settings for splitbelow and splitright + let savesplitbelow=&splitbelow + let savesplitright=&splitright + + " Figure out how to do the split based on the user's preferences. + " We want to split to the (left,right,top,bottom) of the explorer + " window, but we want to extract the screen real-estate from the + " window next to the explorer if possible. + " + " 'there' will be set to a command to move from the split window + " back to the explorer window + " + " 'back' will be set to a command to move from the explorer window + " back to the newly split window + " + " 'right' and 'below' will be set to the settings needed for + " splitbelow and splitright IF the explorer is the only window. + " + if g:explVertical + if g:explSplitRight + let there="wincmd h" + let back ="wincmd l" + let right=1 + let below=0 + else + let there="wincmd l" + let back ="wincmd h" + let right=0 + let below=0 + endif + else + if g:explSplitBelow + let there="wincmd k" + let back ="wincmd j" + let right=0 + let below=1 + else + let there="wincmd j" + let back ="wincmd k" + let right=0 + let below=0 + endif + endif + + " Get the file name + let fn=s:GetFullFileName() + + " Attempt to go to adjacent window + exec(back) + " If no adjacent window, set splitright and splitbelow appropriately + if n == winnr() + let &splitright=right + let &splitbelow=below + else + " found adjacent window - invert split direction + let &splitright=!right + let &splitbelow=!below + endif + + " Create a variable to use if splitting vertically + let splitMode = "" + if g:explVertical == 1 + let splitMode = "vertical" + endif + + " Is it a directory? If so, get a real path to it instead of + " relative path. This also removes "/../" and "/./" things. + if isdirectory(fn) + let fn = fnamemodify(fn, ":p") + endif + + " Open the new window + exec("silent " . splitMode." sp " . escape(fn,s:escfilename)) + + " resize the explorer window if it is larger than the requested size + exec(there) + if g:explWinSize =~ '[0-9]\+' && winheight("") > g:explWinSize + exec("silent ".splitMode." resize ".g:explWinSize) + endif + exec(back) + + " Restore splitmode settings + let &splitbelow=savesplitbelow + let &splitright=savesplitright + +endfunction + +function! s:ExecuteEntry() + " Are we on a line with a file name? + let l = getline(".") + if l =~ '^"' + return + endif + + " Get the file name + let fn = s:GetFullFileName() + if has("win32") && fn =~ '^//' + let fn = substitute(fn, '/', '\\', 'g') + endif + exec "call " . g:explFileHandler . "(fn)" +endfunction + +"--- +" Double click with the mouse +" +function s:DoubleClick() + if expand("<cfile>") =~ '[\\/]$' + call s:EditEntry("","edit") " directory: open in this window + else + call s:OpenEntryPrevWindow() " file: open in another window + endif +endfun + +"--- +" Open file or directory in the same window as the explorer is +" currently in +" +function! s:EditEntry(movefirst,editcmd) + " Are we on a line with a file name? + let l = getline(".") + if l =~ '^"' + return + endif + + " Copy window settings to script settings + let s:sortby=w:sortdirlabel . w:sorttype + let s:longhelp = w:longhelp + let s:longlist = w:longlist + + " Get the file name + let fn = s:GetFullFileName() + if isdirectory(fn) + " This removes "/../" and "/./" things. + let fn = fnamemodify(fn, ":p") + endif + + " Move to desired window if needed + exec(a:movefirst) + " Edit the file/dir + exec(a:editcmd . " " . escape(fn,s:escfilename)) +endfunction + + +"--- +" Create a regular expression out of the suffixes option for sorting +" and set a string to indicate whether we are sorting with the +" suffixes at the end (or the beginning) +" +function! s:SetSuffixesLast() + let b:suffixesRegexp = '\(' . substitute(escape(&suffixes,s:escregexp),',','\\|','g') . '\)$' + let b:suffixesHighlight = '^[^"].*\(' . substitute(escape(&suffixes,s:escregexp),',','\\|','g') . '\)\( \|$\)' + if has("fname_case") + let b:suffixesRegexp = '\C' . b:suffixesRegexp + let b:suffixesHighlight = '\C' . b:suffixesHighlight + else + let b:suffixesRegexp = '\c' . b:suffixesRegexp + let b:suffixesHighlight = '\c' . b:suffixesHighlight + endif + if g:explSuffixesLast > 0 && &suffixes != "" + let b:suffixeslast=" (" . &suffixes . " at end of list)" + elseif g:explSuffixesLast < 0 && &suffixes != "" + let b:suffixeslast=" (" . &suffixes . " at start of list)" + else + let b:suffixeslast=" ('suffixes' mixed with files)" + endif +endfunction + +"--- +" Show the header and contents of the directory +" +function! s:ShowDirectory() + "Delete all lines + 1,$d _ + " Prevent a report of our actions from showing up + let oldRep=&report + let save_sc = &sc + set report=10000 nosc + + " Add the header + call s:AddHeader() + $d _ + + " Display the files + + " Get a list of all the files + let files = s:Path(glob(b:completePathEsc . "*")) + if files != "" && files !~ "\n$" + let files = files . "\n" + endif + + " Add the dot files now, making sure "." is not included! + let files = files . substitute(s:Path(glob(b:completePathEsc . ".*")), "[^\n]*/./\\=\n", '' , '') + if files != "" && files !~ "\n$" + let files = files . "\n" + endif + + " Are there any files left after filtering? + if files != "" + normal! mt + put =files + let b:maxFileLen = 0 + 0 + /^"=/+1,$g/^/call s:MarkDirs() + normal! `t + call s:AddFileInfo() + endif + + normal! zz + + " Move to first directory in the listing + 0 + /^"=/+1 + + " Do the sort + call s:SortListing("Loaded contents of ".b:completePath.". ") + + " Move to first directory in the listing + 0 + /^"=/+1 + + let &report=oldRep + let &sc = save_sc + +endfunction + +"--- +" Mark which items are directories - called once for each file name +" must be used only when size/date is not displayed +" +function! s:MarkDirs() + let oldRep=&report + set report=1000 + "Remove slashes if added + s;/$;;e + "Removes all the leading slashes and adds slashes at the end of directories + s;^.*\\\([^\\]*\)$;\1;e + s;^.*/\([^/]*\)$;\1;e + "normal! ^ + let currLine=getline(".") + if isdirectory(b:completePath . currLine) + s;$;/; + let fileLen=strlen(currLine)+1 + else + let fileLen=strlen(currLine) + if (b:filterFormula!="") && (currLine =~ b:filterFormula) + " Don't show the file if it is to be filtered. + d _ + endif + endif + if fileLen > b:maxFileLen + let b:maxFileLen=fileLen + endif + let &report=oldRep +endfunction + +"--- +" Make sure a path has proper form +" +function! s:Path(p) + if has("dos16") || has("dos32") || has("win16") || has("win32") || has("os2") + return substitute(a:p,'\\','/','g') + else + return a:p + endif +endfunction + +"--- +" Extract the file name from a line in several different forms +" +function! s:GetFullFileNameEsc() + return s:EscapeFilename(s:GetFullFileName()) +endfunction + +function! s:GetFileNameEsc() + return s:EscapeFilename(s:GetFileName()) +endfunction + +function! s:EscapeFilename(name) + return escape(a:name,s:escfilename) +endfunction + + +function! s:GetFullFileName() + return s:ExtractFullFileName(getline(".")) +endfunction + +function! s:GetFileName() + return s:ExtractFileName(getline(".")) +endfunction + +function! s:ExtractFullFileName(line) + let fn=s:ExtractFileName(a:line) + if fn == '/' + return b:completePath + else + return b:completePath . s:ExtractFileName(a:line) + endif +endfunction + +function! s:ExtractFileName(line) + return substitute(strpart(a:line,0,b:maxFileLen),'\s\+$','','') +endfunction + +"--- +" Get the size of the file +function! s:ExtractFileSize(line) + if (w:longlist==0) + return getfsize(s:ExtractFileName(a:line)) + else + return strpart(a:line,b:maxFileLen+2,b:maxFileSizeLen) + endif +endfunction + +"--- +" Get the date of the file as a number +function! s:ExtractFileDate(line) + if w:longlist==0 + return getftime(s:ExtractFileName(a:line)) + else + return strpart(matchstr(strpart(a:line,b:maxFileLen+b:maxFileSizeLen+4),"««.*"),2) + 0 + endif +endfunction + + +"--- +" Add the header with help information +" +function! s:AddHeader() + let save_f=@f + 1 + if w:longhelp==1 + let @f="\" <enter> : open file or directory\n" + \."\" o : open new window for file/directory\n" + \."\" O : open file in previously visited window\n" + \."\" p : preview the file\n" + if exists("g:explFileHandler") + let @f=@f."\" x : execute file or directory\n" + endif + let @f=@f + \."\" i : toggle size/date listing\n" + \."\" s : select sort field r : reverse sort\n" + \."\" - : go up one level c : cd to this dir\n" + \."\" R : rename file D : delete file\n" + \."\" :help file-explorer for detailed help\n" + else + let @f="\" Press ? for keyboard shortcuts\n" + endif + let @f=@f."\" Sorted by ".w:sortdirlabel.w:sorttype.b:suffixeslast.b:filtering."\n" + let @f=@f."\"= ".b:completePath."\n" + put! f + let @f=save_f +endfunction + + +"--- +" Show the size and date for each file +" +function! s:AddFileInfo() + let save_sc = &sc + set nosc + + " Mark our starting point + normal! mt + + call s:RemoveSeparators() + + " Remove all info + 0 + /^"=/+1,$g/^/call setline(line("."),s:GetFileName()) + + " Add info if requested + if w:longlist==1 + " Add file size and calculate maximum length of file size field + let b:maxFileSizeLen = 0 + 0 + /^"=/+1,$g/^/let fn=s:GetFullFileName() | + \let fileSize=getfsize(fn) | + \let fileSizeLen=strlen(fileSize) | + \if fileSizeLen > b:maxFileSizeLen | + \ let b:maxFileSizeLen = fileSizeLen | + \endif | + \exec "normal! ".(b:maxFileLen-strlen(getline("."))+2)."A \<esc>" | + \exec 's/$/'.fileSize.'/' + + " Right justify the file sizes and + " add file modification date + 0 + /^"=/+1,$g/^/let fn=s:GetFullFileName() | + \exec "normal! A \<esc>$b".(b:maxFileLen+b:maxFileSizeLen-strlen(getline("."))+3)."i \<esc>\"_x" | + \exec 's/$/ '.escape(s:FileModDate(fn), '/').'/' + setlocal nomodified + endif + + call s:AddSeparators() + + " return to start + normal! `t + + let &sc = save_sc +endfunction + + +"---- +" Get the modification time for a file +" +function! s:FileModDate(name) + let filetime=getftime(a:name) + if filetime > 0 + return strftime(g:explDateFormat,filetime) . " ««" . filetime + else + return "" + endif +endfunction + +"--- +" Delete a file or files +" +function! s:DeleteFile() range + let oldRep = &report + let &report = 1000 + + let filesDeleted = 0 + let stopDel = 0 + let delAll = 0 + let currLine = a:firstline + let lastLine = a:lastline + setlocal noreadonly modifiable + + while ((currLine <= lastLine) && (stopDel==0)) + exec(currLine) + let fileName=s:GetFullFileName() + if isdirectory(fileName) + echo fileName." : Directory deletion not supported yet" + let currLine = currLine + 1 + else + if delAll == 0 + let sure=input("Delete ".fileName." (y/n/a/q)? ") + if sure=="a" + let delAll = 1 + endif + endif + if (sure=="y") || (sure=="a") + let success=delete(fileName) + if success!=0 + exec (" ") + echo "\nCannot delete ".fileName + let currLine = currLine + 1 + else + d _ + let filesDeleted = filesDeleted + 1 + let lastLine = lastLine - 1 + endif + elseif sure=="q" + let stopDel = 1 + elseif sure=="n" + let currLine = currLine + 1 + endif + endif + endwhile + echo "\n".filesDeleted." files deleted" + let &report = oldRep + setlocal nomodified + setlocal readonly nomodifiable +endfunction + +"--- +" Rename a file +" +function! s:RenameFile() + let fileName=s:GetFullFileName() + setlocal noreadonly modifiable + if isdirectory(fileName) + echo "Directory renaming not supported yet" + elseif filereadable(fileName) + let altName=input("Rename ".fileName." to : ") + echo " " + if altName=="" + setlocal readonly nomodifiable + return + endif + let success=rename(fileName, b:completePath.altName) + if success!=0 + echo "Cannot rename ".fileName. " to ".altName + else + echo "Renamed ".fileName." to ".altName + let oldRep=&report + set report=1000 + e! + let &report=oldRep + endif + endif + setlocal nomodified + setlocal readonly nomodifiable +endfunction + +"--- +" Toggle between short and long help +" +function! s:ToggleHelp() + if exists("w:longhelp") && w:longhelp==0 + let w:longhelp=1 + let s:longhelp=1 + else + let w:longhelp=0 + let s:longhelp=0 + endif + " Allow modification + setlocal noreadonly modifiable + call s:UpdateHeader() + " Disallow modification + setlocal readonly nomodifiable +endfunction + +"--- +" Update the header +" +function! s:UpdateHeader() + let oldRep=&report + set report=10000 + " Save position + normal! mt + " Remove old header + 0 + 1,/^"=/ d _ + " Add new header + call s:AddHeader() + " Go back where we came from if possible + 0 + if line("'t") != 0 + normal! `t + endif + + let &report=oldRep + setlocal nomodified +endfunction + +"--- +" Toggle long vs. short listing +" +function! s:ToggleLongList() + setlocal noreadonly modifiable + if exists("w:longlist") && w:longlist==1 + let w:longlist=0 + let s:longlist=0 + else + let w:longlist=1 + let s:longlist=1 + endif + call s:AddFileInfo() + setlocal readonly nomodifiable +endfunction + +"--- +" Show all files - remove filtering +" +function! s:ShowAllFiles() + setlocal noreadonly modifiable + let b:filterFormula="" + let b:filtering="" + call s:ShowDirectory() + setlocal readonly nomodifiable +endfunction + +"--- +" Figure out what section we are in +" +function! s:GetSection() + let fn=s:GetFileName() + let section="file" + if fn =~ '/$' + let section="directory" + elseif fn =~ b:suffixesRegexp + let section="suffixes" + endif + return section +endfunction + +"--- +" Remove section separators +" +function! s:RemoveSeparators() + if !g:explUseSeparators + return + endif + 0 + silent! exec '/^"=/+1,$g/^' . s:separator . "/d _" +endfunction + +"--- +" Add section separators +" between directories and files if they are separated +" between files and 'suffixes' files if they are separated +function! s:AddSeparators() + if !g:explUseSeparators + return + endif + 0 + /^"=/+1 + let lastsec=s:GetSection() + +1 + .,$g/^/let sec=s:GetSection() | + \if g:explDirsFirst != 0 && sec != lastsec && + \ (lastsec == "directory" || sec == "directory") | + \ exec "normal! I" . s:separator . "\n\<esc>" | + \elseif g:explSuffixesLast != 0 && sec != lastsec && + \ (lastsec == "suffixes" || sec == "suffixes") | + \ exec "normal! I" . s:separator . "\n\<esc>" | + \endif | + \let lastsec=sec +endfunction + +"--- +" General string comparison function +" +function! s:StrCmp(line1, line2, direction) + if a:line1 < a:line2 + return -a:direction + elseif a:line1 > a:line2 + return a:direction + else + return 0 + endif +endfunction + +"--- +" Function for use with Sort(), to compare the file names +" Default sort is to put in alphabetical order, but with all directory +" names before all file names +" +function! s:FileNameCmp(line1, line2, direction) + let f1=s:ExtractFileName(a:line1) + let f2=s:ExtractFileName(a:line2) + + " Put directory names before file names + if (g:explDirsFirst != 0) && (f1 =~ '\/$') && (f2 !~ '\/$') + return -g:explDirsFirst + elseif (g:explDirsFirst != 0) && (f1 !~ '\/$') && (f2 =~ '\/$') + return g:explDirsFirst + elseif (g:explSuffixesLast != 0) && (f1 =~ b:suffixesRegexp) && (f2 !~ b:suffixesRegexp) + return g:explSuffixesLast + elseif (g:explSuffixesLast != 0) && (f1 !~ b:suffixesRegexp) && (f2 =~ b:suffixesRegexp) + return -g:explSuffixesLast + else + return s:StrCmp(substitute(f1, "/$", "", ""), substitute(f2, "/$", "", ""), a:direction) + endif + +endfunction + +"--- +" Function for use with Sort(), to compare the file modification dates +" Default sort is to put NEWEST files first. Reverse will put oldest +" files first +" +function! s:FileDateCmp(line1, line2, direction) + let f1=s:ExtractFileName(a:line1) + let f2=s:ExtractFileName(a:line2) + let t1=s:ExtractFileDate(a:line1) + let t2=s:ExtractFileDate(a:line2) + + " Put directory names before file names + if (g:explDirsFirst != 0) && (f1 =~ '\/$') && (f2 !~ '\/$') + return -g:explDirsFirst + elseif (g:explDirsFirst != 0) && (f1 !~ '\/$') && (f2 =~ '\/$') + return g:explDirsFirst + elseif (g:explSuffixesLast != 0) && (f1 =~ b:suffixesRegexp) && (f2 !~ b:suffixesRegexp) + return g:explSuffixesLast + elseif (g:explSuffixesLast != 0) && (f1 !~ b:suffixesRegexp) && (f2 =~ b:suffixesRegexp) + return -g:explSuffixesLast + elseif t1 > t2 + return -a:direction + elseif t1 < t2 + return a:direction + else + return s:StrCmp(substitute(f1, "/$", "", ""), substitute(f2, "/$", "", ""), 1) + endif +endfunction + +"--- +" Function for use with Sort(), to compare the file sizes +" Default sort is to put largest files first. Reverse will put +" smallest files first +" +function! s:FileSizeCmp(line1, line2, direction) + let f1=s:ExtractFileName(a:line1) + let f2=s:ExtractFileName(a:line2) + let s1=s:ExtractFileSize(a:line1) + let s2=s:ExtractFileSize(a:line2) + + if (g:explDirsFirst != 0) && (f1 =~ '\/$') && (f2 !~ '\/$') + return -g:explDirsFirst + elseif (g:explDirsFirst != 0) && (f1 !~ '\/$') && (f2 =~ '\/$') + return g:explDirsFirst + elseif (g:explSuffixesLast != 0) && (f1 =~ b:suffixesRegexp) && (f2 !~ b:suffixesRegexp) + return g:explSuffixesLast + elseif (g:explSuffixesLast != 0) && (f1 !~ b:suffixesRegexp) && (f2 =~ b:suffixesRegexp) + return -g:explSuffixesLast + elseif s1 > s2 + return -a:direction + elseif s1 < s2 + return a:direction + else + return s:StrCmp(substitute(f1, "/$", "", ""), substitute(f2, "/$", "", ""), 1) + endif +endfunction + +"--- +" Sort lines. SortR() is called recursively. +" +function! s:SortR(start, end, cmp, direction) + + " Bottom of the recursion if start reaches end + if a:start >= a:end + return + endif + " + let partition = a:start - 1 + let middle = partition + let partStr = getline((a:start + a:end) / 2) + let i = a:start + while (i <= a:end) + let str = getline(i) + exec "let result = " . a:cmp . "(str, partStr, " . a:direction . ")" + if result <= 0 + " Need to put it before the partition. Swap lines i and partition. + let partition = partition + 1 + if result == 0 + let middle = partition + endif + if i != partition + let str2 = getline(partition) + call setline(i, str2) + call setline(partition, str) + endif + endif + let i = i + 1 + endwhile + + " Now we have a pointer to the "middle" element, as far as partitioning + " goes, which could be anywhere before the partition. Make sure it is at + " the end of the partition. + if middle != partition + let str = getline(middle) + let str2 = getline(partition) + call setline(middle, str2) + call setline(partition, str) + endif + call s:SortR(a:start, partition - 1, a:cmp,a:direction) + call s:SortR(partition + 1, a:end, a:cmp,a:direction) +endfunction + +"--- +" To Sort a range of lines, pass the range to Sort() along with the name of a +" function that will compare two lines. +" +function! s:Sort(cmp,direction) range + call s:SortR(a:firstline, a:lastline, a:cmp, a:direction) +endfunction + +"--- +" Reverse the current sort order +" +function! s:SortReverse() + if exists("w:sortdirection") && w:sortdirection == -1 + let w:sortdirection = 1 + let w:sortdirlabel = "" + else + let w:sortdirection = -1 + let w:sortdirlabel = "reverse " + endif + let s:sortby=w:sortdirlabel . w:sorttype + call s:SortListing("") +endfunction + +"--- +" Toggle through the different sort orders +" +function! s:SortSelect() + " Select the next sort option + if !exists("w:sorttype") + let w:sorttype="name" + elseif w:sorttype == "name" + let w:sorttype="size" + elseif w:sorttype == "size" + let w:sorttype="date" + else + let w:sorttype="name" + endif + let s:sortby=w:sortdirlabel . w:sorttype + call s:SortListing("") +endfunction + +"--- +" Sort the file listing +" +function! s:SortListing(msg) + " Save the line we start on so we can go back there when done + " sorting + let startline = getline(".") + let col=col(".") + let lin=line(".") + + " Allow modification + setlocal noreadonly modifiable + + " Send a message about what we're doing + " Don't really need this - it can cause hit return prompts +" echo a:msg . "Sorting by" . w:sortdirlabel . w:sorttype + + " Create a regular expression out of the suffixes option in case + " we need it. + call s:SetSuffixesLast() + + " Remove section separators + call s:RemoveSeparators() + + " Do the sort + 0 + if w:sorttype == "size" + /^"=/+1,$call s:Sort("s:FileSizeCmp",w:sortdirection) + elseif w:sorttype == "date" + /^"=/+1,$call s:Sort("s:FileDateCmp",w:sortdirection) + else + /^"=/+1,$call s:Sort("s:FileNameCmp",w:sortdirection) + endif + + " Replace the header with updated information + call s:UpdateHeader() + + " Restore section separators + call s:AddSeparators() + + " Return to the position we started on + 0 + if search('\m^'.escape(startline,s:escregexp),'W') <= 0 + execute lin + endif + execute "normal!" col . "|" + + " Disallow modification + setlocal nomodified + setlocal readonly nomodifiable + +endfunction + +"--- +" Setup for editing directories after starting up by going to each window. +" Required for "vim -o filename dirname" +" +function! s:EditAll() + if winbufnr(2) == -1 + return + endif + let cmd = winrestcmd() + let curwin = winnr() + while 1 + wincmd w + if winnr() == curwin + break + endif + call s:EditDir() + endwhile + exe cmd +endfunction + +"--- +" Set up the autocommand to allow directories to be edited +" +augroup fileExplorer + au! + " Fill the window when entering the buffer; ":edit dir". + au BufEnter * call s:EditDir() + " Set the window variables after a split; ":split". + au WinEnter * if !exists("w:sortdirection") | call s:EditDir() | endif + " Fill the windows after Vim has started up. + au VimEnter * call s:EditAll() +augroup end + +" restore 'cpo' +let &cpo = s:cpo_save +unlet s:cpo_save diff --git a/runtime/plugin/gzip.vim b/runtime/plugin/gzip.vim new file mode 100644 index 000000000..39b0cbc36 --- /dev/null +++ b/runtime/plugin/gzip.vim @@ -0,0 +1,157 @@ +" Vim plugin for editing compressed files. +" Maintainer: Bram Moolenaar <Bram@vim.org> +" Last Change: 2004 Jan 12 + +" Exit quickly when: +" - this plugin was already loaded +" - when 'compatible' is set +" - some autocommands are already taking care of compressed files +if exists("loaded_gzip") || &cp || exists("#BufReadPre#*.gz") + finish +endif +let loaded_gzip = 1 + +augroup gzip + " Remove all gzip autocommands + au! + + " Enable editing of gzipped files + " set binary mode before reading the file + " use "gzip -d", gunzip isn't always available + autocmd BufReadPre,FileReadPre *.gz,*.bz2,*.Z setlocal bin + autocmd BufReadPost,FileReadPost *.gz call s:read("gzip -dn") + autocmd BufReadPost,FileReadPost *.bz2 call s:read("bzip2 -d") + autocmd BufReadPost,FileReadPost *.Z call s:read("uncompress") + autocmd BufWritePost,FileWritePost *.gz call s:write("gzip") + autocmd BufWritePost,FileWritePost *.bz2 call s:write("bzip2") + autocmd BufWritePost,FileWritePost *.Z call s:write("compress -f") + autocmd FileAppendPre *.gz call s:appre("gzip -dn") + autocmd FileAppendPre *.bz2 call s:appre("bzip2 -d") + autocmd FileAppendPre *.Z call s:appre("uncompress") + autocmd FileAppendPost *.gz call s:write("gzip") + autocmd FileAppendPost *.bz2 call s:write("bzip2") + autocmd FileAppendPost *.Z call s:write("compress -f") +augroup END + +" Function to check that executing "cmd [-f]" works. +" The result is cached in s:have_"cmd" for speed. +fun s:check(cmd) + let name = substitute(a:cmd, '\(\S*\).*', '\1', '') + if !exists("s:have_" . name) + let e = executable(name) + if e < 0 + let r = system(name . " --version") + let e = (r !~ "not found" && r != "") + endif + exe "let s:have_" . name . "=" . e + endif + exe "return s:have_" . name +endfun + +" After reading compressed file: Uncompress text in buffer with "cmd" +fun s:read(cmd) + " don't do anything if the cmd is not supported + if !s:check(a:cmd) + return + endif + " make 'patchmode' empty, we don't want a copy of the written file + let pm_save = &pm + set pm= + " remove 'a' and 'A' from 'cpo' to avoid the alternate file changes + let cpo_save = &cpo + set cpo-=a cpo-=A + " set 'modifiable' + let ma_save = &ma + setlocal ma + " when filtering the whole buffer, it will become empty + let empty = line("'[") == 1 && line("']") == line("$") + let tmp = tempname() + let tmpe = tmp . "." . expand("<afile>:e") + " write the just read lines to a temp file "'[,']w tmp.gz" + execute "silent '[,']w " . tmpe + " uncompress the temp file: call system("gzip -dn tmp.gz") + call system(a:cmd . " " . tmpe) + " delete the compressed lines; remember the line number + let l = line("'[") - 1 + if exists(":lockmarks") + lockmarks '[,']d _ + else + '[,']d _ + endif + " read in the uncompressed lines "'[-1r tmp" + setlocal nobin + if exists(":lockmarks") + execute "silent lockmarks " . l . "r " . tmp + else + execute "silent " . l . "r " . tmp + endif + + " if buffer became empty, delete trailing blank line + if empty + silent $delete _ + 1 + endif + " delete the temp file and the used buffers + call delete(tmp) + silent! exe "bwipe " . tmp + silent! exe "bwipe " . tmpe + let &pm = pm_save + let &cpo = cpo_save + let &l:ma = ma_save + " When uncompressed the whole buffer, do autocommands + if empty + if &verbose >= 8 + execute "doau BufReadPost " . expand("%:r") + else + execute "silent! doau BufReadPost " . expand("%:r") + endif + endif +endfun + +" After writing compressed file: Compress written file with "cmd" +fun s:write(cmd) + " don't do anything if the cmd is not supported + if s:check(a:cmd) + " Rename the file before compressing it. + let nm = expand("<afile>") + let nmt = s:tempname(nm) + if rename(nm, nmt) == 0 + call system(a:cmd . " " . nmt) + call rename(nmt . "." . expand("<afile>:e"), nm) + endif + endif +endfun + +" Before appending to compressed file: Uncompress file with "cmd" +fun s:appre(cmd) + " don't do anything if the cmd is not supported + if s:check(a:cmd) + " Rename to a weird name to avoid the risk of overwriting another file + let nm = expand("<afile>") + let nmt = expand("<afile>:p:h") . "/X~=@l9q5" + let nmte = nmt . "." . expand("<afile>:e") + if rename(nm, nmte) == 0 + if &patchmode != "" && getfsize(nm . &patchmode) == -1 + " Create patchmode file by creating the decompressed file new + call system(a:cmd . " -c " . nmte . " > " . nmt) + call rename(nmte, nm . &patchmode) + else + call system(a:cmd . " " . nmte) + endif + call rename(nmt, nm) + endif + endif +endfun + +" find a file name for the file to be compressed. Use "name" without an +" extension if possible. Otherwise use a weird name to avoid overwriting an +" existing file. +fun s:tempname(name) + let fn = fnamemodify(a:name, ":r") + if !filereadable(fn) && !isdirectory(fn) + return fn + endif + return fnamemodify(a:name, ":p:h") . "/X~=@l9q5" +endfun + +" vim: set sw=2 : diff --git a/runtime/plugin/netrw.vim b/runtime/plugin/netrw.vim new file mode 100644 index 000000000..d3058c55d --- /dev/null +++ b/runtime/plugin/netrw.vim @@ -0,0 +1,1160 @@ +" netrw.vim: (global plugin) Handles file transfer across a network +" Last Change: Jun 04, 2004 +" Maintainer: Charles E. Campbell, Jr. PhD <drchipNOSPAM at campbellfamily.biz> +" Version: 44 +" License: Vim License (see vim's :help license) +" +" But be doers of the word, and not only hearers, deluding your own selves +" (James 1:22 RSV) +" =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- + +" Exit quickly when already loaded or when 'compatible' is set. +if exists("loaded_netrw") || &cp + finish +endif +let loaded_netrw = "v44" +let s:save_cpo = &cpo +set cpo&vim + +" --------------------------------------------------------------------- +" Default values for global netrw variables {{{1 +if !exists("g:netrw_ftpmode") + let g:netrw_ftpmode= "binary" +endif +if !exists("g:netrw_win95ftp") + let g:netrw_win95ftp= 1 +endif +if !exists("g:netrw_cygwin") + if has("win32") + let g:netrw_cygwin= 1 + else + let g:netrw_cygwin= 0 + endif +endif + +" --------------------------------------------------------------------- +" Default values for global protocol variables {{{1 +if !exists("g:netrw_rcp_cmd") + let g:netrw_rcp_cmd = "rcp" +endif +if !exists("g:netrw_ftp_cmd") + let g:netrw_ftp_cmd = "ftp" +endif +if !exists("g:netrw_scp_cmd") + let g:netrw_scp_cmd = "scp -q" +endif +if !exists("g:netrw_sftp_cmd") + let g:netrw_sftp_cmd = "sftp" +endif +if !exists("g:netrw_http_cmd") + if executable("wget") + let g:netrw_http_cmd = "wget -q -O" + elseif executable("fetch") + let g:netrw_http_cmd = "fetch -o" + else + let g:netrw_http_cmd = "" + endif +endif +if !exists("g:netrw_dav_cmd") + let g:netrw_dav_cmd = "cadaver" +endif +if !exists("g:netrw_rsync_cmd") + let g:netrw_rsync_cmd = "rsync" +endif +if !exists("g:netrw_fetch_cmd") + if executable("fetch") + let g:netrw_fetch_cmd = "fetch -o" + else + let g:netrw_fetch_cmd = "" + endif +endif + +if has("win32") + \ && exists("g:netrw_use_nt_rcp") + \ && g:netrw_use_nt_rcp + \ && executable( $SystemRoot .'/system32/rcp.exe') + let s:netrw_has_nt_rcp = 1 + let s:netrw_rcpmode = '-b' + else + let s:netrw_has_nt_rcp = 0 + let s:netrw_rcpmode = '' +endif + +" --------------------------------------------------------------------- +" Transparency Support: {{{1 +" Auto-detection for ftp://*, rcp://*, scp://*, sftp://*, http://*, dav://*, +" and rsync://* +" Should make file transfers across networks transparent. Currently I haven't +" supported appends. Hey, gotta leave something for a future <netrw.vim>! +if version >= 600 + augroup Network + au! + if has("win32") + au BufReadCmd file://* exe "doau BufReadPre ".expand("<afile>")|exe 'e '.substitute(expand("<afile>"),"file:/*","","")|exe "doau BufReadPost ".expand("<afile>") + else + au BufReadCmd file:///* exe "doau BufReadPre ".expand("<afile>")|exe 'e /'.substitute(expand("<afile>"),"file:/*","","")|exe "doau BufReadPost ".expand("<afile>") + au BufReadCmd file://localhost/* exe "doau BufReadPre ".expand("<afile>")|exe 'e /'.substitute(expand("<afile>"),"file:/*","","")|exe "doau BufReadPost ".expand("<afile>") + endif + au BufReadCmd ftp://*,rcp://*,scp://*,http://*,dav://*,rsync://*,sftp://* exe "doau BufReadPre ".expand("<afile>")|exe "Nread 0r ".expand("<afile>")|exe "doau BufReadPost ".expand("<afile>") + au FileReadCmd ftp://*,rcp://*,scp://*,http://*,dav://*,rsync://*,sftp://* exe "doau BufReadPre ".expand("<afile>")|exe "Nread " .expand("<afile>")|exe "doau BufReadPost ".expand("<afile>") + au BufWriteCmd ftp://*,rcp://*,scp://*,dav://*,rsync://*,sftp://* exe "Nwrite " .expand("<afile>")|call <SID>NetRestorePosn() + augroup END +endif + +" ------------------------------------------------------------------------ +" Commands: :Nread, :Nwrite, and :NetUserPass {{{1 +com! -nargs=* Nread call <SID>NetSavePosn()<bar>call <SID>NetRead(<f-args>)<bar>call <SID>NetRestorePosn() +com! -range=% -nargs=* Nwrite call <SID>NetSavePosn()<bar><line1>,<line2>call <SID>NetWrite(<f-args>)<bar>call <SID>NetRestorePosn() +com! -nargs=* NetUserPass call NetUserPass(<f-args>) + +" ------------------------------------------------------------------------ +" NetSavePosn: saves position of cursor on screen {{{1 +fun! s:NetSavePosn() +" call Dfunc("NetSavePosn()") + " Save current line and column + let s:netrw_winnr= winnr() + let s:netrw_line = line(".") + let s:netrw_col = virtcol(".") + + " Save top-of-screen line + norm! H0 + let s:netrw_hline= line(".") + + call s:NetRestorePosn() +" call Dret("NetSavePosn : winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline) +endfun + +" ------------------------------------------------------------------------ +" NetRestorePosn: restores the cursor and file position as saved by NetSavePosn() {{{1 +fun! <SID>NetRestorePosn() +" call Dfunc("NetRestorePosn() winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline) + + exe "silent! ".s:netrw_winnr."wincmd w" + if v:shell_error == 0 + " as suggested by Bram M: redraw on no error + " allows protocol error messages to remain visible + redraw! + endif + " restore top-of-screen line + exe "norm! ".s:netrw_hline."G0z\<CR>" + " restore position + exe "norm! ".s:netrw_line."G0".s:netrw_col."\<bar>" + +" call Dret("NetRestorePosn") +endfun + +" ------------------------------------------------------------------------ +" NetRead: responsible for reading a file over the net {{{1 +fun! s:NetRead(...) +" call Dfunc("NetRead(a:1<".a:1.">)") + + " save options + call s:NetOptionSave() + + " get name of a temporary file + let tmpfile= tempname() + + " Special Exception: if a file is named "0r", then + " "0r" will be used to read the + " following files instead of "r" + if a:0 == 0 + let readcmd= "r" + let ichoice= 0 + elseif a:1 == "0r" + let readcmd = "0r" + let ichoice = 2 + else + let readcmd = "r" + let ichoice = 1 + endif + + while ichoice <= a:0 + + " attempt to repeat with previous host-file-etc + if exists("b:netrw_lastfile") && a:0 == 0 +" call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">") + let choice = b:netrw_lastfile + let ichoice= ichoice + 1 + + else + exe "let choice= a:" . ichoice +" call Decho("NetRead1: choice<" . choice . ">") + + " Reconstruct Choice if choice starts with '"' + if match(choice,"?") == 0 + echo 'NetRead Usage:' + echo ':Nread machine:path uses rcp' + echo ':Nread "machine path" uses ftp with <.netrc>' + echo ':Nread "machine id password path" uses ftp' + echo ':Nread dav://machine[:port]/path uses cadaver' + echo ':Nread fetch://machine/path uses fetch' + echo ':Nread ftp://[user@]machine[:port]/path uses ftp autodetects <.netrc>' + echo ':Nread http://[user@]machine/path uses http wget' + echo ':Nread rcp://[user@]machine/path uses rcp' + echo ':Nread rsync://machine[:port]/path uses rsync' + echo ':Nread scp://[user@]machine[[:#]port]/path uses scp' + echo ':Nread sftp://[user@]machine[[:#]port]/path uses sftp' + break + elseif match(choice,"^\"") != -1 +" call Decho("reconstructing choice") + if match(choice,"\"$") != -1 + " case "..." + let choice=strpart(choice,1,strlen(choice)-2) + else + " case "... ... ..." + let choice = strpart(choice,1,strlen(choice)-1) + let wholechoice = "" + + while match(choice,"\"$") == -1 + let wholechoice = wholechoice . " " . choice + let ichoice = ichoice + 1 + if ichoice > a:0 + echoerr "Unbalanced string in filename '". wholechoice ."'" +" call Dret("NetRead") + return + endif + let choice= a:{ichoice} + endwhile + let choice= strpart(wholechoice,1,strlen(wholechoice)-1) . " " . strpart(choice,0,strlen(choice)-1) + endif + endif + endif +" call Decho("NetRead2: choice<" . choice . ">") + let ichoice= ichoice + 1 + + " fix up windows urls + if has("win32") + let choice = substitute(choice,'\\','/','ge') +" call Decho("fixing up windows url to <".choice.">") + exe 'lcd ' . fnamemodify(tmpfile,':h') + let tmpfile = fnamemodify(tmpfile,':t') + endif + + " Determine method of read (ftp, rcp, etc) + call s:NetMethod(choice) + + " ============ + " Perform Read + " ============ + + "......................................... + " rcp: Method #1 + if b:netrw_method == 1 " read with rcp +" call Decho("read via rcp (method #1)") + " ER: noting done with g:netrw_uid yet? + " ER: on Win2K" rcp machine[.user]:file tmpfile + " ER: if machine contains '.' adding .user is required (use $USERNAME) + " ER: the tmpfile is full path: rcp sees C:\... as host C + if s:netrw_has_nt_rcp == 1 + if exists("g:netrw_uid") && ( g:netrw_uid != "" ) + let uid_machine = g:netrw_machine .'.'. g:netrw_uid + else + " Any way needed it machine contains a '.' + let uid_machine = g:netrw_machine .'.'. $USERNAME + endif + else + if exists("g:netrw_uid") && ( g:netrw_uid != "" ) + let uid_machine = g:netrw_uid .'@'. g:netrw_machine + else + let uid_machine = g:netrw_machine + endif + endif +" call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) + exe "!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " ftp + <.netrc>: Method #2 + elseif b:netrw_method == 2 " read with ftp + <.netrc> +" call Decho("read via ftp+.netrc (method #2)") + let netrw_fname= b:netrw_fname + new + set ff=unix + exe "put ='".g:netrw_ftpmode."'" + exe "put ='get ".netrw_fname." ".tmpfile."'" + if exists("g:netrw_port") && g:netrw_port != "" +" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) + exe "%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port + else +" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) + exe "%!".g:netrw_ftp_cmd." -i ".g:netrw_machine + endif + " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) + if getline(1) !~ "^$" + echoerr getline(1) + endif + bd! + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " ftp + machine,id,passwd,filename: Method #3 + elseif b:netrw_method == 3 " read with ftp + machine, id, passwd, and fname + " Construct execution string (four lines) which will be passed through filter +" call Decho("read via ftp+mipf (method #3)") + let netrw_fname= b:netrw_fname + new + set ff=unix + if exists("g:netrw_port") && g:netrw_port != "" + put ='open '.g:netrw_machine.' '.g:netrw_port + else + put ='open '.g:netrw_machine + endif + + if exists("g:netrw_ftp") && g:netrw_ftp == 1 + put =g:netrw_uid + put =g:netrw_passwd + else + put ='user '.g:netrw_uid.' '.g:netrw_passwd + endif + + if exists("g:netrw_ftpmode") && g:netrw_ftpmode != "" + put =g:netrw_ftpmode + endif + put ='get '.netrw_fname.' '.tmpfile + + " perform ftp: + " -i : turns off interactive prompting from ftp + " -n unix : DON'T use <.netrc>, even though it exists + " -n win32: quit being obnoxious about password +" call Decho('performing ftp -i -n') + norm 1Gdd +" call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") + exe "%!".g:netrw_ftp_cmd." -i -n" + " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) + if getline(1) !~ "^$" + echoerr getline(1) + endif + bd! + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " scp: Method #4 + elseif b:netrw_method == 4 " read with scp +" call Decho("read via scp (method #4)") + if exists("g:netrw_port") && g:netrw_port != "" + let useport= " -P ".g:netrw_port + else + let useport= "" + endif + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') +" call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) + exe "!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile + else +" call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) + exe "!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile + endif + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + elseif b:netrw_method == 5 " read with http (wget) +" call Decho("read via http (method #5)") + if g:netrw_http_cmd == "" + echoerr "neither wget nor fetch command is available" + exit + endif + + if match(b:netrw_fname,"#") == -1 + " simple wget +" call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&') + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + + else + " wget plus a jump to an in-page marker (ie. http://abc/def.html#aMarker) + let netrw_html= substitute(b:netrw_fname,"#.*$","","") + let netrw_tag = substitute(b:netrw_fname,"^.*#","","") +" call Decho("netrw_html<".netrw_html.">") +" call Decho("netrw_tag <".netrw_tag.">") +" call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html) + exe "!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) +" call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/') + exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"/'."\<CR>" + endif + let b:netrw_lastfile = choice + + "......................................... + " cadaver: Method #6 + elseif b:netrw_method == 6 " read with cadaver +" call Decho("read via cadaver (method #6)") + + " Construct execution string (four lines) which will be passed through filter + let netrw_fname= b:netrw_fname + new + set ff=unix + if exists("g:netrw_port") && g:netrw_port != "" + put ='open '.g:netrw_machine.' '.g:netrw_port + else + put ='open '.g:netrw_machine + endif + put ='user '.g:netrw_uid.' '.g:netrw_passwd + + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') + put ='get '.netrw_fname.' '.cygtmpfile + else + put ='get '.netrw_fname.' '.tmpfile + endif + + " perform cadaver operation: + norm 1Gdd +" call Decho("executing: %!".g:netrw_dav_cmd) + exe "%!".g:netrw_dav_cmd + bd! + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " rsync: Method #7 + elseif b:netrw_method == 7 " read with rsync +" call Decho("read via rsync (method #7)") + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') +" call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) + exe "!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile + else +" call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) + exe "!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile + endif + let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " fetch: Method #8 + " fetch://[user@]host[:http]/path + elseif b:netrw_method == 8 " read with fetch + if g:netrw_fetch_cmd == "" + echoerr "fetch command not available" + exit + endif + if exists("g:netrw_option") && g:netrw_option == ":http" + let netrw_option= "http" + else + let netrw_option= "ftp" + endif +" call Decho("read via fetch for ".netrw_option) + + if exists("g:netrw_uid") && g:netrw_uid != "" && exists("g:netrw_passwd") && g:netrw_passwd != "" +" call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&') + else +" call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&') + endif + + let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + " sftp: Method #9 + elseif b:netrw_method == 9 " read with sftp +" call Decho("read via sftp (method #4)") + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') +" call Decho("!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) +" call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile) + exe "!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile + else +" call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile) + exe "!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile + endif + let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method) + let b:netrw_lastfile = choice + + "......................................... + else " Complain + echo "***warning*** unable to comply with your request<" . choice . ">" + endif + endwhile + + " cleanup +" call Decho("cleanup") + if exists("b:netrw_method") + unlet b:netrw_method + unlet g:netrw_machine + unlet b:netrw_fname + endif + call s:NetOptionRestore() + +" call Dret("NetRead") +endfun +" end of NetRead + +" ------------------------------------------------------------------------ +" NetGetFile: Function to read file "fname" with command "readcmd". {{{1 +fun! s:NetGetFile(readcmd, fname, method) +" call Dfunc("NetGetFile(readcmd<".a:readcmd.">,fname<".a:fname."> method<".a:method.">)") + + if exists("*NetReadFixup") + " for the use of NetReadFixup (not otherwise used internally) + let line2= line("$") + endif + + " transform paths from / to \ for Windows, unless the shell is bash + if &term == "win32" + if &shell == "bash" + let fname=a:fname +" call Decho("(win32 && bash) fname<".fname.">") + else + let fname=substitute(a:fname,'/','\\\\','ge') +" call Decho("(win32 && !bash) fname<".fname.">") + endif + else + let fname= a:fname +" call Decho("(copied) fname<".fname.">") + endif + + " get the file, but disable undo when reading a new buffer + if a:readcmd[0] == '0' + let use_e_cmd = 0 " 1 when using ':edit' + let delline = 0 " 1 when have to delete empty last line + if line("$") == 1 && getline(1) == "" + " Now being asked to 0r a file into an empty file. + " Safe to :e it instead, unless there is another window on the same buffer. + let curbufnr = bufnr("%") + let use_e_cmd = 1 + let delline = 1 + " Loop over all windows, + " reset use_e_cmd when another one is editing the current buffer. + let i = 1 + while 1 + if i != winnr() && winbufnr(i) == curbufnr + let use_e_cmd = 0 + break + endif + let i = i + 1 + if winbufnr(i) < 0 + break + endif + endwhile + endif + + if use_e_cmd > 0 + " ':edit' the temp file, wipe out the old buffer and rename the buffer + let curfilename = expand("%") + + let binlocal = &l:bin + let binglobal = &g:bin + if binlocal + setglobal bin " Need to set 'bin' globally for ":e" command. + endif + silent exe "e! ".v:cmdarg." ".fname + if binlocal && !binglobal + setglobal nobin + setlocal bin + endif + + exe curbufnr . "bwipe!" + exe "f ".curfilename + " the ":f newname" apparently leaves the temporary file as the alternate + " file in the buffer list (see :ls!). The following command wipes it out. + exe bufnr("#")."bwipe!" + else + let oldul= &ul + set ul=-1 + exe a:readcmd." ".v:cmdarg." ".fname + if delline > 0 + " wipe out last line, which should be a blank line anyway + $del + endif + let &ul= oldul + endif + else + exe a:readcmd." ".v:cmdarg." ".fname + endif + + " User-provided (ie. optional) fix-it-up command + if exists("*NetReadFixup") + let line1= line(".") + if a:readcmd == "r" + let line2= line("$") - line2 + line1 + else + let line2= line("$") - line2 + endif +" call Decho("calling NetReadFixup(method<".a:method."> line1=".line1." line2=".line2.")") + call NetReadFixup(a:method, line1, line2) + endif +" call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> fname<".a:fname."> readable=".filereadable(a:fname)) + +" insure that we have the right filetype and that its being displayed + filetype detect + redraw! +" call Dret("NetGetFile") +endfun + +" ------------------------------------------------------------------------ +" NetWrite: responsible for writing a file over the net {{{1 +fun! s:NetWrite(...) range +" call Dfunc("NetWrite(a:0=".a:0.")") + + " option handling + let mod= 0 + call s:NetOptionSave() + + " Get Temporary Filename + let tmpfile= tempname() + + if a:0 == 0 + let ichoice = 0 + else + let ichoice = 1 + endif + + " write (selected portion of) file to temporary + silent exe a:firstline."," . a:lastline . "w! ".v:cmdarg." ".tmpfile + + while ichoice <= a:0 + + " attempt to repeat with previous host-file-etc + if exists("b:netrw_lastfile") && a:0 == 0 +" call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">") + let choice = b:netrw_lastfile + let ichoice= ichoice + 1 + else + exe "let choice= a:" . ichoice + + " Reconstruct Choice if choice starts with '"' + if match(choice,"?") == 0 + echo 'NetWrite Usage:"' + echo ':Nwrite machine:path uses rcp' + echo ':Nwrite "machine path" uses ftp with <.netrc>' + echo ':Nwrite "machine id password path" uses ftp' + echo ':Nwrite dav://[user@]machine/path uses cadaver' + echo ':Nwrite fetch://[user@]machine/path uses fetch' + echo ':Nwrite ftp://machine[#port]/path uses ftp (autodetects <.netrc>)' + echo ':Nwrite rcp://machine/path uses rcp' + echo ':Nwrite rsync://[user@]machine/path uses rsync' + echo ':Nwrite scp://[user@]machine[[:#]port]/path uses scp' + echo ':Nwrite sftp://[user@]machine/path uses sftp' + break + + elseif match(choice,"^\"") != -1 + if match(choice,"\"$") != -1 + " case "..." + let choice=strpart(choice,1,strlen(choice)-2) + else + " case "... ... ..." + let choice = strpart(choice,1,strlen(choice)-1) + let wholechoice = "" + + while match(choice,"\"$") == -1 + let wholechoice= wholechoice . " " . choice + let ichoice = ichoice + 1 + if choice > a:0 + echoerr "Unbalanced string in filename '". wholechoice ."'" +" call Dret("NetWrite") + return + endif + let choice= a:{ichoice} + endwhile + let choice= strpart(wholechoice,1,strlen(wholechoice)-1) . " " . strpart(choice,0,strlen(choice)-1) + endif + endif + endif +" call Decho("choice<" . choice . ">") + let ichoice= ichoice + 1 + + " fix up windows urls + if has("win32") + let choice= substitute(choice,'\\','/','ge') + "ER: see NetRead() + exe 'lcd ' . fnamemodify(tmpfile,':h') + let tmpfile = fnamemodify(tmpfile,':t') + endif + + " Determine method of read (ftp, rcp, etc) + call s:NetMethod(choice) + + " ============= + " Perform Write + " ============= + + "......................................... + " rcp: Method #1 + if b:netrw_method == 1 " write with rcp +" Decho "write via rcp (method #1)" + if s:netrw_has_nt_rcp == 1 + if exists("g:netrw_uid") && ( g:netrw_uid != "" ) + let uid_machine = g:netrw_machine .'.'. g:netrw_uid + else + let uid_machine = g:netrw_machine .'.'. $USERNAME + endif + else + if exists("g:netrw_uid") && ( g:netrw_uid != "" ) + let uid_machine = g:netrw_uid .'@'. g:netrw_machine + else + let uid_machine = g:netrw_machine + endif + endif +" call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&') + let b:netrw_lastfile = choice + + "......................................... + " ftp + <.netrc>: Method #2 + elseif b:netrw_method == 2 " write with ftp + <.netrc> + let netrw_fname = b:netrw_fname + new + set ff=unix + exe "put ='".g:netrw_ftpmode."'" +" call Decho(" NetWrite: put ='".g:netrw_ftpmode."'") + exe "put ='put ".tmpfile." ".netrw_fname."'" +" call Decho("put ='put ".tmpfile." ".netrw_fname."'") + if exists("g:netrw_port") && g:netrw_port != "" +" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port) + exe "%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port + else +" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine) + exe "%!".g:netrw_ftp_cmd." -i ".g:netrw_machine + endif + " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) + if getline(1) !~ "^$" + echoerr getline(1) + let mod=1 + endif + bd! + let b:netrw_lastfile = choice + + "......................................... + " ftp + machine, id, passwd, filename: Method #3 + elseif b:netrw_method == 3 " write with ftp + machine, id, passwd, and fname + let netrw_fname= b:netrw_fname + new + set ff=unix + if exists("g:netrw_port") && g:netrw_port != "" + put ='open '.g:netrw_machine.' '.g:netrw_port + else + put ='open '.g:netrw_machine + endif + if exists("g:netrw_ftp") && g:netrw_ftp == 1 + put =g:netrw_uid + put =g:netrw_passwd + else + put ='user '.g:netrw_uid.' '.g:netrw_passwd + endif + put ='put '.tmpfile.' '.netrw_fname + " save choice/id/password for future use + let b:netrw_lastfile = choice + + " perform ftp: + " -i : turns off interactive prompting from ftp + " -n unix : DON'T use <.netrc>, even though it exists + " -n win32: quit being obnoxious about password +" call Decho('performing ftp -i -n') + norm 1Gdd +" call Decho("executing: %!".g:netrw_ftp_cmd." -i -n") + exe "%!".g:netrw_ftp_cmd." -i -n" + " If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar) + if getline(1) !~ "^$" + echoerr getline(1) + let mod=1 + endif + bd! + + "......................................... + " scp: Method #4 + elseif b:netrw_method == 4 " write with scp + if exists("g:netrw_port") && g:netrw_port != "" + let useport= " -P ".g:netrw_port + else + let useport= "" + endif + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') +" call Decho("executing: !".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') + else +" call Decho("executing: !".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') + endif + let b:netrw_lastfile = choice + + "......................................... + " http: Method #5 + elseif b:netrw_method == 5 + echoerr "***warning*** currently <netrw.vim> does not support writing using http:" + + "......................................... + " dav: Method #6 + elseif b:netrw_method == 6 " write with cadaver +" call Decho("write via cadaver (method #6)") + + " Construct execution string (four lines) which will be passed through filter + let netrw_fname= b:netrw_fname + new + set ff=unix + if exists("g:netrw_port") && g:netrw_port != "" + put ='open '.g:netrw_machine.' '.g:netrw_port + else + put ='open '.g:netrw_machine + endif + put ='user '.g:netrw_uid.' '.g:netrw_passwd + + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') + put ='put '.cygtmpfile.' '.netrw_fname + else + put ='put '.tmpfile.' '.netrw_fname + endif + + " perform cadaver operation: + norm 1Gdd +" call Decho("executing: %!".g:netrw_dav_cmd) + exe "%!".g:netrw_dav_cmd + bd! + let b:netrw_lastfile = choice + + "......................................... + " rsync: Method #7 + elseif b:netrw_method == 7 " write with rsync + if g:netrw_cygwin == 1 + let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e') +" call Decho("executing: !".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') + else +" call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')) + exe "!".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&') + endif + let b:netrw_lastfile = choice + + "......................................... + " scp: Method #9 + elseif b:netrw_method == 9 " write with sftp + let netrw_fname= b:netrw_fname + if exists("g:netrw_uid") && ( g:netrw_uid != "" ) + let uid_machine = g:netrw_uid .'@'. g:netrw_machine + else + let uid_machine = g:netrw_machine + endif + new + set ff=unix + put ='put '.tmpfile.' '.netrw_fname + norm 1Gdd +" call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine) + exe "%!".g:netrw_sftp_cmd.' '.uid_machine + bd! + let b:netrw_lastfile= choice + + "......................................... + else " Complain + echo "***warning*** unable to comply with your request<" . choice . ">" + endif + endwhile + + " cleanup +" call Decho("cleanup") + let result=delete(tmpfile) + call s:NetOptionRestore() + + if a:firstline == 1 && a:lastline == line("$") + let &mod= mod " usually equivalent to set nomod + endif + +" call Dret("NetWrite") +endfun +" end of NetWrite + +" ------------------------------------------------------------------------ +" NetMethod: determine method of transfer {{{1 +" method == 1: rcp +" 2: ftp + <.netrc> +" 3: ftp + machine, id, password, and [path]filename +" 4: scp +" 5: http (wget) +" 6: cadaver +" 7: rsync +" 8: fetch +" 9: sftp +fun! s:NetMethod(choice) " globals: method machine id passwd fname +" call Dfunc("NetMethod(a:choice<".a:choice.">)") + + " initialization + let b:netrw_method = 0 + let g:netrw_machine = "" + let b:netrw_fname = "" + let g:netrw_port = "" + + " Patterns: + " mipf : a:machine a:id password filename Use ftp + " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd + " ftpurm : ftp://[user@]host[[#:]port]/filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd + " rcpurm : rcp://[user@]host/filename Use rcp + " rcphf : [user@]host:filename Use rcp + " scpurm : scp://[user@]host[[#:]port]/filename Use scp + " httpurm : http://[user@]host/filename Use wget + " davurm : dav://host[:port]/path Use cadaver + " rsyncurm : rsync://host[:port]/path Use rsync + " fetchurm : fetch://[user@]host[:http]/filename Use fetch (defaults to ftp, override for http) + " sftpurm : sftp://[user@]host/filename Use scp + let mipf = '\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)\s\+\(\S\+\)' + let mf = '\(\S\+\)\s\+\(\S\+\)' + let ftpurm = 'ftp://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\([#:]\d\+\)\=/\(.*\)$' + let rcpurm = 'rcp://\(\([^/@]\{-}\)@\)\=\([^/]\{-}\)/\(.*\)$' + let rcphf = '\(\([^@]\{-}\)@\)\=\(\I\i*\):\(\S\+\)' + let scpurm = 'scp://\([^/]\{-}\)\([#:]\d\+\)\=/\(.*\)$' + let httpurm = 'http://\([^/]\{-}\)\(/.*\)\=$' + let davurm = 'dav://\([^/]\{-}\)/\(.*\)\=$' + let rsyncurm = 'rsync://\([^/]\{-}\)/\(.*\)\=$' + let fetchurm = 'fetch://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\(:http\)\=/\(.*\)$' + let sftpurm = 'sftp://\([^/]\{-}\)/\(.*\)\=$' + +" call Decho("determine method:") + " Determine Method + " rcp://user@hostname/...path-to-file + if match(a:choice,rcpurm) == 0 +" call Decho("rcp://...") + let b:netrw_method = 1 + let userid = substitute(a:choice,rcpurm,'\2',"") + let g:netrw_machine= substitute(a:choice,rcpurm,'\3',"") + let b:netrw_fname = substitute(a:choice,rcpurm,'\4',"") + if userid != "" + let g:netrw_uid= userid + endif + + " scp://user@hostname/...path-to-file + elseif match(a:choice,scpurm) == 0 +" call Decho("scp://...") + let b:netrw_method = 4 + let g:netrw_machine= substitute(a:choice,scpurm,'\1',"") + let b:netrw_port = substitute(a:choice,scpurm,'\2',"") + let b:netrw_fname = substitute(a:choice,scpurm,'\3',"") + + " http://user@hostname/...path-to-file + elseif match(a:choice,httpurm) == 0 +" call Decho("http://...") + let b:netrw_method = 5 + let g:netrw_machine= substitute(a:choice,httpurm,'\1',"") + let b:netrw_fname = substitute(a:choice,httpurm,'\2',"") + + " dav://hostname[:port]/..path-to-file.. + elseif match(a:choice,davurm) == 0 +" call Decho("dav://...") + let b:netrw_method= 6 + let g:netrw_machine= substitute(a:choice,davurm,'\1',"") + let b:netrw_fname = substitute(a:choice,davurm,'\2',"") + + " rsync://user@hostname/...path-to-file + elseif match(a:choice,rsyncurm) == 0 +" call Decho("rsync://...") + let b:netrw_method = 7 + let g:netrw_machine= substitute(a:choice,rsyncurm,'\1',"") + let b:netrw_fname = substitute(a:choice,rsyncurm,'\2',"") + + " ftp://[user@]hostname[[:#]port]/...path-to-file + elseif match(a:choice,ftpurm) == 0 +" call Decho("ftp://...") + let userid = substitute(a:choice,ftpurm,'\2',"") + let g:netrw_machine= substitute(a:choice,ftpurm,'\3',"") + let g:netrw_port = substitute(a:choice,ftpurm,'\4',"") + let b:netrw_fname = substitute(a:choice,ftpurm,'\5',"") + if g:netrw_port != "" + let g:netrw_port = substitute(g:netrw_port,"[#:]","","") + endif + if userid != "" + let g:netrw_uid= userid + endif + if exists("g:netrw_uid") && exists("g:netrw_passwd") + let b:netrw_method = 3 + else + if filereadable(expand("$HOME/.netrc")) && !exists("g:netrw_ignorenetrc") + let b:netrw_method= 2 + else + if !exists("g:netrw_uid") || g:netrw_uid == "" + call NetUserPass() + elseif !exists("g:netrw_passwd") || g:netrw_passwd == "" + call NetUserPass(g:netrw_uid) + " else just use current g:netrw_uid and g:netrw_passwd + endif + let b:netrw_method= 3 + endif + endif + + elseif match(a:choice,fetchurm) == 0 +" call Decho("fetch://...") + let b:netrw_method = 8 + let g:netrw_userid = substitute(a:choice,fetchurm,'\2',"") + let g:netrw_machine= substitute(a:choice,fetchurm,'\3',"") + let b:netrw_option = substitute(a:choice,fetchurm,'\4',"") + let b:netrw_fname = substitute(a:choice,fetchurm,'\5',"") + + " Issue an ftp : "machine id password [path/]filename" + elseif match(a:choice,mipf) == 0 +" call Decho("(ftp) host id pass file") + let b:netrw_method = 3 + let g:netrw_machine = substitute(a:choice,mipf,'\1',"") + let g:netrw_uid = substitute(a:choice,mipf,'\2',"") + let g:netrw_passwd = substitute(a:choice,mipf,'\3',"") + let b:netrw_fname = substitute(a:choice,mipf,'\4',"") + + " Issue an ftp: "hostname [path/]filename" + elseif match(a:choice,mf) == 0 +" call Decho("(ftp) host file") + if exists("g:netrw_uid") && exists("g:netrw_passwd") + let b:netrw_method = 3 + let g:netrw_machine = substitute(a:choice,mf,'\1',"") + let b:netrw_fname = substitute(a:choice,mf,'\2',"") + + elseif filereadable(expand("$HOME/.netrc")) + let b:netrw_method = 2 + let g:netrw_machine = substitute(a:choice,mf,'\1',"") + let b:netrw_fname = substitute(a:choice,mf,'\2',"") + endif + + " sftp://user@hostname/...path-to-file + elseif match(a:choice,sftpurm) == 0 +" call Decho("sftp://...") + let b:netrw_method = 9 + let g:netrw_machine= substitute(a:choice,sftpurm,'\1',"") + let b:netrw_fname = substitute(a:choice,sftpurm,'\2',"") + + " Issue an rcp: hostname:filename" (this one should be last) + elseif match(a:choice,rcphf) == 0 +" call Decho("(rcp) host:file)") + let b:netrw_method = 1 + let userid = substitute(a:choice,rcphf,'\2',"") + let g:netrw_machine= substitute(a:choice,rcphf,'\3',"") + let b:netrw_fname = substitute(a:choice,rcphf,'\4',"") + if userid != "" + let g:netrw_uid= userid + endif + if has("win32") + " don't let PCs try <.netrc> + let b:netrw_method = 3 + endif + + else + echoerr "***error*** cannot determine method" + let b:netrw_method = -1 + endif + +" call Decho("a:choice <".a:choice.">") +" call Decho("b:netrw_method <".b:netrw_method.">") +" call Decho("g:netrw_machine<".g:netrw_machine.">") +" call Decho("g:netrw_port <".g:netrw_port.">") +" if exists("g:netrw_uid") "Decho +" call Decho("g:netrw_uid <".g:netrw_uid.">") +" endif "Decho +" if exists("g:netrw_passwd") "Decho +" call Decho("g:netrw_passwd <".g:netrw_passwd.">") +" endif "Decho +" call Decho("b:netrw_fname <".b:netrw_fname.">") +" call Dret("NetMethod") +endfun +" end of NetMethod + +" ------------------------------------------------------------------------ +" NetUserPass: set username and password for subsequent ftp transfer {{{1 +" Usage: :call NetUserPass() -- will prompt for userid and password +" :call NetUserPass("uid") -- will prompt for password +" :call NetUserPass("uid","password") -- sets global userid and password +fun! NetUserPass(...) + + " get/set userid + if a:0 == 0 +" call Dfunc("NetUserPass(a:0<".a:0.">)") + if !exists("g:netrw_uid") || g:netrw_uid == "" + " via prompt + let g:netrw_uid= input('Enter username: ') + endif + else " from command line +" call Dfunc("NetUserPass(a:1<".a:1.">) {") + let g:netrw_uid= a:1 + endif + + " get password + if a:0 <= 1 " via prompt +" call Decho("a:0=".a:0." case <=1:") + let g:netrw_passwd= inputsecret("Enter Password: ") + else " from command line +" call Decho("a:0=".a:0." case >1: a:2<".a:2.">") + let g:netrw_passwd=a:2 + endif +" call Dret("NetUserPass") +endfun +" end NetUserPass + +" ------------------------------------------------------------------------ +" NetOptionSave: save options and set to "standard" form {{{1 +fun!s:NetOptionSave() +" call Dfunc("NetOptionSave()") + + " Get Temporary Filename + let s:aikeep = &ai + let s:cinkeep = &cin + let s:cinokeep = &cino + let s:comkeep = &com + let s:cpokeep = &cpo + let s:dirkeep = getcwd() + let s:gdkeep = &gd + let s:twkeep = &tw + set cino = + set com = + set cpo -=aA + set nocin noai + set tw =0 + if has("win32") && !has("win95") + let s:swfkeep= &swf + set noswf +" call Decho("setting s:swfkeep to <".&swf.">") + endif + +" call Dret("NetOptionSave") +endfun + +" ------------------------------------------------------------------------ +" NetOptionRestore: restore options {{{1 +fun! s:NetOptionRestore() +" call Dfunc("NetOptionRestore()") + + let &ai = s:aikeep + let &cin = s:cinkeep + let &cino = s:cinokeep + let &com = s:comkeep + let &cpo = s:cpokeep + exe "lcd ".s:dirkeep + let &gd = s:gdkeep + let &tw = s:twkeep + if exists("s:swfkeep") + let &swf= s:swfkeep + unlet s:swfkeep + endif + unlet s:aikeep + unlet s:cinkeep + unlet s:cinokeep + unlet s:comkeep + unlet s:cpokeep + unlet s:gdkeep + unlet s:twkeep + unlet s:dirkeep + +" call Dret("NetOptionRestore") +endfun + +" ------------------------------------------------------------------------ +" NetReadFixup: this sort of function is typically written by the user {{{1 +" to handle extra junk that their system's ftp dumps +" into the transfer. This function is provided as an +" example and as a fix for a Windows 95 problem: in my +" experience, win95's ftp always dumped four blank lines +" at the end of the transfer. +if has("win95") && g:netrw_win95ftp + fun! NetReadFixup(method, line1, line2) +" call Dfunc("NetReadFixup(method<".a:method."> line1=".a:line1." line2=".a:line2.")") + if method == 3 " ftp (no <.netrc>) + let fourblanklines= line2 - 3 + silent fourblanklines.",".line2."g/^\s*/d" + endif +" call Dret("NetReadFixup") + endfun +endif + +" ------------------------------------------------------------------------ +" Restore {{{1 +let &cpo= s:save_cpo +unlet s:save_cpo +" vim:ts=8 fdm=marker diff --git a/runtime/plugin/rrhelper.vim b/runtime/plugin/rrhelper.vim new file mode 100644 index 000000000..05090b59c --- /dev/null +++ b/runtime/plugin/rrhelper.vim @@ -0,0 +1,47 @@ +" Vim plugin with helper function(s) for --remote-wait +" Maintainer: Flemming Madsen <fma@cci.dk> +" Last Change: 2004 May 30 + +" Has this already been loaded? +if exists("loaded_rrhelper") + finish +endif +let loaded_rrhelper = 1 + +" Setup answers for a --remote-wait client who will assume +" a SetupRemoteReplies() function in the command server + +if has("clientserver") + function SetupRemoteReplies() + let cnt = 0 + let max = argc() + + let id = expand("<client>") + if id == 0 + return + endif + while cnt < max + " Handle same file from more clients and file being more than once + " on the command line by encoding this stuff in the group name + let uniqueGroup = "RemoteReply_".id."_".cnt + + " Path separators are always forward slashes for the autocommand pattern. + " Escape special characters with a backslash. + let f = escape(substitute(argv(cnt), '\\', '/', "g"), ' *,?[{') + execute "augroup ".uniqueGroup + execute "autocmd ".uniqueGroup." BufUnload ". f ." call DoRemoteReply('".id."', '".cnt."', '".uniqueGroup."', '". f ."')" + let cnt = cnt + 1 + endwhile + augroup END + endfunc + + function DoRemoteReply(id, cnt, group, file) + call server2client(a:id, a:cnt) + execute 'autocmd! '.a:group.' BufUnload '.a:file + execute 'augroup! '.a:group + endfunc + +endif + + +" vim: set sw=2 sts=2 : diff --git a/runtime/plugin/tohtml.vim b/runtime/plugin/tohtml.vim new file mode 100644 index 000000000..9914bed6d --- /dev/null +++ b/runtime/plugin/tohtml.vim @@ -0,0 +1,27 @@ +" Vim plugin for converting a syntax highlighted file to HTML. +" Maintainer: Bram Moolenaar <Bram@vim.org> +" Last Change: 2003 Apr 06 + +" Don't do this when: +" - when 'compatible' is set +" - this plugin was already loaded +" - user commands are not available. +if !&cp && !exists(":TOhtml") && has("user_commands") + command -range=% TOhtml :call Convert2HTML(<line1>, <line2>) + + func Convert2HTML(line1, line2) + if a:line2 >= a:line1 + let g:html_start_line = a:line1 + let g:html_end_line = a:line2 + else + let g:html_start_line = a:line2 + let g:html_end_line = a:line1 + endif + + runtime syntax/2html.vim + + unlet g:html_start_line + unlet g:html_end_line + endfunc + +endif |