-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
7d36786
commit 6f7e7c1
Showing
2 changed files
with
124 additions
and
13 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,15 +1,114 @@ | ||
| " Vim indent file | ||
| " Language: Kynetx Rule Language (KRL) | ||
| " Maintainer: AKO & JAM | ||
| " Last Change: 2010 September 1 | ||
| " Last Change: 2012 November 1 | ||
|
|
||
| echo "Loaded file" | ||
|
|
||
| " Only load this indent file when no other was loaded. | ||
| "if exists("b:did_indent") | ||
| if exists("b:did_indent") | ||
| "finish | ||
| "endif | ||
| "let b:did_indent = 1 | ||
| endif | ||
| " let b:did_indent = 1 | ||
|
|
||
| " C indenting is not too bad. | ||
| "setlocal cindent | ||
| " I've decided to no longer do cindenting. JAM 11/01/2012 | ||
| " setlocal cindentmman | ||
|
|
||
| echo "function assignment" | ||
| setlocal indentexpr=GetKRLIndent(v:lnum) | ||
|
|
||
| if exists("*GetKRLIndent") | ||
| "finish | ||
| endif | ||
|
|
||
|
|
||
| function! s:GetPrevKRLNonCommentLineNum( line_num ) | ||
| let SKIP_LINES = '^\s*\(\((\*\)\|\(\*\ \)\|\(\*)\)\)' | ||
|
|
||
| let nline = a:line_num | ||
| while nline > 0 | ||
| let nline = prevnonblank(nline-1) | ||
| if getline(nline) !~? SKIP_LINES | ||
| break | ||
| endif | ||
| endwhile | ||
|
|
||
| return nline | ||
| endfunction | ||
|
|
||
| echo "function definition" | ||
| function! GetKRLIndent( line_num ) | ||
| echo "Loaded line: ".a:line_num | ||
| " Line 0 always starts at column 0 | ||
| if a:line_num == 1 | ||
| echo "First line, is 0" | ||
| return 0 | ||
| endif | ||
|
|
||
| let this_codeline = getline( a:line_num ) | ||
|
|
||
| " If in the middle of a three-part comment (i.e. \* */) | ||
| if this_codeline =~ '^\s*\*' | ||
| echo "Is part of a three line comment" | ||
| return indent( a:line_num ) | ||
| endif | ||
|
|
||
| let prev_codeline_num = s:GetPrevKRLNonCommentLineNum( a:line_num ) | ||
| let prev_codeline = getline( prev_codeline_num ) | ||
| let indnt = indent ( prev_codeline_num ) | ||
|
|
||
| echo "Previous line number: ".prev_codeline_num." and previous indent: ".indnt | ||
|
|
||
| " Rules, meta, and global blocks all have exactly one indent | ||
| if this_codeline =~ '^\s*\<\(meta\|global\|rule\|dispatch\)\>' | ||
| echo "Begins with meta, global, or rule" | ||
| return &shiftwidth | ||
| endif | ||
|
|
||
| if this_codeline =~ '^\s*\<\(name\|description\|author\|logging\|use\|provides\)\>' | ||
| echo "Is the author, description, etc" | ||
| if prev_codeline =~ '^\s*\<\(meta\|global\|rule\|dispatch\)\>' | ||
| echo "Was right after meta, global, or rule" | ||
| return indnt + &shiftwidth | ||
| else | ||
| echo "Was not right after meta, global, or rule" | ||
| return indnt | ||
| endif | ||
| endif | ||
|
|
||
| " If the previous line ends in { or << increase the indent | ||
| if prev_codeline =~ '\s*\({\|<<\)\s*$' | ||
| echo "Previous was an open brace or open heredoc" | ||
| return indnt + &shiftwidth | ||
| endif | ||
|
|
||
| " If this line ends in } or >>, decrease the indent | ||
| if this_codeline =~ '^\s*\(}\|>>\);\?$' | ||
| echo "This line is a close brace or close heredoc" | ||
| return indnt - &shiftwidth | ||
| endif | ||
|
|
||
| " These two rules handle the indentation of with/and. | ||
| " The first handles the case where with/and is on this line, | ||
| " and the second handles the case where it was on the previous line. | ||
| " Since the previous line unindent case comes after the return, | ||
| " this should work correctly. | ||
| if this_codeline =~ '^\s*\<with\>' | ||
| return indnt + &shiftwidth | ||
| endif | ||
|
|
||
| if prev_codeline =~ '^\s*\<configure\>' | ||
| echo "Previous line was configure" | ||
| if this_codeline =~ '^\s*\<and\>' | ||
| return indnt + &shiftwidth | ||
| endif | ||
| endif | ||
|
|
||
| if prev_codeline =~ '^\s*\<with\|and\>' | ||
| return indnt - &shiftwidth | ||
| end | ||
|
|
||
| "let b:undo_indent = "setl cin<" | ||
| "If all else fails, just return the previous line's indentation | ||
| return indnt | ||
| endfunction |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters