plugin/project.vim0100600000425700003600000014757607450161641013703 0ustar aricalchemy"============================================================================= " File: project.vim " Author: Aric Blumer (Aric.Blumer@marconi.com) " Last Change: Tue 26 Mar 2002 04:09:53 PM EST " Version: 1.1 ©2002 "============================================================================= " See documentation in accompanying help file if exists('loaded_project') || &cp finish endif let loaded_project=1 function! s:Project(filename) " <<< " Initialization <<< if exists("g:proj_running") if strlen(a:filename) != 0 call confirm('Project already loaded; ignoring filename "'.a:filename."\".\n".'See ":help project-invoking" for information about changing project files.', "&OK", 1) endif let filename=bufname(g:proj_running) else if strlen(a:filename) == 0 let filename ='~/.vimprojects' " Default project filename else let filename = a:filename endif endif if !exists('g:proj_window_width') let g:proj_window_width=24 " Default project window width endif if !exists('g:proj_window_increment') let g:proj_window_increment=100 " Project Window width increment endif if !exists('g:proj_flags') let g:proj_flags='imst' " Project default flags endif if !exists("g:proj_running") || (bufwinnr(g:proj_running) == -1) " Open the Project Window exec 'silent vertical new '.filename silent! wincmd H exec 'vertical resize '.g:proj_window_width let b:maxwinheight = winheight('.') else silent! 99wincmd h if winbufnr(2) == -1 vertical split let v:errmsg="nothing" silent! bnext if 'nothing' != v:errmsg enew endif endif return endif " Process the flags let b:proj_cd_cmd='cd' if match(g:proj_flags, '\Cl') != -1 let b:proj_cd_cmd = 'lcd' endif let g:proj_last_buffer = -1 ">>> " ProjFoldText() <<< " The foldtext function for displaying just the description. function! ProjFoldText() let line=substitute(getline(v:foldstart),'^[ \t#]*\([^=]*\).*', '\1', '') let line=strpart(' ', 0, (v:foldlevel - 1)).substitute(line,'\s*{\+\s*', '', '') return line endfunction ">>> " s:DoSetup() <<< " Ensure everything is set up function! s:DoSetup() setlocal foldmethod=marker foldmarker={,} commentstring=%s foldcolumn=0 nonumber noswapfile shiftwidth=1 setlocal foldtext=ProjFoldText() nobuflisted nowrap setlocal winwidth=1 endfunction ">>> call s:DoSetup() " Syntax Stuff <<< if match(g:proj_flags, '\Cs')!=-1 && has('syntax') && exists('g:syntax_on') && !has('syntax_items') syntax match projectDescriptionDir '^\s*.\{-}=\s*\(\\ \|\f\|:\|"\)\+' contains=projectDescription,projectWhiteError syntax match projectDescription '\<.\{-}='he=e-1,me=e-1 contained nextgroup=projectDirectory contains=projectWhiteError syntax match projectDescription '{\|}' syntax match projectDirectory '=\(\\ \|\f\|:\)\+' contained syntax match projectDirectory '=".\{-}"' contained syntax match projectScriptinout '\>> " s:SortR(start, end) <<< " Sort lines. SortR() is called recursively. " from ":help eval-examples" by Robert Webb, slightly modified function! s:SortR(start, 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) if str < partStr let result = -1 elseif str > partStr let result = 1 else let result = 0 endif if (result <= 0) 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 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) call s:SortR(partition + 1, a:end) endfunc ">>> " s:IsAbsolutePath(path) <<< " Returns true if filename has an absolute path. function! s:IsAbsolutePath(path) if a:path[0] == '/' || a:path[0] == '~' || a:path[0] == '\\' || a:path[1] == ':' return 1 endif if a:path =~ '^ftp:' || a:path =~ '^rcp:' || a:path =~ '^scp:' || a:path =~ '^http:' return 2 endif return 0 endfunction " >>> " s:DoSetupAndSplit() <<< " Call DoSetup to ensure the settings are correct. Split to the next " file. function! s:DoSetupAndSplit() call s:DoSetup() " Ensure that all the settings are right let n = winnr() " Determine if there is a CTRL_W-p window silent! wincmd p if n == winnr() silent! wincmd l endif if n == winnr() " If n == winnr(), then there is no CTRL_W-p window " So we have to create a new one if bufnr('.') == g:proj_running exec 'silent vertical new' else exec 'silent vertical split | silent! bnext' endif wincmd p " Go back to the Project Window and ensure it is the right width silent! wincmd H exec 'vertical resize '.g:proj_window_width wincmd p endif endfunction ">>> " s:DoSetupAndSplit_au() <<< " Same as above but ensure that the Project window is the current " window. Only called from an autocommand function! s:DoSetupAndSplit_au() if winbufnr(0) != g:proj_running return endif call s:DoSetup() " Ensure that all the settings are right if winbufnr(2) == -1 " We're the only window right now. exec 'silent vertical split | bnext' if bufnr('.') == g:proj_running enew endif if bufnr('%') == g:proj_last_buffer | bnext | bprev | bnext | endif wincmd p " Go back to the Project Window and ensure it is the right width endif " if bufnr('%') == g:proj_running " if (winbufnr(0) == g:proj_running) && (winnr() != 1) " bnext " if bufnr('.') == g:proj_running " enew " endif " endif " endif silent! wincmd H exec 'vertical resize '.g:proj_window_width endfunction function! s:RecordPrevBuffer_au() let g:proj_last_buffer = bufnr('%') endfunction ">>> " s:RecursivelyConstructDirectives(lineno) <<< " Construct the inherited directives function! s:RecursivelyConstructDirectives(lineno) let lineno=s:FindFoldTop(a:lineno) let foldlineno = lineno let foldlev=foldlevel(lineno) let parent_infoline = '' if foldlev > 1 while foldlevel(lineno) >= foldlev " Go to parent fold if lineno < 1 echoerr 'Some kind of fold error. Check your syntax.' return endif let lineno = lineno - 1 endwhile let parent_infoline = s:RecursivelyConstructDirectives(lineno) endif let parent_home = s:GetHome(parent_infoline, '') let parent_c_d = s:GetCd(parent_infoline, parent_home) let parent_scriptin = s:GetScriptin(parent_infoline, parent_home) let parent_scriptout = s:GetScriptout(parent_infoline, parent_home) let parent_filter = s:GetFilter(parent_infoline, '*') let infoline = getline(foldlineno) " Extract the home directory of this fold let home=s:GetHome(infoline, parent_home) if home != '' if (foldlevel(foldlineno) == 1) && !s:IsAbsolutePath(home) call confirm('Outermost Project Fold must have absolute path!', "&OK", 1) let home = '~' " Some 'reasonable' value endif endif " Extract any CD information let c_d = s:GetCd(infoline, home) if c_d != '' if (foldlevel(foldlineno) == 1) && !s:IsAbsolutePath(c_d) call confirm('Outermost Project Fold must have absolute CD path!', "&OK", 1) let c_d = '.' " Some 'reasonable' value endif else let c_d=parent_c_d endif " Extract scriptin let scriptin = s:GetScriptin(infoline, home) if scriptin == '' let scriptin = parent_scriptin endif " Extract scriptout let scriptout = s:GetScriptout(infoline, home) if scriptout == '' let scriptout = parent_scriptout endif " Extract filter let filter = s:GetFilter(infoline, parent_filter) if filter == '' | let filter = parent_filter | endif return s:ConstructInfo(home, c_d, scriptin, scriptout, '', filter) endfunction ">>> " s:ConstructInfo(home, c_d, scriptin, scriptout, flags, filter) <<< function! s:ConstructInfo(home, c_d, scriptin, scriptout, flags, filter) let retval='Directory='.a:home if a:c_d[0] != '' let retval=retval.' CD='.a:c_d endif if a:scriptin[0] != '' let retval=retval.' in='.a:scriptin endif if a:scriptout[0] != '' let retval=retval.' out='.a:scriptout endif if a:filter[0] != '' let retval=retval.' filter="'.a:filter.'"' endif return retval endfunction ">>> " s:OpenEntry(line, precmd, editcmd) <<< " Get the filename under the cursor, and open a window with it. function! s:OpenEntry(line, precmd, editcmd, dir) silent exec a:precmd if (a:editcmd[0] != '') if a:dir let fname='.' else if (foldlevel(a:line) == 0) && (a:editcmd[0] != '') return 0 " If we're outside a fold, do nothing endif let fname=substitute(getline(a:line), '\s*#.*', '', '') " Get rid of comments and whitespace before comment let fname=substitute(fname, '^\s*\(.*\)', '\1', '') " Get rid of leading whitespace if strlen(fname) == 0 return 0 " The line is blank. Do nothing. endif endif else let fname='.' endif let infoline = s:RecursivelyConstructDirectives(a:line) let retval=s:OpenEntry2(a:line, infoline, fname, a:editcmd) call s:DisplayInfo() return retval endfunction ">>> " s:OpenEntry2(line, infoline, precmd, editcmd) <<< " Get the filename under the cursor, and open a window with it. function! s:OpenEntry2(line, infoline, fname, editcmd) let fname=escape(a:fname, ' ') let home=s:GetHome(a:infoline, '').'/' if home=='/' echoerr 'Project structure error. Check your syntax.' return endif "Save the cd command let cd_cmd = b:proj_cd_cmd if a:editcmd[0] != '' " If editcmd is '', then just set up the environment in the Project Window call s:DoSetupAndSplit() " If it is an absolute path, don't prepend home if !s:IsAbsolutePath(fname) let fname=home.fname endif if s:IsAbsolutePath(fname) == 2 exec a:editcmd.' '.fname else silent exec 'silent '.a:editcmd.' '.fname endif else " only happens in the Project File exec 'au! BufEnter,BufLeave '.expand('%:p') endif " Extract any CD information let c_d = s:GetCd(a:infoline, home) if c_d != '' && (s:IsAbsolutePath(home) != 2) if match(g:proj_flags, '\CL') != -1 call s:SetupAutoCommand(c_d) endif if !isdirectory(glob(c_d)) call confirm("From this fold's entry,\nCD=".'"'.c_d.'" is not a valid directory.', "&OK", 1) else silent exec cd_cmd.' '.c_d endif endif " Extract any scriptin information let scriptin = s:GetScriptin(a:infoline, home) if scriptin != '' if !filereadable(glob(scriptin)) call confirm('"'.scriptin.'" not found. Ignoring.', "&OK", 1) else call s:SetupScriptAutoCommand('BufEnter', scriptin) exec 'source '.scriptin endif endif let scriptout = s:GetScriptout(a:infoline, home) if scriptout != '' if !filereadable(glob(scriptout)) call confirm('"'.scriptout.'" not found. Ignoring.', "&OK", 1) else call s:SetupScriptAutoCommand('BufLeave', scriptout) endif endif return 1 endfunction ">>> " s:DoFoldOrOpenEntry(cmd0, cmd1) <<< " Used for double clicking. If the mouse is on a fold, open/close it. If " not, try to open the file. function! s:DoFoldOrOpenEntry(cmd0, cmd1) if getline('.')=~'{\|}' || foldclosed('.') != -1 normal! za else call s:OpenEntry(line('.'), a:cmd0, a:cmd1, 0) endif endfunction ">>> " s:VimDirListing(filter, padding, separator, filevariable, filecount, dirvariable, dircount) <<< function! s:VimDirListing(filter, padding, separator, filevariable, filecount, dirvariable, dircount) let end = 0 let files='' let filter = a:filter " Chop up the filter " Apparently glob() cannot take something like this: glob('*.c *.h') let while_var = 1 while while_var let end = stridx(filter, ' ') if end == -1 let end = strlen(filter) let while_var = 0 endif let single=glob(strpart(filter, 0, end)) if strlen(single) != 0 let files = files.single."\010" endif let filter = strpart(filter, end + 1) endwhile " files now contains a list of everything in the directory. We need to " weed out the directories. let fnames=files let {a:filevariable}='' let {a:dirvariable}='' let {a:filecount}=0 let {a:dircount}=0 while strlen(fnames) > 0 let fname = substitute(fnames, '\(\(\f\|[ :]\)*\).*', '\1', '') let fnames = substitute(fnames, '\(\f\|[ :]\)*.\(.*\)', '\2', '') if isdirectory(glob(fname)) let {a:dirvariable}={a:dirvariable}.a:padding.fname.a:separator let {a:dircount}={a:dircount} + 1 else let {a:filevariable}={a:filevariable}.a:padding.fname.a:separator let {a:filecount}={a:filecount} + 1 endif endwhile endfunction ">>> " s:GenerateEntry(recursive, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) <<< function! s:GenerateEntry(recursive, line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) let line=a:line if a:dir =~ '\\ ' let dir='"'.substitute(a:dir, '\\ ', ' ', 'g').'"' else let dir=a:dir endif let spaces=strpart(' ', 0, a:foldlev) let c_d=(strlen(a:c_d) > 0) ? 'CD='.a:c_d.' ' : '' let c_d=(strlen(a:filter_directive) > 0) ? c_d.'filter="'.a:filter_directive.'" ': c_d call append(line, spaces.'}') call append(line, spaces.a:name.'='.dir.' '.c_d.'{') if a:recursive exec 'cd '.a:absolute_dir call s:VimDirListing("*", '', "\010", 'b:files', 'b:filecount', 'b:dirs', 'b:dircount') cd - let dirs=b:dirs let dcount=b:dircount unlet b:files b:filecount b:dirs b:dircount while dcount > 0 let dname = substitute(dirs, '\(\( \|\f\|:\)*\).*', '\1', '') let edname = escape(dname, ' ') let dirs = substitute(dirs, '\( \|\f\|:\)*.\(.*\)', '\2', '') let line=s:GenerateEntry(1, line + 1, dname, a:absolute_dir.'/'.edname, edname, '', '', a:filter, a:foldlev+1, a:sort) let dcount=dcount-1 endwhile endif return line+1 endfunction " >>> " s:DoEntryFromDir(line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) <<< " Generate the fold from the directory hierarchy (if recursive), then " fill it in with RefreshEntriesFromDir() function! s:DoEntryFromDir(recursive, line, name, absolute_dir, dir, c_d, filter_directive, filter, foldlev, sort) call s:GenerateEntry(a:recursive, a:line, a:name, escape(a:absolute_dir, ' '), escape(a:dir, ' '), escape(a:c_d, ' '), a:filter_directive, a:filter, a:foldlev, a:sort) normal! j call s:RefreshEntriesFromDir(1) endfunction ">>> " s:CreateEntriesFromDir(recursive) <<< " Prompts user for information and then calls s:DoEntryFromDir() function! s:CreateEntriesFromDir(recursive) " Save a mark for the current cursor position normal! mk let line=line('.') let name = inputdialog('Enter the Name of the Entry: ') if strlen(name) == 0 return endif let foldlev=foldlevel(line) if (foldclosed(line) != -1) || (getline(line) =~ '}') let foldlev=foldlev - 1 endif let absolute = (foldlev <= 0)?'Absolute ': '' let home='' let filter='*' if has('browse') && !has('win32') " Note that browse() is inconsistent: On Win32 you can't select a " directory, and it gives you a relative path. let dir = browse(0, 'Enter the '.absolute.'Directory to Load: ', '', '') else let dir = inputdialog('Enter the '.absolute.'Directory to Load: ', '') endif if (dir[strlen(dir)-1] == '/') || (dir[strlen(dir)-1] == '\\') let dir=strpart(dir, 0, strlen(dir)-1) " Remove trailing / or \ endif let dir = substitute(dir, '^\~', $HOME, 'g') if (foldlev > 0) let parent_directive=s:RecursivelyConstructDirectives(line) let filter = s:GetFilter(parent_directive, '*') let home=s:GetHome(parent_directive, '') if home[strlen(home)-1] != '/' && home[strlen(home)-1] != '\\' let home=home.'/' endif unlet parent_directive if s:IsAbsolutePath(dir) " It is not a relative path Try to make it relative let hend=matchend(dir, '\C'.glob(home)) if hend != -1 let dir=strpart(dir, hend) " The directory can be a relative path else let home="" endif endif endif if strlen(home.dir) == 0 return endif if !isdirectory(home.dir) if has("unix") silent exec '!mkdir '.home.dir.' > /dev/null' else call confirm('"'.home.dir.'" is not a valid directory.', "&OK", 1) return endif endif let c_d = inputdialog('Enter the CD parameter: ', '') let filter_directive = inputdialog('Enter the File Filter: ', '') if strlen(filter_directive) != 0 let filter = filter_directive endif " If I'm on a closed fold, go to the bottom of it if foldclosedend(line) != -1 let line = foldclosedend(line) endif let foldlev = foldlevel(line) " If we're at the end of a fold . . . if getline(line) =~ '}' let foldlev = foldlev - 1 " . . . decrease the indentation by 1. endif " Do the work call s:DoEntryFromDir(a:recursive, line, name, home.dir, dir, c_d, filter_directive, filter, foldlev, 0) " Restore the cursor position normal! `k endfunction ">>> " s:RefreshEntriesFromDir(recursive) <<< " Finds metadata at the top of the fold, and then replaces all files " with the contents of the directory. Works recursively if recursive is 1. function! s:RefreshEntriesFromDir(recursive) if foldlevel('.') == 0 echo 'Nothing to refresh.' return endif " Open the fold. if getline('.') =~ '}' normal! zo[z else normal! zo]z[z endif let just_a_fold=0 let infoline = s:RecursivelyConstructDirectives(line('.')) let immediate_infoline = getline('.') if strlen(substitute(immediate_infoline, '[^=]*=\(\(\f\|:\|\\ \)*\).*', '\1', '')) == strlen(immediate_infoline) let just_a_fold = 1 endif " Extract the home directory of the fold let home = s:GetHome(infoline, '') if home == '' " No Match. This means that this is just a label with no " directory entry. if a:recursive == 0 return " We're done--nothing to do endif " Mark that it is just a fold, so later we don't delete filenames " that aren't there. let just_a_fold = 1 endif if just_a_fold == 0 " Extract the filter between quotes (we don't care what CD is). let filter = s:GetFilter(infoline, '*') " Extract the description (name) of the fold let name = substitute(infoline, '^[#\t ]*\([^=]*\)=.*', '\1', '') if strlen(name) == strlen(infoline) return " If there's no name, we're done. endif if (home == '') || (name == '') return endif " Extract the flags let flags = s:GetFlags(immediate_infoline) let sort = (match(g:proj_flags, '\CS') != -1) if flags != '' if match(flags, '\Cr') != -1 " If the flags do not contain r (refresh), then treat it just " like a fold let just_a_fold = 1 endif if match(flags, '\CS') != -1 let sort = 1 endif if match(flags, '\Cs') != -1 let sort = 0 endif else let flags='' endif endif " Move to the first non-fold boundary line normal! j " Delete filenames until we reach the end of the fold while getline('.') !~ '}' if line('.') == line('$') break endif if getline('.') !~ '{' " We haven't reached a sub-fold, so delete what's there. if just_a_fold == 0 && getline('.') !~ '^\s*#' d _ else " Skip lines only in a fold and comment lines normal! j endif else " We have reached a sub-fold. If we're doing recursive, then " call this function again. If not, find the end of the fold. if a:recursive == 1 call s:RefreshEntriesFromDir(1) normal! ]zj else if foldclosed('.') == -1 normal! zc endif normal! j endif endif endwhile if just_a_fold == 0 " We're not just in a fold, and we have deleted all the filenames. " Now it is time to regenerate what is in the directory. if !isdirectory(glob(home)) call confirm('"'.home.'" is not a valid directory.', "&OK", 1) else let foldlev=foldlevel('.') " T flag. Thanks Tomas Z. if (match(flags, '\Ct') != -1) || ((match(g:proj_flags, '\CT') == -1) && (match(flags, '\CT') == -1)) " Go to the top of the fold (force other folds to the " bottom) normal! [z normal! j " Skip any comments while getline('.') =~ '^\s*#' normal! j endwhile endif normal! k let cwd=getcwd() let spaces=strpart(' ', 0, foldlev) exec 'cd '.home call s:VimDirListing(filter, =strpa Uion (name) o ilter, =st.} + 1 valid directorn (name)}ineno) = call s:Vi any comments endif no + o ilter, =st- cursive == 1 normal! j iesFromDir(1) normal! zc endif let dirs=b:dirs let dcount=b:dircount endif else == -1) && (match(fla') != -er = fi. other folds to the " Restore the cu U', '') r s then they(line, infoline, ao ontents of the dir U', ectives functionructDirectives(line(' ot, find the endame of the Entry: ') if stc= normal! ]ine) =~ '}') _ve =@atives(line(' ot while getline(olds to "add"aP fold. if getline('.') =~ "addk"aP fold. : ') if s@a= _ve cursive is 1.ccmd0, cmd1) if getliclse call s:OpenEntry(line('.'), Down, '') r s then they(line, infoline, down ao ontents of the dir Down, if stc= normal! ]ine) =~ '}') _ve =@atives(linolds to "add"ap if s@a= _ve cursive is 1(.ccmd0, tch(fl normal! ]zj )cmd1) if getliclse call s:OpenEntryendwhile penEntry2(a:'') r penEntspenEntry2( reateEndecrelse. This mew i \([^=has('br r ion a fold, open/clopenEntry2(a:line, inf if c_d != '' && (s:IsAi= 1 eFromDif=====s in the Pr'\\ , ==s en\ , e ==s while getl call s:OpenEntry(line('.'), if match(g:projwion ">>> s aject window iction " >>> s:Refrejwidfunctio -1) &&s no CTR> des Tdction! s:gs, 've arparsr :l ddo s thmd0, cmdper-nr() > basi(s:ctory(per- funbasi(on a fold, open/cl if match(g:projwio if strlest' ehas_ct window i"he flags enwd_savs, '\(\( \ en:\)*\).*', '\1', '' ehas_ct window i if match(fla uion! s:OpenEnact the desin the Projee, n iisti/r =~ '\:\)*\).*', '\1', ''f else " o=s uion! ." enwd_savs='\(\( \ en:\)*\) | 'b:" ', end elshappens uion! .'nd "'b:" enwd_savs' end elsWipeist s uion! .'n * s uion! hile getl call s:OpenEntry(line('.'), ifing.', "&OK", 1) ui enlter =on ">>> s aject window ictioruilenam let s leon a fold, open/cl ifing.', "&OK", 1) ui enlter =o if strlest' ehas_" ' ui ).*', '\1', '' ehas_{ ' ui }-1 els ' ' ui e, sp:OpenEnact the desin the Projee, n iisti/r =~ '\:\)*\)e, ScriptAutif a:scrlse call s:OpenEntryendwhile oeturn P<< Sized p endif E> " s:DoSetupAndSplit_au() <>> pawnrojeex" onalsyntax.'>> eex" onalsyntax.'rectives(lineno) < pawn,var " Weg o cursor positimethodke something like imethod< 10cal split | bction! s:Project(file" 'var " Weg .dmethoo epend eFromhl neNnt_firomDdmetho.' ifeFromhl Ns nifeFromn\) .lct the desine, a:nject(file{ 'var " Weg }{dmetho}in '\:\d '.hom\\n':\)g let dname = sunning romhl neNnt_firomDdmetho.' ifeFromhl Ns nn(single) != 0 let dmetho=imethod endif cmd H ry(line('.'), s:Recursivel "ion + 1, a:end) lenaml]z[zimethode fold, and t If f es(lineno) >> " Findwhile def linectives(lineno) < Allively i olet b:proj_cd_cl , '', 0cal splitold, open/cl pawnErec(, and open a windnt=d , "t name = substitut s:RecursivelyCons , endif try2(line,e let dname = subst exec 'vertiet b:proj_cd_cl , '', _cl , '',+1ng romnd_cl , '',."\r"strpa Uion (name) oetchaommand + 1 valid direct b:stop_ + 1) =1al! zc endif tout) enupAndSp_ForEach endieno :\d* pawnErec"aces=ce orelif\@! let dnamedel H rcl pawnErec romnd_cl , '',.": ', s ed\r"strpa Ulet dirsl , '', plit | bction! s:Prb:stop_ + 1) ") | let dirsstop_ + 1) t_filter) cmd H ry(line('.'), WipeAllively i on ">>> Wipe " Findwhile def linectives(lineno) >> :n ">>>omable,wold = !~ 'l! [ tnmd is '', then '"'.home.'" is not a valid e y. ywin, sc && .hitespac:n')>>> :n ">>>omable,wold = !~ 'l! [ tnmd is '', then ' let _ctotal, '', _ctotal, '',+1 , '') " Get rid of comments and whitespace ing / or \ endif(name) oufl ed(ments and whitespac if a:dir =~ '\)strpa Uion (name) oetoufvar(ion! .'\>r =~&y. " ]zj o) >= foldlev " Go to pSetupSb else = subst eLelse = subst else = subst ep return 0 " Thetute(dir_cwipe, '', _cwipe, '',+1ng Setupbwipe! else silent(name) o total, '', % 5Get rid of leading whi romnd_cwipe, '', f s total, '',."\r"strpa Uion (namredraw}' if line('.') == line('chaommand + 1 valid di b:stop_ + 1) =1al! zc tout) enupAndSp_ForEach endieno :\d pawnErec"aces=ce orewif\@! let dnamedel H rcl pawnErec romnd_cwipe, '', f s total, '',.": ', s Wiped\r"strpa Ulet dirswipe, '', o total, '', plit | bction! s:Prb:stop_ + 1) ") | let dirsstop_ + 1) t_filter) cmd H ry(line('.'), GrepAllively i , pat" onbsolute_dir, direp " Findwhile def lin<< " ys all files te_dir, dir, c_d, repAllively i , pat" onb unmap < fu> " (dir, t" on=(:path" onath) ')?Enter("GREP< tituteath" on: ")::path" on noremap < fu> " t endfunc els " t= 1: " ctiath" onath) ' find the endame of the Entry: ') if sb::OpenE_ormal! 1 the directory. We nupAndSp_GetAllF. We endienolyCons , , infoline, flet dirs:OpenE_ormal! " Us " grep it_au() << normwinbufnr(0) != g:proj_re environment in th c a:editcmd.! grep '.ath" on s ctiv:s "l_' nd + 1 valiFromDiGREP<' Perhap call totePany " We let dir='"'.sucthe else cmd H ry(line('.')GetXXX FH ssolute_dir, dir, c_d, fExtract th let parent_scriptot filtine=a:line t th o^etline('.')\pe(dname, \+ let dname , '^[#\t ]*\ t thne) let filtine=a:line t th o.\{-}" or\{-}\)" let name = substitute(infod(a:infol#\t ]*\ t thn= s:Gett filine, a: '/'pac*\) | let home="" , '^[#\t ]*\ t thne) let fil:pat let l, ' ') .'e) let fil:pat let l, ' if home != '' if (foldl let fil:pat let && .let let dcoulet cmd H exec 'verticalquotes (we don " Extract filter filter betweenine=a:line t th o.*\< : '' the "]* let dname " s=ol#\t ]*\ t thn= s:Getircount) foline, parent_filter) if fil files='' cmd H exec 'verticalquof endif ndifet c ents and w t th o.*\ pawnErec t_filter) on ">>> Wipe " Findwhile de leet amende leet ame.a: .basi(on a fold, o. " ]zj o) >= foldlev " Go to pSetupSb else = subst et {a:filev lelsese = subst ep retside a foldde leet ame('.'), GrepAllive leet ame('.'), GrructInfo(home, c_d, scriptin, scriptout, bstitutet c me = s:GetHome(parent_in let dname = sub ) ta home != '') let nt_ht dname = sub ) ta home != '') = s:, ' '), a:filter_direct if a:scriptout[0 Ulet dirswipe, '' ') && (a:editcmd[0] != '') "' endif return retval endfunction ">>> " s:OpenEntry(line, precmd, editcmd) <<< " filename under the cursor, and open a window with it. function! s:OpenEntry(line, precmif (home == '') || (nam pe, '' ') is time to regenerate endif " . ndif siet dir='", ' if hoorelif\@! let dnamedel H rcl #\t ]ne)asi(on a fold, open/cl normal! `k endfunction ">>> " s:RefreshEn " If we're out endrefresh.' t_filter) on , scriptin, scriptout, bstituteo to pSetHome(parent_in ] != ' , call e = sub ) ta home != '') let nt_ht dname = sub ) ta home != '') o to pSetHome(parent_in ] != ' , call en/cl normal! `=ndfunction ">>> " s:RefreshEn " Iff (winbufnr(0) == g:proj_running) && (winnr() rn 0 let d)\pe(dnameiine) ), a:filter_dirjust_aon't deleta:call =='t deletormal! j a:call is). let " ys a= '') o to pSRetupSb elin lse ('"'.e ('' , a:call " t endfunc els " t= 1zj o) >= foldlev " Go to pSetupSb else = subst ete namee ents and wnfoline, se = subst ep retlags = s:GetFlags(immediate_il! `=ndfunction ">>> " s:RefreshEn " (dir, t" on=(:path"=(:path" onathS ')?Enter("GREP< tituteath" on: ")::path" on t dcount=d cmd H ry(line('.'), unc els " t= 1: " rrent ! s:OpenEnact th) ui enlte" let allstop_ + "(voi@atives(lin aketup() Findwhi(fl ly " Mark that ruilenam lestop_ + "(Uion (name) oj' Finunbar if scr) ui enlter =o if se at the zect w&l filenames. sthe zfilenames. lyfilenames. P"\r"strpa endif E> " s:DoSet while getline(ctiine&l = zect c_d call epAlli zect c_d cr(ion! .'\>r =~&y. " ]:proj_flags,appltestives(lin n rcl pawnErec <> -1)\|:= fol = endif nd ofe')s s(lin n rcl pawnErec <> -\|:= fol = endif nd ofsp')s s(lin n rcl pawnErec <> -\|:= fol = endif n> " lyd ofe')s s(lin nl paaaaawnErec <> s(lin nl paaaaawnErec <> s(lin nl paaaaawnErec <> >> " s:RefreshEn ps(lin nl paaaaawnErec <> <2-LeftMomma>-1)\|:= fol = endif nd ofe')s s(lin n rcl pawnErec <> -\|:= fol = endif nd ofsp')s s(lin n rcl pawnErec <> - -1)s(lin nl paaaaawnErec <> -s(lin n rcl pawnErec <> -1)s(lin n rcl pawnErec <> <3-LeftMomma>-1s(lin nl paaaaawnErec <> -1)< >s(lin nl paaaaawnErec <> <2-RightMomma>-< >s(lin nl paaaaawnErec <> <3-RightMomma>-< >s(lin nl paaaaawnErec <> <4-RightMomma>-< >s(lin n rcl pawnErec <> < >1)\|:parent_directtch(flaw w. endif t')!=-1') s:DndSpl if >as r ndSpl?(s r ndSpl):(s:DndSpl if +as r :Dorn a f))s s(lin n rcl pawnErec <> -1)\|:parent_= fol = call ss s(lin n rcl pawnErec <> )\|:parent_= fol = caline, s s(lin nl paaaaawnErec <> -s(lin nl paaaaawnErec <> ) " The direk=espac '\:\) lka:dg'\:\)g let dndirect tout) : romnd_cwipe, '', f s s(lin te '.') =-1)avoi@nc a gs:Rec Erec bu let imy2(afool-d_cof.s(lin n rcl pawnErec <> 1s(lin "n rcl pawt ]*\ >1stop_ + " : ro zect w&l s tsthe zs o_= '') s ts " s:DoSet s tiine&l = zect s tepAlli zect s s(lin n rcl pawt ]*\ >1stop_ + " := fol = stop_ + "(Us s(lin call s:OpenEntry(line('m'), Down, '') Openhasl pto('stop_ + "utt filter = s:GetF tout> stop_ + "t filter = s:GetF tout> basi(s:ctory(per- funbasi(on a fold,r-nr() > basi(s:ctory(p call s enlte'on a fold,r-nr() > basi(s:ctory(pn toutC-W o'on a fold,r-nr() > basi(s:ctory(pn toutC-W lelse call s enltee Down, '') if a:recurstop_ +/Vim ')?Enterl let (g:pro_= '') '.') !ntry(rep " Eall sbugs:RefreshEntriesFromDir(1) call s enlteon a fold, open/cl nsthlo= flno spl , open enwd_savs' OpenEnact t'_= '') lSized p -nargs=? -Sizp We = = '') '= fol == '') (' , openfinish " vim600: sthermalmeamn rkld == 0 rkld=ive, ev = foldl=1: doc/."\r"st.txt0100644000425700003600000005347207435002224013167 0ustar aricalchemy*."\r"st.txt* Plug !n)cmded ags:Remultip W.."\r"sts multip W. elshs FcmdVim vers_sav6.0. Last C a ge: Winr20 Febr2002 03:18:28 PM EST By Aric Blumer lAric.Blumer@ rf ai.Siz l *."\r"st* *."\r"st-plug !* Cldlev =: i s...................|."\r"st-invoP fo| Inheritiance............|."\r"st-inheritance| ,appltes...................|."\r"st-mappltes| fitltes...................|."\r"st-sfitltes| Exazp Wcwipe................|."\r"st-exazp W| Tips...........................|."\r"st-tips| Youirectuet c_l splug !'s r pec ruilenamalthe -1)stheame)}insne(' tliquev ly-acshsurn se)cmd ley navigtdial.e esne(' sewifolbe df getlrn ifinenEntry(lineside]z[zimetVim ifi youirectplins - uble-clicknenE\Cr') != -i, a:end)s, tcho cal s. I c_l s lei otuet c_ecthavi:Recurnavigtd '')d. : ')hi rfhy let |l -expl rcr|. Youirectalso-i, " Entrytlug !n-1)c a ge=-1)a)d. : ')vs, '\(\( Vim t ]*\ s) youisel) '.al .e s t ]*\ s)rec,e)cmd xazp W, top_ +let environlags=to-i,cluditcmdp -i, $PATH. ak= -it veryd ley otuet quickfix multip W.."\r"sts ! hiluet p_ ec ent_dnvironlagss.e Ofold =ea+ 1= -i,cludi: o openi:R/Unlpeni:Rave reached a = '') '(\l, \L, \i \W) o top_pi:Rave reached a = '') '(\g \G) o R enlteealuetr- pec2(linr ]*\ s:Openf ( ectbeluet, '\lauilh P<< ."\gram etup() )'(\1tuprough \9) o R enlteealuetr- pec2(linr ]*\ s:Opee reached a = '') (\f1-\f9 \F1-\F9) o High degree]z[zuetr-f a:rgurabilthe o Also-w " |netrw|zues:Rec XXXX://...my2(tdialow XXXX is ftp, rcph(flph(cmdhttp.e Ae rofne('.') = pec2(linr sizp WctP< : ro itold_."\r"sthites ============================================================================== COMMANDS l *."\r"st-invoP fo* Youirectuet c_ plug !nby (linlteeit i your plug !nd. : ')(e.g., ~/.vim/plug !). See]|add-nd o -plug !|. W youistart vim c_ nP<>> -i, a:entl BErec tute(re-invoPe et tlug !nas= '' bedjebov . S 5Geaoldlev " s)rectbelke\ sd p df getlrn \ ine(fipe,s else delimitld by {sd p })(see]| txt|) if rectbel" onlenaml]z[zne == 0 ."\vide]youiwi l = '') 'hi rfhy iAngs != ednamndifa {scmda })in up() ry(lnsidert, '\bepenf Blank elsetituig rc " o tP<- by uble-clicklteeenEi if plug !nwifolc "'.anew ifin\ch(fl right- uet c_ |CTRL-W_p| iquivarent_ifeit Enact . l n*."\r"st-syntax* o pS = '') ' , "&while gorm: ."\r"st_e ,::= ={."\rptdh} [{nErec"a}] { [f getline(] [f."\r"st_e ,] } {nErec"a}s:Opene- medite lowltee(o \ ine(dir,): CD={.tdh} ! s:On={ getline} ! s:te(i{ getline} ! s: o.\{-}"{.td}t ! s: let { le} Noton! hilaf."\r"st_e ,rec der ."\r"st_e . a lows you t1)stheame)}hi rfhy i your = '') . T ewifolbe df getlrn \ tP< " Rest wholtoptdh s a:entl 'sl, a: ', grand, a: ', etc.,pee reachwayeameest hi rfhy An:te(ermo ."\r"st_e ,m ectaif\@! optdh. See]ime |."\r"st-inheritance|d xazp Wlbel .n({."\rptdh} may let " Go to bdifntry m be en\d\1', ' '}') Vim\ en\s. H titutwod xazp Ws]z[zimet ine d. : ': > Exazp W=/my/d. : '/ \ " Go t { } Exazp W="/my/d. : '/ " Go t" { } Iht dmd) Exazp W="c:\My Doculagss" { } BdifVim\) = mart enough t1)dowhile,utea: > Exazp W=c:\My\ Doculagss { } CD= ."\videscall this funcn! hilVim folc a ge=-1) youisel) '.al )in upat if ues:Re|:cd|) a lows you,e)cmd xazp W, s@a= c*\) : ak=| otuet a:endo= fl akel .e A CD=. meansn! hilVim fol ak=({."\rptdh} cmdi s inherit\d\iquivarent_c '') "addk"aP fold. : '.e W CDs:Opemitte , ale d. : 't imy2(ac a ged if rectbelno " Go ) " eifold side]z[zimet=. if varue]z[zCDsrectalso-bepen lafold,ptdh s l, a: ''slCD. See]ime |."\r"st-inheritance|d xazp Wlbel .n( hode fold,a= _g rc e)cmd|netrw| ."\r"sts. S Go t titua low -i, a:enptdh ae gord{."\rptdh}. On=na.')te(i ."\vide]ntrymeansn!'\(\( arbit rylVim t ]*\ s) 5Ge youi= c*\ cmdl Tdc.al 's rErec (see]c_ | (g:pr|na.')| des Td|ject window i 5Ggss) if idea') =-1) elVim t ]*\ n! hils cmd1ears et environlags=)cmd1) = '') '1', 'c_l : On.vim: > ro$PROJECT_spli='~/my_."\r"st' " Pdifntrycmdp -i, $PATH ife$PATH /ptdh/to/my/cmdp ' ro$PATH=$PATH.':/ptdh/to/my/cmdp ' , open te(.vim: > " Remov ycmdp - s $PATH ife$PATH = /ptdh/to/my/cmdp ' ro$PATH=, e ==s $PATH /ptdh/to/my/cmdp ' kintutt , open T youirectuet : ak= let y."\p -environlags=dep, opteeenEwpat )you titu'') "adly editlte. If estoptdh \ch(fl t ]*\ n) = lafoldtitute(let i lafold, s {."\rptdh}. e s ":RefreshEetituinherit\d\by Sub."\r"sts epAlss (fl Sub."\r"st= pec2(lisEi s) . F uet |netrw|z."\r"sts, ale ptdh = pec2(linr)cmdOn=na.')te(i m be aif\@! oa.')do= f. o.\{-}= pec2(lisEa |nd of)|nf onb It') =uet,n!'\(eg rate a:end)s, (' se = '') ' if ues:Rec \ ( P a: '=~/my_."\r"st CD=. o.\{-}" ake* *.mk": let r { Child1=c_code]{ } Child2=i,cluditCD=. o.\{-}"*.h"]{ } } Child1'sl, dh "~/my_."\r"st/c_code" recauet ~/my_."\r"st a= _vherit\d. It also-i,herit&whi CDs s P a: '. Since\P a: ', "&wCD=.,d1) = a: ''sl 1(.cc "~/my_."\r"st". Child1< editi,herit&wa CDsz[z"~/my_."\r"st". Fit nt_, Child1-i,herit&whi ed c*\) s P a: '. d ednam tituy2(ainherit\d. Child2o ly i,herit&whi "~/my_."\r"st") s P a: '.n T us, aled xazp Wlebov a= xa ly iquivarent_co'c_l : > P a: '=~/my_."\r"st CD=. o.\{-}" ake* *.mk": let r { Child1=~/my_."\r"st/c_code CD=~/my_."\r"st o.\{-}" ake* *.mk":{ } Child2=~/my_."\r"st/i,cluditCD=~/my_."\r"st/i,cludit o.\{-}"*.h"]{ } } (Fcmda oldlev " , Child1 Sel) '.al tcho i, a:en|CTRL-W_p| ifinere new ifi. If t ge'') a= o else ,ho soluteit. s\s Sine(:se-bdifh: lz lwl')s_dirh(fl 'arget ifi. . s\o Sine(:se-bdifevs f! hile geo rn i Resto ly w ifi. . s\v Sine(:se-bdif ly df getlEall get--t ge'') staysai, a:e tl W r . <2-LeftMomma> (D uble-click) If o eldef lilse ,ho i If o enho se bif fary, soluteit. If o eled a subalo cal i, a:en|CTRL-W_p| w ifinere new ifi. Sine(:se. Sine(:se. IDornaet c_ ndSplez[zime tl W r (by s r :Dorn a fner togg Wlbetwee Splez[ s r ndSpl +as r :Dorn a f ow i s r ndSpl. W fold youitogg Wl mey2(oniclwl')iDornaet c_ ndSple he(ermited blEall 't' r leez[zime :OpenEntry(l variable)(see]|."\r"st-try(l|). Noton! hilafRight Momma clicknwifoly2(a:ct ma(flawl')(linele ge'') inEntrytl W r _ifeit ise p_ ec ent_w r .n(d w ifinwifo gofr ckntoreachs r ndSpl ndSpl n youil Tdc'), ifi. < >1Sine(:se s\ cah(fl 'P<-is ."\vided=)cmd1)lute(ermit n ! hil" Extrt dmgn=ono . \ cah(fl 'P<)is ."\vided=)cmd1)lute(ermit n ! hil" Ext r dmgn=on-. \i Shwhilnwhi tatus != entrycmdp We t_ht solveif inherit\d et dmeaers=)cmd1) if! ge'') a= _v.n( a= _vtended=)cm debuggs:Reyour lafold,ptdh inherit\d et dmeaers=)cmdmanuawl't , tert, P"\r"sts.e \I Shwhilnwhi tatus != entrycmdp We t_ht solveiff Usescall . P"\r"st = s:, ' 'enamf# ruilenam.e \1 - \9 Run U', 'ized p pec2(linret :OpenEnrun{x}ow {x}oi Restolenaml z[zime key. See]imel" culagstdialoo call s e1 bel . \f1-\f9 Run U', 'ized p pec2(linret :OpenEnrunormalex}ow {x}oi Rest lenaml]z[zimetkey. T', 'ized p a= tun etup() seatzime '') "ad = '') '1oldl. See]imel|."\r"st-sfitltes| bel . \F1-\F9 Run U', 'ized p pec2(linret :OpenEnrunormalex}ow {x}oi Rest lenaml]z[zimetkey. T', 'ized p a= tun etup() seatzime '') "ad = '') '1oldlf "= 'Sub."\r"sts. See]imel|."\r"st-sfitltes| bel . \0 Df getlEall window st- hilarl tefined=)cmd\1tuprough \9. \f0 Df getlEall window st- hilarl tefined=)cmd\f1tuprough \f9 \F1 t rough \F0. Sine(:se\F0. \l lenaml]eached a a:en ) "add= '') '1oldlf_vtolVim.e W i W.f s arl bes:Relitold,lyoui aycplins " onkey tchstop.e \L lenaml]eached a a:en ) "add= '') ' "= 'Sub."\r"stsf_vto Vim.e Uet c_l s a_pi:Ra caudial--I.n( a lows you t1)dowa \ en: ak= scri havi:Recuro yhed a a:enp '') . \E Expl rcf ues:Re|l -expl rcr|)call this funcnz[zimet,"\r"st a:e '') a= _v.n(D cy2(ak"aP lnetrw. Noton! hil1) = '') 'tlug !nrcl ps total recauet (fl Htal W r _ all tl W r ef_vtoleledght- 5Ge pleon a f. d a_pi:Raavoi@ Rest ,"\blem. ============================================================================== ADDING MAPPINGS Youirectaddeyour mappltesf s a ge=-t ymappltesf f c_ plug !nby (linlte a:em \ spli/.vim."\r"st_mappltes.n( fipe,sifeit Enact ,ewifolbe elshif c_ plug !n !nl leld.n(H ans xazp Wl! hilwifolc est lenaml]z[ze'.') ! n youiplins \K (K , Coi Reak=n :-): > hat ruilenam Wc(s, )s, '\CL') ! l lelid 0ark that ruilenam leet Tt th' leetme = " '\CL') ! l lelid e = l lelid e ) oufl ed(ments and et c_d '\)strpa Uion (nse =r = s let . " ]zj o) >= foldlev " Go to pSe1 else * subst eLel lelsese subst ep return 0 l lelid r_cwipe,cwipe, '',+1ng l lelid else silent(name ) ou total, '', % 5Get rid ) ouurn 0 "Abort\d.cwip ndfunc els " t= 1 1 soicklteeime . Default: 100 (See]|."\r"st-mappltes|.) l n *."\r"st-try(l* :OpenEntry(l Default: "imstip Variomm ednam -1)c rolh(fl behavicmez[zime tl Plug !. ( variable)rect let " onz[zime lowlte)c aract ednam.]:proj_fledna D'' ~ i W plin: ', f getlEall getline('.'_c '') "addk"aP fo d. : 't n U', 'ized p != edheOpenf ) = el) \d=)cm o lte.n l W plin: ', 1) = '') 'tlug !nwifoluet c_ |:lcd|nt_in l rafold t enh|:cd|n-1)c a ge=d. : lis) youisel) '.al l curo .n( f leea= t awl')oif\@e oa.')y2(az[zmu uet recauet z[zL bel . L Similare '\l bu lns lwl'.a (g:pr/s Tdc|:ect window | o evs f! hile ge'') "addk"aP fold. : ' ry( a gedntoreac one pec2(linret 1) ifCD pec2(lctdialow 5Ge ! hi rErec activ (|:lcd|n ly ( a ge&whi CWD-fcmda ifi y2(aa rErec .) m T ee e a_pi:Raz[zime |CTRL-W_o|na.')|CTRL-W_CTRL_O|' '}') /cl nmodl window st-ol ak=(e ge'') "addrErec esto ly visible rErec bu keep.'), tl W r (visible,utea. s W plin: ', 1) = '') 'tlug !nwifoluet syntax hdghldght fo inEntrytl W r . S T ee enortltee)cmdt tlineda.') ". t W plin: ', 1ogg Wlet y z[zime w ifinrafold t enhjust inornaet c_ w ctplinsltee< >1 right-clicklte. ft c_ e ')cmd-vert."\r"st-mappltes|. T W plin: ', pu Sub."\r"st=== 0 tth(fl ', ez[zime se = t tlinelte.n call s e1 ...m :OpenEnrun9 i lets elVim 'ized p !'\e uto etup() . See]ime mappltesf f \1tuo \9jebov . %fea= t pleond let yed a subal%hea= t pleond let yline, d. : ' %dea= t pleond let yCD d. : '., (Deplictded: %st imalso t pleond let yed a sub=)cm r ckwlad winptdibilthe.)e Uet %F .u lnlet yed a sub= " Go t quotod. Fcmd xazp W, gvim folbe lauilh{p etup() f f U', '') youi= c*\)\3cifeale lowlte)is i your vimrc ile: > o 'No call s e3=n> !gvim %f' < H tituenfew d xazp Ws: > o 'No call s e1='!p4 edit %f' o 'No call s e2='!p4 adde%f' o 'No call s e4=" onathViewlte)%f'|> !<< m -ry(lns %fe&" < OndW r s sysb ms]youiwifolwags=to-pdifntry%fal%h %dea slte quotos -1)avoi@n\\ enlte.n call s eormal1 ...m :OpenEnrunormal9 i lets elVim 'ized p !'\e uto etup() s else . Seel ct ymappltesf f \f1tuo \f9 \F1tuo \F9jebov . %fea= et yed a subal%hea= t pleond let y."\r"st=line, d. : ' %dea= t pleond let yCD d. : '. Multip W ile) != -rectbel endlinret 1wohway=: T!= -1) (tefault)hwaye) =-1) %f t pleond lee reac aif\@! o ile) != all 'ized p a= tun ece. T', se l ) =-1) all 'ized p tun )cmd lclez[zime non-aif\@! ile) != -(%fea= t pleond l " nf line(' '.asive) ifo sel) 't', se behavicm, pu ect'*')c aract at ime reg !ni:Raz[zime :OpenEnrunormalex}ovariable (T', '*') st n\d\d, editc_ 'ized p a= tun.) Fcmd xazp W, no "'all p_ ec encWlbetwee ale lowlte: > o 'No call s eormal3="* onath%h/%f'" o 'No call s eormal4=" onath%f'" < Noton! hilondW r s sysb ms,]youiwifolwags=ttry%fal%h %c i slte quotosh(cmdc \-i, a:enptdhsewifolcauet ,"\blems. T', al< fold,a= to-pdifntrm | en\ )|. ============================================================================== PROJECT EXAMPLE FILE l *."\r"st-exazp W* H ans xazp Wl~/.vim."\r"st.' ile: > :pr1 My = '') =~/c/."\r"st CD=. in=On.vim)te(ite(.vim: let r { 2 l akel 3 elsn.vim 4 e(.vim 5 GUI\wipe,=. o.\{-}"gui*.c gui*.h"]{ 6 l gui r . e7 l gui dialog. e8 l gui ame. e9 l gui.h /cl # Headc al l 10 } 11 Databaet wipe,=. o.\{-}" *.c *.h"]{ 12 l _ d. 13 l _writ\. 14 l .h 15 } 16 lOS-Spec2(lc wipe,]{ 17 l W r32=. o.\{-}"os r32*.c os r32*.h"]{ 18 l os r32_gui. 19 l os r32_io. 20 } 21 Unix=. o.\{-}"os unix*.c os unix*.h"]{ 22 l os unix_gui. 23 l os unix_io. 24 } 25 } 26 } (D Extrty> -i, a:en != elenamlsh(c " s cm.) ============================================================================== TIPS ON USING PROJECT PLUGIN *."\r"st-tips* 1. Youirectc "'.a= '') ' ,byi= c*\lteeimis: > Label=~/w 5Ge CD=. o.\{-}"*.c *.h"]{ } es(linT youirectpdifntry'') at 1) if plins \\. d t ]*\ nwifolfifo elsntup() s (Ched a a: ry(aet) s xe hode fo ')cmdyou.n( a=c elsquivarent_co'\cednamndifany dfalogm.]:2. Youirectedit 1) = '') 'F ifany sive -1)add,nrcloldticmdt ordc al s elsntup()= '') '1's . 3. If estotl W r (e5Ge g def li,lyouirectjusti= c*\)> := '') < el '\brlteeit r ckn.') !. (Youi Extrneedntorgold,at et yed a sub;call . plug !nrclenamls.) . If youi all 'm' r lees ef_v :OpenEntry(lint youiget 1) = '') . W ifin\chshwhiame)') !nbytplinsltee|CTRL-W_o|.n h(c " s cm,ewifo lSolute" onz dw r s ! hilca ,belo hile ge'') a= y2(ain. 4. iAdopteeed a !o'.a= '') 'a= veryd ley ifo)add,n)cmd xazp W, sll 'medi.c' ! s: o.entoreachdlev " , justietsert et yed a sublsntup()= '') ' ,t ! s:hat - neit. 5.e W |quickfix|elitoshed a ,wlet imy2(asquivarent_co'plinsltee- ! s:eled a subalsocall this funcnwifoly2(abey( a gedn all t ]*\ s) ifoly2( ! s:beytun.e(If.I" s if ak=(e a= o wicm,eI