"   Vim indent file"   Language:	    Objective-C"   Maintainer:	    Kazunobu Kuriyama <kazunobu.kuriyama@nifty.com>"   Last Change:    2004 May 16"  " Only load this indent file when no other was loaded.if exists("b:did_indent")    finishendiflet b:did_indent = 1setlocal cindent " Set the function to do the work.setlocal indentexpr=GetObjCIndent() " To make a colon (:) suggest an indentation other than a goto/swich label,setlocal indentkeys-=:setlocal indentkeys+=<:> " Only define the function once.if exists("*GetObjCIndent")    finishendif function s:GetWidth(line, regexp)    let end = matchend(a:line, a:regexp)    let width = 0    let i = 0    while i < end	if a:line[i] != "\t"	    let width = width + 1	else	    let width = width + &ts - (width % &ts)	endif	let i = i + 1    endwhile    return widthendfunction function s:LeadingWhiteSpace(line)    let end = strlen(a:line)    let width = 0    let i = 0    while i < end	let char = a:line[i]	if char != " " && char != "\t"	    break	endif	if char != "\t"	    let width = width + 1	else	    let width = width + &ts - (width % &ts)	endif	let i = i + 1    endwhile    return widthendfunction  function GetObjCIndent()    let theIndent = cindent(v:lnum)     let prev_line = getline(v:lnum - 1)    let cur_line = getline(v:lnum)     if prev_line !~# ":" || cur_line !~# ":"	return theIndent    endif     if prev_line !~# ";"	let prev_colon_pos = s:GetWidth(prev_line, ":")	let delta = s:GetWidth(cur_line, ":") - s:LeadingWhiteSpace(cur_line)	let theIndent = prev_colon_pos - delta    endif     return theIndentendfunction