CVS difference for arm/progs/arm_text.ads

Differences between 1.17 and version 1.18
Log of other versions for file arm/progs/arm_text.ads

--- arm/progs/arm_text.ads	2012/05/19 01:00:26	1.17
+++ arm/progs/arm_text.ads	2012/09/01 06:46:49	1.18
@@ -87,15 +87,18 @@
     -- 12/19/07 - RLB - Added limited colors to Text_Format.
     -- 10/18/11 - RLB - Changed to GPLv3 license.
     -- 10/25/11 - RLB - Added old insertion version to Revised_Clause_Header.
+    --  8/31/12 - RLB - Added Output_Path.
 
     type Text_Output_Type is new ARM_Output.Output_Type with private;
 
     procedure Create (Output_Object : in out Text_Output_Type;
 		      File_Prefix : in String;
+		      Output_Path : in String;
 		      Title : in String := "");
 	-- Create an Output_Object for a document.
 	-- The prefix of the output file names is File_Prefix - this
 	-- should be no more then 5 characters allowed in file names.
+	-- The result files will be written to Output_Path.
 	-- The title of the document is Title.
 
     procedure Close (Output_Object : in out Text_Output_Type);
@@ -430,6 +433,8 @@
 	Output_Buffer_Space_Before : Boolean := False;
 			-- Do we need to output a space before the buffer?
 	Output_File : Ada.Text_IO.File_Type;
+	Output_Path : Buffer_String;
+	Output_Path_Len : Natural := 0;
 	File_Prefix : Prefix_String; -- Blank padded.
 	Char_Count : Natural := 0; -- Characters on current line.
 	Out_Char_Count : Natural := 0; -- Characters output on current line.

Questions? Ask the ACAA Technical Agent