Mercurial > vim

comparison runtime/autoload/gnat.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/GNAT compiler file 2 " Description: Vim Ada/GNAT compiler file
3 " Language: Ada (GNAT) 3 " Language: Ada (GNAT)
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 Krischi <krischik@users.sourceforge.net>k
7 " Ned Okie <nokie@radford.edu>
7 " $Author$ 8 " $Author$
8 " $Date$ 9 " $Date$
9 " Version: 4.2 10 " Version: 4.6
10 " $Revision$ 11 " $Revision$
11 " $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/autoload/gnat.vim $ 12 " $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/autoload/gnat.vim $
12 " History: 24.05.2006 MK Unified Headers 13 " History: 24.05.2006 MK Unified Headers
13 " 16.07.2006 MK Ada-Mode as vim-ball 14 " 16.07.2006 MK Ada-Mode as vim-ball
14 " 05.08.2006 MK Add session support 15 " 05.08.2006 MK Add session support
15 " 15.10.2006 MK Bram's suggestion for runtime integration 16 " 15.10.2006 MK Bram's suggestion for runtime integration
16 " 05.11.2006 MK Bram suggested not to use include protection for 17 " 05.11.2006 MK Bram suggested not to use include protection for
17 " autoload 18 " autoload
18 " 05.11.2006 MK Bram suggested to save on spaces 19 " 05.11.2006 MK Bram suggested to save on spaces
20 " 19.09.2007 NO use project file only when there is a project
19 " Help Page: compiler-gnat 21 " Help Page: compiler-gnat
20 "------------------------------------------------------------------------------ 22 "------------------------------------------------------------------------------
21 23
22 if version < 700 24 if version < 700
23 finish 25 finish
69 71
70 if strlen (v:this_session) > 0 72 if strlen (v:this_session) > 0
71 execute 'mksession! ' . v:this_session 73 execute 'mksession! ' . v:this_session
72 endif 74 endif
73 75
74 if strlen (self.Project_File) > 0 76 "if strlen (self.Project_File) > 0
75 call ada#Switch_Session ( 77 "if has("vms")
76 \ expand('~') . "/vimfiles/session/" . 78 "call ada#Switch_Session (
77 \ fnamemodify (self.Project_File, ":t:r") . ".vim") 79 "\ expand('~')[0:-2] . ".vimfiles.session]gnat_" .
78 else 80 "\ fnamemodify (self.Project_File, ":t:r") . ".vim")
79 call ada#Switch_Session ('') 81 "else
80 endif 82 "call ada#Switch_Session (
83 "\ expand('~') . "/vimfiles/session/gnat_" .
84 "\ fnamemodify (self.Project_File, ":t:r") . ".vim")
85 "endif
86 "else
87 "call ada#Switch_Session ('')
88 "endif
81 89
82 return 90 return
83 endfunction gnat#Set_Project_File " }}}1 91 endfunction gnat#Set_Project_File " }}}1
84 92
85 function gnat#Get_Command (Command) dict " {{{1 93 function gnat#Get_Command (Command) dict " {{{1