Gecko [ nbspublicschool.com ]

Name	Size	Permission
README.txt	1.6 KB	-rw-r--r--
aap.vim	265 B	-rw-r--r--
ada.vim	10.89 KB	-rw-r--r--
ant.vim	290 B	-rw-r--r--
automake.vim	231 B	-rw-r--r--
awk.vim	7.57 KB	-rw-r--r--
bib.vim	346 B	-rw-r--r--
bst.vim	1.87 KB	-rw-r--r--
c.vim	325 B	-rw-r--r--
cdl.vim	4.07 KB	-rw-r--r--
ch.vim	470 B	-rw-r--r--
chaiscript.vim	1.11 KB	-rw-r--r--
changelog.vim	264 B	-rw-r--r--
clojure.vim	11.85 KB	-rw-r--r--
cmake.vim	2.69 KB	-rw-r--r--
cobol.vim	8 KB	-rw-r--r--
config.vim	2.12 KB	-rw-r--r--
cpp.vim	329 B	-rw-r--r--
cs.vim	327 B	-rw-r--r--
css.vim	1.68 KB	-rw-r--r--
cucumber.vim	2.56 KB	-rw-r--r--
cuda.vim	305 B	-rw-r--r--
d.vim	510 B	-rw-r--r--
dictconf.vim	325 B	-rw-r--r--
dictdconf.vim	326 B	-rw-r--r--
docbk.vim	324 B	-rw-r--r--
dtd.vim	11.39 KB	-rw-r--r--
dtrace.vim	451 B	-rw-r--r--
dylan.vim	2.6 KB	-rw-r--r--
eiffel.vim	3.13 KB	-rw-r--r--
erlang.vim	45.15 KB	-rw-r--r--
eruby.vim	2.11 KB	-rw-r--r--
eterm.vim	638 B	-rw-r--r--
falcon.vim	13.65 KB	-rw-r--r--
fortran.vim	6.41 KB	-rw-r--r--
framescript.vim	786 B	-rw-r--r--
gitconfig.vim	817 B	-rw-r--r--
gitolite.vim	996 B	-rw-r--r--
haml.vim	2.14 KB	-rw-r--r--
hamster.vim	1.37 KB	-rw-r--r--
html.vim	14.46 KB	-rw-r--r--
htmldjango.vim	273 B	-rw-r--r--
idlang.vim	1.53 KB	-rw-r--r--
ishd.vim	1.8 KB	-rw-r--r--
java.vim	4.02 KB	-rw-r--r--
javascript.vim	336 B	-rw-r--r--
jsp.vim	462 B	-rw-r--r--
ld.vim	1.71 KB	-rw-r--r--
lifelines.vim	637 B	-rw-r--r--
liquid.vim	1.83 KB	-rw-r--r--
lisp.vim	353 B	-rw-r--r--
logtalk.vim	1.65 KB	-rw-r--r--
lua.vim	1.87 KB	-rw-r--r--
mail.vim	308 B	-rw-r--r--
make.vim	3.35 KB	-rw-r--r--
matlab.vim	1.88 KB	-rw-r--r--
mma.vim	2.17 KB	-rw-r--r--
mp.vim	6.37 KB	-rw-r--r--
objc.vim	1.61 KB	-rw-r--r--
ocaml.vim	8.9 KB	-rw-r--r--
occam.vim	4.53 KB	-rw-r--r--
pascal.vim	5.52 KB	-rw-r--r--
perl.vim	5.67 KB	-rw-r--r--
perl6.vim	3.42 KB	-rw-r--r--
php.vim	18.97 KB	-rw-r--r--
postscr.vim	1.58 KB	-rw-r--r--
pov.vim	2.58 KB	-rw-r--r--
prolog.vim	1.42 KB	-rw-r--r--
pyrex.vim	326 B	-rw-r--r--
python.vim	5.61 KB	-rw-r--r--
r.vim	14.44 KB	-rw-r--r--
readline.vim	681 B	-rw-r--r--
rpl.vim	1.79 KB	-rw-r--r--
rst.vim	1.35 KB	-rw-r--r--
ruby.vim	17.13 KB	-rw-r--r--
sass.vim	1018 B	-rw-r--r--
scheme.vim	241 B	-rw-r--r--
scss.vim	191 B	-rw-r--r--
sdl.vim	2.7 KB	-rw-r--r--
sh.vim	3.95 KB	-rw-r--r--
sml.vim	6.27 KB	-rw-r--r--
sql.vim	1.18 KB	-rw-r--r--
sqlanywhere.vim	12.77 KB	-rw-r--r--
tcl.vim	1.56 KB	-rw-r--r--
tcsh.vim	1.21 KB	-rw-r--r--
tex.vim	9.47 KB	-rw-r--r--
tf.vim	1.46 KB	-rw-r--r--
tilde.vim	994 B	-rw-r--r--
treetop.vim	677 B	-rw-r--r--
vb.vim	2 KB	-rw-r--r--
verilog.vim	7.44 KB	-rw-r--r--
vhdl.vim	13.48 KB	-rw-r--r--
vim.vim	2.76 KB	-rw-r--r--
xf86conf.vim	679 B	-rw-r--r--
xhtml.vim	269 B	-rw-r--r--
xinetd.vim	1.17 KB	-rw-r--r--
xml.vim	2.77 KB	-rw-r--r--
xsd.vim	253 B	-rw-r--r--
xslt.vim	297 B	-rw-r--r--
yacc.vim	769 B	-rw-r--r--
yaml.vim	4.02 KB	-rw-r--r--
zimbu.vim	3.8 KB	-rw-r--r--
zsh.vim	231 B	-rw-r--r--

Code Editor : r.vim

" Vim indent file
" Language:	R
" Author:	Jakson Alves de Aquino <jalvesaq@gmail.com>
" Last Change:	Fri Feb 15, 2013  08:11PM

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

setlocal indentkeys=0{,0},:,!^F,o,O,e
setlocal indentexpr=GetRIndent()

" Only define the function once.
if exists("*GetRIndent")
    finish
endif

" Options to make the indentation more similar to Emacs/ESS:
if !exists("g:r_indent_align_args")
    let g:r_indent_align_args = 1
endif
if !exists("g:r_indent_ess_comments")
    let g:r_indent_ess_comments = 0
endif
if !exists("g:r_indent_comment_column")
    let g:r_indent_comment_column = 40
endif
if ! exists("g:r_indent_ess_compatible")
    let g:r_indent_ess_compatible = 0
endif

function s:RDelete_quotes(line)
    let i = 0
    let j = 0
    let line1 = ""
    let llen = strlen(a:line)
    while i < llen
        if a:line[i] == '"'
            let i += 1
            let line1 = line1 . 's'
            while !(a:line[i] == '"' && ((i > 1 && a:line[i-1] == '\' && a:line[i-2] == '\') || a:line[i-1] != '\')) && i < llen
                let i += 1
            endwhile
            if a:line[i] == '"'
                let i += 1
            endif
        else
            if a:line[i] == "'"
                let i += 1
                let line1 = line1 . 's'
                while !(a:line[i] == "'" && ((i > 1 && a:line[i-1] == '\' && a:line[i-2] == '\') || a:line[i-1] != '\')) && i < llen
                    let i += 1
                endwhile
                if a:line[i] == "'"
                    let i += 1
                endif
            else
                if a:line[i] == "`"
                    let i += 1
                    let line1 = line1 . 's'
                    while a:line[i] != "`" && i < llen
                        let i += 1
                    endwhile
                    if a:line[i] == "`"
                        let i += 1
                    endif
                endif
            endif
        endif
        if i == llen
            break
        endif
        let line1 = line1 . a:line[i]
        let j += 1
        let i += 1
    endwhile
    return line1
endfunction

" Convert foo(bar()) int foo()
function s:RDelete_parens(line)
    if s:Get_paren_balance(a:line, "(", ")") != 0
        return a:line
    endif
    let i = 0
    let j = 0
    let line1 = ""
    let llen = strlen(a:line)
    while i < llen
        let line1 = line1 . a:line[i]
        if a:line[i] == '('
            let nop = 1
            while nop > 0 && i < llen
                let i += 1
                if a:line[i] == ')'
                    let nop -= 1
                else
                    if a:line[i] == '('
                        let nop += 1 
                    endif
                endif
            endwhile
            let line1 = line1 . a:line[i]
        endif
        let i += 1
    endwhile
    return line1
endfunction

function! s:Get_paren_balance(line, o, c)
    let line2 = substitute(a:line, a:o, "", "g")
    let openp = strlen(a:line) - strlen(line2)
    let line3 = substitute(line2, a:c, "", "g")
    let closep = strlen(line2) - strlen(line3)
    return openp - closep
endfunction

function! s:Get_matching_brace(linenr, o, c, delbrace)
    let line = SanitizeRLine(getline(a:linenr))
    if a:delbrace == 1
        let line = substitute(line, '{$', "", "")
    endif
    let pb = s:Get_paren_balance(line, a:o, a:c)
    let i = a:linenr
    while pb != 0 && i > 1
        let i -= 1
        let pb += s:Get_paren_balance(SanitizeRLine(getline(i)), a:o, a:c)
    endwhile
    return i
endfunction

" This function is buggy because there 'if's without 'else'
" It must be rewritten relying more on indentation
function! s:Get_matching_if(linenr, delif)
"    let filenm = expand("%")
"    call writefile([filenm], "/tmp/matching_if_" . a:linenr)
    let line = SanitizeRLine(getline(a:linenr))
    if a:delif
        let line = substitute(line, "if", "", "g")
    endif
    let elsenr = 0
    let i = a:linenr
    let ifhere = 0
    while i > 0
        let line2 = substitute(line, '\<else\>', "xxx", "g")
        let elsenr += strlen(line) - strlen(line2)
        if line =~ '.*\s*if\s*()' || line =~ '.*\s*if\s*()'
            let elsenr -= 1
            if elsenr == 0
                let ifhere = i
                break
            endif
        endif
        let i -= 1
        let line = SanitizeRLine(getline(i))
    endwhile
    if ifhere
        return ifhere
    else
        return a:linenr
    endif
endfunction

function! s:Get_last_paren_idx(line, o, c, pb)
    let blc = a:pb
    let line = substitute(a:line, '\t', s:curtabstop, "g")
    let theidx = -1
    let llen = strlen(line)
    let idx = 0
    while idx < llen
        if line[idx] == a:o
            let blc -= 1
            if blc == 0
                let theidx = idx
            endif
        else
            if line[idx] == a:c
                let blc += 1
            endif
        endif
        let idx += 1
    endwhile
    return theidx + 1
endfunction

" Get previous relevant line. Search back until getting a line that isn't
" comment or blank
function s:Get_prev_line(lineno)
    let lnum = a:lineno - 1
    let data = getline( lnum )
    while lnum > 0 && (data =~ '^\s*#' || data =~ '^\s*$')
        let lnum = lnum - 1
        let data = getline( lnum )
    endwhile
    return lnum
endfunction

" This function is also used by r-plugin/common_global.vim
" Delete from '#' to the end of the line, unless the '#' is inside a string.
function SanitizeRLine(line)
    let newline = s:RDelete_quotes(a:line)
    let newline = s:RDelete_parens(newline)
    let newline = substitute(newline, '#.*', "", "")
    let newline = substitute(newline, '\s*$', "", "")
    return newline
endfunction

function GetRIndent()

let clnum = line(".")    " current line

let cline = getline(clnum)
    if cline =~ '^\s*#'
        if g:r_indent_ess_comments == 1
            if cline =~ '^\s*###'
                return 0
            endif
            if cline !~ '^\s*##'
                return g:r_indent_comment_column
            endif
        endif
    endif

let cline = SanitizeRLine(cline)

if cline =~ '^\s*}' || cline =~ '^\s*}\s*)$'
        let indline = s:Get_matching_brace(clnum, '{', '}', 1)
        if indline > 0 && indline != clnum
            let iline = SanitizeRLine(getline(indline))
            if s:Get_paren_balance(iline, "(", ")") == 0 || iline =~ '(\s*{$'
                return indent(indline)
            else
                let indline = s:Get_matching_brace(indline, '(', ')', 1)
                return indent(indline)
            endif
        endif
    endif

" Find the first non blank line above the current line
    let lnum = s:Get_prev_line(clnum)
    " Hit the start of the file, use zero indent.
    if lnum == 0
        return 0
    endif

let line = SanitizeRLine(getline(lnum))

if &filetype == "rhelp"
        if cline =~ '^\\dontshow{' || cline =~ '^\\dontrun{' || cline =~ '^\\donttest{' || cline =~ '^\\testonly{'
            return 0
        endif
        if line =~ '^\\examples{' || line =~ '^\\usage{' || line =~ '^\\dontshow{' || line =~ '^\\dontrun{' || line =~ '^\\donttest{' || line =~ '^\\testonly{'
            return 0
        endif
        if line =~ '^\\method{.*}{.*}(.*'
            let line = substitute(line, '^\\method{$.*$}{.*}', '\1', "")
        endif
    endif

if cline =~ '^\s*{'
        if g:r_indent_ess_compatible && line =~ ')$'
            let nlnum = lnum
            let nline = line
            while s:Get_paren_balance(nline, '(', ')') < 0
                let nlnum = s:Get_prev_line(nlnum)
                let nline = SanitizeRLine(getline(nlnum)) . nline
            endwhile
            if nline =~ '^\s*function\s*(' && indent(nlnum) == &sw
                return 0
            endif
        endif
        if s:Get_paren_balance(line, "(", ")") == 0
            return indent(lnum)
        endif
    endif

" line is an incomplete command:
    if line =~ '\<$if\|while\|for\|function$\s*()$' || line =~ '\<else$' || line =~ '<-$'
        return indent(lnum) + &sw
    endif

" Deal with () and []

let pb = s:Get_paren_balance(line, '(', ')')

if line =~ '^\s*{$' || line =~ '(\s*{' || (pb == 0 && (line =~ '{$' || line =~ '(\s*{$'))
        return indent(lnum) + &sw
    endif

let bb = s:Get_paren_balance(line, '[', ']')

let s:curtabstop = repeat(' ', &tabstop)
    if g:r_indent_align_args == 1

if pb == 0 && bb == 0 && (line =~ '.*[,&|\-\*+<>]$' || cline =~ '^\s*[,&|\-\*+<>]')
            return indent(lnum)
        endif

if pb > 0
            if &filetype == "rhelp"
                let ind = s:Get_last_paren_idx(line, '(', ')', pb)
            else
                let ind = s:Get_last_paren_idx(getline(lnum), '(', ')', pb)
            endif
            return ind
        endif

if pb < 0 && line =~ '.*[,&|\-\*+<>]$'
            let lnum = s:Get_prev_line(lnum)
            while pb < 1 && lnum > 0
                let line = SanitizeRLine(getline(lnum))
                let line = substitute(line, '\t', s:curtabstop, "g")
                let ind = strlen(line)
                while ind > 0
                    if line[ind] == ')'
                        let pb -= 1
                    else
                        if line[ind] == '('
                            let pb += 1
                        endif
                    endif
                    if pb == 1
                        return ind + 1
                    endif
                    let ind -= 1
                endwhile
                let lnum -= 1
            endwhile
            return 0
        endif

if bb > 0
            let ind = s:Get_last_paren_idx(getline(lnum), '[', ']', bb)
            return ind
        endif
    endif

let post_block = 0
    if line =~ '}$'
        let lnum = s:Get_matching_brace(lnum, '{', '}', 0)
        let line = SanitizeRLine(getline(lnum))
        if lnum > 0 && line =~ '^\s*{'
            let lnum = s:Get_prev_line(lnum)
            let line = SanitizeRLine(getline(lnum))
        endif
        let pb = s:Get_paren_balance(line, '(', ')')
        let post_block = 1
    endif

let post_fun = 0
    if pb < 0 && line !~ ')\s*[,&|\-\*+<>]$'
        let post_fun = 1
        while pb < 0 && lnum > 0
            let lnum -= 1
            let linepiece = SanitizeRLine(getline(lnum))
            let pb += s:Get_paren_balance(linepiece, "(", ")")
            let line = linepiece . line
        endwhile
        if line =~ '{$' && post_block == 0
            return indent(lnum) + &sw
        endif

" Now we can do some tests again
        if cline =~ '^\s*{'
            return indent(lnum)
        endif
        if post_block == 0
            let newl = SanitizeRLine(line)
            if newl =~ '\<$if\|while\|for\|function$\s*()$' || newl =~ '\<else$' || newl =~ '<-$'
                return indent(lnum) + &sw
            endif
        endif
    endif

if cline =~ '^\s*else'
        if line =~ '<-\s*if\s*()'
            return indent(lnum) + &sw
        else
            if line =~ '\<if\s*()'
                return indent(lnum)
            else
                return indent(lnum) - &sw
            endif
        endif
    endif

if bb < 0 && line =~ '.*]'
        while bb < 0 && lnum > 0
            let lnum -= 1
            let linepiece = SanitizeRLine(getline(lnum))
            let bb += s:Get_paren_balance(linepiece, "[", "]")
            let line = linepiece . line
        endwhile
        let line = s:RDelete_parens(line)
    endif

let plnum = s:Get_prev_line(lnum)
    let ppost_else = 0
    if plnum > 0
        let pline = SanitizeRLine(getline(plnum))
        let ppost_block = 0
        if pline =~ '}$'
            let ppost_block = 1
            let plnum = s:Get_matching_brace(plnum, '{', '}', 0)
            let pline = SanitizeRLine(getline(plnum))
            if pline =~ '^\s*{$' && plnum > 0
                let plnum = s:Get_prev_line(plnum)
                let pline = SanitizeRLine(getline(plnum))
            endif
        endif

if pline =~ 'else$'
            let ppost_else = 1
            let plnum = s:Get_matching_if(plnum, 0)
            let pline = SanitizeRLine(getline(plnum))
        endif

if pline =~ '^\s*else\s*if\s*('
            let pplnum = s:Get_prev_line(plnum)
            let ppline = SanitizeRLine(getline(pplnum))
            while ppline =~ '^\s*else\s*if\s*(' || ppline =~ '^\s*if\s*()\s*\S$'
                let plnum = pplnum
                let pline = ppline
                let pplnum = s:Get_prev_line(plnum)
                let ppline = SanitizeRLine(getline(pplnum))
            endwhile
            while ppline =~ '\<$if\|while\|for\|function$\s*()$' || ppline =~ '\<else$' || ppline =~ '<-$'
                let plnum = pplnum
                let pline = ppline
                let pplnum = s:Get_prev_line(plnum)
                let ppline = SanitizeRLine(getline(pplnum))
            endwhile
        endif

let ppb = s:Get_paren_balance(pline, '(', ')')
        if ppb < 0 && (pline =~ ')\s*{$' || pline =~ ')$')
            while ppb < 0 && plnum > 0
                let plnum -= 1
                let linepiece = SanitizeRLine(getline(plnum))
                let ppb += s:Get_paren_balance(linepiece, "(", ")")
                let pline = linepiece . pline
            endwhile
            let pline = s:RDelete_parens(pline)
        endif
    endif

let ind = indent(lnum)
    let pind = indent(plnum)

if g:r_indent_align_args == 0 && pb != 0
        let ind += pb * &sw
        return ind
    endif

if g:r_indent_align_args == 0 && bb != 0
        let ind += bb * &sw
        return ind
    endif

if ind == pind || (ind == (pind  + &sw) && pline =~ '{$' && ppost_else == 0)
        return ind
    endif

let pline = getline(plnum)
    let pbb = s:Get_paren_balance(pline, '[', ']')

while pind < ind && plnum > 0 && ppb == 0 && pbb == 0
        let ind = pind
        let plnum = s:Get_prev_line(plnum)
        let pline = getline(plnum)
        let ppb = s:Get_paren_balance(pline, '(', ')')
        let pbb = s:Get_paren_balance(pline, '[', ']')
        while pline =~ '^\s*else'
            let plnum = s:Get_matching_if(plnum, 1)
            let pline = getline(plnum)
            let ppb = s:Get_paren_balance(pline, '(', ')')
            let pbb = s:Get_paren_balance(pline, '[', ']')
        endwhile
        let pind = indent(plnum)
        if ind == (pind  + &sw) && pline =~ '{$'
            return ind
        endif
    endwhile

return ind

endfunction

" vim: sw=4

${this.title}

Code Editor : r.vim