CVS difference for arm/progs/arm_out.ads

Differences between 1.25 and version 1.26
Log of other versions for file arm/progs/arm_out.ads

--- arm/progs/arm_out.ads	2012/11/06 02:30:37	1.25
+++ arm/progs/arm_out.ads	2012/12/14 04:15:04	1.26
@@ -108,6 +108,8 @@
     -- 10/25/11 - RLB - Added old insertion version to Revised_Clause_Header.
     -- 10/18/12 - RLB - Added additional hanging styles to reflect additional
     --			hang amounts.
+    -- 11/26/12 - RLB - Added subdivision names to Clause_Header and
+    --			Revised_Clause_Header.
 
     type Output_Type is abstract tagged limited null record;
 
@@ -115,6 +117,9 @@
 
     -- Creation is handled by the individual output types.
 
+    type Top_Level_Subdivision_Name_Kind is (Chapter, Section, Clause);
+
+
     procedure Close (Output_Object : in out Output_Type) is abstract;
 	-- Close an Output_Object. No further output to the object is
 	-- allowed after this call.
@@ -282,30 +287,34 @@
 	-- headers are spelled the same in all output versions).
 	-- Raises Not_Valid_Error if in a paragraph.
 
-    procedure Clause_Header (Output_Object : in out Output_Type;
-			     Header_Text : in String;
-			     Level : in ARM_Contents.Level_Type;
-			     Clause_Number : in String;
-			     No_Page_Break : in Boolean := False) is abstract;
+    procedure Clause_Header (Output_Object     : in out Output_Type;
+			     Header_Text       : in String;
+			     Level	       : in ARM_Contents.Level_Type;
+			     Clause_Number     : in String;
+			     Top_Level_Subdivision_Name : in ARM_Output.Top_Level_Subdivision_Name_Kind;
+			     No_Page_Break     : in Boolean := False) is abstract;
 	-- Output a Clause header. The level of the header is specified
-	-- in Level. The Clause Number is as specified.
-	-- These should appear in the table of contents.
+	-- in Level. The Clause Number is as specified; the top-level (and
+	-- other) subdivision names are as specified. These should appear in
+	-- the table of contents.
 	-- For hyperlinked formats, this should generate a link target.
 	-- If No_Page_Break is True, suppress any page breaks.
 	-- Raises Not_Valid_Error if in a paragraph.
 
-    procedure Revised_Clause_Header (Output_Object : in out Output_Type;
-			     New_Header_Text : in String;
-			     Old_Header_Text : in String;
-			     Level : in ARM_Contents.Level_Type;
-			     Clause_Number : in String;
-			     Version : in ARM_Contents.Change_Version_Type;
-			     Old_Version : in ARM_Contents.Change_Version_Type;
-        		     No_Page_Break : in Boolean := False) is abstract;
+    procedure Revised_Clause_Header
+			    (Output_Object     : in out Output_Type;
+			     New_Header_Text   : in String;
+			     Old_Header_Text   : in String;
+			     Level	       : in ARM_Contents.Level_Type;
+			     Clause_Number     : in String;
+			     Version	       : in ARM_Contents.Change_Version_Type;
+			     Old_Version       : in ARM_Contents.Change_Version_Type;
+			     Top_Level_Subdivision_Name : in ARM_Output.Top_Level_Subdivision_Name_Kind;
+        		     No_Page_Break     : in Boolean := False) is abstract;
 	-- Output a revised clause header. Both the original and new text will
 	-- be output. The level of the header is specified in Level. The Clause
-	-- Number is as specified.
-	-- These should appear in the table of contents.
+	-- Number is as specified; the top-level (and other) subdivision names
+	-- are as specified. These should appear in the table of contents.
 	-- For hyperlinked formats, this should generate a link target.
 	-- Version is the insertion version of the new text; Old_Version is
 	-- the insertion version of the old text.

Questions? Ask the ACAA Technical Agent