neovim 0.7.0 → 0.7.1

data/spec/acceptance/runtime/vader.vim/autoload/vader/assert.vim

@@ -1,116 +0,0 @@
-" Copyright (c) 2013 Junegunn Choi
-"
-" MIT License
-"
-" Permission is hereby granted, free of charge, to any person obtaining
-" a copy of this software and associated documentation files (the
-" "Software"), to deal in the Software without restriction, including
-" without limitation the rights to use, copy, modify, merge, publish,
-" distribute, sublicense, and/or sell copies of the Software, and to
-" permit persons to whom the Software is furnished to do so, subject to
-" the following conditions:
-"
-" The above copyright notice and this permission notice shall be
-" included in all copies or substantial portions of the Software.
-"
-" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-
-let s:assertions = [0, 0]
-
-let s:type_names = {
-      \ 0: 'Number',
-      \ 1: 'String',
-      \ 2: 'Funcref',
-      \ 3: 'List',
-      \ 4: 'Dictionary',
-      \ 5: 'Float',
-      \ 6: 'Boolean',
-      \ 7: 'Null' }
-
-function! vader#assert#reset()
-  let s:assertions = [0, 0]
-endfunction
-
-function! vader#assert#stat()
-  return s:assertions
-endfunction
-
-function! vader#assert#true(...)
-  let s:assertions[1] += 1
-
-  if a:0 == 1
-    let [expr, message] = [a:1, "Assertion failure"]
-  elseif a:0 == 2
-    let [expr, message] = a:000
-  else
-    throw 'Invalid number of arguments'
-  endif
-
-  if !expr
-    throw message
-  endif
-  let s:assertions[0] += 1
-  return 1
-endfunction
-
-function! s:check_types(...)
-  let [Exp, Got] = a:000[0:1]
-  if type(Exp) !=# type(Got)
-    throw get(a:000, 2, printf("type mismatch: %s (%s) should be equal to %s (%s)",
-          \ string(Got), get(s:type_names, type(Got), type(Got)),
-          \ string(Exp), get(s:type_names, type(Exp), type(Exp))))
-  endif
-endfunction
-
-function! vader#assert#equal(...)
-  let [Exp, Got] = a:000[0:1]
-  let s:assertions[1] += 1
-
-  call s:check_types(Exp, Got)
-  if Exp !=# Got
-    let type = type(Exp)
-    let msg = (type == type({}) || type == type([]))
-          \ ? printf("Unequal %ss\n      %%s should be equal to \n      %%s", get(s:type_names, type))
-          \ : "%s should be equal to %s"
-    throw get(a:000, 2, printf(msg, string(Got), string(Exp)))
-  endif
-  let s:assertions[0] += 1
-  return 1
-endfunction
-
-function! vader#assert#not_equal(...)
-  let [Exp, Got] = a:000[0:1]
-  let s:assertions[1] += 1
-
-  call s:check_types(Exp, Got)
-  if Exp ==# Got
-    throw get(a:000, 2, printf("%s should not be equal to %s", string(Got), string(Exp)))
-  endif
-  let s:assertions[0] += 1
-  return 1
-endfunction
-
-function! vader#assert#throws(exp)
-  let s:assertions[1] += 1
-
-  let ok = 0
-  try
-    execute a:exp
-  catch
-    let g:vader_exception = v:exception
-    let g:vader_throwpoint = v:throwpoint
-    let ok = 1
-  endtry
-
-  let s:assertions[0] += ok
-  if ok | return 1
-  else  | throw 'Exception expected but not raised: '.a:exp
-  endif
-endfunction

data/spec/acceptance/runtime/vader.vim/autoload/vader/helper.vim

@@ -1,43 +0,0 @@
-function! vader#helper#syntax_at(...)
-  if a:0 < 2
-    let l:pos = getpos('.')
-    let l:cur_lnum = pos[1]
-    let l:cur_col = pos[2]
-    if a:0 == 0
-      let l:lnum = l:cur_lnum
-      let l:col = l:cur_col
-    else
-      let l:lnum = l:cur_lnum
-      let l:col = a:1
-    endif
-  else
-    let l:lnum = a:1
-    let l:col = a:2
-  endif
-  return synIDattr(synID(l:lnum, l:col, 1), 'name')
-endfunction
-
-function! vader#helper#syntax_of(pattern, ...)
-  if a:0 < 1
-    let l:nth = 1
-  else
-    let l:nth = a:1
-  endif
-
-  let l:pos_init = getpos('.')
-  call cursor(1, 1)
-  let found = search(a:pattern, 'cW')
-  while found != 0 && nth > 1
-    let found = search(a:pattern, 'W')
-    let nth -= 1
-  endwhile
-
-  if found
-    let l:pos = getpos('.')
-    let l:output = vader#helper#syntax_at(l:pos[1], l:pos[2])
-  else
-    let l:output = ''
-  endif
-  call setpos('.', l:pos_init)
-  return l:output
-endfunction

data/spec/acceptance/runtime/vader.vim/autoload/vader/parser.vim

@@ -1,179 +0,0 @@
-" Copyright (c) 2013 Junegunn Choi
-"
-" MIT License
-"
-" Permission is hereby granted, free of charge, to any person obtaining
-" a copy of this software and associated documentation files (the
-" "Software"), to deal in the Software without restriction, including
-" without limitation the rights to use, copy, modify, merge, publish,
-" distribute, sublicense, and/or sell copies of the Software, and to
-" permit persons to whom the Software is furnished to do so, subject to
-" the following conditions:
-"
-" The above copyright notice and this permission notice shall be
-" included in all copies or substantial portions of the Software.
-"
-" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-function! vader#parser#parse(fn, line1, line2)
-  return s:parse_vader(s:read_vader(a:fn, a:line1, a:line2), a:line1)
-endfunction
-
-function! s:flush_buffer(cases, case, fn, lnum, raw, label, newlabel, buffer, final)
-  let is_validation = index(['then', 'expect'], a:newlabel) >= 0
-  let fpos = a:fn.':'.a:lnum
-
-  if empty(a:label)
-    if is_validation
-      echoerr 'Expect/Then should not appear before Do/Execute ('.fpos.')'
-    endif
-  else
-    let rev = reverse(copy(a:buffer))
-    while len(rev) > 0 && empty(rev[0])
-      call remove(rev, 0)
-    endwhile
-
-    let data = map(reverse(rev), (a:case.raw ? 'v:val' : 'strpart(v:val, 2)'))
-    let a:case[a:label] = data
-    if !empty(a:buffer)
-      call remove(a:buffer, 0, -1)
-    endif
-
-    let fulfilled = has_key(a:case, 'do') || has_key(a:case, 'execute')
-    if is_validation
-      if !fulfilled
-        echoerr 'Expect/Then should not appear before Do/Execute ('.fpos.')'
-      endif
-      if has_key(a:case, a:newlabel)
-        echoerr 'Expect/Then should appear only once for each Do/Execute ('.fpos.')'
-      endif
-    endif
-
-    if a:final ||
-     \ a:newlabel == 'given' ||
-     \ index(['before', 'after', 'do', 'execute'], a:newlabel) >= 0 && fulfilled
-      call add(a:cases, deepcopy(a:case))
-      let new = { 'comment': {}, 'lnum': a:lnum, 'pending': 0 }
-      if !empty(get(a:case, 'type', ''))
-        let new.type = a:case.type " To reuse Given block with type
-      endif
-      call extend(filter(a:case, '0'), new)
-    endif
-  endif
-  let a:case.raw = a:raw
-endfunction
-
-function! s:read_vader(fn, line1, line2)
-  let remains   = readfile(a:fn)[a:line1 - 1 : a:line2 - 1]
-  let lnum      = a:line1
-  let lines     = []
-  let reserved  = 0
-  let depth     = 0 " Not a strict depth
-  let max_depth = 10
-
-  while len(remains) > 0
-    let line = remove(remains, 0)
-    let m = matchlist(line, '^Include\(\s*(.*)\s*\)\?:\s*\(.\{-}\)\s*$')
-    if !empty(m)
-      let file = findfile(m[2], fnamemodify(a:fn, ':h'))
-      if empty(file)
-        echoerr "Cannot find ".m[2]
-      endif
-      if reserved > 0
-        let depth += 1
-        if depth >= max_depth
-          echoerr 'Recursive inclusion limit exceeded'
-        endif
-        let reserved -= 1
-      endif
-      let included = readfile(file)
-      let reserved += len(included)
-      call extend(remains, included, 0)
-      continue
-    end
-
-    call add(lines, [a:fn, lnum, line])
-    if reserved > 0
-      let reserved -= 1
-    end
-    if reserved == 0
-      let depth = 0
-      let lnum += 1
-    endif
-  endwhile
-
-  return lines
-endfunction
-
-function! s:parse_vader(lines, line1)
-  let label    = ''
-  let newlabel = ''
-  let buffer   = []
-  let cases    = []
-  let case     = { 'lnum': a:line1, 'comment': {}, 'pending': 0, 'raw': 0 }
-
-  for [fn, lnum, line] in a:lines
-    " Comment / separators
-    if !case.raw && line =~ '^[#"=~*^-]'
-      continue
-    endif
-
-    let matched = 0
-    for l in ['Before', 'After', 'Given', 'Execute', 'Expect', 'Do', 'Then']
-      let m = matchlist(line, '^'.l.'\%(\s\+\([^:;(]\+\)\)\?\s*\%((\(.*\))\)\?\s*\([:;]\)\s*$')
-      if !empty(m)
-        let newlabel = tolower(l)
-        call s:flush_buffer(cases, case, fn, lnum, m[3] == ';', label, newlabel, buffer, 0)
-
-        let label   = newlabel
-        let arg     = m[1]
-        let comment = m[2]
-        if !empty(arg)
-          if     l == 'Given'   | let case.type    = arg
-          elseif l == 'Execute' | let case.lang_if = arg
-          end
-        elseif l == 'Given'
-          let case.type = ''
-        endif
-        if !empty(comment)
-          let case.comment[tolower(l)] = comment
-          if index(['do', 'execute'], label) >= 0 &&
-                \ comment =~# '\<TODO\>\|\<FIXME\>'
-            let case.pending = 1
-          endif
-        endif
-        let matched = 1
-        break
-      endif
-    endfor
-    if matched | continue | endif
-
-    " Continuation
-    if !empty(line) && !case.raw && line !~ '^  '
-      throw 'Syntax error (line does not start with two spaces): ' . line
-    endif
-    if !empty(label)
-      call add(buffer, line)
-    endif
-  endfor
-  call s:flush_buffer(cases, case, fn, lnum, case.raw, label, '', buffer, 1)
-
-  let ret = []
-  let prev = {}
-  for case in cases
-    if has_key(case, "do") || has_key(case, "execute")
-      call add(ret, extend(prev, case))
-      let prev = {}
-    else
-      let prev = case
-    endif
-  endfor
-  return ret
-endfunction
-

data/spec/acceptance/runtime/vader.vim/autoload/vader/syntax.vim

@@ -1,73 +0,0 @@
-" Copyright (c) 2014 Junegunn Choi
-"
-" MIT License
-"
-" Permission is hereby granted, free of charge, to any person obtaining
-" a copy of this software and associated documentation files (the
-" "Software"), to deal in the Software without restriction, including
-" without limitation the rights to use, copy, modify, merge, publish,
-" distribute, sublicense, and/or sell copies of the Software, and to
-" permit persons to whom the Software is furnished to do so, subject to
-" the following conditions:
-"
-" The above copyright notice and this permission notice shall be
-" included in all copies or substantial portions of the Software.
-"
-" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-let s:ifs = ['lua', 'perl', 'ruby', 'python']
-
-function! vader#syntax#reset()
-  let b:vader_types = {}
-endfunction
-
-function! vader#syntax#include(l1, l2)
-  let lines = filter(getline(a:l1, a:l2), '!empty(v:val) && v:val[0] != " "')
-  for line in lines
-    let match = matchlist(line, '^\(Given\|Expect\|Execute\)\s\+\([^:; (]\+\)')
-    if len(match) >= 3
-      silent! call s:load(match[2])
-    endif
-  endfor
-endfunction
-
-function! vader#syntax#_head()
-  return '\(\(^\(Given\|Expect\|Do\|Execute\|Then\|Before\|After\)\(\s\+[^:;(]\+\)\?\s*\((.*)\)\?\s*[:;]\s*$\)\|\(^Include\(\s*(.*)\)\?\s*:\)\)\@='
-endfunction
-
-function! s:load(type)
-  let b:vader_types = get(b:, 'vader_types', {})
-  if has_key(b:vader_types, a:type)
-    return
-  endif
-
-  if empty(globpath(&rtp, "syntax/".a:type.".vim", 1))
-    return
-  endif
-
-  let b:vader_types[a:type] = 1
-
-  unlet! b:current_syntax
-  execute printf('syn include @%sSnippet syntax/%s.vim', a:type, a:type)
-  execute printf('syn region vader_%s start=/^\s\{2,}/ end=/^\S\@=/ contains=@%sSnippet contained', a:type, a:type)
-  execute printf('syn region vader_raw_%s start=/\(;\s*$\)\@<=/ end=/%s/ contains=@%sSnippet contained', a:type, vader#syntax#_head(), a:type)
-
-  call s:define_syntax_region('Given', a:type)
-  call s:define_syntax_region('Expect', a:type)
-  if index(s:ifs, a:type) >= 0
-    call s:define_syntax_region('Execute', a:type)
-  endif
-  let b:current_syntax = 'vader'
-endfunction
-
-function! s:define_syntax_region(block, lang)
-  execute printf('syn region vader%s start=/^%s\s\+%s\s*\((.*)\)\?\s*:\s*$/ end=/\(^[^ ^#~=*-]\)\@=/ contains=vader%sType,vaderMessage,@vaderIgnored,vader_%s nextgroup=@vaderTopLevel skipempty keepend', a:block, a:block, a:lang, a:block, a:lang)
-  execute printf('syn region vader%sRaw start=/^%s\s\+%s\s*\((.*)\)\?\s*;\s*$/ end=/%s/ contains=vader%sType,vaderMessage,@vaderIgnored,vader_raw_%s nextgroup=@vaderTopLevel skipempty keepend', a:block, a:block, a:lang, vader#syntax#_head(), a:block, a:lang)
-endfunction
-

data/spec/acceptance/runtime/vader.vim/autoload/vader/window.vim

@@ -1,205 +0,0 @@
-" Copyright (c) 2013 Junegunn Choi
-"
-" MIT License
-"
-" Permission is hereby granted, free of charge, to any person obtaining
-" a copy of this software and associated documentation files (the
-" "Software"), to deal in the Software without restriction, including
-" without limitation the rights to use, copy, modify, merge, publish,
-" distribute, sublicense, and/or sell copies of the Software, and to
-" permit persons to whom the Software is furnished to do so, subject to
-" the following conditions:
-"
-" The above copyright notice and this permission notice shall be
-" included in all copies or substantial portions of the Software.
-"
-" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-let s:quickfix_bfr  = 0
-let s:console_bfr   = 0
-let s:console_tab   = 0
-let s:workbench_tab = 0
-let s:workbench_bfr = 0
-
-function! s:switch_to_console()
-  execute 'normal! '.s:console_tab.'gt'
-  call append(line('$') - 1, s:console_buffered)
-  let s:console_buffered = []
-endfunction
-
-function! s:switch_to_workbench()
-  execute 'normal! '.s:workbench_tab.'gt'
-  execute 'b!' s:workbench_bfr
-endfunction
-
-function! vader#window#open()
-  execute 'silent! bd' s:console_bfr
-  execute 'silent! bd' s:workbench_bfr
-  if bufexists(s:quickfix_bfr)
-    execute "silent! bd ".s:quickfix_bfr
-  endif
-
-  let s:prev_winid = exists('*win_getid') ? win_getid() : 0
-  tabnew
-  setlocal buftype=nofile noswapfile nospell
-  setf vader-result
-  silent f \[Vader\]
-  let s:console_tab = tabpagenr()
-  let s:console_bfr = bufnr('')
-  let s:console_buffered = []
-  let b:vader_data = {}
-  nnoremap <silent> <buffer> <CR> :call <SID>action(line('.'))<CR>
-
-  tabnew
-  setlocal buftype=nofile
-  setlocal noswapfile
-  silent f \[Vader-workbench\]
-  let s:workbench_tab = tabpagenr()
-  let s:workbench_bfr = bufnr('')
-endfunction
-
-function! vader#window#execute(lines, lang_if)
-  let temp = tempname()
-  try
-    if empty(a:lang_if)
-      let lines = a:lines
-    else
-      let lines = copy(a:lines)
-      call insert(lines, a:lang_if . ' << __VADER__LANG__IF__')
-      call add(lines, '__VADER__LANG__IF__')
-    endif
-    call writefile(lines, temp)
-    execute 'source '.temp
-  finally
-    call delete(temp)
-  endtry
-endfunction
-
-function! vader#window#replay(lines)
-  call setreg('x', substitute(join(a:lines, ''), '\\<[^>]\+>', '\=eval("\"".submatch(0)."\"")', 'g'), 'c')
-  normal! @x
-endfunction
-
-function! vader#window#result()
-  return getline(1, line('$'))
-endfunction
-
-function! vader#window#append(message, indent, ...)
-  let message = repeat('  ', a:indent) . a:message
-  if get(a:, 1, 1)
-    let message = substitute(message, '\s*$', '', '')
-  endif
-  if !exists('s:console_buffered')
-    echom 'Vader:' message
-    return 0
-  endif
-  call add(s:console_buffered, message)
-  return len(s:console_buffered)
-endfunction
-
-function! vader#window#prepare(lines, type)
-  call s:switch_to_workbench()
-  execute 'setlocal modifiable filetype='.a:type
-
-  silent %d _
-  for line in a:lines
-    call append(line('$') - 1, line)
-  endfor
-  silent d _
-  execute "normal! \<c-\>\<c-n>gg0"
-
-  let &undolevels = &undolevels " Break undo block
-endfunction
-
-function! vader#window#cleanup()
-  execute 'silent! bd' s:workbench_bfr
-  call s:switch_to_console()
-  setlocal nomodifiable
-  nnoremap <silent> <buffer> q :call <SID>quit()<CR><CR>
-  normal! Gzb
-endfunction
-
-function! vader#window#copen()
-  copen
-  let s:quickfix_bfr = bufnr('')
-  1wincmd w
-  normal! Gzb
-  2wincmd w
-  nnoremap <silent> <buffer> q :call <SID>quit()<CR><CR>
-  nnoremap <silent> <buffer> <CR> :call <SID>move()<CR><CR>
-endfunction
-
-function! vader#window#set_data(l1, l2, data)
-  try
-    let var = getbufvar(s:console_bfr, 'vader_data', {})
-    for l in range(a:l1, a:l2)
-      let var[l] = a:data
-    endfor
-    call setbufvar(s:console_bfr, 'vader_data', var)
-  catch
-  endtry
-endfunction
-
-function! s:scratch(type, data, title)
-  setlocal buftype=nofile bufhidden=wipe nobuflisted noswapfile nowrap modifiable
-  silent! execute 'setf '.a:type
-  call append(0, a:data)
-  nnoremap <silent> <buffer> q :tabclose<cr>
-  autocmd TabLeave <buffer> tabclose
-
-  execute 'silent f '.escape(a:title, '[]')
-  normal! G"_ddgg
-  diffthis
-  setlocal nomodifiable
-endfunction
-
-function! s:action(line)
-  if has_key(b:vader_data, a:line)
-    let data = b:vader_data[a:line]
-    if has_key(data, 'expect')
-      tabnew
-      call s:scratch(data.type, data.expect, '[Vader-expected]')
-
-      vertical botright new
-      call s:scratch(data.type, data.got, '[Vader-got]')
-
-      redraw
-      echo "Press 'q' to close"
-    endif
-  else
-    execute "normal! \<CR>"
-  endif
-endfunction
-
-function! s:move()
-  let lno = matchstr(getline('.'), '(#[0-9]\+)')[2:-2]
-  let wq = winnr()
-  let wc = bufwinnr(s:console_bfr)
-  if wc >= 0
-    execute wc . 'wincmd w'
-    let scrolloff = &scrolloff
-    set scrolloff=0
-    execute lno
-    normal! zt
-    redraw
-    let &scrolloff = scrolloff
-    execute wq . 'wincmd w'
-  endif
-endfunction
-
-function! s:quit()
-  if s:prev_winid
-    let [s:t, s:w] = win_id2tabwin(s:prev_winid)
-    if s:t
-      execute printf('tabnext %d | %dwincmd w | %dtabclose', s:t, s:w, s:console_tab)
-      return
-    endif
-  endif
-  tabclose
-endfunction