OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	05/09/2024 07:13:33 AM	rwxr-xr-x
📄 README.txt	1.6 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 aap.vim	265 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 ada.vim	10.97 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 ant.vim	290 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 automake.vim	243 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 awk.vim	7.59 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 bib.vim	346 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 bst.vim	1.89 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 bzl.vim	2.43 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 c.vim	325 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 cdl.vim	4.15 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 ch.vim	470 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 chaiscript.vim	1.11 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 changelog.vim	264 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 clojure.vim	10.2 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 cmake.vim	2.62 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 cobol.vim	8.11 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 config.vim	2.13 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 context.vim	752 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 cpp.vim	329 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 cs.vim	327 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 css.vim	1.75 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 cucumber.vim	2.62 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 cuda.vim	305 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 d.vim	510 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 dictconf.vim	337 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 dictdconf.vim	338 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 docbk.vim	336 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 dtd.vim	11.59 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 dtrace.vim	451 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 dylan.vim	2.64 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 eiffel.vim	3.24 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 erlang.vim	45.29 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 eruby.vim	2.74 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 eterm.vim	668 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 falcon.vim	13.72 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 fortran.vim	7.27 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 framescript.vim	816 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 gitconfig.vim	841 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 gitolite.vim	1.25 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 go.vim	1.63 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 haml.vim	2.16 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 hamster.vim	1.39 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 hog.vim	1.85 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 html.vim	31.94 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 htmldjango.vim	273 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 idlang.vim	1.58 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 ishd.vim	1.83 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 j.vim	1.77 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 java.vim	4.19 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 javascript.vim	15 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 json.vim	4.32 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 jsp.vim	462 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 ld.vim	1.75 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 less.vim	243 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 lifelines.vim	637 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 liquid.vim	1.85 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 lisp.vim	353 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 logtalk.vim	1.7 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 lua.vim	1.88 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 mail.vim	308 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 make.vim	3.41 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 matlab.vim	1.92 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 mf.vim	156 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 mma.vim	2.18 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 mp.vim	11.06 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 nsis.vim	3.18 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 objc.vim	1.61 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 ocaml.vim	8.94 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 occam.vim	4.53 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 pascal.vim	5.52 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 perl.vim	5.76 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 perl6.vim	3.46 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 php.vim	21.91 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 postscr.vim	1.61 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 pov.vim	2.6 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 prolog.vim	1.46 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 pyrex.vim	326 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 python.vim	5.61 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 r.vim	13.58 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 readline.vim	711 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 rhelp.vim	2.77 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rmd.vim	1.17 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rnoweb.vim	1.06 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rpl.vim	1.82 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rrst.vim	1.17 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rst.vim	1.37 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 ruby.vim	22.43 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 rust.vim	6.35 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sas.vim	5.01 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sass.vim	950 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 scala.vim	18.97 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 scheme.vim	241 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 scss.vim	191 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 sdl.vim	2.73 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sh.vim	5.58 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sml.vim	6.33 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sql.vim	1.18 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 sqlanywhere.vim	12.86 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 systemd.vim	205 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 systemverilog.vim	8.38 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 tcl.vim	1.59 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 tcsh.vim	1.24 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 teraterm.vim	1.33 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 tex.vim	13.2 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 tf.vim	1.51 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 tilde.vim	1012 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 treetop.vim	707 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 vb.vim	2.04 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 verilog.vim	7.97 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 vhdl.vim	14.32 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 vim.vim	2.92 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 vroom.vim	379 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 xf86conf.vim	709 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 xhtml.vim	269 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 xinetd.vim	1.2 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 xml.vim	2.78 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 xsd.vim	253 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 xslt.vim	297 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 yacc.vim	781 bytes	04/18/2023 09:20:34 AM	rw-r--r--
📄 yaml.vim	5.34 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 zimbu.vim	3.84 KB	04/18/2023 09:20:34 AM	rw-r--r--
📄 zsh.vim	411 bytes	04/18/2023 09:20:34 AM	rw-r--r--

Editing: falcon.vim

" Vim indent file
" Language: Falcon
" Maintainer: Steven Oliver <oliver.steven@gmail.com>
" Website: https://steveno@github.com/steveno/falconpl-vim.git
" Credits: This is, to a great extent, a copy n' paste of ruby.vim.

" 1. Setup {{{1
" ============

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

setlocal nosmartindent

" Setup indent function and when to use it
setlocal indentexpr=FalconGetIndent(v:lnum)
setlocal indentkeys=0{,0},0),0],!^F,o,O,e
setlocal indentkeys+==~case,=~catch,=~default,=~elif,=~else,=~end,=~\"

" Define the appropriate indent function but only once
if exists("*FalconGetIndent")
    finish
endif

let s:cpo_save = &cpo
set cpo&vim

" 2. Variables {{{1
" ============

" Regex of syntax group names that are strings AND comments
let s:syng_strcom = '\<falcon\%(String\|StringEscape\|Comment\)\>'

" Regex of syntax group names that are strings
let s:syng_string = '\<falcon\%(String\|StringEscape\)\>'

" Regex that defines blocks.
"
" Note that there's a slight problem with this regex and s:continuation_regex.
" Code like this will be matched by both:
"
"   method_call do |(a, b)|
"
" The reason is that the pipe matches a hanging "|" operator.
"
let s:block_regex =
      \ '\%(\<do:\@!\>\|%\@<!{\)\s*\%(|\s*(*\s*\%([*@&]\=\h\w*,\=\s*\)\%(,\s*(*\s*[*@&]\=\h\w*\s*)*\s*\)*|\)\=\s*\%(#.*\)\=$'

let s:block_continuation_regex = '^\s*[^])}\t ].*'.s:block_regex

" Regex that defines continuation lines.
" TODO: this needs to deal with if ...: and so on
let s:continuation_regex =
      \ '\%(%\@<![({[\\.,:*/%+]\|\<and\|\<or\|\%(<%\)\@<![=-]\|\W[|&?]\|||\|&&\)\s*\%(#.*\)\=$'

" Regex that defines bracket continuations
let s:bracket_continuation_regex = '%\@<!\%([({[]\)\s*\%(#.*\)\=$'

" Regex that defines continuation lines, not including (, {, or [.
let s:non_bracket_continuation_regex = '\%([\\.,:*/%+]\|\<and\|\<or\|\%(<%\)\@<![=-]\|\W[|&?]\|||\|&&\)\s*\%(#.*\)\=$'

" 3. Functions {{{1
" ============

" Check if the character at lnum:col is inside a string, comment, or is ascii.
function s:IsInStringOrComment(lnum, col)
    return synIDattr(synID(a:lnum, a:col, 1), 'name') =~ s:syng_strcom
endfunction

" Check if the character at lnum:col is inside a string.
function s:IsInString(lnum, col)
    return synIDattr(synID(a:lnum, a:col, 1), 'name') =~ s:syng_string
endfunction

" Check if the character at lnum:col is inside a string delimiter
function s:IsInStringDelimiter(lnum, col)
    return synIDattr(synID(a:lnum, a:col, 1), 'name') == 'falconStringDelimiter'
endfunction

" Find line above 'lnum' that isn't empty, in a comment, or in a string.
function s:PrevNonBlankNonString(lnum)
    let in_block = 0
    let lnum = prevnonblank(a:lnum)
    while lnum > 0
	" Go in and out of blocks comments as necessary.
	" If the line isn't empty (with opt. comment) or in a string, end search.
	let line = getline(lnum)
	if line =~ '^=begin'
	    if in_block
		let in_block = 0
	    else
		break
	    endif
	elseif !in_block && line =~ '^=end'
	    let in_block = 1
	elseif !in_block && line !~ '^\s*#.*$' && !(s:IsInStringOrComment(lnum, 1)
		    \ && s:IsInStringOrComment(lnum, strlen(line)))
	    break
	endif
	let lnum = prevnonblank(lnum - 1)
    endwhile
    return lnum
endfunction

" Find line above 'lnum' that started the continuation 'lnum' may be part of.
function s:GetMSL(lnum)
    " Start on the line we're at and use its indent.
    let msl = a:lnum
    let msl_body = getline(msl)
    let lnum = s:PrevNonBlankNonString(a:lnum - 1)
    while lnum > 0
	" If we have a continuation line, or we're in a string, use line as MSL.
	" Otherwise, terminate search as we have found our MSL already.
	let line = getline(lnum)
	
	if s:Match(line, s:non_bracket_continuation_regex) &&
          	\ s:Match(msl, s:non_bracket_continuation_regex)
	    " If the current line is a non-bracket continuation and so is the
	    " previous one, keep its indent and continue looking for an MSL.
	    "    
	    " Example:
	    "   method_call one,
	    "       two,
	    "           three
	    "           
	    let msl = lnum
	elseif s:Match(lnum, s:non_bracket_continuation_regex) &&
		    \ (s:Match(msl, s:bracket_continuation_regex) || s:Match(msl, s:block_continuation_regex))
	    " If the current line is a bracket continuation or a block-starter, but
	    " the previous is a non-bracket one, respect the previous' indentation,
	    " and stop here.
	    " 
	    " Example:
	    "   method_call one,
	    "       two {
	    "           three
	    "
	    return lnum
	elseif s:Match(lnum, s:bracket_continuation_regex) &&
		    \ (s:Match(msl, s:bracket_continuation_regex) || s:Match(msl, s:block_continuation_regex))
	    " If both lines are bracket continuations (the current may also be a
	    " block-starter), use the current one's and stop here
	    "
	    " Example:
	    "   method_call(
	    "       other_method_call(
	    "             foo
	    return msl
	elseif s:Match(lnum, s:block_regex) &&
		    \ !s:Match(msl, s:continuation_regex) &&
		    \ !s:Match(msl, s:block_continuation_regex)
	    " If the previous line is a block-starter and the current one is
	    " mostly ordinary, use the current one as the MSL.
	    " 
	    " Example:
	    "   method_call do
	    "       something
	    "           something_else
	    return msl
	else
	    let col = match(line, s:continuation_regex) + 1
	    if (col > 0 && !s:IsInStringOrComment(lnum, col))
			\ || s:IsInString(lnum, strlen(line))
		let msl = lnum
	    else
		break
	    endif
	endif
	
	let msl_body = getline(msl)
	let lnum = s:PrevNonBlankNonString(lnum - 1)
    endwhile
    return msl
endfunction

" Check if line 'lnum' has more opening brackets than closing ones.
function s:ExtraBrackets(lnum)
    let opening = {'parentheses': [], 'braces': [], 'brackets': []}
    let closing = {'parentheses': [], 'braces': [], 'brackets': []}

let line = getline(a:lnum)
    let pos  = match(line, '[][(){}]', 0)

" Save any encountered opening brackets, and remove them once a matching
    " closing one has been found. If a closing bracket shows up that doesn't
    " close anything, save it for later.
    while pos != -1
	if !s:IsInStringOrComment(a:lnum, pos + 1)
	    if line[pos] == '('
		call add(opening.parentheses, {'type': '(', 'pos': pos})
	    elseif line[pos] == ')'
		if empty(opening.parentheses)
		    call add(closing.parentheses, {'type': ')', 'pos': pos})
		else
		    let opening.parentheses = opening.parentheses[0:-2]
		endif
	    elseif line[pos] == '{'
		call add(opening.braces, {'type': '{', 'pos': pos})
	    elseif line[pos] == '}'
		if empty(opening.braces)
		    call add(closing.braces, {'type': '}', 'pos': pos})
		else
		    let opening.braces = opening.braces[0:-2]
		endif
	    elseif line[pos] == '['
		call add(opening.brackets, {'type': '[', 'pos': pos})
	    elseif line[pos] == ']'
		if empty(opening.brackets)
		    call add(closing.brackets, {'type': ']', 'pos': pos})
		else
		    let opening.brackets = opening.brackets[0:-2]
		endif
	    endif
	endif
	
	let pos = match(line, '[][(){}]', pos + 1)
    endwhile

" Find the rightmost brackets, since they're the ones that are important in
    " both opening and closing cases
    let rightmost_opening = {'type': '(', 'pos': -1}
    let rightmost_closing = {'type': ')', 'pos': -1}

for opening in opening.parentheses + opening.braces + opening.brackets
	if opening.pos > rightmost_opening.pos
	    let rightmost_opening = opening
	endif
    endfor

for closing in closing.parentheses + closing.braces + closing.brackets
	if closing.pos > rightmost_closing.pos
	    let rightmost_closing = closing
	endif
    endfor

return [rightmost_opening, rightmost_closing]
endfunction

function s:Match(lnum, regex)
    let col = match(getline(a:lnum), '\C'.a:regex) + 1
    return col > 0 && !s:IsInStringOrComment(a:lnum, col) ? col : 0
endfunction

function s:MatchLast(lnum, regex)
    let line = getline(a:lnum)
    let col = match(line, '.*\zs' . a:regex)
    while col != -1 && s:IsInStringOrComment(a:lnum, col)
	let line = strpart(line, 0, col)
	let col = match(line, '.*' . a:regex)
    endwhile
    return col + 1
endfunction

" 4. FalconGetIndent Routine {{{1
" ============

function FalconGetIndent(...)
    " For the current line, use the first argument if given, else v:lnum
    let clnum = a:0 ? a:1 : v:lnum

" Use zero indent at the top of the file
    if clnum == 0
        return 0
    endif

let line = getline(clnum)
    let ind = -1

" If we got a closing bracket on an empty line, find its match and indent
    " according to it.  For parentheses we indent to its column - 1, for the
    " others we indent to the containing line's MSL's level.  Return -1 if fail.
    let col = matchend(line, '^\s*[]})]')
    if col > 0 && !s:IsInStringOrComment(clnum, col)
	call cursor(clnum, col)
	let bs = strpart('(){}[]', stridx(')}]', line[col - 1]) * 2, 2)
	if searchpair(escape(bs[0], '\['), '', bs[1], 'bW', s:skip_expr) > 0
	    if line[col-1]==')' && col('.') != col('$') - 1
		let ind = virtcol('.') - 1
	    else
		let ind = indent(s:GetMSL(line('.')))
	    endif
	endif
	return ind
    endif

" If we have a deindenting keyword, find its match and indent to its level.
    " TODO: this is messy
    if s:Match(clnum, s:falcon_deindent_keywords)
	call cursor(clnum, 1)
	if searchpair(s:end_start_regex, s:end_middle_regex, s:end_end_regex, 'bW',
		    \ s:end_skip_expr) > 0
	    let msl  = s:GetMSL(line('.'))
	    let line = getline(line('.'))

if strpart(line, 0, col('.') - 1) =~ '=\s*$' &&
			\ strpart(line, col('.') - 1, 2) !~ 'do'
		let ind = virtcol('.') - 1
	    elseif getline(msl) =~ '=\s*$#.*$\=$'
		let ind = indent(line('.'))
	    else
		let ind = indent(msl)
	    endif
	endif
	return ind
    endif

" If we are in a multi-line string or line-comment, don't do anything to it.
    if s:IsInString(clnum, matchend(line, '^\s*') + 1)
	return indent('.')
    endif

" Find a non-blank, non-multi-line string line above the current line.
    let lnum = s:PrevNonBlankNonString(clnum - 1)

" If the line is empty and inside a string, use the previous line.
    if line =~ '^\s*$' && lnum != prevnonblank(clnum - 1)
	return indent(prevnonblank(clnum))
    endif

" At the start of the file use zero indent.
    if lnum == 0
	return 0
    endif

" Set up variables for the previous line.
    let line = getline(lnum)
    let ind = indent(lnum)

" If the previous line ended with a block opening, add a level of indent.
    if s:Match(lnum, s:block_regex)
	return indent(s:GetMSL(lnum)) + shiftwidth()
    endif

" If it contained hanging closing brackets, find the rightmost one, find its
    " match and indent according to that.
    if line =~ '[[({]' || line =~ '[])}]\s*\%(#.*\)\=$'
	let [opening, closing] = s:ExtraBrackets(lnum)

if opening.pos != -1
	    if opening.type == '(' && searchpair('(', '', ')', 'bW', s:skip_expr) > 0
		if col('.') + 1 == col('$')
		    return ind + shiftwidth()
		else
		    return virtcol('.')
		endif
	    else
		let nonspace = matchend(line, '\S', opening.pos + 1) - 1
		return nonspace > 0 ? nonspace : ind + shiftwidth()
	    endif
	elseif closing.pos != -1
	    call cursor(lnum, closing.pos + 1)
	    normal! %

if s:Match(line('.'), s:falcon_indent_keywords)
		return indent('.') + shiftwidth()
	    else
		return indent('.')
	    endif
	else
	    call cursor(clnum, vcol)
	end
    endif

" If the previous line ended with an "end", match that "end"s beginning's
    " indent.
    let col = s:Match(lnum, '\%(^\|[^.:@$]\)\<end\>\s*\%(#.*\)\=$')
    if col > 0
	call cursor(lnum, col)
	if searchpair(s:end_start_regex, '', s:end_end_regex, 'bW',
		    \ s:end_skip_expr) > 0
	    let n = line('.')
	    let ind = indent('.')
	    let msl = s:GetMSL(n)
	    if msl != n
		let ind = indent(msl)
	    end
	    return ind
	endif
    end

let col = s:Match(lnum, s:falcon_indent_keywords)
    if col > 0
	call cursor(lnum, col)
	let ind = virtcol('.') - 1 + shiftwidth()
	" TODO: make this better (we need to count them) (or, if a searchpair
	" fails, we know that something is lacking an end and thus we indent a
	" level
	if s:Match(lnum, s:end_end_regex)
	    let ind = indent('.')
	endif
	return ind
    endif

" Set up variables to use and search for MSL to the previous line.
    let p_lnum = lnum
    let lnum = s:GetMSL(lnum)

" If the previous line wasn't a MSL and is continuation return its indent.
    " TODO: the || s:IsInString() thing worries me a bit.
    if p_lnum != lnum
	if s:Match(p_lnum, s:non_bracket_continuation_regex) || s:IsInString(p_lnum,strlen(line))
	    return ind
	endif
    endif

" Set up more variables, now that we know we wasn't continuation bound.
    let line = getline(lnum)
    let msl_ind = indent(lnum)

" If the MSL line had an indenting keyword in it, add a level of indent.
    " TODO: this does not take into account contrived things such as
    " module Foo; class Bar; end
    if s:Match(lnum, s:falcon_indent_keywords)
	let ind = msl_ind + shiftwidth()
	if s:Match(lnum, s:end_end_regex)
	    let ind = ind - shiftwidth()
	endif
	return ind
    endif

" If the previous line ended with [*+/.,-=], but wasn't a block ending or a
    " closing bracket, indent one extra level.
    if s:Match(lnum, s:non_bracket_continuation_regex) && !s:Match(lnum, '^\s*$[\])}]\|end$')
	if lnum == p_lnum
	    let ind = msl_ind + shiftwidth()
	else
	    let ind = msl_ind
	endif
	return ind
    endif

return ind
endfunction

" }}}1

let &cpo = s:cpo_save
unlet s:cpo_save

" vim: set sw=4 sts=4 et tw=80 :