CVS difference for arm/progs/arm_cont.ads

Differences between 1.1 and version 1.2
Log of other versions for file arm/progs/arm_cont.ads

--- arm/progs/arm_cont.ads	2000/09/02 00:15:03	1.1
+++ arm/progs/arm_cont.ads	2004/09/16 01:19:53	1.2
@@ -7,9 +7,9 @@
     -- references.
     --
     -- ---------------------------------------
-    -- Copyright 2000, AXE Consultants.
+    -- Copyright 2000, 2004  AXE Consultants.
     -- P.O. Box 1512, Madison WI  53701
-    -- E-Mail: rbrukardt@bix.com
+    -- E-Mail: randy@rrsoftware.com
     --
     -- AXE Consultants grants to all users the right to use/modify this
     -- formatting tool for non-commercial purposes. (ISO/IEC JTC 1 SC 22 WG 9
@@ -44,6 +44,9 @@
     --  5/22/00 - RLB - Added Unnumbered_Section level.
     --  8/ 7/00 - RLB - Made Make_Clause visible.
     --  8/22/00 - RLB - Added Old_Title handling.
+    --  9/14/04 - RLB - Moved Change_Version_Type here, to avoid mutual
+    --			dependence.
+    --		- RLB - Added version to changes.
 
     subtype Title_Type is String (1 .. 80);
 	-- The type of a title.
@@ -53,6 +56,9 @@
 	-- Value = 0 represents the preface, introduction, etc. No
 	-- number is generated if Section_Number = 0.
 
+    subtype Change_Version_Type is Character range '0' .. '9';
+	-- Defines the change version. Version 0 is the original text.
+
     Not_Found_Error : exception;
 
     procedure Initialize;
@@ -66,7 +72,8 @@
 		   Level : in Level_Type;
 		   Section_Number : in Section_Number_Type;
 		   Clause_Number : in Natural := 0;
-		   Subclause_Number : in Natural := 0);
+		   Subclause_Number : in Natural := 0;
+                   Version : in ARM_Contents.Change_Version_Type := '0');
 	-- Add a section or clause to the contents. It has the specified
 	-- characteristics.
 
@@ -133,6 +140,7 @@
 		   Section_Number : in Section_Number_Type;
 		   Clause_Number : in Natural;
 		   Subclause_Number : in Natural;
+                   Version : in ARM_Contents.Change_Version_Type;
 		   Quit : out Boolean) is <>;
     procedure For_Each;
 	-- Call Operate for each title in the contents, in the order that

Questions? Ask the ACAA Technical Agent