SpaceVim/bundle/vim-over/autoload/vital/_over/Coaster/Search.vim

" ___vital___
" NOTE: lines between '" ___vital___' is generated by :Vitalize.
" Do not mofidify the code nor insert new lines before '" ___vital___'
function! s:_SID() abort
  return matchstr(expand('<sfile>'), '<SNR>\zs\d\+\ze__SID$')
endfunction
execute join(['function! vital#_over#Coaster#Search#import() abort', printf("return map({'region': '', '_vital_depends': '', 'pos_ignore_syntaxes': '', 'pattern_by_range': '', 'pattern_in_region': '', 'pattern_in_region_char': '', 'pattern_in_region_block': '', 'pattern_in_region_line': '', 'region_pair': '', 'pattern_in_range': '', 'count': '', 'text_by_pattern': '', '_vital_loaded': ''}, \"vital#_over#function('<SNR>%s_' . v:key)\")", s:_SID()), 'endfunction'], "\n")
delfunction s:_SID
" ___vital___
scriptencoding utf-8
let s:save_cpo = &cpo
set cpo&vim



function! s:_vital_loaded(V)
	let s:V = a:V
	let s:Buffer = s:V.import("Coaster.Buffer")
endfunction


function! s:_vital_depends()
	return [
\	]
endfunction


function! s:region(pattern, ...)
	let flag_first = get(a:, 1, "")
	let flag_last  = get(a:, 2, "")
	return [searchpos(a:pattern, flag_first), searchpos(a:pattern, flag_last)]
endfunction


function! s:region_pair(fist, last, ...)
	" todo
endfunction


function! s:pattern_in_region_char(first, last, pattern)
	if a:first == a:last
		return printf('\%%%dl\%%%dc', a:first[0], a:first[1])
	elseif a:first[0] == a:last[0]
		return printf('\%%%dl\%%>%dc\%%(%s\M\)\%%<%dc', a:first[0], a:first[1]-1, a:pattern, a:last[1]+1)
	elseif a:last[0] - a:first[0] == 1
		return  printf('\%%%dl\%%(%s\M\)\%%>%dc', a:first[0], a:pattern, a:first[1]-1)
\		. "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dc', a:last[0], a:pattern, a:last[1]+1)
	else
		return  printf('\%%%dl\%%(%s\M\)\%%>%dc', a:first[0], a:pattern, a:first[1]-1)
\		. "\\|" . printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0], a:pattern, a:last[0])
\		. "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dc', a:last[0], a:pattern, a:last[1]+1)
	endif
endfunction


" function! s:pattern_in_region_char(first, last, pattern)
" 	if a:first == a:last
" 		return printf('\%%%dl\%%%dv', a:first[0], a:first[1])
" 	elseif a:first[0] == a:last[0]
" 		return printf('\%%%dl\%%>%dv\%%(%s\M\)\%%<%dv', a:first[0], a:first[1]-1, a:pattern, a:last[1]+1)
" 	elseif a:last[0] - a:first[0] == 1
" 		return  printf('\%%%dl\%%(%s\M\)\%%>%dv', a:first[0], a:pattern, a:first[1]-1)
" \		. "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dv', a:last[0], a:pattern, a:last[1]+1)
" 	else
" 		return  printf('\%%%dl\%%(%s\M\)\%%>%dv', a:first[0], a:pattern, a:first[1]-1)
" \		. "\\|" . printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0], a:pattern, a:last[0])
" \		. "\\|" . printf('\%%%dl\%%(%s\M\)\%%<%dv', a:last[0], a:pattern, a:last[1]+1)
" 	endif
" endfunction




function! s:pattern_in_region_line(first, last, pattern)
	return printf('\%%>%dl\%%(%s\M\)\%%<%dl', a:first[0]-1, a:pattern, a:last[0]+1)
endfunction


function! s:pattern_in_region_block(first, last, pattern)
	return join(map(range(a:first[0], a:last[0]), "s:pattern_in_region_char([v:val, a:first[1]], [v:val, a:last[1]], a:pattern)"), '\|')
endfunction


function! s:pattern_in_region(wise, first, last, ...)
	let pattern = get(a:, 1, "")
	if a:wise ==# "v"
		return s:pattern_in_region_char(a:first, a:last, pattern)
	elseif a:wise ==# "V"
		return s:pattern_in_region_line(a:first, a:last, pattern)
	elseif a:wise ==# "\<C-v>"
		return s:pattern_in_region_block(a:first, a:last, pattern)
	endif
endfunction

function! s:pattern_in_range(...)
	return call("s:pattern_in_region", a:000)
endfunction


function! s:pattern_by_range(wise, first, last)
	return s:pattern_in_range(a:wise, a:first, a:last, '.\{-}')
endfunction


function! s:text_by_pattern(pattern, ...)
	let flag = get(a:, 1, "")
	let [first, last] = s:region(a:pattern, "c" . flag, "ce" . flag)
	if first == [0, 0] || last == [0, 0]
	endif
	let result = s:Buffer.get_text_from_region([0] + first + [0], [0] + last + [0], "v")
	return result
endfunction


function! s:_syntax_name(pos)
	return synIDattr(synIDtrans(synID(a:pos[0], a:pos[1], 1)), 'name')
endfunction


" log : http://lingr.com/room/vim/archives/2014/08/15#message-19938628
function! s:pos_ignore_syntaxes(pattern, syntaxes, ...)
	let old_pos = getpos(".")
	let old_view = winsaveview()
	let flag = substitute(get(a:, 1, ""), 'n', "", "g")
	try
		while 1
			let pos = searchpos(a:pattern, flag . "W")
			if pos == [0, 0] || index(a:syntaxes, s:_syntax_name(pos)) == -1
				return pos
			endif
		endwhile
	finally
		if get(a:, 1, "") =~# "n"
			call setpos(".", old_pos)
			call winrestview(old_view)
		endif
	endtry
endfunction


function! s:count(pattern)
	return matchstr(s:M.capture('%s/' . a:pattern . '//n'), '\d\+\ze')
endfunction


let &cpo = s:save_cpo
unlet s:save_cpo