codekingpro/portable-devtools

1" Vim indent file2" Language:	SDL3" Maintainer:	Michael Piefel <entwurf@piefel.de>4" Last Change:	2021 Oct 035 6" Shamelessly stolen from the Vim-Script indent file7 8" Only load this indent file when no other was loaded.9if exists("b:did_indent")10  finish11endif12let b:did_indent = 113 14setlocal indentexpr=GetSDLIndent()15setlocal indentkeys+==~end,=~state,*<Return>16 17let b:undo_indent = "setl inde< indk<"18 19" Only define the function once.20if exists("*GetSDLIndent")21"  finish22endif23 24let s:cpo_save = &cpo25set cpo&vim26 27function! GetSDLIndent()28  " Find a non-blank line above the current line.29  let lnum = prevnonblank(v:lnum - 1)30 31  " At the start of the file use zero indent.32  if lnum == 033    return 034  endif35 36  let ind = indent(lnum)37  let virtuality = '^\s*\(\(virtual\|redefined\|finalized\)\s\+\)\=\s*'38 39  " Add a single space to comments which use asterisks40  if getline(lnum) =~ '^\s*\*'41    let ind = ind - 142  endif43  if getline(v:lnum) =~ '^\s*\*'44    let ind = ind + 145  endif46 47  " Add a 'shiftwidth' after states, different blocks, decision (and alternatives), inputs48  if (getline(lnum) =~? '^\s*\(start\|state\|system\|package\|connection\|channel\|alternative\|macro\|operator\|newtype\|select\|substructure\|decision\|generator\|refinement\|service\|method\|exceptionhandler\|asntype\|syntype\|value\|(.*):\|\(priority\s\+\)\=input\|provided\)'49    \ || getline(lnum) =~? virtuality . '\(process\|procedure\|block\|object\)')50    \ && getline(lnum) !~? 'end[[:alpha:]]\+;$'51    let ind = ind + shiftwidth()52  endif53 54  " Subtract a 'shiftwidth' after states55  if getline(lnum) =~? '^\s*\(stop\|return\>\|nextstate\)'56    let ind = ind - shiftwidth()57  endif58 59  " Subtract a 'shiftwidth' on on end (uncompleted line)60  if getline(v:lnum) =~? '^\s*end\>'61    let ind = ind - shiftwidth()62  endif63 64  " Put each alternatives where the corresponding decision was65  if getline(v:lnum) =~? '^\s*\((.*)\|else\):'66    normal k67    let ind = indent(searchpair('^\s*decision', '', '^\s*enddecision', 'bW',68      \ 'synIDattr(synID(line("."), col("."), 0), "name") =~? "sdlString"'))69  endif70 71  " Put each state where the preceding state was72  if getline(v:lnum) =~? '^\s*state\>'73    let ind = indent(search('^\s*start', 'bW'))74  endif75 76  " Systems and packages are always in column 077  if getline(v:lnum) =~? '^\s*\(\(end\)\=system\|\(end\)\=package\)'78    return 079  endif80 81  " Put each end* where the corresponding begin was82  if getline(v:lnum) =~? '^\s*end[[:alpha:]]'83    normal k84    let partner=matchstr(getline(v:lnum), '\(' . virtuality . 'end\)\@<=[[:alpha:]]\+')85    let ind = indent(searchpair(virtuality . partner, '', '^\s*end' . partner, 'bW',86      \ 'synIDattr(synID(line("."), col("."), 0), "name") =~? "sdlString"'))87  endif88 89  return ind90endfunction91 92let &cpo = s:cpo_save93unlet s:cpo_save94 95" vim:sw=296