<h2>Edit File - sml.vim</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/vim/vim80/indent/sml.vim">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&quot; Vim indent file
&quot; Language:     SML
&quot; Maintainer:	Saikat Guha &lt;sg266@cornell.edu&gt;
&quot; 				Hubert Chao &lt;hc85@cornell.edu&gt;
&quot; Original OCaml Version:
&quot; 				Jean-Francois Yuen  &lt;jfyuen@ifrance.com&gt;
&quot;               Mike Leary          &lt;leary@nwlink.com&gt;
&quot;               Markus Mottl        &lt;markus@oefai.at&gt;
&quot; OCaml URL:    http://www.oefai.at/~markus/vim/indent/ocaml.vim
&quot; Last Change:  2003 Jan 04	- Adapted to SML
&quot; 				2002 Nov 06 - Some fixes (JY)
&quot;               2002 Oct 28 - Fixed bug with indentation of &#039;]&#039; (MM)
&quot;               2002 Oct 22 - Major rewrite (JY)

&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

setlocal expandtab
setlocal indentexpr=GetSMLIndent()
setlocal indentkeys+=0=and,0=else,0=end,0=handle,0=if,0=in,0=let,0=then,0=val,0=fun,0=\|,0=*),0)
setlocal nolisp
setlocal nosmartindent
setlocal textwidth=80
setlocal shiftwidth=2

&quot; Comment formatting
if (has(&quot;comments&quot;))
  set comments=sr:(*,mb:*,ex:*)
  set fo=cqort
endif

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

&quot; Define some patterns:
let s:beflet = &#039;^\s*\(initializer\|method\|try\)\|\(\&lt;\(begin\|do\|else\|in\|then\|try\)\|-&gt;\|;\)\s*$&#039;
let s:letpat = &#039;^\s*\(let\|type\|module\|class\|open\|exception\|val\|include\|external\)\&gt;&#039;
let s:letlim = &#039;\(\&lt;\(sig\|struct\)\|;;\)\s*$&#039;
let s:lim = &#039;^\s*\(exception\|external\|include\|let\|module\|open\|type\|val\)\&gt;&#039;
let s:module = &#039;\&lt;\%(let\|sig\|struct\)\&gt;&#039;
let s:obj = &#039;^\s*\(constraint\|inherit\|initializer\|method\|val\)\&gt;\|\&lt;\(object\|object\s*(.*)\)\s*$&#039;
let s:type = &#039;^\s*\%(let\|type\)\&gt;.*=&#039;
let s:val = &#039;^\s*\(val\|external\)\&gt;.*:&#039;

&quot; Skipping pattern, for comments
function! s:SkipPattern(lnum, pat)
  let def = prevnonblank(a:lnum - 1)
  while def &gt; 0 &amp;&amp; getline(def) =~ a:pat
    let def = prevnonblank(def - 1)
  endwhile
  return def
endfunction

&quot; Indent for &#039;;;&#039; to match multiple &#039;let&#039;
function! s:GetInd(lnum, pat, lim)
  let llet = search(a:pat, &#039;bW&#039;)
  let old = indent(a:lnum)
  while llet &gt; 0
    let old = indent(llet)
    let nb = s:SkipPattern(llet, &#039;^\s*(\*.*\*)\s*$&#039;)
    if getline(nb) =~ a:lim
      return old
    endif
    let llet = search(a:pat, &#039;bW&#039;)
  endwhile
  return old
endfunction

&quot; Indent pairs
function! s:FindPair(pstart, pmid, pend)
  call search(a:pend, &#039;bW&#039;)
&quot;  return indent(searchpair(a:pstart, a:pmid, a:pend, &#039;bWn&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot;&#039;))
  let lno = searchpair(a:pstart, a:pmid, a:pend, &#039;bW&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot;&#039;)
  if lno == -1
	return indent(lno)
  else
	return col(&quot;.&quot;) - 1
  endif
endfunction

function! s:FindLet(pstart, pmid, pend)
  call search(a:pend, &#039;bW&#039;)
&quot;  return indent(searchpair(a:pstart, a:pmid, a:pend, &#039;bWn&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot;&#039;))
  let lno = searchpair(a:pstart, a:pmid, a:pend, &#039;bW&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot;&#039;)
  let moduleLine = getline(lno)
  if lno == -1 || moduleLine =~ &#039;^\s*\(fun\|structure\|signature\)\&gt;&#039;
	return indent(lno)
  else
	return col(&quot;.&quot;) - 1
  endif
endfunction

&quot; Indent &#039;let&#039;
&quot;function! s:FindLet(pstart, pmid, pend)
&quot;  call search(a:pend, &#039;bW&#039;)
&quot;  return indent(searchpair(a:pstart, a:pmid, a:pend, &#039;bWn&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot; || getline(&quot;.&quot;) =~ &quot;^\\s*let\\&gt;.*=.*\\&lt;in\\s*$&quot; || getline(prevnonblank(&quot;.&quot;) - 1) =~ &quot;^\\s*let\\&gt;.*=\\s*$\\|&quot; . s:beflet&#039;))
&quot;endfunction

function! GetSMLIndent()
  &quot; Find a non-blank line above the current line.
  let lnum = prevnonblank(v:lnum - 1)

  &quot; At the start of the file use zero indent.
  if lnum == 0
    return 0
  endif

  let ind = indent(lnum)
  let lline = getline(lnum)

	&quot; Return double &#039;shiftwidth&#039; after lines matching:
	if lline =~ &#039;^\s*|.*=&gt;\s*$&#039;
		return ind + 2 *shiftwidth()
	elseif lline =~ &#039;^\s*val\&gt;.*=\s*$&#039;
		return ind + shiftwidth()
	endif

  let line = getline(v:lnum)

	&quot; Indent lines starting with &#039;end&#039; to matching module
	if line =~ &#039;^\s*end\&gt;&#039;
		return s:FindLet(s:module, &#039;&#039;, &#039;\&lt;end\&gt;&#039;)

	&quot; Match &#039;else&#039; with &#039;if&#039;
	elseif line =~ &#039;^\s*else\&gt;&#039;
	  	if lline !~ &#039;^\s*\(if\|else\|then\)\&gt;&#039;
				return s:FindPair(&#039;\&lt;if\&gt;&#039;, &#039;&#039;, &#039;\&lt;then\&gt;&#039;)
	  	else
		  return ind
		endif

	&quot; Match &#039;then&#039; with &#039;if&#039;
	elseif line =~ &#039;^\s*then\&gt;&#039;
  	if lline !~ &#039;^\s*\(if\|else\|then\)\&gt;&#039;
		  return s:FindPair(&#039;\&lt;if\&gt;&#039;, &#039;&#039;, &#039;\&lt;then\&gt;&#039;)
	else
	  return ind
	endif

	&quot; Indent if current line begins with &#039;]&#039;
	elseif line =~ &#039;^\s*\]&#039;
		return s:FindPair(&#039;\[&#039;,&#039;&#039;,&#039;\]&#039;)

  &quot; Indent current line starting with &#039;in&#039; to last matching &#039;let&#039;
	elseif line =~ &#039;^\s*in\&gt;&#039;
		let ind = s:FindLet(&#039;\&lt;let\&gt;&#039;,&#039;&#039;,&#039;\&lt;in\&gt;&#039;)

	&quot; Indent from last matching module if line matches:
	elseif line =~ &#039;^\s*\(fun\|val\|open\|structure\|and\|datatype\|type\|exception\)\&gt;&#039;
		cursor(lnum,1)
  		let lastModule = indent(searchpair(s:module, &#039;&#039;, &#039;\&lt;end\&gt;&#039;, &#039;bWn&#039;, &#039;synIDattr(synID(line(&quot;.&quot;), col(&quot;.&quot;), 0), &quot;name&quot;) =~? &quot;string\\|comment&quot;&#039;))
		if lastModule == -1
			return 0
		else
			return lastModule + shiftwidth()
		endif

	&quot; Indent lines starting with &#039;|&#039; from matching &#039;case&#039;, &#039;handle&#039;
	elseif line =~ &#039;^\s*|&#039;
		&quot; cursor(lnum,1)
		let lastSwitch = search(&#039;\&lt;\(case\|handle\|fun\|datatype\)\&gt;&#039;,&#039;bW&#039;)
		let switchLine = getline(lastSwitch)
		let switchLineIndent = indent(lastSwitch)
		if lline =~ &#039;^\s*|&#039;
		  return ind
		endif
		if switchLine =~ &#039;\&lt;case\&gt;&#039;
			return col(&quot;.&quot;) + 2
		elseif switchLine =~ &#039;\&lt;handle\&gt;&#039;
			return switchLineIndent + shiftwidth()
		elseif switchLine =~ &#039;\&lt;datatype\&gt;&#039;
			call search(&#039;=&#039;)
			return col(&quot;.&quot;) - 1
		else
			return switchLineIndent + 2
		endif


  &quot; Indent if last line ends with &#039;sig&#039;, &#039;struct&#039;, &#039;let&#039;, &#039;then&#039;, &#039;else&#039;,
  &quot; &#039;in&#039;
  elseif lline =~ &#039;\&lt;\(sig\|struct\|let\|in\|then\|else\)\s*$&#039;
		let ind = ind + shiftwidth()

  &quot; Indent if last line ends with &#039;of&#039;, align from &#039;case&#039;
  elseif lline =~ &#039;\&lt;\(of\)\s*$&#039;
		call search(&#039;\&lt;case\&gt;&#039;,&quot;bW&quot;)
		let ind = col(&quot;.&quot;)+4

	&quot; Indent if current line starts with &#039;of&#039;
  elseif line =~ &#039;^\s*of\&gt;&#039;
		call search(&#039;\&lt;case\&gt;&#039;,&quot;bW&quot;)
		let ind = col(&quot;.&quot;)+1


	&quot; Indent if last line starts with &#039;fun&#039;, &#039;case&#039;, &#039;fn&#039;
	elseif lline =~ &#039;^\s*\(fun\|fn\|case\)\&gt;&#039;
		let ind = ind + shiftwidth()

	endif

	&quot; Don&#039;t indent &#039;let&#039; if last line started with &#039;fun&#039;, &#039;fn&#039;
	if line =~ &#039;^\s*let\&gt;&#039;
		if lline =~ &#039;^\s*\(fun\|fn\)&#039;
			let ind = ind - shiftwidth()
		endif
  endif

  return ind

endfunction

&quot; vim:sw=2
</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>