codekingpro/portable-devtools

1" Vim filetype plugin file2" Language:		Pascal3" Maintainer:		Doug Kearns <dougkearns@gmail.com>4" Previous Maintainer:	Dan Sharp5" Last Change:		2024 Jan 146" 			2024 May 23 by Riley Bruins <ribru17@gmail.com> ('commentstring')7 8if exists("b:did_ftplugin") | finish | endif9let b:did_ftplugin = 110 11let s:cpo_save = &cpo12set cpo&vim13 14set comments=s:(*,m:\ ,e:*),s:{,m:\ ,e:}15set commentstring={\ %s\ }16 17if exists("pascal_delphi")18  set comments+=:///19endif20 21if !exists("pascal_traditional")22  set commentstring=//\ %s23  set comments+=://24endif25 26setlocal formatoptions-=t formatoptions+=croql27 28if exists("loaded_matchit")29  let b:match_ignorecase = 1 " (Pascal is case-insensitive)30 31  let b:match_words  = '\<\%(asm\|begin\|case\|\%(\%(=\|packed\)\s*\)\@<=\%(class\|object\)\|\%(=\s*\)\@<=interface\|record\|try\)\>'32  let b:match_words .= ':\%(^\s*\)\@<=\%(except\|finally\|else\|otherwise\)\>'33  let b:match_words .= ':\<end\>\.\@!'34 35  let b:match_words .= ',\<repeat\>:\<until\>'36  " let b:match_words .= ',\<if\>:\<else\>' " FIXME - else clashing with middle else. It seems like a debatable use anyway.37  let b:match_words .= ',\<unit\>:\<\%(\%(^\s*\)\@<=interface\|implementation\|initialization\|finalization\)\>:\<end\.'38endif39 40if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter")41  let b:browsefilter = "Pascal Source Files (*.pas, *.pp, *.inc)\t*.pas;*.pp;*.inc\n"42  if has("win32")43    let b:browsefilter ..= "All Files (*.*)\t*\n"44  else45    let b:browsefilter ..= "All Files (*)\t*\n"46  endif47endif48 49let b:undo_ftplugin = "setl fo< cms< com< " ..50		    \ "| unlet! b:browsefilter b:match_words b:match_ignorecase"51 52let &cpo = s:cpo_save53unlet s:cpo_save54 55" vim: nowrap sw=2 sts=2 ts=8 noet:56