0025064: TCollection modification for Salome porting

src/TCollection/TCollection_IndexedMap.cdl

@@ -84,14 +84,9 @@ is
     	-- -   the function RemoveLast to remove the last entry from the map.
 
     Create(Other : IndexedMap from TCollection)
-    returns IndexedMap from TCollection
+    returns IndexedMap from TCollection;
 	---Purpose: As  copying  Map  is an expensive  operation it is
-	-- incorrect  to  do  it implicitly. This constructor
+	-- not recommended to  do  it implicitly.
-	-- will raise an  error if the Map  is not  empty. To
-	-- copy the content of a  Map use the  Assign  method (operator =).
-    raises DomainError from Standard
-    is private;
-    
     
     Assign(me : in out; Other : IndexedMap from TCollection) 
     returns IndexedMap from TCollection

src/TCollection/TCollection_IndexedMap.gxx

@@ -41,8 +41,12 @@ TCollection_IndexedMap::TCollection_IndexedMap
   (const TCollection_IndexedMap& Other) :
   TCollection_BasicMap(Other.NbBuckets(),Standard_False)
 {
-  if (!Other.IsEmpty())
+  if  (!Other.IsEmpty()) { 
-    Standard_DomainError::Raise("TCollection:Copy of IndexedMap");
+    ReSize(Other.Extent());
+    for (Standard_Integer i = 1; i <= Other.Extent(); i++) {
+      Add(Other(i));
+    }
+  }
 }
 
 //=======================================================================

src/TCollection/TCollection_List.cdl

@@ -178,11 +178,9 @@ is
     	-- To copy a list, you must explicitly call the assignment operator (operator=).
 
     Create(Other : List from TCollection) 
-     returns List from TCollection
+     returns List from TCollection;
-     is private;
 	---Purpose: Creation by copy of existing list.
-	--  Warning: This constructor prints a warning message.
+	-- We recommend to use the operator =.
-	-- We recommand to use the operator =.
 		
     Assign(me : in out; Other : List from TCollection)
 	---Purpose: Replace <me> by a copy of <Other>.

src/TCollection/TCollection_Map.cdl

@@ -55,9 +55,6 @@ inherits BasicMap from TCollection
     	-- -   TCollection_MapHasher class describes the
     	--   functions required for a Hasher object.
   
-raises
-    DomainError from Standard
-    
  
     class StdMapNode from TCollection 
     inherits MapNode from TCollection
@@ -128,13 +125,9 @@ is
     	-- -   and a map iterator to explore the map.
     
 
-    Create(Other : Map from TCollection) returns Map from TCollection
+    Create(Other : Map from TCollection) returns Map from TCollection;
 	---Purpose: As  copying  Map  is an expensive  operation it is
-	-- incorrect  to  do  it implicitly. This constructor
+	-- not recommended to  do  it implicitly.
-	-- will raise an  error if the Map  is not  empty. To
-	-- copy the content of a  Map use the  Assign  method (operator =).
-    raises DomainError from Standard
-    is private;
     
     Assign(me : in out; Other : Map from TCollection) 
     returns Map from TCollection

src/TCollection/TCollection_Map.gxx

@@ -36,8 +36,12 @@ TCollection_Map::TCollection_Map(const Standard_Integer NbBuckets) :
 TCollection_Map::TCollection_Map(const TCollection_Map& Other) :
        TCollection_BasicMap(Other.NbBuckets(),Standard_True)
 {
-  if (Other.Extent() != 0)
+  if  (!Other.IsEmpty()) { 
-    Standard_DomainError::Raise("TCollection:Copy of Map");
+    ReSize(Other.Extent()); 
+    for (TCollection_MapIterator It(Other); It.More(); It.Next()) {
+      Add(It.Key());
+    }
+  }
 }
 
 //=======================================================================