mirror of
https://github.com/neovim/neovim.git
synced 2024-12-29 14:41:06 -07:00
a98a6996c2
Vim runtime files based on 7.4.384 / hg changeset 7090d7f160f7
Excluding:
Amiga icons (*.info, icons/)
doc/hangulin.txt
tutor/
spell/
lang/ (only used for menu translations)
macros/maze/, macros/hanoi/, macros/life/, macros/urm/
These were used to test vi compatibility.
termcap
"Demonstration of a termcap file (for the Amiga and Archimedes)"
Helped-by: Rich Wareham <rjw57@cam.ac.uk>
Helped-by: John <john.schmidt.h@gmail.com>
Helped-by: Yann <yann@yann-salaun.com>
Helped-by: Christophe Badoit <c.badoit@lesiteimmo.com>
Helped-by: drasill <github@tof2k.com>
Helped-by: Tae Sandoval Murgan <taecilla@gmail.com>
Helped-by: Lowe Thiderman <lowe.thiderman@gmail.com>
76 lines
1.6 KiB
VimL
76 lines
1.6 KiB
VimL
" Vim indent file
|
|
" Language: Tcl
|
|
" Maintainer: Nikolai Weibull <now@bitwi.se>
|
|
" Latest Revision: 2006-12-20
|
|
|
|
if exists("b:did_indent")
|
|
finish
|
|
endif
|
|
let b:did_indent = 1
|
|
|
|
setlocal indentexpr=GetTclIndent()
|
|
setlocal indentkeys=0{,0},!^F,o,O,0]
|
|
setlocal nosmartindent
|
|
|
|
if exists("*GetTclIndent")
|
|
finish
|
|
endif
|
|
|
|
function s:prevnonblanknoncomment(lnum)
|
|
let lnum = prevnonblank(a:lnum)
|
|
while lnum > 0
|
|
let line = getline(lnum)
|
|
if line !~ '^\s*\(#\|$\)'
|
|
break
|
|
endif
|
|
let lnum = prevnonblank(lnum - 1)
|
|
endwhile
|
|
return lnum
|
|
endfunction
|
|
|
|
function s:count_braces(lnum, count_open)
|
|
let n_open = 0
|
|
let n_close = 0
|
|
let line = getline(a:lnum)
|
|
let pattern = '[{}]'
|
|
let i = match(line, pattern)
|
|
while i != -1
|
|
if synIDattr(synID(a:lnum, i + 1, 0), 'name') !~ 'tcl\%(Comment\|String\)'
|
|
if line[i] == '{'
|
|
let n_open += 1
|
|
elseif line[i] == '}'
|
|
if n_open > 0
|
|
let n_open -= 1
|
|
else
|
|
let n_close += 1
|
|
endif
|
|
endif
|
|
endif
|
|
let i = match(line, pattern, i + 1)
|
|
endwhile
|
|
return a:count_open ? n_open : n_close
|
|
endfunction
|
|
|
|
function GetTclIndent()
|
|
let line = getline(v:lnum)
|
|
if line =~ '^\s*\*'
|
|
return cindent(v:lnum)
|
|
elseif line =~ '^\s*}'
|
|
return indent(v:lnum) - &sw
|
|
endif
|
|
|
|
let pnum = s:prevnonblanknoncomment(v:lnum - 1)
|
|
if pnum == 0
|
|
return 0
|
|
endif
|
|
|
|
let ind = indent(pnum) + s:count_braces(pnum, 1) * &sw
|
|
|
|
let pline = getline(pnum)
|
|
if pline =~ '}\s*$'
|
|
let ind -= (s:count_braces(pnum, 0) - (pline =~ '^\s*}' ? 1 : 0)) * &sw
|
|
endif
|
|
|
|
return ind
|
|
endfunction
|