<h2>Editing: cdl.vim</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>&quot; Description:	Comshare Dimension Definition Language (CDL)
&quot; Author:	Raul Segura Acevedo &lt;raulseguraaceved@netscape.net&gt;
&quot; Last Change:	Fri Nov 30 13:35:48  2001 CST

if exists(&quot;b:did_indent&quot;)
    &quot;finish
endif
let b:did_indent = 1

setlocal indentexpr=CdlGetIndent(v:lnum)
setlocal indentkeys&amp;
setlocal indentkeys+==~else,=~endif,=~then,;,),=

&quot; Only define the function once.
if exists(&quot;*CdlGetIndent&quot;)
    &quot;finish
endif

&quot; find out if an &quot;...=...&quot; expresion is an assignment (or a conditional)
&quot; it scans 'line' first, and then the previos lines
fun! CdlAsignment(lnum, line)
  let f = -1
  let lnum = a:lnum
  let line = a:line
  while lnum &gt; 0 &amp;&amp; f == -1
    &quot; line without members [a] of [b]:[c]...
    let inicio = 0
    while 1
      &quot; keywords that help to decide
      let inicio = matchend(line, '\c\&lt;\(expr\|\a*if\|and\|or\|not\|else\|then\|memberis\|\k\+of\)\&gt;\|[&lt;&gt;;]', inicio)
      if inicio &lt; 0
	break
      endif
      &quot; it's formula if there's a ';', 'elsE', 'theN', 'enDif' or 'expr'
      &quot; conditional if there's a '&lt;', '&gt;', 'elseif', 'if', 'and', 'or', 'not',
      &quot; 'memberis', 'childrenof' and other \k\+of funcions
      let f = line[inicio-1] =~? '[en;]' || strpart(line, inicio-4, 4) =~? 'ndif\|expr'
    endw
    let lnum = prevnonblank(lnum-1)
    let line = substitute(getline(lnum), '\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+', ' ', 'g')
  endw
  &quot; if we hit the start of the file then f = -1, return 1 (formula)
  return f != 0
endf

fun! CdlGetIndent(lnum)
  let thisline = getline(a:lnum)
  if match(thisline, '^\s*\(\k\+\|\[[^]]*]\)\s*\(,\|;\s*$\)') &gt;= 0
    &quot; it's an attributes line
    return shiftwidth()
  elseif match(thisline, '^\c\s*\([{}]\|\/[*/]\|dimension\|schedule\|group\|hierarchy\|class\)') &gt;= 0
    &quot; it's a header or '{' or '}' or a comment
    return 0
  end

  let lnum = prevnonblank(a:lnum-1)
  &quot; Hit the start of the file, use zero indent.
  if lnum == 0
    return 0
  endif

  &quot; PREVIOUS LINE
  let ind = indent(lnum)
  let line = getline(lnum)
  let f = -1 &quot; wether a '=' is a conditional or a asignment, -1 means we don't know yet
  &quot; one 'closing' element at the beginning of the line has already reduced the
  &quot;   indent, but 'else', 'elseif' &amp; 'then' increment it for the next line
  &quot; '=' at the beginning has already de right indent (increased for asignments)
  let inicio = matchend(line, '^\c\s*\(else\a*\|then\|endif\|/[*/]\|[);={]\)')
  if inicio &gt; 0
    let c = line[inicio-1]
    &quot; ')' and '=' don't change indent and are useless to set 'f'
    if c == '{'
      return shiftwidth()
    elseif c != ')' &amp;&amp; c != '='
      let f = 1 &quot; all but 'elseif' are followed by a formula
      if c ==? 'n' || c ==? 'e' &quot; 'then', 'else'
	let ind = ind + shiftwidth()
      elseif strpart(line, inicio-6, 6) ==? 'elseif' &quot; elseif, set f to conditional
	let ind = ind + shiftwidth()
	let f = 0
      end
    end
  end

  &quot; remove members [a] of [b]:[c]... (inicio remainds valid)
  let line = substitute(line, '\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+', ' ', 'g')
  while 1
    &quot; search for the next interesting element
    let inicio=matchend(line, '\c\&lt;if\|endif\|[()=;]', inicio)
    if inicio &lt; 0
      break
    end

    let c = line[inicio-1]
    &quot; 'expr(...)' containing the formula
    if strpart(line, inicio-5, 5) ==? 'expr('
      let ind = 0
      let f = 1
    elseif c == ')' || c== ';' || strpart(line, inicio-5, 5) ==? 'endif'
      let ind = ind - shiftwidth()
    elseif c == '(' || c ==? 'f' &quot; '(' or 'if'
      let ind = ind + shiftwidth()
    else &quot; c == '='
      &quot; if it is an asignment increase indent
      if f == -1 &quot; we don't know yet, find out
	let f = CdlAsignment(lnum, strpart(line, 0, inicio))
      end
      if f == 1 &quot; formula increase it
	let ind = ind + shiftwidth()
      end
    end
  endw

  &quot; CURRENT LINE, if it starts with a closing element, decrease indent
  &quot; or if it starts with '=' (asignment), increase indent
  if match(thisline, '^\c\s*\(else\|then\|endif\|[);]\)') &gt;= 0
    let ind = ind - shiftwidth()
  elseif match(thisline, '^\s*=') &gt;= 0
    if f == -1 &quot; we don't know yet if is an asignment, find out
      let f = CdlAsignment(lnum, &quot;&quot;)
    end
    if f == 1 &quot; formula increase it
      let ind = ind + shiftwidth()
    end
  end

  return ind
endfun
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Findent' class='btn'>Cancel</a>
        </form>