1------------------------------------------------------------------------------ 2-- -- 3-- GPR TECHNOLOGY -- 4-- -- 5-- Copyright (C) 2001-2016, AdaCore -- 6-- -- 7-- This is free software; you can redistribute it and/or modify it under -- 8-- terms of the GNU General Public License as published by the Free Soft- -- 9-- ware Foundation; either version 3, or (at your option) any later ver- -- 10-- sion. This software is distributed in the hope that it will be useful, -- 11-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- -- 12-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public -- 13-- License for more details. You should have received a copy of the GNU -- 14-- General Public License distributed with GNAT; see file COPYING. If not, -- 15-- see <http://www.gnu.org/licenses/>. -- 16-- -- 17------------------------------------------------------------------------------ 18 19-- This package spec holds version information for the GPR tools. 20-- It is updated whenever the release number is changed and at the beginning 21-- of each calendar year. 22 23package GPR_Version is 24 25 Gpr_Version : constant String := "17.0w"; 26 -- Static string identifying this version 27 28 Date : constant String := "20150615"; 29 30 Current_Year : constant String := "2016"; 31 32 type Gnat_Build_Type is (Gnatpro, FSF, GPL); 33 -- See Get_Gnat_Build_Type below for the meaning of these values 34 35 Build_Type : constant Gnat_Build_Type := Gnatpro; 36 -- Kind of GNAT Build: 37 -- 38 -- FSF 39 -- GNAT FSF version. This version of GNAT is part of a Free Software 40 -- Foundation release of the GNU Compiler Collection (GCC). The bug 41 -- box generated by Comperr gives information on how to report bugs 42 -- and list the "no warranty" information. 43 -- 44 -- Gnatpro 45 -- GNAT Professional version. This version of GNAT is supported by Ada 46 -- Core Technologies. The bug box generated by package Comperr gives 47 -- instructions on bug submission that include references to customer 48 -- number, gnattracker site etc. 49 -- 50 -- GPL 51 -- GNAT GPL Edition. This is a special version of GNAT, released by 52 -- Ada Core Technologies and intended for academic users, and free 53 -- software developers. The bug box generated by the package Comperr 54 -- gives appropriate bug submission instructions that do not reference 55 -- customer number etc. 56 57 function Gpr_Version_String return String; 58 -- Version output when GPRBUILD or its related tools, including 59 -- GPRCLEAN, are run (with appropriate verbose option switch set). 60 61 function Free_Software return String; 62 -- Text to be displayed by the different GNAT tools when switch --version 63 -- is used. This text depends on the GNAT build type. 64 65 function Copyright_Holder return String; 66 -- Return the name of the Copyright holder to be displayed by the different 67 -- GNAT tools when switch --version is used. 68 69end GPR_Version; 70