<h2>Edit File - cdl.vim</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/vim/vim80/indent/cdl.vim">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&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 &#039;line&#039; 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, &#039;\c\&lt;\(expr\|\a*if\|and\|or\|not\|else\|then\|memberis\|\k\+of\)\&gt;\|[&lt;&gt;;]&#039;, inicio)
      if inicio &lt; 0
	break
      endif
      &quot; it&#039;s formula if there&#039;s a &#039;;&#039;, &#039;elsE&#039;, &#039;theN&#039;, &#039;enDif&#039; or &#039;expr&#039;
      &quot; conditional if there&#039;s a &#039;&lt;&#039;, &#039;&gt;&#039;, &#039;elseif&#039;, &#039;if&#039;, &#039;and&#039;, &#039;or&#039;, &#039;not&#039;,
      &quot; &#039;memberis&#039;, &#039;childrenof&#039; and other \k\+of funcions
      let f = line[inicio-1] =~? &#039;[en;]&#039; || strpart(line, inicio-4, 4) =~? &#039;ndif\|expr&#039;
    endw
    let lnum = prevnonblank(lnum-1)
    let line = substitute(getline(lnum), &#039;\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+&#039;, &#039; &#039;, &#039;g&#039;)
  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, &#039;^\s*\(\k\+\|\[[^]]*]\)\s*\(,\|;\s*$\)&#039;) &gt;= 0
    &quot; it&#039;s an attributes line
    return shiftwidth()
  elseif match(thisline, &#039;^\c\s*\([{}]\|\/[*/]\|dimension\|schedule\|group\|hierarchy\|class\)&#039;) &gt;= 0
    &quot; it&#039;s a header or &#039;{&#039; or &#039;}&#039; 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 &#039;=&#039; is a conditional or a asignment, -1 means we don&#039;t know yet
  &quot; one &#039;closing&#039; element at the beginning of the line has already reduced the
  &quot;   indent, but &#039;else&#039;, &#039;elseif&#039; &amp; &#039;then&#039; increment it for the next line
  &quot; &#039;=&#039; at the beginning has already de right indent (increased for asignments)
  let inicio = matchend(line, &#039;^\c\s*\(else\a*\|then\|endif\|/[*/]\|[);={]\)&#039;)
  if inicio &gt; 0
    let c = line[inicio-1]
    &quot; &#039;)&#039; and &#039;=&#039; don&#039;t change indent and are useless to set &#039;f&#039;
    if c == &#039;{&#039;
      return shiftwidth()
    elseif c != &#039;)&#039; &amp;&amp; c != &#039;=&#039;
      let f = 1 &quot; all but &#039;elseif&#039; are followed by a formula
      if c ==? &#039;n&#039; || c ==? &#039;e&#039; &quot; &#039;then&#039;, &#039;else&#039;
	let ind = ind + shiftwidth()
      elseif strpart(line, inicio-6, 6) ==? &#039;elseif&#039; &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, &#039;\c\(\[[^]]*]\(\s*of\s*\|:\)*\)\+&#039;, &#039; &#039;, &#039;g&#039;)
  while 1
    &quot; search for the next interesting element
    let inicio=matchend(line, &#039;\c\&lt;if\|endif\|[()=;]&#039;, inicio)
    if inicio &lt; 0
      break
    end

    let c = line[inicio-1]
    &quot; &#039;expr(...)&#039; containing the formula
    if strpart(line, inicio-5, 5) ==? &#039;expr(&#039;
      let ind = 0
      let f = 1
    elseif c == &#039;)&#039; || c== &#039;;&#039; || strpart(line, inicio-5, 5) ==? &#039;endif&#039;
      let ind = ind - shiftwidth()
    elseif c == &#039;(&#039; || c ==? &#039;f&#039; &quot; &#039;(&#039; or &#039;if&#039;
      let ind = ind + shiftwidth()
    else &quot; c == &#039;=&#039;
      &quot; if it is an asignment increase indent
      if f == -1 &quot; we don&#039;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 &#039;=&#039; (asignment), increase indent
  if match(thisline, &#039;^\c\s*\(else\|then\|endif\|[);]\)&#039;) &gt;= 0
    let ind = ind - shiftwidth()
  elseif match(thisline, &#039;^\s*=&#039;) &gt;= 0
    if f == -1 &quot; we don&#039;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>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>