<h2>Edit File - occam.vim</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/vim/vim80/indent/occam.vim">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&quot; Vim indent file
&quot; Language:	occam
&quot; Maintainer:	Mario Schweigler &lt;ms44@kent.ac.uk&gt;
&quot; Last Change:	23 April 2003

&quot; Only load this indent file when no other was loaded.
if exists(&quot;b:did_indent&quot;)
  finish
endif
let b:did_indent = 1

&quot;{{{  Settings
&quot; Set the occam indent function
setlocal indentexpr=GetOccamIndent()
&quot; Indent after new line and after initial colon
setlocal indentkeys=o,O,0=:
&quot;}}}

&quot; Only define the function once
if exists(&quot;*GetOccamIndent&quot;)
  finish
endif
let s:keepcpo= &amp;cpo
set cpo&amp;vim

&quot;{{{  Indent definitions
&quot; Define carriage return indent
let s:FirstLevelIndent = &#039;^\C\s*\(IF\|ALT\|PRI\s\+ALT\|PAR\|SEQ\|PRI\s\+PAR\|WHILE\|VALOF\|CLAIM\|FORKING\)\&gt;\|\(--.*\)\@&lt;!\(\&lt;PROC\&gt;\|??\|\&lt;CASE\&gt;\s*\(--.*\)\=\_$\)&#039;
let s:FirstLevelNonColonEndIndent = &#039;^\C\s*PROTOCOL\&gt;\|\(--.*\)\@&lt;!\&lt;\(\(CHAN\|DATA\)\s\+TYPE\|FUNCTION\)\&gt;&#039;
let s:SecondLevelIndent = &#039;^\C\s*\(IF\|ALT\|PRI\s\+ALT\)\&gt;\|\(--.*\)\@&lt;!?\s*\&lt;CASE\&gt;\s*\(--.*\)\=\_$&#039;
let s:SecondLevelNonColonEndIndent = &#039;\(--.*\)\@&lt;!\&lt;\(CHAN\|DATA\)\s\+TYPE\&gt;&#039;

&quot; Define colon indent
let s:ColonIndent = &#039;\(--.*\)\@&lt;!\&lt;PROC\&gt;&#039;
let s:ColonNonColonEndIndent = &#039;^\C\s*PROTOCOL\&gt;\|\(--.*\)\@&lt;!\&lt;\(\(CHAN\|DATA\)\s\+TYPE\|FUNCTION\)\&gt;&#039;

let s:ColonEnd = &#039;\(--.*\)\@&lt;!:\s*\(--.*\)\=$&#039;
let s:ColonStart = &#039;^\s*:\s*\(--.*\)\=$&#039;

&quot; Define comment
let s:CommentLine = &#039;^\s*--&#039;
&quot;}}}

&quot;{{{  function GetOccamIndent()
&quot; Auxiliary function to get the correct indent for a line of occam code
function GetOccamIndent()

  &quot; Ensure magic is on
  let save_magic = &amp;magic
  setlocal magic

  &quot; Get reference line number
  let linenum = prevnonblank(v:lnum - 1)
  while linenum &gt; 0 &amp;&amp; getline(linenum) =~ s:CommentLine
    let linenum = prevnonblank(linenum - 1)
  endwhile

  &quot; Get current indent
  let curindent = indent(linenum)

  &quot; Get current line
  let line = getline(linenum)

  &quot; Get previous line number
  let prevlinenum = prevnonblank(linenum - 1)
  while prevlinenum &gt; 0 &amp;&amp; getline(prevlinenum) =~ s:CommentLine
    let prevlinenum = prevnonblank(prevlinenum - 1)
  endwhile

  &quot; Get previous line
  let prevline = getline(prevlinenum)

  &quot; Colon indent
  if getline(v:lnum) =~ s:ColonStart

    let found = 0

    while found &lt; 1

      if line =~ s:ColonStart
	let found = found - 1
      elseif line =~ s:ColonIndent || (line =~ s:ColonNonColonEndIndent &amp;&amp; line !~ s:ColonEnd)
	let found = found + 1
      endif

      if found &lt; 1
	let linenum = prevnonblank(linenum - 1)
	if linenum &gt; 0
	  let line = getline(linenum)
	else
	  let found = 1
	endif
      endif

    endwhile

    if linenum &gt; 0
      let curindent = indent(linenum)
    else
      let colonline = getline(v:lnum)
      let tabstr = &#039;&#039;
      while strlen(tabstr) &lt; &amp;tabstop
	let tabstr = &#039; &#039; . tabstr
      endwhile
      let colonline = substitute(colonline, &#039;\t&#039;, tabstr, &#039;g&#039;)
      let curindent = match(colonline, &#039;:&#039;)
    endif

    &quot; Restore magic
    if !save_magic|setlocal nomagic|endif

    return curindent
  endif

  if getline(v:lnum) =~ &#039;^\s*:&#039;
    let colonline = getline(v:lnum)
    let tabstr = &#039;&#039;
    while strlen(tabstr) &lt; &amp;tabstop
      let tabstr = &#039; &#039; . tabstr
    endwhile
    let colonline = substitute(colonline, &#039;\t&#039;, tabstr, &#039;g&#039;)
    let curindent = match(colonline, &#039;:&#039;)

    &quot; Restore magic
    if !save_magic|setlocal nomagic|endif

    return curindent
  endif

  &quot; Carriage return indenat
  if line =~ s:FirstLevelIndent || (line =~ s:FirstLevelNonColonEndIndent &amp;&amp; line !~ s:ColonEnd)
	\ || (line !~ s:ColonStart &amp;&amp; (prevline =~ s:SecondLevelIndent
	\ || (prevline =~ s:SecondLevelNonColonEndIndent &amp;&amp; prevline !~ s:ColonEnd)))
    let curindent = curindent + shiftwidth()

    &quot; Restore magic
    if !save_magic|setlocal nomagic|endif

    return curindent
  endif

  &quot; Commented line
  if getline(prevnonblank(v:lnum - 1)) =~ s:CommentLine

    &quot; Restore magic
    if !save_magic|setlocal nomagic|endif

    return indent(prevnonblank(v:lnum - 1))
  endif

  &quot; Look for previous second level IF / ALT / PRI ALT
  let found = 0

  while !found

    if indent(prevlinenum) == curindent - shiftwidth()
      let found = 1
    endif

    if !found
      let prevlinenum = prevnonblank(prevlinenum - 1)
      while prevlinenum &gt; 0 &amp;&amp; getline(prevlinenum) =~ s:CommentLine
	let prevlinenum = prevnonblank(prevlinenum - 1)
      endwhile
      if prevlinenum == 0
	let found = 1
      endif
    endif

  endwhile

  if prevlinenum &gt; 0
    if getline(prevlinenum) =~ s:SecondLevelIndent
      let curindent = curindent + shiftwidth()
    endif
  endif

  &quot; Restore magic
  if !save_magic|setlocal nomagic|endif

  return curindent

endfunction
&quot;}}}

let &amp;cpo = s:keepcpo
unlet s:keepcpo
</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>