gnat1drv.adb, [...]: Output the copyright message on a separate line from the version message.
* gnat1drv.adb, gnatbind.adb, gnatchop.adb, gnatfind.adb, gnatlink.adb, gnatls.adb, gnatxref.adb, gprep.adb: Output the copyright message on a separate line from the version message. From-SVN: r90910
This commit is contained in:
parent
47190c6bc9
commit
87b62748db
|
@ -170,7 +170,8 @@ begin
|
|||
Write_Eol;
|
||||
Write_Str ("GNAT ");
|
||||
Write_Str (Gnat_Version_String);
|
||||
Write_Str (" Copyright 1992-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
Write_Str ("Copyright 1992-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
end if;
|
||||
|
||||
|
|
|
@ -480,7 +480,8 @@ begin
|
|||
Write_Eol;
|
||||
Write_Str ("GNATBIND ");
|
||||
Write_Str (Gnat_Version_String);
|
||||
Write_Str (" Copyright 1995-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
Write_Str ("Copyright 1995-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
end if;
|
||||
|
||||
|
|
|
@ -1145,10 +1145,10 @@ procedure Gnatchop is
|
|||
-- tools write to standard output ???
|
||||
|
||||
Put (Standard_Error, "GNATCHOP ");
|
||||
Put (Standard_Error, Gnatvsn.Gnat_Version_String);
|
||||
Put_Line (Standard_Error, Gnatvsn.Gnat_Version_String);
|
||||
Put_Line
|
||||
(Standard_Error,
|
||||
" Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
"Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
|
||||
when 'w' =>
|
||||
Overwrite_Files := True;
|
||||
|
|
|
@ -238,8 +238,8 @@ procedure Gnatfind is
|
|||
|
||||
procedure Write_Usage is
|
||||
begin
|
||||
Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String
|
||||
& " Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
Put_Line ("GNATFIND " & Gnatvsn.Gnat_Version_String);
|
||||
Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
Put_Line ("Usage: gnatfind pattern[:sourcefile[:line[:column]]] "
|
||||
& "[file1 file2 ...]");
|
||||
New_Line;
|
||||
|
|
|
@ -1278,7 +1278,8 @@ procedure Gnatlink is
|
|||
Write_Eol;
|
||||
Write_Str ("GNATLINK ");
|
||||
Write_Str (Gnat_Version_String);
|
||||
Write_Str (" Copyright 1995-2004 Free Software Foundation, Inc");
|
||||
Write_Eol;
|
||||
Write_Str ("Copyright 1995-2004 Free Software Foundation, Inc");
|
||||
Write_Eol;
|
||||
end if;
|
||||
end Write_Header;
|
||||
|
|
|
@ -1484,7 +1484,8 @@ begin
|
|||
Write_Eol;
|
||||
Write_Str ("GNATLS ");
|
||||
Write_Str (Gnat_Version_String);
|
||||
Write_Str (" Copyright 1997-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
Write_Str ("Copyright 1997-2004 Free Software Foundation, Inc.");
|
||||
Write_Eol;
|
||||
Write_Eol;
|
||||
Write_Str ("Source Search Path:");
|
||||
|
|
|
@ -209,8 +209,8 @@ procedure Gnatxref is
|
|||
|
||||
procedure Write_Usage is
|
||||
begin
|
||||
Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String
|
||||
& " Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
Put_Line ("GNATXREF " & Gnatvsn.Gnat_Version_String);
|
||||
Put_Line ("Copyright 1998-2004, Ada Core Technologies Inc.");
|
||||
Put_Line ("Usage: gnatxref [switches] file1 file2 ...");
|
||||
New_Line;
|
||||
Put_Line (" file ... list of source files to xref, " &
|
||||
|
|
|
@ -45,7 +45,6 @@ with GNAT.Command_Line;
|
|||
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
|
||||
with GNAT.OS_Lib; use GNAT.OS_Lib;
|
||||
|
||||
|
||||
package body GPrep is
|
||||
|
||||
Copyright_Displayed : Boolean := False;
|
||||
|
@ -133,9 +132,8 @@ package body GPrep is
|
|||
procedure Display_Copyright is
|
||||
begin
|
||||
if not Copyright_Displayed then
|
||||
Write_Line ("GNAT Preprocessor " &
|
||||
Gnatvsn.Gnat_Version_String &
|
||||
" Copyright 1996-2004 Free Software Foundation, Inc.");
|
||||
Write_Line ("GNAT Preprocessor " & Gnatvsn.Gnat_Version_String);
|
||||
Write_Line ("Copyright 1996-2004 Free Software Foundation, Inc.");
|
||||
Copyright_Displayed := True;
|
||||
end if;
|
||||
end Display_Copyright;
|
||||
|
|
Loading…
Reference in New Issue