| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | "------------------------------------------------------------------------------ | 
					
						
							|  |  |  | "  Description: Vim Ada/GNAT compiler file | 
					
						
							|  |  |  | "     Language: Ada (GNAT) | 
					
						
							| 
									
										
										
										
											2010-01-06 20:54:52 +01:00
										 |  |  | "          $Id: gnat.vim 887 2008-07-08 14:29:01Z krischik $ | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | "    Copyright: Copyright (C) 2006 Martin Krischik | 
					
						
							| 
									
										
										
										
											2008-07-13 17:41:49 +00:00
										 |  |  | "   Maintainer:	Martin Krischi <krischik@users.sourceforge.net>k | 
					
						
							|  |  |  | "		Ned Okie <nokie@radford.edu> | 
					
						
							| 
									
										
										
										
											2010-01-06 20:54:52 +01:00
										 |  |  | "      $Author: krischik $ | 
					
						
							|  |  |  | "        $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $ | 
					
						
							| 
									
										
										
										
											2008-07-13 17:41:49 +00:00
										 |  |  | "      Version: 4.6 | 
					
						
							| 
									
										
										
										
											2010-01-06 20:54:52 +01:00
										 |  |  | "    $Revision: 887 $ | 
					
						
							| 
									
										
										
										
											2008-07-13 17:41:49 +00:00
										 |  |  | "     $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/gnat.vim $ | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | "      History: 24.05.2006 MK Unified Headers | 
					
						
							|  |  |  | "		16.07.2006 MK Ada-Mode as vim-ball | 
					
						
							|  |  |  | "               15.10.2006 MK Bram's suggestion for runtime integration | 
					
						
							| 
									
										
										
										
											2008-07-13 17:41:49 +00:00
										 |  |  | "		19.09.2007 NO use project file only when there is a project | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | "    Help Page: compiler-gnat | 
					
						
							|  |  |  | "------------------------------------------------------------------------------ | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2012-04-30 15:56:52 +02:00
										 |  |  | if (exists("current_compiler")&& current_compiler == "gnat") || version < 700 | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  |    finish | 
					
						
							|  |  |  | endif | 
					
						
							| 
									
										
										
										
											2012-04-30 15:56:52 +02:00
										 |  |  | let s:keepcpo= &cpo | 
					
						
							|  |  |  | set cpo&vim | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | let current_compiler = "gnat" | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | if !exists("g:gnat") | 
					
						
							|  |  |  |    let g:gnat = gnat#New () | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |    call ada#Map_Menu ( | 
					
						
							|  |  |  |       \ 'GNAT.Build', | 
					
						
							|  |  |  |       \ '<F7>', | 
					
						
							|  |  |  |       \ 'call gnat.Make ()') | 
					
						
							|  |  |  |    call ada#Map_Menu ( | 
					
						
							|  |  |  |       \ 'GNAT.Pretty Print', | 
					
						
							|  |  |  |       \ ':GnatPretty', | 
					
						
							|  |  |  |       \ 'call gnat.Pretty ()') | 
					
						
							|  |  |  |    call ada#Map_Menu ( | 
					
						
							|  |  |  |       \ 'GNAT.Tags', | 
					
						
							|  |  |  |       \ ':GnatTags', | 
					
						
							|  |  |  |       \ 'call gnat.Tags ()') | 
					
						
							|  |  |  |    call ada#Map_Menu ( | 
					
						
							|  |  |  |       \ 'GNAT.Find', | 
					
						
							|  |  |  |       \ ':GnatFind', | 
					
						
							|  |  |  |       \ 'call gnat.Find ()') | 
					
						
							|  |  |  |    call ada#Map_Menu ( | 
					
						
							|  |  |  |       \ 'GNAT.Set Projectfile\.\.\.', | 
					
						
							|  |  |  |       \ ':SetProject', | 
					
						
							|  |  |  |       \ 'call gnat.Set_Project_File ()') | 
					
						
							| 
									
										
										
										
											2008-07-13 17:41:49 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  |    call g:gnat.Set_Session () | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | endif | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | if exists(":CompilerSet") != 2 | 
					
						
							|  |  |  |    " | 
					
						
							|  |  |  |    " plugin loaded by other means then the "compiler" command | 
					
						
							|  |  |  |    " | 
					
						
							|  |  |  |    command -nargs=* CompilerSet setlocal <args> | 
					
						
							|  |  |  | endif | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | execute "CompilerSet makeprg="     . escape (g:gnat.Get_Command('Make'), ' ') | 
					
						
							|  |  |  | execute "CompilerSet errorformat=" . escape (g:gnat.Error_Format, ' ') | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2012-04-30 15:56:52 +02:00
										 |  |  | let &cpo = s:keepcpo | 
					
						
							|  |  |  | unlet s:keepcpo | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2007-05-05 18:24:42 +00:00
										 |  |  | finish " 1}}} | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | "------------------------------------------------------------------------------ | 
					
						
							|  |  |  | "   Copyright (C) 2006  Martin Krischik | 
					
						
							|  |  |  | " | 
					
						
							|  |  |  | "   Vim is Charityware - see ":help license" or uganda.txt for licence details. | 
					
						
							|  |  |  | "------------------------------------------------------------------------------ | 
					
						
							|  |  |  | " vim: textwidth=0 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab | 
					
						
							|  |  |  | " vim: foldmethod=marker |