1 files changed, 52 insertions, 0 deletions
diff --git a/mnv/runtime/compiler/decada.mnv b/mnv/runtime/compiler/decada.mnv
new file mode 100644
index 0000000000..755a4d1331
--- /dev/null
+++ b/mnv/runtime/compiler/decada.mnv
@@ -0,0 +1,52 @@
+"------------------------------------------------------------------------------
+"  Description: MNV Ada/Dec Ada compiler file
+"     Language: Ada (Dec Ada)
+"          $Id: decada.mnv 887 2008-07-08 14:29:01Z krischik $
+"    Copyright: Copyright (C) 2006 Martin Krischik
+"   Maintainer:	Martin Krischik <krischik@users.sourceforge.net>
+"      $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/mnv/compiler/decada.mnv $
+"      History: 21.07.2006 MK New Dec Ada
+"               15.10.2006 MK Bram's suggestion for runtime integration
+"               08.09.2006 MK Correct double load protection.
+"    Help Page: compiler-decada
+"------------------------------------------------------------------------------
+" Last Change:	2024 Apr 03 by The MNV Project (removed :CompilerSet definition)
+
+if (exists("current_compiler") && current_compiler == "decada") || version < 700
+   finish
+endif
+let s:keepcpo= &cpo
+set cpo&mnv
+
+let current_compiler = "decada"
+
+if !exists("g:decada")
+   let g:decada = decada#New ()
+
+   call ada#Map_Menu (
+     \'Dec Ada.Build',
+     \'<F7>',
+     \'call decada.Make ()')
+
+   call g:decada.Set_Session ()
+endif
+
+execute "CompilerSet makeprg="     . escape (g:decada.Make_Command, ' ')
+execute "CompilerSet errorformat=" . escape (g:decada.Error_Format, ' ')
+
+let &cpo = s:keepcpo
+unlet s:keepcpo
+
+finish " 1}}}
+
+"------------------------------------------------------------------------------
+"   Copyright (C) 2006  Martin Krischik
+"
+"   MNV is Charityware - see ":help license" or uganda.txt for licence details.
+"------------------------------------------------------------------------------
+" mnv: textwidth=78 wrap tabstop=8 shiftwidth=3 softtabstop=3 noexpandtab
+" mnv: foldmethod=marker