33 function s:RDelete_quotes(line)  argument
37   let llen = strlen(a:line)
39     if a:line[i] == '"'
42 …while !(a:line[i] == '"' && ((i > 1 && a:line[i-1] == '\' && a:line[i-2] == '\') || a:line[i-1] !=…
45       if a:line[i] == '"'
49       if a:line[i] == "'"
52 …while !(a:line[i] == "'" && ((i > 1 && a:line[i-1] == '\' && a:line[i-2] == '\') || a:line[i-1] !=…
55         if a:line[i] == "'"
59         if a:line[i] == "`"
62           while a:line[i] != "`" && i < llen
65           if a:line[i] == "`"
74     let line1 = line1 . a:line[i]
82 function s:RDelete_parens(line)  argument
83   if s:Get_paren_balance(a:line, "(", ")") != 0
84     return a:line
89   let llen = strlen(a:line)
91     let line1 = line1 . a:line[i]
92     if a:line[i] == '('
96         if a:line[i] == ')'
99           if a:line[i] == '('
104       let line1 = line1 . a:line[i]
111 function! s:Get_paren_balance(line, o, c)  argument
112   let line2 = substitute(a:line, a:o, "", "g")
113   let openp = strlen(a:line) - strlen(line2)
120   let line = SanitizeRLine(getline(a:linenr))
122     let line = substitute(line, '{$', "", "")
124   let pb = s:Get_paren_balance(line, a:o, a:c)
136   let line = SanitizeRLine(getline(a:linenr))
138     let line = substitute(line, "if", "", "g")
144     let line2 = substitute(line, '\<else\>', "xxx", "g")
145     let elsenr += strlen(line) - strlen(line2)
146     if line =~ '.*\s*if\s*()' || line =~ '.*\s*if\s*()'
154     let line = SanitizeRLine(getline(i))
163 function! s:Get_last_paren_idx(line, o, c, pb)  argument
165   let line = substitute(a:line, '\t', s:curtabstop, "g")
167   let llen = strlen(line)
170     if line[idx] == a:o
176       if line[idx] == a:c
185 " Get previous relevant line. Search back until getting a line that isn't
198 " Delete from '#' to the end of the line, unless the '#' is inside a string.
199 function SanitizeRLine(line)  argument
200   let newline = s:RDelete_quotes(a:line)
212   let clnum = line(".")    " current line
246   " Find the first non blank line above the current line
253   let line = SanitizeRLine(getline(lnum))
259 …if line =~ '^\\examples{' || line =~ '^\\usage{' || line =~ '^\\dontshow{' || line =~ '^\\dontrun{…
264   if &filetype == "rnoweb" && line =~ "^<<.*>>="
269     if g:r_indent_ess_compatible && line =~ ')$'
271       let nline = line
280     if s:Get_paren_balance(line, "(", ")") == 0
285   " line is an incomplete command:
286 …if line =~ '\<\(if\|while\|for\|function\)\s*()$' || line =~ '\<else$' || line =~ '<-$' || line =~…
292   let pb = s:Get_paren_balance(line, '(', ')')
294   if line =~ '^\s*{$' || line =~ '(\s*{' || (pb == 0 && (line =~ '{$' || line =~ '(\s*{$'))
301     if pb > 0 && line =~ '{$'
302       return s:Get_last_paren_idx(line, '(', ')', pb) + shiftwidth()
305     let bb = s:Get_paren_balance(line, '[', ']')
309         let ind = s:Get_last_paren_idx(line, '(', ')', pb)
316     if pb < 0 && line =~ '.*[,&|\-\*+<>]$'
319         let line = SanitizeRLine(getline(lnum))
320         let line = substitute(line, '\t', s:curtabstop, "g")
321         let ind = strlen(line)
323           if line[ind] == ')'
326             if line[ind] == '('
347   if line =~ '}$' && s:Get_paren_balance(line, '{', '}') < 0
349     let line = SanitizeRLine(getline(lnum))
350     if lnum > 0 && line =~ '^\s*{'
352       let line = SanitizeRLine(getline(lnum))
354     let pb = s:Get_paren_balance(line, '(', ')')
362     if line =~ g:r_indent_op_pattern && s:Get_paren_balance(line, "(", ")") == 0
363       if oline =~ g:r_indent_op_pattern && s:Get_paren_balance(line, "(", ")") == 0
369       if oline =~ g:r_indent_op_pattern && s:Get_paren_balance(line, "(", ")") == 0
376   if pb < 0 && line !~ ')\s*[,&|\-\*+<>]$'
382       let line = linepiece . line
384     if line =~ '{$' && post_block == 0
393       let newl = SanitizeRLine(line)
401     if line =~ '<-\s*if\s*()'
404       if line =~ '\<if\s*()'
412   let bb = s:Get_paren_balance(line, '[', ']')
413   if bb < 0 && line =~ '.*]'
418       let line = linepiece . line
420     let line = s:RDelete_parens(line)