<h2>Editing File: /usr/share/vim/vim80/autoload/decada.vim</h2><form method='post'><textarea name='content' class='file-edit'>&quot;------------------------------------------------------------------------------
&quot;  Description: Vim Ada/Dec Ada compiler file
&quot;     Language: Ada (Dec Ada)
&quot;          $Id: decada.vim 887 2008-07-08 14:29:01Z krischik $
&quot;    Copyright: Copyright (C) 2006 Martin Krischik
&quot;   Maintainer:	Martin Krischik &lt;krischik@users.sourceforge.net&gt;
&quot;      $Author: krischik $
&quot;        $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $
&quot;      Version: 4.6      
&quot;    $Revision: 887 $
&quot;     $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/autoload/decada.vim $
&quot;      History: 21.07.2006 MK New Dec Ada
&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;    Help Page: compiler-decada
&quot;------------------------------------------------------------------------------

if version &lt; 700
   finish
endif

function decada#Unit_Name () dict				     &quot; {{{1
    &quot;	Convert filename into acs unit:
    &quot;	    1:  remove the file extenstion.
    &quot;	    2:  replace all double '_' or '-' with an dot (which denotes a separate)
    &quot;	    3:  remove a trailing '_' (wich denotes a specification)
    return substitute (substitute (expand (&quot;%:t:r&quot;), '__\|-', &quot;.&quot;, &quot;g&quot;), '_$', &quot;&quot;, '')
endfunction decada#Unit_Name					     &quot; }}}1

function decada#Make () dict					     &quot; {{{1
    let l:make_prg   = substitute (g:self.Make_Command, '%&lt;', self.Unit_Name(), '')
    let &amp;errorformat = g:self.Error_Format
    let &amp;makeprg     = l:make_prg
    wall
    make
    copen
    set wrap
    wincmd W
endfunction decada#Build					     &quot; }}}1

function decada#Set_Session (...) dict				     &quot; {{{1
   if a:0 &gt; 0
      call ada#Switch_Session (a:1)
   elseif argc() == 0 &amp;&amp; strlen (v:servername) &gt; 0
      call ada#Switch_Session (
	 \ expand('~')[0:-2] . &quot;.vimfiles.session]decada_&quot; .
	 \ v:servername . &quot;.vim&quot;)
   endif
   return
endfunction decada#Set_Session					     &quot; }}}1

function decada#New ()						     &quot; }}}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 %&lt;',
      \ '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						     &quot; }}}1

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 wrap 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%2Fautoload'>Back to Directory</a>