Mercurial > vim

comparison runtime/compiler/decada.vim @ 1668:0b796e045c42 v7.2b.000

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.2b-000
author vimboss
date Sun, 13 Jul 2008 17:41:49 +0000
parents 96cd8222a819
children 7bc41231fbc7
comparison
equal deleted inserted replaced
1667:131dbd3d2a4b 1668:0b796e045c42
1 "------------------------------------------------------------------------------ 1 "------------------------------------------------------------------------------
2 " Description: Vim Ada/Dec Ada compiler file 2 " Description: Vim Ada/Dec Ada compiler file
3 " Language: Ada (Dec Ada) 3 " Language: Ada (Dec Ada)
4 " $Id$ 4 " $Id$
5 " Copyright: Copyright (C) 2006 Martin Krischik 5 " Copyright: Copyright (C) 2006 Martin Krischik
6 " Maintainer: Martin Krischik 6 " Maintainer: Martin Krischik <krischik@users.sourceforge.net>
7 " $Author$ 7 " $Author$
8 " $Date$ 8 " $Date$
9 " Version: 4.2 9 " Version: 4.6
10 " $Revision$ 10 " $Revision$
11 " $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/decada.vim $ 11 " $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/decada.vim $
12 " History: 21.07.2006 MK New Dec Ada 12 " History: 21.07.2006 MK New Dec Ada
13 " 15.10.2006 MK Bram's suggestion for runtime integration 13 " 15.10.2006 MK Bram's suggestion for runtime integration
14 " 08.09.2006 MK Correct double load protection.
14 " Help Page: compiler-decada 15 " Help Page: compiler-decada
15 "------------------------------------------------------------------------------ 16 "------------------------------------------------------------------------------
16 17
17 if (exists("current_compiler") && 18 if (exists("current_compiler") &&
18 \ current_compiler == "decada") || 19 \ current_compiler == "decada") ||
22 23
23 let current_compiler = "decada" 24 let current_compiler = "decada"
24 25
25 if !exists("g:decada") 26 if !exists("g:decada")
26 let g:decada = decada#New () 27 let g:decada = decada#New ()
28
29 call ada#Map_Menu (
30 \'Dec Ada.Build',
31 \'<F7>',
32 \'call decada.Make ()')
33
34 call g:decada.Set_Session ()
27 endif 35 endif
28 36
29 if exists(":CompilerSet") != 2 37 if exists(":CompilerSet") != 2
30 " 38 "
31 " plugin loaded by other means then the "compiler" command 39 " plugin loaded by other means then the "compiler" command
32 " 40 "
33 command -nargs=* CompilerSet setlocal <args> 41 command -nargs=* CompilerSet setlocal <args>
34 endif 42 endif
35 43
36 call g:decada.Set_Session ()
37
38 execute "CompilerSet makeprg=" . escape (g:decada.Make_Command, ' ') 44 execute "CompilerSet makeprg=" . escape (g:decada.Make_Command, ' ')
39 execute "CompilerSet errorformat=" . escape (g:decada.Error_Format, ' ') 45 execute "CompilerSet errorformat=" . escape (g:decada.Error_Format, ' ')
40
41 call ada#Map_Menu (
42 \'Dec Ada.Build',
43 \'<F7>',
44 \'call decada.Make ()')
45 46
46 finish " 1}}} 47 finish " 1}}}
47 48
48 "------------------------------------------------------------------------------ 49 "------------------------------------------------------------------------------
49 " Copyright (C) 2006 Martin Krischik 50 " Copyright (C) 2006 Martin Krischik