|
1125
|
1 "------------------------------------------------------------------------------
|
|
|
2 " Description: Vim Ada/GNAT compiler file
|
|
|
3 " Language: Ada (GNAT)
|
|
|
4 " $Id$
|
|
|
5 " Copyright: Copyright (C) 2006 Martin Krischik
|
|
1668
|
6 " Maintainer: Martin Krischi <krischik@users.sourceforge.net>k
|
|
|
7 " Ned Okie <nokie@radford.edu>
|
|
1125
|
8 " $Author$
|
|
|
9 " $Date$
|
|
1668
|
10 " Version: 4.6
|
|
1125
|
11 " $Revision$
|
|
1668
|
12 " $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/gnat.vim $
|
|
1125
|
13 " History: 24.05.2006 MK Unified Headers
|
|
|
14 " 16.07.2006 MK Ada-Mode as vim-ball
|
|
|
15 " 15.10.2006 MK Bram's suggestion for runtime integration
|
|
1668
|
16 " 19.09.2007 NO use project file only when there is a project
|
|
1125
|
17 " Help Page: compiler-gnat
|
|
|
18 "------------------------------------------------------------------------------
|
|
|
19
|
|
|
20 if (exists("current_compiler") &&
|
|
|
21 \ current_compiler == "gnat") ||
|
|
|
22 \ version < 700
|
|
|
23 finish
|
|
|
24 endif
|
|
|
25
|
|
|
26 let current_compiler = "gnat"
|
|
|
27
|
|
|
28 if !exists("g:gnat")
|
|
|
29 let g:gnat = gnat#New ()
|
|
|
30
|
|
|
31 call ada#Map_Menu (
|
|
|
32 \ 'GNAT.Build',
|
|
|
33 \ '<F7>',
|
|
|
34 \ 'call gnat.Make ()')
|
|
|
35 call ada#Map_Menu (
|
|
|
36 \ 'GNAT.Pretty Print',
|
|
|
37 \ ':GnatPretty',
|
|
|
38 \ 'call gnat.Pretty ()')
|
|
|
39 call ada#Map_Menu (
|
|
|
40 \ 'GNAT.Tags',
|
|
|
41 \ ':GnatTags',
|
|
|
42 \ 'call gnat.Tags ()')
|
|
|
43 call ada#Map_Menu (
|
|
|
44 \ 'GNAT.Find',
|
|
|
45 \ ':GnatFind',
|
|
|
46 \ 'call gnat.Find ()')
|
|
|
47 call ada#Map_Menu (
|
|
|
48 \ 'GNAT.Set Projectfile\.\.\.',
|
|
|
49 \ ':SetProject',
|
|
|
50 \ 'call gnat.Set_Project_File ()')
|
|
1668
|
51
|
|
|
52 call g:gnat.Set_Session ()
|
|
1125
|
53 endif
|
|
|
54
|
|
|
55 if exists(":CompilerSet") != 2
|
|
|
56 "
|
|
|
57 " plugin loaded by other means then the "compiler" command
|
|
|
58 "
|
|
|
59 command -nargs=* CompilerSet setlocal <args>
|
|
|
60 endif
|
|
|
61
|
|
|
62 execute "CompilerSet makeprg=" . escape (g:gnat.Get_Command('Make'), ' ')
|
|
|
63 execute "CompilerSet errorformat=" . escape (g:gnat.Error_Format, ' ')
|
|
|
64
|
|
|
65 finish " 1}}}
|
|
|
66
|
|
|
67 "------------------------------------------------------------------------------
|
|
|
68 " Copyright (C) 2006 Martin Krischik
|
|
|
69 "
|
|
|
70 " Vim is Charityware - see ":help license" or uganda.txt for licence details.
|
|
|
71 "------------------------------------------------------------------------------
|
|
|
72 " vim: textwidth=0 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab
|
|
|
73 " vim: foldmethod=marker
|
