CVS difference for arm/progs/arm_rtf.ads

Differences between 1.20 and version 1.21
Log of other versions for file arm/progs/arm_rtf.ads

--- arm/progs/arm_rtf.ads	2012/05/19 01:00:26	1.20
+++ arm/progs/arm_rtf.ads	2012/09/01 06:46:49	1.21
@@ -84,6 +84,7 @@
     --  5/ 6/09 - RLB - Added version names.
     -- 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 RTF_Output_Type is new ARM_Output.Output_Type with private;
 
@@ -100,10 +101,11 @@
 		      Page_Size : in ARM_RTF.Page_Size;
 		      Includes_Changes : in Boolean;
 		      Big_Files : in Boolean;
+		      File_Prefix : in String;
+		      Output_Path : in String;
 		      Primary_Sans_Serif_Font : in Sans_Serif_Fonts := Arial;
 		      Primary_Serif_Font : in Serif_Fonts := Times_New_Roman;
 		      Body_Font : in ARM_Output.Font_Family_Type := ARM_Output.Roman;
-		      File_Prefix : in String;
 		      Header_Prefix : in String := "";
 		      Footer_Use_Date : in Boolean;
 		      Footer_Use_Clause_Name : in Boolean;
@@ -118,6 +120,7 @@
 	-- Big_Files is True; otherwise generate smaller output files.
 	-- The prefix of the output file names is File_Prefix - this
 	-- should be no more then 5 characters allowed in file names.
+	-- The files will be written into Output_Path.
 	-- The title of the document is Title.
 	-- The header prefix appears in the header (if any) before the title,
 	-- separated by a dash.
@@ -457,8 +460,12 @@
 	Wrote_into_Section : Boolean := False; -- Have we written into the
 		-- current section yet?
 	Column_Count : ARM_Output.Column_Count := 1; -- Number of columns in current section.
+
 	Output_File : Ada.Text_IO.File_Type;
+	Big_Files : Boolean; -- For RTF, this means to generate a single monster file.
 	File_Prefix : Prefix_String; -- Blank padded.
+	Output_Path : Ada.Strings.Unbounded.Unbounded_String;
+
 	Title : Ada.Strings.Unbounded.Unbounded_String;
 	Header_Prefix : Ada.Strings.Unbounded.Unbounded_String;
         Footer_Use_Date : Boolean;
@@ -468,7 +475,6 @@
 	Page_Size : ARM_RTF.Page_Size;
 	Version_Names : ARM_Contents.Versioned_String;
 	Includes_Changes : Boolean;
-	Big_Files : Boolean; -- For RTF, this means to generate a single monster file.
 	Primary_Sans_Serif_Font : Sans_Serif_Fonts;
 	Primary_Serif_Font : Serif_Fonts;
 	Body_Font : ARM_Output.Font_Family_Type;

Questions? Ask the ACAA Technical Agent