Mercurial > vim
annotate runtime/indent/cdl.vim @ 24877:efbb82e09bcb
Added tag v8.2.2976 for changeset c4ad84c7e15fb907bd439690f213c30237b259ce
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Fri, 11 Jun 2021 22:30:04 +0200 |
| parents | 4ab4ef0c48b1 |
| children | 11b656e74444 |
| rev | line source |
|---|---|
| 7 | 1 " Description: Comshare Dimension Definition Language (CDL) |
| 2 " Author: Raul Segura Acevedo <raulseguraaceved@netscape.net> | |
| 3 " Last Change: Fri Nov 30 13:35:48 2001 CST | |
| 4 | |
| 5 if exists("b:did_indent") | |
| 6 "finish | |
| 7 endif | |
| 8 let b:did_indent = 1 | |
| 9 | |
| 10 setlocal indentexpr=CdlGetIndent(v:lnum) | |
| 11 setlocal indentkeys& | |
| 12 setlocal indentkeys+==~else,=~endif,=~then,;,),= | |
| 13 | |
| 14 " Only define the function once. | |
| 15 if exists("*CdlGetIndent") | |
| 16 "finish | |
| 17 endif | |
| 18 | |
|
10228
8a1481e59d64
commit https://github.com/vim/vim/commit/3e496b0ea31996b665824f45664dee1fdd73c4d0
Christian Brabandt <cb@256bit.org>
parents:
7
diff
changeset
|
19 " find out if an "...=..." expresion is an assignment (or a conditional) |
| 7 | 20 " it scans 'line' first, and then the previos lines |
| 21 fun! CdlAsignment(lnum, line) | |
| 22 let f = -1 | |
| 23 let lnum = a:lnum | |
| 24 let line = a:line | |
| 25 while lnum > 0 && f == -1 | |
| 26 " line without members [a] of [b]:[c]... | |
| 27 let inicio = 0 | |
| 28 while 1 | |
| 29 " keywords that help to decide | |
| 30 let inicio = matchend(line, '\c\<\(expr\|\a*if\|and\|or\|not\|else\|then\|memberis\|\k\+of\)\>\|[<>;]', inicio) | |
| 31 if inicio < 0 | |
| 32 break | |
| 33 endif | |
| 34 " it's formula if there's a ';', 'elsE', 'theN', 'enDif' or 'expr' | |
| 35 " conditional if there's a '<', '>', 'elseif', 'if', 'and', 'or', 'not', | |
| 36 " 'memberis', 'childrenof' and other \k\+of funcions | |
| 37 let f = line[inicio-1] =~? '[en;]' || strpart(line, inicio-4, 4) =~? 'ndif\|expr' | |
| 38 endw | |
| 39 let lnum = prevnonblank(lnum-1) | |
| 40 let line = substitute(getline(lnum), '\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+', ' ', 'g') | |
| 41 endw | |
| 42 " if we hit the start of the file then f = -1, return 1 (formula) | |
| 43 return f != 0 | |
| 44 endf | |
| 45 | |
| 46 fun! CdlGetIndent(lnum) | |
| 47 let thisline = getline(a:lnum) | |
| 48 if match(thisline, '^\s*\(\k\+\|\[[^]]*]\)\s*\(,\|;\s*$\)') >= 0 | |
| 49 " it's an attributes line | |
| 11518 | 50 return shiftwidth() |
| 7 | 51 elseif match(thisline, '^\c\s*\([{}]\|\/[*/]\|dimension\|schedule\|group\|hierarchy\|class\)') >= 0 |
| 52 " it's a header or '{' or '}' or a comment | |
| 53 return 0 | |
| 54 end | |
| 55 | |
| 56 let lnum = prevnonblank(a:lnum-1) | |
| 57 " Hit the start of the file, use zero indent. | |
| 58 if lnum == 0 | |
| 59 return 0 | |
| 60 endif | |
| 61 | |
| 62 " PREVIOUS LINE | |
| 63 let ind = indent(lnum) | |
| 64 let line = getline(lnum) | |
| 24278 | 65 |
| 66 " Whether a '=' is a conditional or an assignment. -1 means we don't know | |
| 67 " yet. | |
| 68 " One 'closing' element at the beginning of the line has already reduced the | |
| 69 " indent, but 'else', 'elseif' & 'then' increment it for the next line. | |
| 70 " '=' at the beginning already has the right indent (increased for | |
| 71 " asignments). | |
| 72 let f = -1 | |
| 7 | 73 let inicio = matchend(line, '^\c\s*\(else\a*\|then\|endif\|/[*/]\|[);={]\)') |
| 74 if inicio > 0 | |
| 75 let c = line[inicio-1] | |
| 76 " ')' and '=' don't change indent and are useless to set 'f' | |
| 77 if c == '{' | |
| 11518 | 78 return shiftwidth() |
| 7 | 79 elseif c != ')' && c != '=' |
| 80 let f = 1 " all but 'elseif' are followed by a formula | |
| 81 if c ==? 'n' || c ==? 'e' " 'then', 'else' | |
| 11518 | 82 let ind = ind + shiftwidth() |
| 7 | 83 elseif strpart(line, inicio-6, 6) ==? 'elseif' " elseif, set f to conditional |
| 11518 | 84 let ind = ind + shiftwidth() |
| 7 | 85 let f = 0 |
| 86 end | |
| 87 end | |
| 88 end | |
| 89 | |
| 90 " remove members [a] of [b]:[c]... (inicio remainds valid) | |
| 91 let line = substitute(line, '\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+', ' ', 'g') | |
| 92 while 1 | |
| 93 " search for the next interesting element | |
| 94 let inicio=matchend(line, '\c\<if\|endif\|[()=;]', inicio) | |
| 95 if inicio < 0 | |
| 96 break | |
| 97 end | |
| 98 | |
| 99 let c = line[inicio-1] | |
| 100 " 'expr(...)' containing the formula | |
| 101 if strpart(line, inicio-5, 5) ==? 'expr(' | |
| 102 let ind = 0 | |
| 103 let f = 1 | |
| 104 elseif c == ')' || c== ';' || strpart(line, inicio-5, 5) ==? 'endif' | |
| 11518 | 105 let ind = ind - shiftwidth() |
| 7 | 106 elseif c == '(' || c ==? 'f' " '(' or 'if' |
| 11518 | 107 let ind = ind + shiftwidth() |
| 7 | 108 else " c == '=' |
| 109 " if it is an asignment increase indent | |
| 110 if f == -1 " we don't know yet, find out | |
| 111 let f = CdlAsignment(lnum, strpart(line, 0, inicio)) | |
| 112 end | |
| 113 if f == 1 " formula increase it | |
| 11518 | 114 let ind = ind + shiftwidth() |
| 7 | 115 end |
| 116 end | |
| 117 endw | |
| 118 | |
| 119 " CURRENT LINE, if it starts with a closing element, decrease indent | |
| 120 " or if it starts with '=' (asignment), increase indent | |
| 121 if match(thisline, '^\c\s*\(else\|then\|endif\|[);]\)') >= 0 | |
| 11518 | 122 let ind = ind - shiftwidth() |
| 7 | 123 elseif match(thisline, '^\s*=') >= 0 |
| 124 if f == -1 " we don't know yet if is an asignment, find out | |
| 125 let f = CdlAsignment(lnum, "") | |
| 126 end | |
| 127 if f == 1 " formula increase it | |
| 11518 | 128 let ind = ind + shiftwidth() |
| 7 | 129 end |
| 130 end | |
| 131 | |
| 132 return ind | |
| 133 endfun |