vim-vebugger/autoload/vebugger/util.vim

"Returns the visually selected text
function! vebugger#util#get_visual_selection()
	"Shamefully stolen from http://stackoverflow.com/a/6271254/794380
	" Why is this not a built-in Vim script function?!
	let [lnum1, col1] = getpos("'<")[1:2]
	let [lnum2, col2] = getpos("'>")[1:2]
	let lines = getline(lnum1, lnum2)
	let lines[-1] = lines[-1][: col2 - (&selection == 'inclusive' ? 1 : 2)]
	let lines[0] = lines[0][col1 - 1:]
	return join(lines, "\n")
endfunction

"Prompts the user with a filtered list of process, and returns the process id
"the user selects
function! vebugger#util#selectProcessOfFile(ofFile)
	let l:fileName=fnamemodify(a:ofFile,':t')
	if has('win32')
		"Get the process data in CSV format
		let l:resultLines=split(vimproc#system('tasklist /FO csv /FI "IMAGENAME eq '.l:fileName.'"'),'\r\n\|\n\|\r')

		if l:resultLines[0]=~'\V\^INFO:'
			throw 'No matching process found'
		endif
		"Parse(sort of) the CSV:
		let l:resultLinesParsed=map(l:resultLines,'eval("[".v:val."]")')
		let l:resultLinesParsed[0][2]='Session'
		"Format for output
		let l:linesForPrinting=map(copy(l:resultLinesParsed),'v:val[1]."\t".v:val[2]."\t\t".v:val[0]')
	else
		let l:resultLines=split(vimproc#system('ps -o pid,user,comm,start,state,tt -C '.fnameescape(l:fileName)),'\r\n\|\n\|\r')
		let l:linesForPrinting=copy(l:resultLines)
	endif

	if len(l:linesForPrinting)<=1
		throw 'No matching process found'
	endif
	if &lines<len(l:linesForPrinting)
		throw 'Too many matching processes found'
	endif

	"Add numbers to the lines
	for l:i in range(1,len(l:linesForPrinting)-1)
		let l:linesForPrinting[l:i]=repeat(' ',3-len(l:i)).l:i.') '.(l:linesForPrinting[l:i])
	endfor
	"Indent the title line(since it doesn't have a number)
	let l:linesForPrinting[0]='     '.l:linesForPrinting[0]

	"Get the selection
	let l:chosenId=inputlist(l:linesForPrinting)
	if l:chosenId<1
				\|| len(l:resultLines)<=l:chosenId
		return 0
	endif

	if has('win32')
		return str2nr(l:resultLinesParsed[l:chosenId][1])
	else
		let l:chosenLine=l:resultLines[l:chosenId]
		return str2nr(matchlist(l:chosenLine,'\v^\s*\d+\)\s+(\d+)')[1])
	endif
endfunction

"Escape args(from a debugger's extra arguments) as a command line arguments
"string
function! vebugger#util#commandLineArgsForProgram(debuggerArgs)
	if has_key(a:debuggerArgs,'args')
		if type(a:debuggerArgs.args)==type([])
			return join(map(a:debuggerArgs.args,'s:argEscape(v:val)'),' ')
		elseif type(a:debuggerArgs.args)==type('')
			return a:debuggerArgs.args
		else
			return string(a:debuggerArgs.args)
		endif
	endif
endfunction

"Escape a single argument for the command line
function! s:argEscape(arg)
	if has('win32')
		return shellescape(a:arg)
	else
		return '"'.escape(a:arg,'"').'"'
	end
endfunction

"Return a tool's(usually debugger) full path, or revert to default if that
"path is not defined
function! vebugger#util#getToolFullPath(toolName,default)
	let l:optionName='vebugger_path_'.a:toolName
	if exists('g:'.l:optionName)
		return g:[l:optionName]
	else
		return a:default
	endif
endfunction