"------------------------------------------------------------------------------"  Description: Perform Ada specific completion & tagging."     Language: Ada (2005)"	   $Id: ada.vim,v 1.3 2007/05/05 17:17:45 vimboss Exp $"   Maintainer: Martin Krischik"		Neil Bird <neil@fnxweb.com>"      $Author: vimboss $"	 $Date: 2007/05/05 17:17:45 $"      Version: 4.2"    $Revision: 1.3 $"     $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/ftplugin/ada.vim $"      History: 24.05.2006 MK Unified Headers"		26.05.2006 MK ' should not be in iskeyword."		16.07.2006 MK Ada-Mode as vim-ball"		02.10.2006 MK Better folding."		15.10.2006 MK Bram's suggestion for runtime integration"               05.11.2006 MK Bram suggested not to use include protection for"                             autoload"		05.11.2006 MK Bram suggested to save on spaces"    Help Page: ft-ada-plugin"------------------------------------------------------------------------------" Provides mapping overrides for tag jumping that figure out the current" Ada object and tag jump to that, not the 'simple' vim word." Similarly allows <Ctrl-N> matching of full-length ada entities from tags."------------------------------------------------------------------------------ " Only do this when not done yet for this bufferif exists ("b:did_ftplugin") || version < 700   finishendif " Don't load another plugin for this bufferlet b:did_ftplugin = 38 "" Temporarily set cpoptions to ensure the script loads OK"let s:cpoptions = &cpoptionsset cpoptions-=C " Section: Comments {{{1"setlocal comments=O:--,:--\ \setlocal commentstring=--\ \ %ssetlocal complete=.,w,b,u,t,i " Section: Tagging {{{1"if exists ("g:ada_extended_tagging")   " Make local tag mappings for this buffer (if not already set)   if g:ada_extended_tagging == 'jump'      if mapcheck('<C-]>','n') == ''	 nnoremap <unique> <buffer> <C-]>    :call ada#Jump_Tag ('', 'tjump')<cr>      endif      if mapcheck('g<C-]>','n') == ''	 nnoremap <unique> <buffer> g<C-]>   :call ada#Jump_Tag ('','stjump')<cr>      endif   elseif g:ada_extended_tagging == 'list'      if mapcheck('<C-]>','n') == ''	 nnoremap <unique> <buffer> <C-]>    :call ada#List_Tag ()<cr>      endif      if mapcheck('g<C-]>','n') == ''	 nnoremap <unique> <buffer> g<C-]>   :call ada#List_Tag ()<cr>      endif   endifendif " Section: Completion {{{1"setlocal completefunc=ada#User_Completesetlocal omnifunc=adacomplete#Complete if exists ("g:ada_extended_completion")   if mapcheck ('<C-N>','i') == ''      inoremap <unique> <buffer> <C-N> <C-R>=ada#Completion("\<lt>C-N>")<cr>   endif   if mapcheck ('<C-P>','i') == ''      inoremap <unique> <buffer> <C-P> <C-R>=ada#Completion("\<lt>C-P>")<cr>   endif   if mapcheck ('<C-X><C-]>','i') == ''      inoremap <unique> <buffer> <C-X><C-]> <C-R>=<SID>ada#Completion("\<lt>C-X>\<lt>C-]>")<cr>   endif   if mapcheck ('<bs>','i') == ''      inoremap <silent> <unique> <buffer> <bs> <C-R>=ada#Insert_Backspace ()<cr>   endifendif " Section: Matchit {{{1"" Only do this when not done yet for this buffer & matchit is used"if !exists ("b:match_words")  &&  \ exists ("loaded_matchit")   "   " The following lines enable the macros/matchit.vim plugin for   " Ada-specific extended matching with the % key.   "   let s:notend      = '\%(\<end\s\+\)\@<!'   let b:match_words =      \ s:notend . '\<if\>:\<elsif\>:\<else\>:\<end\>\s\+\<if\>,' .      \ s:notend . '\<case\>:\<when\>:\<end\>\s\+\<case\>,' .      \ '\%(\<while\>.*\|\<for\>.*\|'.s:notend.'\)\<loop\>:\<end\>\s\+\<loop\>,' .      \ '\%(\<do\>\|\<begin\>\):\<exception\>:\<end\>\s*\%($\|[;A-Z]\),' .      \ s:notend . '\<record\>:\<end\>\s\+\<record\>'endif " Section: Compiler {{{1"if ! exists("current_compiler")			||   \ current_compiler != g:ada_default_compiler   execute "compiler " . g:ada_default_compilerendif " Section: Folding {{{1"if exists("g:ada_folding")   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=3endif " Section: Abbrev {{{1"if exists("g:ada_abbrev")   iabbrev ret	return   iabbrev proc procedure   iabbrev pack package   iabbrev func functionendif " Section: Commands, Mapping, Menus {{{1"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'')') " 1}}}" Reset cpoptionslet &cpoptions = s:cpoptionsunlet s:cpoptions finish " 1}}} "------------------------------------------------------------------------------"   Copyright (C) 2006	Martin Krischik""   Vim is Charityware - see ":help license" or uganda.txt for licence details."------------------------------------------------------------------------------" vim: textwidth=78 nowrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab" vim: foldmethod=marker