Lines Matching refs:lnum

64    let lnum = a:prev_lnum
65    let line = substitute( getline(lnum), g:ada#Comment, '', '' )
66    while lnum > 1
67       if a:stop_at != ''  &&  line =~ '^\s*' . a:stop_at  &&  indent(lnum) < a:prev_indent
70 	 let ind = indent(lnum)
76       let lnum = prevnonblank(lnum - 1)
79 	 let line = substitute( getline(lnum), g:ada#Comment, '', '' )
83 	 let lnum = prevnonblank(lnum - 1)
84 	 if lnum <= 0
102    let lnum = a:prev_lnum
103    let line = getline(lnum)
105    while lnum > 1
106       if getline(lnum) =~ '^\s*' . a:blockstart
107 	 let ind = indent(lnum)
115       elseif getline(lnum) =~ '^\s*' . a:blockend
119       let lnum = prevnonblank(lnum - 1)
122 	 let line = getline(lnum)
127 	 let lnum = prevnonblank(lnum - 1)
128 	 if lnum <= 0
144    let lnum  = a:prev_lnum
145    while lnum > 0
146       let prev_lnum = lnum
147       let lnum = prevnonblank(lnum - 1)
150 	 let line = substitute( getline(lnum), g:ada#Comment, '', '' )
155 	 let lnum = prevnonblank(lnum - 1)
156 	 if lnum <= 0
183    let lnum = prevnonblank(v:lnum - 1)
184    let ind = indent(lnum)
189       let line = substitute( getline(lnum), g:ada#Comment, '', '' )
193       let lnum = prevnonblank(lnum - 1)
194       if lnum <= 0
200    let ind = indent(lnum)
224       let ind = s:MainBlockIndent( ind+shiftwidth(), lnum, 'type\>', '' )
227       exe lnum
235       exe v:lnum
241       let ind = s:StatementIndent( ind - shiftwidth(), lnum )
244       let ind = s:StatementIndent( ind, lnum )
252    let line = getline(v:lnum)
262 …let ind = s:MainBlockIndent( ind, lnum, '\(procedure\|function\|declare\|package\|task\)\>', 'begi…
264       let ind = s:MainBlockIndent( ind, lnum, 'type\>\|for\>.*\<use\>', '' ) + shiftwidth()
266       let ind = s:MainBlockIndent( ind, lnum, 'if\>', '' )
269       let ind = s:MainBlockIndent( ind, lnum, '\(case\|exception\)\>', '' ) + shiftwidth()
272       let ind = s:EndBlockIndent( ind, lnum, 'if\>', 'end\>\s*\<if\>' )
275 …    let ind = s:EndBlockIndent( ind, lnum, '\(\(while\|for\)\>.*\)\?\<loop\>', 'end\>\s*\<loop\>' )
278       let ind = s:EndBlockIndent( ind, lnum, '\(type\>.*\)\=\<record\>', 'end\>\s*\<record\>' )
281       let ind = s:EndBlockIndent( ind, lnum, 'procedure\>.*\<is\>', 'end\>\s*\<procedure\>' )
284       let ind = s:EndBlockIndent( ind, lnum, 'case\>.*\<is\>', 'end\>\s*\<case\>' )
287 …let ind = s:MainBlockIndent( ind, lnum, '\(if\|while\|for\|loop\|accept\|begin\|record\|case\|exce…
289       let ind = s:MainBlockIndent( ind, lnum, 'begin\>', '' )
291       let ind = s:MainBlockIndent( ind, lnum, 'if\>', '' )