/usr/share/ada/adainclude/gpr/gpr-version.adb is in libgpr1-dev 2017-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | ------------------------------------------------------------------------------
-- --
-- GPR TECHNOLOGY --
-- --
-- Copyright (C) 2001-2017, AdaCore --
-- --
-- This is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. This software is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public --
-- License for more details. You should have received a copy of the GNU --
-- General Public License distributed with GNAT; see file COPYING. If not, --
-- see <http://www.gnu.org/licenses/>. --
-- --
------------------------------------------------------------------------------
with GPR.Sdefault;
package body GPR.Version is
----------------------
-- Copyright_Holder --
----------------------
function Copyright_Holder return String is
begin
return "AdaCore";
end Copyright_Holder;
-------------------
-- Free_Software --
-------------------
function Free_Software return String is
begin
case Build_Type is
when GPL | FSF =>
return
"This is free software; see the source for copying conditions." &
ASCII.LF &
"There is NO warranty; not even for MERCHANTABILITY or FITNESS" &
" FOR A PARTICULAR PURPOSE.";
when Gnatpro =>
return
"This is free software; see the source for copying conditions." &
ASCII.LF &
"See your AdaCore support agreement for details of warranty" &
" and support." &
ASCII.LF &
"If you do not have a current support agreement, then there" &
" is absolutely" &
ASCII.LF &
"no warranty; not even for MERCHANTABILITY or FITNESS FOR" &
" A PARTICULAR" &
ASCII.LF &
"PURPOSE.";
end case;
end Free_Software;
------------------------
-- Gpr_Version_String --
------------------------
function Gpr_Version_String return String is
Host : constant String := " (" & GPR.Sdefault.Hostname & ')';
Version_String : constant String :=
Gpr_Version & " (" & Date & ")" & Host;
begin
case Build_Type is
when Gnatpro =>
return "Pro " & Version_String;
when GPL =>
return "GPL " & Version_String;
when FSF =>
return Version_String;
end case;
end Gpr_Version_String;
end GPR.Version;
|