diff options
| author | Jérémy Zurcher <jeremy@asynk.ch> | 2022-03-07 14:43:44 +0100 |
|---|---|---|
| committer | Jérémy Zurcher <jeremy@asynk.ch> | 2022-03-07 14:43:44 +0100 |
| commit | cbcab8684e06379c9f5c51cfc9cac68d8684fe0c (patch) | |
| tree | d03b04e9a7f8e3aae70e590953408f90deed077c /indent/indent_pir.vim | |
| parent | 721a7ea65d23e7b149ba73968a1d75727a55b390 (diff) | |
| download | vim-cbcab8684e06379c9f5c51cfc9cac68d8684fe0c.zip vim-cbcab8684e06379c9f5c51cfc9cac68d8684fe0c.tar.gz | |
move to old
Diffstat (limited to 'indent/indent_pir.vim')
| -rw-r--r-- | indent/indent_pir.vim | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/indent/indent_pir.vim b/indent/indent_pir.vim deleted file mode 100644 index 29dd9f6..0000000 --- a/indent/indent_pir.vim +++ /dev/null @@ -1,75 +0,0 @@ -" Description: imcc indenter -" Author: Andrew Rodland <arodland@entermail.net> -" Last Change: 2004 Aug 3 - -" As usual, we want to be alone -if exists("b:did_indent") - finish -endif -let b:did_indent=1 - -setlocal indentexpr=PIRIndent() -setlocal indentkeys=o,O,*<Return>,<bs>,:,=.end,0# - -fun! InPOD(lnum) - return synIDattr(synID(a:lnum, 1, 1), "name") =~? '^myPod$\|^pod[A-Z]' -endfun - -fun! PIRIndent() - let thisline = getline(v:lnum) - - let POD_START = '^=[a-z]' - - if thisline =~? POD_START - return 0 - endif - - - if InPOD(v:lnum) - return -1 - endif - - let LABEL_OR_COMMENT = '^\s*\k\+:\s*$\|^#' - if thisline =~? LABEL_OR_COMMENT - return 0 - endif - - let lnum=v:lnum - while lnum > 0 - let lnum = prevnonblank(lnum-1) - let prevline = getline(lnum) - - if prevline !~? LABEL_OR_COMMENT - if !InPOD(lnum) - break - endif - endif - endwhile - - if lnum < 1 - return 0 - endif - - let ind = indent(lnum) - - let SUB = '^\s*\.pcc_sub\s\+\|^\s*\.sub\s\+' - let RETURNBLOCK = '\s*\.pcc_begin_return\s*$' - let END = '^\s*\.end\s*$\|^\s*\.pcc_end_return\s*$' - - if prevline =~? SUB - let ind = ind + &sw - endif - - if prevline =~? RETURNBLOCK - let ind = ind + &sw - endif - - if thisline =~? END - let ind = ind - &sw - endif - - return ind - -endfun - - |