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:
Arnaud Charlet 2004-12-08 12:46:30 +01:00
parent bd7f7a653f
commit 5f8abbd98b
5 changed files with 10 additions and 11 deletions

View File

@ -55,7 +55,6 @@
with Gnatvsn; use Gnatvsn;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Integer_Text_IO;
@ -233,8 +232,8 @@ procedure Gnatmem is
begin
New_Line;
Put ("GNATMEM ");
Put (Gnat_Version_String);
Put_Line (" Copyright 1997-2004 Free Software Foundation, Inc.");
Put_Line (Gnat_Version_String);
Put_Line ("Copyright 1997-2004 Free Software Foundation, Inc.");
New_Line;
Put_Line ("Usage: gnatmem switches [depth] exename");

View File

@ -170,9 +170,9 @@ procedure Gnatname is
Version_Output := True;
Output.Write_Eol;
Output.Write_Str ("GNATNAME ");
Output.Write_Str (Gnatvsn.Gnat_Version_String);
Output.Write_Line (Gnatvsn.Gnat_Version_String);
Output.Write_Line
(" Copyright 2001-2004 Free Software Foundation, Inc.");
("Copyright 2001-2004 Free Software Foundation, Inc.");
end if;
end Output_Version;

View File

@ -111,7 +111,8 @@ procedure Gnatsym is
Write_Eol;
Write_Str ("GNATSYMB ");
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;
Copyright_Displayed := True;
end if;

View File

@ -53,7 +53,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.Regpat; use GNAT.Regpat;
procedure Gprcmd is
-- ??? comments are thin throughout this unit
@ -398,9 +397,9 @@ begin
-- go to standard output.
Put (Standard_Error, "GPRCMD ");
Put (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
Put_Line (Standard_Error,
" Copyright 2002-2004, Free Software Fundation, Inc.");
"Copyright 2002-2004, Free Software Fundation, Inc.");
Usage;
elsif Cmd = "pwd" then

View File

@ -661,8 +661,8 @@ package body VMS_Conv is
procedure Output_Version is
begin
Put ("GNAT ");
Put (Gnatvsn.Gnat_Version_String);
Put_Line (" Copyright 1996-2004 Free Software Foundation, Inc.");
Put_Line (Gnatvsn.Gnat_Version_String);
Put_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
end Output_Version;
-----------