File : gnatvsn.adb
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT COMPILER COMPONENTS --
4 -- --
5 -- G N A T V S N --
6 -- --
7 -- B o d y --
8 -- --
9 -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. --
17 -- --
18 -- --
19 -- --
20 -- --
21 -- --
22 -- You should have received a copy of the GNU General Public License and --
23 -- a copy of the GCC Runtime Library Exception along with this program; --
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
25 -- <http://www.gnu.org/licenses/>. --
26 -- --
27 -- GNAT was originally developed by the GNAT team at New York University. --
28 -- Extensive contributions were provided by Ada Core Technologies Inc. --
29 -- --
30 ------------------------------------------------------------------------------
31
32 package body Gnatvsn is
33
34 ----------------------
35 -- Copyright_Holder --
36 ----------------------
37
38 function Copyright_Holder return String is
39 begin
40 return "Free Software Foundation, Inc.";
41 end Copyright_Holder;
42
43 ------------------------
44 -- Gnat_Free_Software --
45 ------------------------
46
47 function Gnat_Free_Software return String is
48 begin
49 case Build_Type is
50 when GPL | FSF =>
51 return
52 "This is free software; see the source for copying conditions." &
53 ASCII.LF &
54 "There is NO warranty; not even for MERCHANTABILITY or FITNESS" &
55 " FOR A PARTICULAR PURPOSE.";
56
57 when Gnatpro =>
58 return
59 "This is free software; see the source for copying conditions." &
60 ASCII.LF &
61 "See your AdaCore support agreement for details of warranty" &
62 " and support." &
63 ASCII.LF &
64 "If you do not have a current support agreement, then there" &
65 " is absolutely" &
66 ASCII.LF &
67 "no warranty; not even for MERCHANTABILITY or FITNESS FOR" &
68 " A PARTICULAR" &
69 ASCII.LF &
70 "PURPOSE.";
71 end case;
72 end Gnat_Free_Software;
73
74 -------------------------
75 -- Gnat_Version_String --
76 -------------------------
77
78 function Gnat_Version_String return String is
79 begin
80 case Build_Type is
81 when Gnatpro =>
82 return "Pro " & Gnat_Static_Version_String;
83 when GPL =>
84 return "GPL " & Gnat_Static_Version_String;
85 when FSF =>
86 return Gnat_Static_Version_String;
87 end case;
88 end Gnat_Version_String;
89
90 end Gnatvsn;