" Vim indent file" Language:     SML" Maintainer:	Saikat Guha <sg266@cornell.edu>" 				Hubert Chao <hc85@cornell.edu>" Original OCaml Version:" 				Jean-Francois Yuen  <jfyuen@ifrance.com>"               Mike Leary          <leary@nwlink.com>"               Markus Mottl        <markus@oefai.at>" OCaml URL:    http://www.oefai.at/~markus/vim/indent/ocaml.vim" Last Change:  2003 Jan 04	- Adapted to SML" 				2002 Nov 06 - Some fixes (JY)"               2002 Oct 28 - Fixed bug with indentation of ']' (MM)"               2002 Oct 22 - Major rewrite (JY) " Only load this indent file when no other was loaded.if exists("b:did_indent")  finishendiflet b:did_indent = 1 setlocal expandtabsetlocal 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 nolispsetlocal nosmartindentsetlocal textwidth=80setlocal shiftwidth=2 " Comment formattingif (has("comments"))  set comments=sr:(*,mb:*,ex:*)  set fo=cqortendif " Only define the function once."if exists("*GetSMLIndent")"finish"endif " Define some patterns:let s:beflet = '^\s*\(initializer\|method\|try\)\|\(\<\(begin\|do\|else\|in\|then\|try\)\|->\|;\)\s*$'let s:letpat = '^\s*\(let\|type\|module\|class\|open\|exception\|val\|include\|external\)\>'let s:letlim = '\(\<\(sig\|struct\)\|;;\)\s*$'let s:lim = '^\s*\(exception\|external\|include\|let\|module\|open\|type\|val\)\>'let s:module = '\<\%(let\|sig\|struct\)\>'let s:obj = '^\s*\(constraint\|inherit\|initializer\|method\|val\)\>\|\<\(object\|object\s*(.*)\)\s*$'let s:type = '^\s*\%(let\|type\)\>.*='let s:val = '^\s*\(val\|external\)\>.*:' " Skipping pattern, for commentsfunction! s:SkipPattern(lnum, pat)  let def = prevnonblank(a:lnum - 1)  while def > 0 && getline(def) =~ a:pat    let def = prevnonblank(def - 1)  endwhile  return defendfunction " Indent for ';;' to match multiple 'let'function! s:GetInd(lnum, pat, lim)  let llet = search(a:pat, 'bW')  let old = indent(a:lnum)  while llet > 0    let old = indent(llet)    let nb = s:SkipPattern(llet, '^\s*(\*.*\*)\s*$')    if getline(nb) =~ a:lim      return old    endif    let llet = search(a:pat, 'bW')  endwhile  return oldendfunction " Indent pairsfunction! s:FindPair(pstart, pmid, pend)  call search(a:pend, 'bW')"  return indent(searchpair(a:pstart, a:pmid, a:pend, 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"'))  let lno = searchpair(a:pstart, a:pmid, a:pend, 'bW', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"')  if lno == -1	return indent(lno)  else	return col(".") - 1  endifendfunction function! s:FindLet(pstart, pmid, pend)  call search(a:pend, 'bW')"  return indent(searchpair(a:pstart, a:pmid, a:pend, 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"'))  let lno = searchpair(a:pstart, a:pmid, a:pend, 'bW', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"')  let moduleLine = getline(lno)  if lno == -1 || moduleLine =~ '^\s*\(fun\|structure\|signature\)\>'	return indent(lno)  else	return col(".") - 1  endifendfunction " Indent 'let'"function! s:FindLet(pstart, pmid, pend)"  call search(a:pend, 'bW')"  return indent(searchpair(a:pstart, a:pmid, a:pend, 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment" || getline(".") =~ "^\\s*let\\>.*=.*\\<in\\s*$" || getline(prevnonblank(".") - 1) =~ "^\\s*let\\>.*=\\s*$\\|" . s:beflet'))"endfunction function! GetSMLIndent()  " Find a non-blank line above the current line.  let lnum = prevnonblank(v:lnum - 1)   " At the start of the file use zero indent.  if lnum == 0    return 0  endif   let ind = indent(lnum)  let lline = getline(lnum) 	" Return double 'shiftwidth' after lines matching:	if lline =~ '^\s*|.*=>\s*$'		return ind + &sw + &sw	elseif lline =~ '^\s*val\>.*=\s*$'		return ind + &sw	endif   let line = getline(v:lnum) 	" Indent lines starting with 'end' to matching module	if line =~ '^\s*end\>'		return s:FindLet(s:module, '', '\<end\>') 	" Match 'else' with 'if'	elseif line =~ '^\s*else\>'	  	if lline !~ '^\s*\(if\|else\|then\)\>'				return s:FindPair('\<if\>', '', '\<then\>')	  	else		  return ind		endif 	" Match 'then' with 'if'	elseif line =~ '^\s*then\>'  	if lline !~ '^\s*\(if\|else\|then\)\>'		  return s:FindPair('\<if\>', '', '\<then\>')	else	  return ind	endif 	" Indent if current line begins with ']'	elseif line =~ '^\s*\]'		return s:FindPair('\[','','\]')   " Indent current line starting with 'in' to last matching 'let'	elseif line =~ '^\s*in\>'		let ind = s:FindLet('\<let\>','','\<in\>') 	" Indent from last matching module if line matches:	elseif line =~ '^\s*\(fun\|val\|open\|structure\|and\|datatype\|type\|exception\)\>'		cursor(lnum,1)  		let lastModule = indent(searchpair(s:module, '', '\<end\>', 'bWn', 'synIDattr(synID(line("."), col("."), 0), "name") =~? "string\\|comment"'))		if lastModule == -1			return 0		else			return lastModule + &sw		endif 	" Indent lines starting with '|' from matching 'case', 'handle'	elseif line =~ '^\s*|'		" cursor(lnum,1)		let lastSwitch = search('\<\(case\|handle\|fun\|datatype\)\>','bW')		let switchLine = getline(lastSwitch)		let switchLineIndent = indent(lastSwitch)		if lline =~ '^\s*|'		  return ind		endif		if switchLine =~ '\<case\>'			return col(".") + 2		elseif switchLine =~ '\<handle\>'			return switchLineIndent + &sw		elseif switchLine =~ '\<datatype\>'			call search('=')			return col(".") - 1		else			return switchLineIndent + 2		endif    " Indent if last line ends with 'sig', 'struct', 'let', 'then', 'else',  " 'in'  elseif lline =~ '\<\(sig\|struct\|let\|in\|then\|else\)\s*$'		let ind = ind + &sw   " Indent if last line ends with 'of', align from 'case'  elseif lline =~ '\<\(of\)\s*$'		call search('\<case\>',"bW")		let ind = col(".")+4 	" Indent if current line starts with 'of'  elseif line =~ '^\s*of\>'		call search('\<case\>',"bW")		let ind = col(".")+1  	" Indent if last line starts with 'fun', 'case', 'fn'	elseif lline =~ '^\s*\(fun\|fn\|case\)\>'		let ind = ind + &sw 	endif 	" Don't indent 'let' if last line started with 'fun', 'fn'	if line =~ '^\s*let\>'		if lline =~ '^\s*\(fun\|fn\)'			let ind = ind - &sw		endif  endif   return ind endfunction " vim:sw=2