mirror of
https://github.com/macvim-dev/macvim.git
synced 2026-02-01 11:33:15 +01:00
62d8f3dab5
This reverts commits: -6b652a7850-2f689d5abd-a025a46d41Several email addresses that are known to be valid caused bounces due to an issue with my email setup. The previous commits incorrectly marked these addresses as invalid. So revert the whole thing again. Signed-off-by: Christian Brabandt <cb@256bit.org>
76 lines
2.9 KiB
VimL
76 lines
2.9 KiB
VimL
"------------------------------------------------------------------------------
|
|
" Description: Vim Ada/Dec Ada compiler file
|
|
" Language: Ada (Dec Ada)
|
|
" $Id: decada.vim 887 2008-07-08 14:29:01Z krischik $
|
|
" Copyright: Copyright (C) 2006 Martin Krischik
|
|
" Maintainer: Martin Krischik <krischik@users.sourceforge.net>
|
|
" $Author: krischik $
|
|
" $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $
|
|
" Version: 4.6
|
|
" $Revision: 887 $
|
|
" $HeadURL: https://gnuada.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
|
|
finish
|
|
endif
|
|
|
|
function decada#Unit_Name () dict " {{{1
|
|
" Convert filename into acs unit:
|
|
" 1: remove the file extension.
|
|
" 2: replace all double '_' or '-' with an dot (which denotes a separate)
|
|
" 3: remove a trailing '_' (which 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 W
|
|
endfunction 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]decada_" .
|
|
\ v:servername . ".vim")
|
|
endif
|
|
return
|
|
endfunction 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
|