CVS difference for arm/progs/arm_cont.ads

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

--- arm/progs/arm_cont.ads	2022/02/04 04:29:03	1.12
+++ arm/progs/arm_cont.ads	2022/09/23 04:28:51	1.13
@@ -56,6 +56,7 @@
     --  8/30/12 - RLB - Added initialization of Section to UNKNOWN to
     --			detect bugs earlier.
     --  1/28/22 - RLB - Added Note_Info to better support ISO 2004 notes.
+    --  9/15/22 - RLB - Added Examples_Info to better support ISO 2021 examples.
 
     subtype Title_Type is String (1 .. 80);
 	-- The type of a title.
@@ -185,20 +186,32 @@
 	-- they were added to the contents. If the Quit parameter to Operate
 	-- is True when Operate returns, the iteration is abandoned.
         
-    -- Note information:
-    type Note_Info_Type is (No_Notes, One_Note, Many_Notes);
-        -- Determine if there is more than one note in this clause. We use
-        -- this to determine whether to display a number preceding a note.
+    -- Note and examples group information:
+    type Group_Info_Type is (No_Items, One_Item, Many_Items);
+        -- Determine if there is more than one item of an interesting group
+        -- in this clause. We use this to determine whether to display a number
+        -- preceding a note or example.
         
     function Lookup_Note_Info (Level : in Level_Type;
-		               Clause_Number : in Clause_Number_Type) return Note_Info_Type;
+		               Clause_Number : in Clause_Number_Type) return Group_Info_Type;
 	-- Given the level and clause numbers, return the note information.
 	-- Raises Not_Found_Error if not found.
 
     procedure Update_Note_Info (Level : in Level_Type;
 		                Clause_Number : in Clause_Number_Type;
-                                New_Note_Info : in Note_Info_Type);
+                                New_Note_Info : in Group_Info_Type);
 	-- Given the level and clause numbers, update the note information to
+        -- the provided value. Raises Not_Found_Error if not found.
+
+    function Lookup_Example_Info (Level : in Level_Type;
+		                  Clause_Number : in Clause_Number_Type) return Group_Info_Type;
+	-- Given the level and clause numbers, return the example information.
+	-- Raises Not_Found_Error if not found.
+
+    procedure Update_Example_Info (Level : in Level_Type;
+		                   Clause_Number    : in Clause_Number_Type;
+                                   New_Example_Info : in Group_Info_Type);
+	-- Given the level and clause numbers, update the example information to
         -- the provided value. Raises Not_Found_Error if not found.
 
 end ARM_Contents;

Questions? Ask the ACAA Technical Agent