" Vim indent file" Language:	    Tcl" Maintainer:	    Nikolai Weibull <now@bitwi.se>" Latest Revision:  2006-12-20 if exists("b:did_indent")  finishendiflet b:did_indent = 1 setlocal indentexpr=GetTclIndent()setlocal indentkeys=0{,0},!^F,o,O,0]setlocal nosmartindent if exists("*GetTclIndent")  finishendif 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 lnumendfunction 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_closeendfunction 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 indendfunction