Mercurial > vim
view runtime/indent/tcsh.vim @ 22212:36af5cb8413c v8.2.1655
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Commit: https://github.com/vim/vim/commit/895a7a472d2eb4413e63cdad3213cb1ef1633458
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Sep 10 21:36:11 2020 +0200
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Problem: Cannot build with Strawberry Perl 5.32.0.
Solution: Use Perl_sv_2pvbyte_flags. (closes https://github.com/vim/vim/issues/6921)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 10 Sep 2020 21:45:03 +0200 |
parents | d0a20101ecb2 |
children | 9c221ad9634a |
line wrap: on
line source
" Vim indent file " Language: C-shell (tcsh) " Maintainer: GI <a@b.c>, where a='gi1242+vim', b='gmail', c='com' " Last Modified: Sat 10 Dec 2011 09:23:00 AM EST " Only load this indent file when no other was loaded. if exists("b:did_indent") finish endif let b:did_indent = 1 setlocal indentexpr=TcshGetIndent() setlocal indentkeys+=e,0=end,0=endsw indentkeys-=0{,0},0),:,0# " Only define the function once. if exists("*TcshGetIndent") finish endif function TcshGetIndent() " Find a non-blank line above the current line. let lnum = prevnonblank(v:lnum - 1) " Hit the start of the file, use zero indent. if lnum == 0 return 0 endif " Add indent if previous line begins with while or foreach " OR line ends with case <str>:, default:, else, then or \ let ind = indent(lnum) let line = getline(lnum) if line =~ '\v^\s*%(while|foreach)>|^\s*%(case\s.*:|default:|else)\s*$|%(<then|\\)$' let ind = ind + shiftwidth() endif if line =~ '\v^\s*breaksw>' let ind = ind - shiftwidth() endif " Subtract indent if current line has on end, endif, case commands let line = getline(v:lnum) if line =~ '\v^\s*%(else|end|endif)\s*$' let ind = ind - shiftwidth() endif return ind endfunction