Commit 3d7b4658 by Thomas Quinot Committed by Arnaud Charlet

xnmake.adb: Use new XUtil package for platform independent text output.

2008-08-06  Thomas Quinot  <quinot@adacore.com>

	* xnmake.adb: Use new XUtil package for platform independent text
	output.

From-SVN: r138769
parent f0a631aa
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -58,6 +58,8 @@ with Ada.Text_IO; use Ada.Text_IO; ...@@ -58,6 +58,8 @@ with Ada.Text_IO; use Ada.Text_IO;
with GNAT.Spitbol; use GNAT.Spitbol; with GNAT.Spitbol; use GNAT.Spitbol;
with GNAT.Spitbol.Patterns; use GNAT.Spitbol.Patterns; with GNAT.Spitbol.Patterns; use GNAT.Spitbol.Patterns;
with XUtil;
procedure XNmake is procedure XNmake is
Err : exception; Err : exception;
...@@ -137,8 +139,8 @@ procedure XNmake is ...@@ -137,8 +139,8 @@ procedure XNmake is
V_Elist_Id : constant VString := V ("Elist_Id"); V_Elist_Id : constant VString := V ("Elist_Id");
V_Boolean : constant VString := V ("Boolean"); V_Boolean : constant VString := V ("Boolean");
procedure Put_Line (F : Sfile; S : String); procedure Put_Line (F : Sfile; S : String) renames XUtil.Put_Line;
procedure Put_Line (F : Sfile; S : VString); procedure Put_Line (F : Sfile; S : VString) renames XUtil.Put_Line;
-- Local version of Put_Line ensures Unix style line endings -- Local version of Put_Line ensures Unix style line endings
procedure WriteS (S : String); procedure WriteS (S : String);
...@@ -199,17 +201,6 @@ procedure XNmake is ...@@ -199,17 +201,6 @@ procedure XNmake is
end if; end if;
end WriteS; end WriteS;
procedure Put_Line (F : Sfile; S : String) is
begin
String'Write (Stream (F), S);
Character'Write (Stream (F), ASCII.LF);
end Put_Line;
procedure Put_Line (F : Sfile; S : VString) is
begin
Put_Line (F, To_String (S));
end Put_Line;
-- Start of processing for XNmake -- Start of processing for XNmake
begin begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment