<h2>Edit File - pascal.vim</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/vim/vim80/indent/pascal.vim">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">&quot; Vim indent file
&quot; Language:    Pascal
&quot; Maintainer:  Neil Carter &lt;n.carter@swansea.ac.uk&gt;
&quot; Created:     2004 Jul 13
&quot; Last Change: 2017 Jun 13
&quot;
&quot; This is version 2.0, a complete rewrite.
&quot;
&quot; For further documentation, see http://psy.swansea.ac.uk/staff/carter/vim/


if exists(&quot;b:did_indent&quot;)
	finish
endif
let b:did_indent = 1

setlocal indentexpr=GetPascalIndent(v:lnum)
setlocal indentkeys&amp;
setlocal indentkeys+==end;,==const,==type,==var,==begin,==repeat,==until,==for
setlocal indentkeys+==program,==function,==procedure,==object,==private
setlocal indentkeys+==record,==if,==else,==case

if exists(&quot;*GetPascalIndent&quot;)
	finish
endif


function! s:GetPrevNonCommentLineNum( line_num )

	&quot; Skip lines starting with a comment
	let SKIP_LINES = &#039;^\s*\(\((\*\)\|\(\*\ \)\|\(\*)\)\|{\|}\)&#039;

	let nline = a:line_num
	while nline &gt; 0
		let nline = prevnonblank(nline-1)
		if getline(nline) !~? SKIP_LINES
			break
		endif
	endwhile

	return nline
endfunction


function! s:PurifyCode( line_num )
	&quot; Strip any trailing comments and whitespace
	let pureline = &#039;TODO&#039;
	return pureline
endfunction


function! GetPascalIndent( line_num )

	&quot; Line 0 always goes at column 0
	if a:line_num == 0
		return 0
	endif

	let this_codeline = getline( a:line_num )


	&quot; SAME INDENT

	&quot; Middle of a three-part comment
	if this_codeline =~ &#039;^\s*\*&#039;
		return indent( a:line_num - 1)
	endif


	&quot; COLUMN 1 ALWAYS

	&quot; Last line of the program
	if this_codeline =~ &#039;^\s*end\.&#039;
		return 0
	endif

	&quot; Compiler directives, allowing &quot;(*&quot; and &quot;{&quot;
	&quot;if this_codeline =~ &#039;^\s*\({\|(\*\)$\(IFDEF\|IFNDEF\|ELSE\|ENDIF\)&#039;
	if this_codeline =~ &#039;^\s*\({\|(\*\)\$&#039;
		return 0
	endif

	&quot; section headers
	if this_codeline =~ &#039;^\s*\(program\|procedure\|function\|type\)\&gt;&#039;
		return 0
	endif

	&quot; Subroutine separators, lines ending with &quot;const&quot; or &quot;var&quot;
	if this_codeline =~ &#039;^\s*\((\*\ _\+\ \*)\|\(const\|var\)\)$&#039;
		return 0
	endif


	&quot; OTHERWISE, WE NEED TO LOOK FURTHER BACK...

	let prev_codeline_num = s:GetPrevNonCommentLineNum( a:line_num )
	let prev_codeline = getline( prev_codeline_num )
	let indnt = indent( prev_codeline_num )


	&quot; INCREASE INDENT

	&quot; If the PREVIOUS LINE ended in these items, always indent
	if prev_codeline =~ &#039;\&lt;\(type\|const\|var\)$&#039;
		return indnt + shiftwidth()
	endif

	if prev_codeline =~ &#039;\&lt;repeat$&#039;
		if this_codeline !~ &#039;^\s*until\&gt;&#039;
			return indnt + shiftwidth()
		else
			return indnt
		endif
	endif

	if prev_codeline =~ &#039;\&lt;\(begin\|record\)$&#039;
		if this_codeline !~ &#039;^\s*end\&gt;&#039;
			return indnt + shiftwidth()
		else
			return indnt
		endif
	endif

	&quot; If the PREVIOUS LINE ended with these items, indent if not
	&quot; followed by &quot;begin&quot;
	if prev_codeline =~ &#039;\&lt;\(\|else\|then\|do\)$&#039; || prev_codeline =~ &#039;:$&#039;
		if this_codeline !~ &#039;^\s*begin\&gt;&#039;
			return indnt + shiftwidth()
		else
			&quot; If it does start with &quot;begin&quot; then keep the same indent
			&quot;return indnt + shiftwidth()
			return indnt
		endif
	endif

	&quot; Inside a parameter list (i.e. a &quot;(&quot; without a &quot;)&quot;). ???? Considers
	&quot; only the line before the current one. TODO: Get it working for
	&quot; parameter lists longer than two lines.
	if prev_codeline =~ &#039;([^)]\+$&#039;
		return indnt + shiftwidth()
	endif


	&quot; DECREASE INDENT

	&quot; Lines starting with &quot;else&quot;, but not following line ending with
	&quot; &quot;end&quot;.
	if this_codeline =~ &#039;^\s*else\&gt;&#039; &amp;&amp; prev_codeline !~ &#039;\&lt;end$&#039;
		return indnt - shiftwidth()
	endif

	&quot; Lines after a single-statement branch/loop.
	&quot; Two lines before ended in &quot;then&quot;, &quot;else&quot;, or &quot;do&quot;
	&quot; Previous line didn&#039;t end in &quot;begin&quot;
	let prev2_codeline_num = s:GetPrevNonCommentLineNum( prev_codeline_num )
	let prev2_codeline = getline( prev2_codeline_num )
	if prev2_codeline =~ &#039;\&lt;\(then\|else\|do\)$&#039; &amp;&amp; prev_codeline !~ &#039;\&lt;begin$&#039;
		&quot; If the next code line after a single statement branch/loop
		&quot; starts with &quot;end&quot;, &quot;except&quot; or &quot;finally&quot;, we need an
		&quot; additional unindentation.
		if this_codeline =~ &#039;^\s*\(end;\|except\|finally\|\)$&#039;
			&quot; Note that we don&#039;t return from here.
			return indnt - 2 * shiftwidth()
		endif
		return indnt - shiftwidth()
	endif

	&quot; Lines starting with &quot;until&quot; or &quot;end&quot;. This rule must be overridden
	&quot; by the one for &quot;end&quot; after a single-statement branch/loop. In
	&quot; other words that rule should come before this one.
	if this_codeline =~ &#039;^\s*\(end\|until\)\&gt;&#039;
		return indnt - shiftwidth()
	endif


	&quot; MISCELLANEOUS THINGS TO CATCH

	&quot; Most &quot;begin&quot;s will have been handled by now. Any remaining
	&quot; &quot;begin&quot;s on their own line should go in column 1.
	if this_codeline =~ &#039;^\s*begin$&#039;
		return 0
	endif


&quot; ____________________________________________________________________
&quot; Object/Borland Pascal/Delphi Extensions
&quot;
&quot; Note that extended-pascal is handled here, unless it is simpler to
&quot; handle them in the standard-pascal section above.


	&quot; COLUMN 1 ALWAYS

	&quot; section headers at start of line.
	if this_codeline =~ &#039;^\s*\(interface\|implementation\|uses\|unit\)\&gt;&#039;
		return 0
	endif


	&quot; INDENT ONCE

	&quot; If the PREVIOUS LINE ended in these items, always indent.
	if prev_codeline =~ &#039;^\s*\(unit\|uses\|try\|except\|finally\|private\|protected\|public\|published\)$&#039;
		return indnt + shiftwidth()
	endif

	&quot; ???? Indent &quot;procedure&quot; and &quot;functions&quot; if they appear within an
	&quot; class/object definition. But that means overriding standard-pascal
	&quot; rule where these words always go in column 1.


	&quot; UNINDENT ONCE

	if this_codeline =~ &#039;^\s*\(except\|finally\)$&#039;
		return indnt - shiftwidth()
	endif

	if this_codeline =~ &#039;^\s*\(private\|protected\|public\|published\)$&#039;
		return indnt - shiftwidth()
	endif


&quot; ____________________________________________________________________

	&quot; If nothing changed, return same indent.
	return indnt
endfunction

</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>