"------------------------------------------------------------------------------"  Description: Vim Ada/Dec Ada compiler file"     Language: Ada (Dec Ada)"          $Id: decada.vim,v 1.1 2007/05/05 17:25:32 vimboss Exp $"    Copyright: Copyright (C) 2006 Martin Krischik"   Maintainer:	Martin Krischik"      $Author: vimboss $"        $Date: 2007/05/05 17:25:32 $"      Version: 4.2"    $Revision: 1.1 $"     $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/autoload/decada.vim $"      History: 21.07.2006 MK New Dec Ada"               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: compiler-decada"------------------------------------------------------------------------------ if version < 700   finishendif function decada#Unit_Name () dict				     " {{{1    "	Convert filename into acs unit:    "	    1:  remove the file extenstion.    "	    2:  replace all double '_' or '-' with an dot (which denotes a separate)    "	    3:  remove a trailing '_' (wich denotes a specification)    return substitute (substitute (expand ("%:t:r"), '__\|-', ".", "g"), '_$', "", '')endfunction decada#Unit_Name					     " }}}1 function decada#Make () dict					     " {{{1    let l:make_prg   = substitute (g:self.Make_Command, '%<', self.Unit_Name(), '')    let &errorformat = g:self.Error_Format    let &makeprg     = l:make_prg    wall    make    copen    set wrap    wincmd Wendfunction decada#Build					     " }}}1 function decada#Set_Session (...) dict				     " {{{1   if a:0 > 0      call ada#Switch_Session (a:1)   elseif argc() == 0 && strlen (v:servername) > 0      call ada#Switch_Session (	 \ expand('~')[0:-2] . ".vimfiles.session]" .	 \ v:servername . ".vim")   endif   returnendfunction decada#Set_Session					     " }}}1 function decada#New ()						     " }}}1   let Retval = {      \ 'Make'		: function ('decada#Make'),      \ 'Unit_Name'	: function ('decada#Unit_Name'),      \ 'Set_Session'   : function ('decada#Set_Session'),      \ 'Project_Dir'   : '',      \ 'Make_Command'  : 'ACS COMPILE /Wait /Log /NoPreLoad /Optimize=Development /Debug %<',      \ 'Error_Format'  : '%+A%%ADAC-%t-%m,%C  %#%m,%Zat line number %l in file %f,' .			\ '%+I%%ada-I-%m,%C  %#%m,%Zat line number %l in file %f'}    return Retval endfunction decada#New						     " }}}1 finish " 1}}} "------------------------------------------------------------------------------"   Copyright (C) 2006  Martin Krischik""   Vim is Charityware - see ":help license" or uganda.txt for licence details."------------------------------------------------------------------------------" vim: textwidth=78 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab" vim: foldmethod=marker