view runtime/indent/teraterm.vim @ 8418:89f38c77e11e v7.4.1500

commit https://github.com/vim/vim/commit/9ef00be261115acb5bae3b3ca45c1d86a19ba2c7 Author: Bram Moolenaar <Bram@vim.org> Date: Sun Mar 6 14:58:28 2016 +0100 patch 7.4.1500 Problem: Should_free flag set to FALSE. Solution: Set it to TRUE. (Neovim 4415)
author Christian Brabandt <cb@256bit.org>
date Sun, 06 Mar 2016 15:00:05 +0100
parents b2673982c625
children 2b6654519a7c
line wrap: on
line source

" Vim indent file
" Language:	Tera Term Language (TTL)
"		Based on Tera Term Version 4.86
" Maintainer:	Ken Takata
" URL:		https://github.com/k-takata/vim-teraterm
" Last Change:	2015 Jun 4
" Filenames:	*.ttl
" License:	VIM License

if exists("b:did_indent")
  finish
endif
let b:did_indent = 1

setlocal nosmartindent
setlocal noautoindent
setlocal indentexpr=GetTeraTermIndent(v:lnum)
setlocal indentkeys=!^F,o,O,e
setlocal indentkeys+==elseif,=endif,=loop,=next,=enduntil,=endwhile

if exists("*GetTeraTermIndent")
  finish
endif

" The shiftwidth() function is relatively new.
" Don't require it to exist.
if exists('*shiftwidth')
  function s:sw() abort
    return shiftwidth()
  endfunction
else
  function s:sw() abort
    return &shiftwidth
  endfunction
endif

function! GetTeraTermIndent(lnum)
  let l:prevlnum = prevnonblank(a:lnum-1)
  if l:prevlnum == 0
    " top of file
    return 0
  endif

  " grab the previous and current line, stripping comments.
  let l:prevl = substitute(getline(l:prevlnum), ';.*$', '', '')
  let l:thisl = substitute(getline(a:lnum), ';.*$', '', '')
  let l:previ = indent(l:prevlnum)

  let l:ind = l:previ

  if l:prevl =~ '^\s*if\>.*\<then\s*$'
    " previous line opened a block
    let l:ind += s:sw()
  endif
  if l:prevl =~ '^\s*\%(elseif\|else\|do\|until\|while\|for\)\>'
    " previous line opened a block
    let l:ind += s:sw()
  endif
  if l:thisl =~ '^\s*\%(elseif\|else\|endif\|enduntil\|endwhile\|loop\|next\)\>'
    " this line closed a block
    let l:ind -= s:sw()
  endif

  return l:ind
endfunction

" vim: ts=8 sw=2 sts=2