gnatls.adb, gnatxref.adb, gprep.adb: Output the copyright message on a
separate line from the version message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90910
138bc75d-0d04-0410-961f-
82ee72b054a4
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;
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;
-- 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;
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;
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;
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:");
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, " &
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.OS_Lib; use GNAT.OS_Lib;
-
package body GPrep is
Copyright_Displayed : Boolean := False;
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;