Mercurial > vim
annotate runtime/compiler/gnat.vim @ 18486:9d887cad7315
Added tag v8.1.2237 for changeset 63ee3c2b140fe1b4801389872a8e47aec19d028b
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Thu, 31 Oct 2019 20:00:04 +0100 |
| parents | d1e4abe8342c |
| children | e1df51f68736 |
| rev | line source |
|---|---|
| 1125 | 1 "------------------------------------------------------------------------------ |
| 2 " Description: Vim Ada/GNAT compiler file | |
| 3 " Language: Ada (GNAT) | |
| 2034 | 4 " $Id: gnat.vim 887 2008-07-08 14:29:01Z krischik $ |
| 1125 | 5 " Copyright: Copyright (C) 2006 Martin Krischik |
| 1668 | 6 " Maintainer: Martin Krischi <krischik@users.sourceforge.net>k |
| 7 " Ned Okie <nokie@radford.edu> | |
| 2034 | 8 " $Author: krischik $ |
| 9 " $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $ | |
| 1668 | 10 " Version: 4.6 |
| 2034 | 11 " $Revision: 887 $ |
| 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 | |
|
3496
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
20 if (exists("current_compiler")&& current_compiler == "gnat") || version < 700 |
| 1125 | 21 finish |
| 22 endif | |
|
3496
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
23 let s:keepcpo= &cpo |
|
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
24 set cpo&vim |
| 1125 | 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 | |
|
3496
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
65 let &cpo = s:keepcpo |
|
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
66 unlet s:keepcpo |
|
d1e4abe8342c
Fixed compatible mode in most runtime files.
Bram Moolenaar <bram@vim.org>
parents:
2034
diff
changeset
|
67 |
| 1125 | 68 finish " 1}}} |
| 69 | |
| 70 "------------------------------------------------------------------------------ | |
| 71 " Copyright (C) 2006 Martin Krischik | |
| 72 " | |
| 73 " Vim is Charityware - see ":help license" or uganda.txt for licence details. | |
| 74 "------------------------------------------------------------------------------ | |
| 75 " vim: textwidth=0 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab | |
| 76 " vim: foldmethod=marker |