Revert inlining basic language packv3.0.0

1 files changed, 0 insertions, 232 deletions

diff --git a/indent/pascal.vim b/indent/pascal.vim
deleted file mode 100644
index b20fb56d..00000000
--- a/indent/pascal.vim
+++ /dev/null
@@ -1,232 +0,0 @@
-if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1
-  
-" Vim indent file
-" Language:    Pascal
-" Maintainer:  Neil Carter <n.carter@swansea.ac.uk>
-" Created:     2004 Jul 13
-" Last Change: 2017 Jun 13
-"
-" This is version 2.0, a complete rewrite.
-"
-" For further documentation, see http://psy.swansea.ac.uk/staff/carter/vim/
-
-
-if exists("b:did_indent")
-	finish
-endif
-let b:did_indent = 1
-
-setlocal indentexpr=GetPascalIndent(v:lnum)
-setlocal indentkeys&
-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("*GetPascalIndent")
-	finish
-endif
-
-
-function! s:GetPrevNonCommentLineNum( line_num )
-
-	" Skip lines starting with a comment
-	let SKIP_LINES = '^\s*\(\((\*\)\|\(\*\ \)\|\(\*)\)\|{\|}\)'
-
-	let nline = a:line_num
-	while nline > 0
-		let nline = prevnonblank(nline-1)
-		if getline(nline) !~? SKIP_LINES
-			break
-		endif
-	endwhile
-
-	return nline
-endfunction
-
-
-function! s:PurifyCode( line_num )
-	" Strip any trailing comments and whitespace
-	let pureline = 'TODO'
-	return pureline
-endfunction
-
-
-function! GetPascalIndent( line_num )
-
-	" Line 0 always goes at column 0
-	if a:line_num == 0
-		return 0
-	endif
-
-	let this_codeline = getline( a:line_num )
-
-
-	" SAME INDENT
-
-	" Middle of a three-part comment
-	if this_codeline =~ '^\s*\*'
-		return indent( a:line_num - 1)
-	endif
-
-
-	" COLUMN 1 ALWAYS
-
-	" Last line of the program
-	if this_codeline =~ '^\s*end\.'
-		return 0
-	endif
-
-	" Compiler directives, allowing "(*" and "{"
-	"if this_codeline =~ '^\s*\({\|(\*\)$\(IFDEF\|IFNDEF\|ELSE\|ENDIF\)'
-	if this_codeline =~ '^\s*\({\|(\*\)\$'
-		return 0
-	endif
-
-	" section headers
-	if this_codeline =~ '^\s*\(program\|procedure\|function\|type\)\>'
-		return 0
-	endif
-
-	" Subroutine separators, lines ending with "const" or "var"
-	if this_codeline =~ '^\s*\((\*\ _\+\ \*)\|\(const\|var\)\)$'
-		return 0
-	endif
-
-
-	" 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 )
-
-
-	" INCREASE INDENT
-
-	" If the PREVIOUS LINE ended in these items, always indent
-	if prev_codeline =~ '\<\(type\|const\|var\)$'
-		return indnt + shiftwidth()
-	endif
-
-	if prev_codeline =~ '\<repeat$'
-		if this_codeline !~ '^\s*until\>'
-			return indnt + shiftwidth()
-		else
-			return indnt
-		endif
-	endif
-
-	if prev_codeline =~ '\<\(begin\|record\)$'
-		if this_codeline !~ '^\s*end\>'
-			return indnt + shiftwidth()
-		else
-			return indnt
-		endif
-	endif
-
-	" If the PREVIOUS LINE ended with these items, indent if not
-	" followed by "begin"
-	if prev_codeline =~ '\<\(\|else\|then\|do\)$' || prev_codeline =~ ':$'
-		if this_codeline !~ '^\s*begin\>'
-			return indnt + shiftwidth()
-		else
-			" If it does start with "begin" then keep the same indent
-			"return indnt + shiftwidth()
-			return indnt
-		endif
-	endif
-
-	" Inside a parameter list (i.e. a "(" without a ")"). ???? Considers
-	" only the line before the current one. TODO: Get it working for
-	" parameter lists longer than two lines.
-	if prev_codeline =~ '([^)]\+$'
-		return indnt + shiftwidth()
-	endif
-
-
-	" DECREASE INDENT
-
-	" Lines starting with "else", but not following line ending with
-	" "end".
-	if this_codeline =~ '^\s*else\>' && prev_codeline !~ '\<end$'
-		return indnt - shiftwidth()
-	endif
-
-	" Lines after a single-statement branch/loop.
-	" Two lines before ended in "then", "else", or "do"
-	" Previous line didn't end in "begin"
-	let prev2_codeline_num = s:GetPrevNonCommentLineNum( prev_codeline_num )
-	let prev2_codeline = getline( prev2_codeline_num )
-	if prev2_codeline =~ '\<\(then\|else\|do\)$' && prev_codeline !~ '\<begin$'
-		" If the next code line after a single statement branch/loop
-		" starts with "end", "except" or "finally", we need an
-		" additional unindentation.
-		if this_codeline =~ '^\s*\(end;\|except\|finally\|\)$'
-			" Note that we don't return from here.
-			return indnt - 2 * shiftwidth()
-		endif
-		return indnt - shiftwidth()
-	endif
-
-	" Lines starting with "until" or "end". This rule must be overridden
-	" by the one for "end" after a single-statement branch/loop. In
-	" other words that rule should come before this one.
-	if this_codeline =~ '^\s*\(end\|until\)\>'
-		return indnt - shiftwidth()
-	endif
-
-
-	" MISCELLANEOUS THINGS TO CATCH
-
-	" Most "begin"s will have been handled by now. Any remaining
-	" "begin"s on their own line should go in column 1.
-	if this_codeline =~ '^\s*begin$'
-		return 0
-	endif
-
-
-" ____________________________________________________________________
-" Object/Borland Pascal/Delphi Extensions
-"
-" Note that extended-pascal is handled here, unless it is simpler to
-" handle them in the standard-pascal section above.
-
-
-	" COLUMN 1 ALWAYS
-
-	" section headers at start of line.
-	if this_codeline =~ '^\s*\(interface\|implementation\|uses\|unit\)\>'
-		return 0
-	endif
-
-
-	" INDENT ONCE
-
-	" If the PREVIOUS LINE ended in these items, always indent.
-	if prev_codeline =~ '^\s*\(unit\|uses\|try\|except\|finally\|private\|protected\|public\|published\)$'
-		return indnt + shiftwidth()
-	endif
-
-	" ???? Indent "procedure" and "functions" if they appear within an
-	" class/object definition. But that means overriding standard-pascal
-	" rule where these words always go in column 1.
-
-
-	" UNINDENT ONCE
-
-	if this_codeline =~ '^\s*\(except\|finally\)$'
-		return indnt - shiftwidth()
-	endif
-
-	if this_codeline =~ '^\s*\(private\|protected\|public\|published\)$'
-		return indnt - shiftwidth()
-	endif
-
-
-" ____________________________________________________________________
-
-	" If nothing changed, return same indent.
-	return indnt
-endfunction
-
-
-endif