--| +=========================================================================+ --| | | --| | REGION_SCAN.REGION_SCAN_INTERNAL.SCAN_DISCRIMINANT_ASSOCIATION_LIST | --| | (body) | --| | | --| | Greg Janee | --| | General Research Corporation | --| | | --| +=========================================================================+ separate (Region_Scan.Region_Scan_Internal) procedure Scan_Discriminant_Association_List (The_List : in Asis.Discriminant_Association_List; The_Context : in out Context) is Cuid : constant String := "Region_Scan.Region_Scan_Internal.Scan_Discriminant_Association_List"; Puid : constant String := "Scan_Discriminant_Association_List"; The_Association : Asis.Discriminant_Association; begin for I in The_List'Range loop The_Association := The_List (I); Region_Scan_Internal.Scan_Discriminant_Association (The_Association, The_Context); end loop; end Scan_Discriminant_Association_List;