CVS difference for arm/progs/arm_frm.ads

Differences between 1.32 and version 1.33
Log of other versions for file arm/progs/arm_frm.ads

--- arm/progs/arm_frm.ads	2012/03/20 06:37:15	1.32
+++ arm/progs/arm_frm.ads	2012/09/01 05:13:37	1.33
@@ -99,6 +99,8 @@
     --  3/12/12 - RLB - Lengthened unit name so
     --			"Ada.Strings.Wide_Wide_Unbounded.Wide_Wide_Equal_Case_Insensitive"
     --			would fit (have we lost our minds??).
+    --  8/31/12 - RLB - Put glossary components into a subrecord to prevent
+    --			inappropriate usage.
 
     type Format_Type is tagged limited private;
 
@@ -232,6 +234,30 @@
         Next : Reference_Ptr;
     end record;
 
+    type Glossary_Info_Type (Active : Boolean := False;
+                             Change_Kind : ARM_Database.Paragraph_Change_Kind_Type := ARM_Database.None) is record
+				-- The Change_Kind of ToGlossary.
+	case Active is
+	    when False => null; -- No glossary entry in use.
+	    when True =>
+		-- Glossary actively being processed; used only when
+		-- processing [Chg]ToGlossary[Also] commands.
+		Term : String (1..50); -- Glossary term.
+		Term_Len : Natural := 0;
+		Add_to_Glossary : Boolean;
+			-- Add this item to the Glossary.
+--?? Is this the same as "Active"??
+		Displayed : Boolean;
+			-- The text was displayed in the document.
+		case Change_Kind is
+		    when ARM_Database.None => null;
+		    when others =>
+			Version : ARM_Contents.Change_Version_Type;
+			    -- The version number of the changed paragraph.
+		end case;
+	end case;
+    end record;
+
     type Format_Type is tagged limited record
 	-- Document information:
 	Changes : ARM_Format.Change_Kind; -- No Both here.
@@ -365,17 +391,7 @@
 	Pragma_DB : ARM_Database.Database_Type;
 
 	-- Glossary:
-	Glossary_Term : String (1..50); -- Glossary term; used only when
-	Glossary_Term_Len : Natural := 0; -- processing [Chg]ToGlossary[Also] commands.
-	Glossary_Change_Kind : ARM_Database.Paragraph_Change_Kind_Type := ARM_Database.None;
-			-- The change kind of the ToGlossary.
-	Glossary_Version : ARM_Contents.Change_Version_Type;
-			-- If the kind is not "None", this is the version
-			-- number of the changed paragraph.
-	Add_to_Glossary : Boolean;
-			-- Add this item to the Glossary.
-	Glossary_Displayed : Boolean;
-			-- The text was displayed in the document.
+	Glossary_Info : Glossary_Info_Type;
 	Glossary_DB : ARM_Database.Database_Type;
 
 	-- Implementation advice:

Questions? Ask the ACAA Technical Agent