--| +=========================================================================+ --| | | --| | REGION_SCAN.REGION_SCAN_INTERNAL.SCAN_CHOICE_LIST (body) | --| | | --| | Greg Janee | --| | General Research Corporation | --| | | --| +=========================================================================+ separate (Region_Scan.Region_Scan_Internal) procedure Scan_Choice_List (The_List : in Asis.Choice_List; The_Context : in out Context) is Cuid : constant String := "Region_Scan.Region_Scan_Internal.Scan_Choice_List"; Puid : constant String := "Scan_Choice_List"; The_Choice : Asis.Choice; begin for I in The_List'Range loop The_Choice := The_List (I); Region_Scan_Internal.Scan_Choice (The_Choice, The_Context); end loop; end Scan_Choice_List;