gnatmem.adb, [...]: Output the copyright message on a separate line from the version message.
* gnatmem.adb, gnatname.adb, gnatsym.adb, gprcmd.adb, vms_conv.adb: Output the copyright message on a separate line from the version message. From-SVN: r91885
This commit is contained in:
parent
bd7f7a653f
commit
5f8abbd98b
|
@ -55,7 +55,6 @@
|
||||||
|
|
||||||
with Gnatvsn; use Gnatvsn;
|
with Gnatvsn; use Gnatvsn;
|
||||||
|
|
||||||
|
|
||||||
with Ada.Text_IO; use Ada.Text_IO;
|
with Ada.Text_IO; use Ada.Text_IO;
|
||||||
with Ada.Float_Text_IO;
|
with Ada.Float_Text_IO;
|
||||||
with Ada.Integer_Text_IO;
|
with Ada.Integer_Text_IO;
|
||||||
|
@ -233,8 +232,8 @@ procedure Gnatmem is
|
||||||
begin
|
begin
|
||||||
New_Line;
|
New_Line;
|
||||||
Put ("GNATMEM ");
|
Put ("GNATMEM ");
|
||||||
Put (Gnat_Version_String);
|
Put_Line (Gnat_Version_String);
|
||||||
Put_Line (" Copyright 1997-2004 Free Software Foundation, Inc.");
|
Put_Line ("Copyright 1997-2004 Free Software Foundation, Inc.");
|
||||||
New_Line;
|
New_Line;
|
||||||
|
|
||||||
Put_Line ("Usage: gnatmem switches [depth] exename");
|
Put_Line ("Usage: gnatmem switches [depth] exename");
|
||||||
|
|
|
@ -170,9 +170,9 @@ procedure Gnatname is
|
||||||
Version_Output := True;
|
Version_Output := True;
|
||||||
Output.Write_Eol;
|
Output.Write_Eol;
|
||||||
Output.Write_Str ("GNATNAME ");
|
Output.Write_Str ("GNATNAME ");
|
||||||
Output.Write_Str (Gnatvsn.Gnat_Version_String);
|
Output.Write_Line (Gnatvsn.Gnat_Version_String);
|
||||||
Output.Write_Line
|
Output.Write_Line
|
||||||
(" Copyright 2001-2004 Free Software Foundation, Inc.");
|
("Copyright 2001-2004 Free Software Foundation, Inc.");
|
||||||
end if;
|
end if;
|
||||||
end Output_Version;
|
end Output_Version;
|
||||||
|
|
||||||
|
|
|
@ -111,7 +111,8 @@ procedure Gnatsym is
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
Write_Str ("GNATSYMB ");
|
Write_Str ("GNATSYMB ");
|
||||||
Write_Str (Gnat_Version_String);
|
Write_Str (Gnat_Version_String);
|
||||||
Write_Str (" Copyright 2003-2004 Free Software Foundation, Inc");
|
Write_Eol;
|
||||||
|
Write_Str ("Copyright 2003-2004 Free Software Foundation, Inc");
|
||||||
Write_Eol;
|
Write_Eol;
|
||||||
Copyright_Displayed := True;
|
Copyright_Displayed := True;
|
||||||
end if;
|
end if;
|
||||||
|
|
|
@ -53,7 +53,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
|
||||||
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
|
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
|
||||||
with GNAT.Regpat; use GNAT.Regpat;
|
with GNAT.Regpat; use GNAT.Regpat;
|
||||||
|
|
||||||
|
|
||||||
procedure Gprcmd is
|
procedure Gprcmd is
|
||||||
|
|
||||||
-- ??? comments are thin throughout this unit
|
-- ??? comments are thin throughout this unit
|
||||||
|
@ -398,9 +397,9 @@ begin
|
||||||
-- go to standard output.
|
-- go to standard output.
|
||||||
|
|
||||||
Put (Standard_Error, "GPRCMD ");
|
Put (Standard_Error, "GPRCMD ");
|
||||||
Put (Standard_Error, Gnatvsn.Gnat_Version_String);
|
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
|
||||||
Put_Line (Standard_Error,
|
Put_Line (Standard_Error,
|
||||||
" Copyright 2002-2004, Free Software Fundation, Inc.");
|
"Copyright 2002-2004, Free Software Fundation, Inc.");
|
||||||
Usage;
|
Usage;
|
||||||
|
|
||||||
elsif Cmd = "pwd" then
|
elsif Cmd = "pwd" then
|
||||||
|
|
|
@ -661,8 +661,8 @@ package body VMS_Conv is
|
||||||
procedure Output_Version is
|
procedure Output_Version is
|
||||||
begin
|
begin
|
||||||
Put ("GNAT ");
|
Put ("GNAT ");
|
||||||
Put (Gnatvsn.Gnat_Version_String);
|
Put_Line (Gnatvsn.Gnat_Version_String);
|
||||||
Put_Line (" Copyright 1996-2004 Free Software Foundation, Inc.");
|
Put_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
|
||||||
end Output_Version;
|
end Output_Version;
|
||||||
|
|
||||||
-----------
|
-----------
|
||||||
|
|
Loading…
Reference in New Issue