CVS difference for arm/progs/arm_inp.ads

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

--- arm/progs/arm_inp.ads	2000/09/02 00:15:03	1.1
+++ arm/progs/arm_inp.ads	2002/07/19 05:47:37	1.2
@@ -7,9 +7,9 @@
     -- or other entity, and routines to lex the input entities.
     --
     -- ---------------------------------------
-    -- Copyright 2000, AXE Consultants.
+    -- Copyright 2000, 2002  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
@@ -39,6 +39,7 @@
     -- Edit History:
     --
     --  5/15/00 - RLB - Created base package.
+    --  7/18/02 - RLB - Added Check_One_of_Parameter_Names.
 
     type Input_Type is abstract tagged limited null record;
 
@@ -135,6 +136,25 @@
         -- This is the first parameter is Is_First is True; otherwise
         -- it is a later parameter. (For a later parameter, we'll skip
         -- the comma and any whitespace.)
+        -- If the parameter has an argument, the opening character will
+        -- be read, and the closing character will be returned in
+        -- in Param_Close_Bracket. If the parameter wasn't found, an
+        -- error message will be produced, and Param_Close_Bracket will
+        -- be set to ' '.
+
+    procedure Check_One_of_Parameter_Names (
+		Input_Object : in out Input_Type'Class;
+		Param_Name_1 : in ARM_Input.Command_Name_Type;
+		Param_Name_2 : in ARM_Input.Command_Name_Type;
+		Is_First : in Boolean;
+		Param_Close_Bracket : out Character;
+		Is_Param_1 : out Boolean);
+        -- Check that the name of a parameter (if any) is Param_Name_1 or
+	-- Param_Name_2. This is the first parameter is Is_First is True;
+	-- otherwise it is a later parameter. (For a later parameter, we'll
+	-- skip the comma and any whitespace.)
+	-- If the parameter name is Param_Name_1, Is_Param_1 will be True;
+	-- otherwise it will be False.
         -- If the parameter has an argument, the opening character will
         -- be read, and the closing character will be returned in
         -- in Param_Close_Bracket. If the parameter wasn't found, an

Questions? Ask the ACAA Technical Agent