<h2>Editing File: /usr/share/vim/vim80/ftplugin/ada.vim</h2><form method='post'><textarea name='content' class='file-edit'>&quot;------------------------------------------------------------------------------
&quot;  Description: Perform Ada specific completion &amp; tagging.
&quot;     Language: Ada (2005)
&quot;	   $Id: ada.vim 887 2008-07-08 14:29:01Z krischik $
&quot;   Maintainer: Martin Krischik &lt;krischik@users.sourceforge.net&gt;
&quot;		Taylor Venable &lt;taylor@metasyntax.net&gt;
&quot;		Neil Bird &lt;neil@fnxweb.com&gt;
&quot;      $Author: krischik $
&quot;	 $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $
&quot;      Version: 4.6 with patch from David Bürgin
&quot;    $Revision: 887 $
&quot;     $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/ftplugin/ada.vim $
&quot;      History: 24.05.2006 MK Unified Headers
&quot;		26.05.2006 MK ' should not be in iskeyword.
&quot;		16.07.2006 MK Ada-Mode as vim-ball
&quot;		02.10.2006 MK Better folding.
&quot;		15.10.2006 MK Bram's suggestion for runtime integration
&quot;               05.11.2006 MK Bram suggested not to use include protection for
&quot;                             autoload
&quot;		05.11.2006 MK Bram suggested to save on spaces
&quot;		08.07.2007 TV fix default compiler problems.
&quot;    Help Page: ft-ada-plugin
&quot;------------------------------------------------------------------------------
&quot; Provides mapping overrides for tag jumping that figure out the current
&quot; Ada object and tag jump to that, not the 'simple' vim word.
&quot; Similarly allows &lt;Ctrl-N&gt; matching of full-length ada entities from tags.
&quot;------------------------------------------------------------------------------

&quot; Only do this when not done yet for this buffer
if exists (&quot;b:did_ftplugin&quot;) || version &lt; 700
   finish
endif

&quot; Don't load another plugin for this buffer
let b:did_ftplugin = 45

&quot;
&quot; Temporarily set cpoptions to ensure the script loads OK
&quot;
let s:cpoptions = &amp;cpoptions
set cpoptions-=C

&quot; Section: Comments  {{{1
&quot;
setlocal comments=O:--,:--\ \ 
setlocal commentstring=--\ \ %s
setlocal complete=.,w,b,u,t,i

&quot; Section: case	     {{{1
&quot;
setlocal nosmartcase
setlocal ignorecase

&quot; Section: formatoptions {{{1
&quot;
setlocal formatoptions+=ron

&quot; Section: Tagging {{{1
&quot;
if exists (&quot;g:ada_extended_tagging&quot;)
   &quot; Make local tag mappings for this buffer (if not already set)
   if g:ada_extended_tagging == 'jump'
      if mapcheck('&lt;C-]&gt;','n') == ''
	 nnoremap &lt;unique&gt; &lt;buffer&gt; &lt;C-]&gt;    :call ada#Jump_Tag ('', 'tjump')&lt;cr&gt;
      endif
      if mapcheck('g&lt;C-]&gt;','n') == ''
	 nnoremap &lt;unique&gt; &lt;buffer&gt; g&lt;C-]&gt;   :call ada#Jump_Tag ('','stjump')&lt;cr&gt;
      endif
   elseif g:ada_extended_tagging == 'list'
      if mapcheck('&lt;C-]&gt;','n') == ''
	 nnoremap &lt;unique&gt; &lt;buffer&gt; &lt;C-]&gt;    :call ada#List_Tag ()&lt;cr&gt;
      endif
      if mapcheck('g&lt;C-]&gt;','n') == ''
	 nnoremap &lt;unique&gt; &lt;buffer&gt; g&lt;C-]&gt;   :call ada#List_Tag ()&lt;cr&gt;
      endif
   endif
endif

&quot; Section: Completion {{{1
&quot;
setlocal completefunc=ada#User_Complete
setlocal omnifunc=adacomplete#Complete

if exists (&quot;g:ada_extended_completion&quot;)
   if mapcheck ('&lt;C-N&gt;','i') == ''
      inoremap &lt;unique&gt; &lt;buffer&gt; &lt;C-N&gt; &lt;C-R&gt;=ada#Completion(&quot;\&lt;lt&gt;C-N&gt;&quot;)&lt;cr&gt;
   endif
   if mapcheck ('&lt;C-P&gt;','i') == ''
      inoremap &lt;unique&gt; &lt;buffer&gt; &lt;C-P&gt; &lt;C-R&gt;=ada#Completion(&quot;\&lt;lt&gt;C-P&gt;&quot;)&lt;cr&gt;
   endif
   if mapcheck ('&lt;C-X&gt;&lt;C-]&gt;','i') == ''
      inoremap &lt;unique&gt; &lt;buffer&gt; &lt;C-X&gt;&lt;C-]&gt; &lt;C-R&gt;=&lt;SID&gt;ada#Completion(&quot;\&lt;lt&gt;C-X&gt;\&lt;lt&gt;C-]&gt;&quot;)&lt;cr&gt;
   endif
   if mapcheck ('&lt;bs&gt;','i') == ''
      inoremap &lt;silent&gt; &lt;unique&gt; &lt;buffer&gt; &lt;bs&gt; &lt;C-R&gt;=ada#Insert_Backspace ()&lt;cr&gt;
   endif
endif

&quot; Section: Matchit {{{1
&quot;
&quot; Only do this when not done yet for this buffer &amp; matchit is used
&quot;
if !exists (&quot;b:match_words&quot;)  &amp;&amp;
  \ exists (&quot;loaded_matchit&quot;)
   &quot;
   &quot; The following lines enable the macros/matchit.vim plugin for
   &quot; Ada-specific extended matching with the % key.
   &quot;
   let s:notend      = '\%(\&lt;end\s\+\)\@&lt;!'
   let b:match_words =
      \ s:notend . '\&lt;if\&gt;:\&lt;elsif\&gt;:\&lt;else\&gt;:\&lt;end\&gt;\s\+\&lt;if\&gt;,' .
      \ s:notend . '\&lt;case\&gt;:\&lt;when\&gt;:\&lt;end\&gt;\s\+\&lt;case\&gt;,' .
      \ '\%(\&lt;while\&gt;.*\|\&lt;for\&gt;.*\|'.s:notend.'\)\&lt;loop\&gt;:\&lt;end\&gt;\s\+\&lt;loop\&gt;,' .
      \ '\%(\&lt;do\&gt;\|\&lt;begin\&gt;\):\&lt;exception\&gt;:\&lt;end\&gt;\s*\%($\|[;A-Z]\),' .
      \ s:notend . '\&lt;record\&gt;:\&lt;end\&gt;\s\+\&lt;record\&gt;'
endif


&quot; Section: Compiler {{{1
&quot;
if ! exists(&quot;g:ada_default_compiler&quot;)
   if has(&quot;vms&quot;)
      let g:ada_default_compiler = 'decada'
   else
      let g:ada_default_compiler = 'gnat'
   endif
endif

if ! exists(&quot;current_compiler&quot;)			||
   \ current_compiler != g:ada_default_compiler
   execute &quot;compiler &quot; . g:ada_default_compiler
endif

&quot; Section: Folding {{{1
&quot;
if exists(&quot;g:ada_folding&quot;)
   if g:ada_folding[0] == 'i'
      setlocal foldmethod=indent
      setlocal foldignore=--
      setlocal foldnestmax=5
   elseif g:ada_folding[0] == 'g'
      setlocal foldmethod=expr
      setlocal foldexpr=ada#Pretty_Print_Folding(v:lnum)
   elseif g:ada_folding[0] == 's'
      setlocal foldmethod=syntax
   endif
   setlocal tabstop=8
   setlocal softtabstop=3
   setlocal shiftwidth=3
endif

&quot; Section: Abbrev {{{1
&quot;
if exists(&quot;g:ada_abbrev&quot;)
   iabbrev ret	return
   iabbrev proc procedure
   iabbrev pack package
   iabbrev func function
endif

&quot; Section: Commands, Mapping, Menus {{{1
&quot;
call ada#Map_Popup (
   \ 'Tag.List',
   \  'l',
   \ 'call ada#List_Tag ()')
call ada#Map_Popup (
   \'Tag.Jump',
   \'j',
   \'call ada#Jump_Tag ()')
call ada#Map_Menu (
   \'Tag.Create File',
   \':AdaTagFile',
   \'call ada#Create_Tags (''file'')')
call ada#Map_Menu (
   \'Tag.Create Dir',
   \':AdaTagDir',
   \'call ada#Create_Tags (''dir'')')

call ada#Map_Menu (
   \'Highlight.Toggle Space Errors',
   \ ':AdaSpaces',
   \'call ada#Switch_Syntax_Option (''space_errors'')')
call ada#Map_Menu (
   \'Highlight.Toggle Lines Errors',
   \ ':AdaLines',
   \'call ada#Switch_Syntax_Option (''line_errors'')')
call ada#Map_Menu (
   \'Highlight.Toggle Rainbow Color',
   \ ':AdaRainbow',
   \'call ada#Switch_Syntax_Option (''rainbow_color'')')
call ada#Map_Menu (
   \'Highlight.Toggle Standard Types',
   \ ':AdaTypes',
   \'call ada#Switch_Syntax_Option (''standard_types'')')

&quot; 1}}}
&quot; Reset cpoptions
let &amp;cpoptions = s:cpoptions
unlet s:cpoptions

finish &quot; 1}}}

&quot;------------------------------------------------------------------------------
&quot;   Copyright (C) 2006	Martin Krischik
&quot;
&quot;   Vim is Charityware - see &quot;:help license&quot; or uganda.txt for licence details.
&quot;------------------------------------------------------------------------------
&quot; vim: textwidth=78 nowrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab
&quot; vim: foldmethod=marker
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Fftplugin'>Back to Directory</a>