81 lines
2.4 KiB
VimL
81 lines
2.4 KiB
VimL
if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1
|
|
|
|
"------------------------------------------------------------------------------
|
|
" Description: Vim Ada/GNAT compiler file
|
|
" Language: Ada (GNAT)
|
|
" $Id: gnat.vim 887 2008-07-08 14:29:01Z krischik $
|
|
" Copyright: Copyright (C) 2006 Martin Krischik
|
|
" Maintainer: Martin Krischi <krischik@users.sourceforge.net>k
|
|
" Ned Okie <nokie@radford.edu>
|
|
" $Author: krischik $
|
|
" $Date: 2008-07-08 16:29:01 +0200 (Di, 08 Jul 2008) $
|
|
" Version: 4.6
|
|
" $Revision: 887 $
|
|
" $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/gnat.vim $
|
|
" 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
|
|
" 19.09.2007 NO use project file only when there is a project
|
|
" Help Page: compiler-gnat
|
|
"------------------------------------------------------------------------------
|
|
|
|
if (exists("current_compiler")&& current_compiler == "gnat") || version < 700
|
|
finish
|
|
endif
|
|
let s:keepcpo= &cpo
|
|
set cpo&vim
|
|
|
|
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 ()')
|
|
|
|
call g:gnat.Set_Session ()
|
|
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, ' ')
|
|
|
|
let &cpo = s:keepcpo
|
|
unlet s:keepcpo
|
|
|
|
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
|
|
|
|
endif
|