0024841: Remove duplicated and/or unused instances of collections

Removed duplicated instantiations of TCollection classes:
- BRepMAT2d_SequenceOfBasicElt: duplicates MAT_SequenceOfBasicElt
- BRepMesh_NodeHasherOfDataStructureOfDelaun, BRepMesh_IDMapOfNodeOfDataStructureOfDelaun: not used
- QADNaming_DataMapOfShapeOfName: duplicates DNaming_DataMapOfShapeOfName
- TDF_LabelLabelMap: not used
- Graphic3d_SequenceOfAddress: not used
- CDM_StackOfDocument: duplicates ListOfDocument (after fix on #24742)
- Draw_MapOfFunctions: duplicates Plugin_MapOfFunctions
- ExprIntrp_SkackOfNames: duplicates TColStd_ListOfAsciiString (after fix on #24742)
- in package Storage: (H)SeqOfPersistent, MapPSDHasher, (H)SeqOfCallback: not used

In addition, inheritance of MeshVS_ColorHasher from TColStd_MapIntegerHasher is dropped as it is useless but leads to problems if TColStd_MapIntegerHasher is converted to template.
First of the two overloaded functions Draw::Load() removed as it is unused.
Removed unused classes and files from PCollection and related packages.

src/BRepMAT2d/BRepMAT2d.cdl

@@ -47,12 +47,9 @@ is
     	--          the BasicElts contained in the bisecting locus.
 
 
-    class SequenceOfBasicElt instantiates Sequence from TCollection
-                                                         (BasicElt from MAT); 
-							 
     class DataMapOfShapeSequenceOfBasicElt instantiates DataMap from TCollection 
     		    		    	      (Shape               from TopoDS, 
-					       SequenceOfBasicElt  from  BRepMAT2d, 
+					       SequenceOfBasicElt  from MAT, 
 					       ShapeMapHasher      from TopTools); 
     
     class DataMapOfBasicEltShape  instantiates

src/BRepMAT2d/BRepMAT2d_LinkTopoBilo.cxx

@@ -29,9 +29,9 @@
 #include <TColGeom2d_SequenceOfCurve.hxx>
 #include <MAT_Graph.hxx>
 #include <MAT_BasicElt.hxx>
-#include <BRepTools_WireExplorer.hxx>
+#include <MAT_SequenceOfBasicElt.hxx>
-#include <BRepMAT2d_SequenceOfBasicElt.hxx>
 #include <BRepMAT2d_DataMapOfShapeSequenceOfBasicElt.hxx>
+#include <BRepTools_WireExplorer.hxx>
 #include <TColStd_DataMapIteratorOfDataMapOfIntegerInteger.hxx>
 #include <TColStd_DataMapOfIntegerInteger.hxx>
 #include <Precision.hxx>
@@ -170,7 +170,7 @@ void BRepMAT2d_LinkTopoBilo::LinkToWire(const TopoDS_Wire&              W,
   Handle(MAT_BasicElt)         BE;
   Handle(Standard_Type)        Type;
   TopTools_SequenceOfShape     TopoSeq;
-  BRepMAT2d_SequenceOfBasicElt EmptySeq;
+  MAT_SequenceOfBasicElt EmptySeq;
 
   TColStd_DataMapIteratorOfDataMapOfIntegerInteger Ite;
   TColStd_DataMapOfIntegerInteger LinkBECont;

src/BRepMesh/BRepMesh.cdl

@@ -113,8 +113,6 @@ is    enumeration DegreeOfFreedom is
         (Integer, Array1OfInteger from TColStd,
         ComparatorOfIndexedVertexOfDelaun from BRepMesh);
 
-      class NodeHasherOfDataStructureOfDelaun instantiates MapHasher from TCollection
-        (Vertex from BRepMesh);
       class LinkHasherOfDataStructureOfDelaun instantiates MapHasher from TCollection
         (Edge from BRepMesh);
       class ElemHasherOfDataStructureOfDelaun instantiates MapHasher from TCollection
@@ -123,11 +121,6 @@ is    enumeration DegreeOfFreedom is
       class DataMapOfIntegerListOfInteger     instantiates DataMap from TCollection
         (Integer from Standard, ListOfInteger from BRepMesh, MapIntegerHasher from TColStd);
 
-      class IDMapOfNodeOfDataStructureOfDelaun  instantiates IndexedDataMap from TCollection
-        (Vertex from BRepMesh,
-        ListOfInteger from BRepMesh,
-        NodeHasherOfDataStructureOfDelaun);
-
       class IDMapOfLinkOfDataStructureOfDelaun  instantiates IndexedDataMap from TCollection
         (Edge from BRepMesh,
         PairOfIndex from BRepMesh,
@@ -155,11 +148,6 @@ is    enumeration DegreeOfFreedom is
           (Vertex from  BRepMesh,  VertexHasher from  BRepMesh);
 
 
-      class DataMapOfShapeReal instantiates DataMap from TCollection
-                                            (Shape          from TopoDS,
-                                             Real           from Standard,
-                                             ShapeMapHasher from TopTools);
-
       class BiPoint;
   
       class Array1OfBiPoint    instantiates Array1  from TCollection(BiPoint from BRepMesh);

src/BRepMesh/BRepMesh_DataStructureOfDelaun.cdl

@@ -28,9 +28,6 @@ class DataStructureOfDelaun from BRepMesh inherits TShared from MMgt
               Box from Bnd,
               BoundSortBox from Bnd,
               BaseAllocator from BRepMesh,
-              NodeHasherOfDataStructureOfDelaun from BRepMesh,
-              LinkHasherOfDataStructureOfDelaun from BRepMesh,
-              ElemHasherOfDataStructureOfDelaun from BRepMesh,
               VertexTool from BRepMesh,
               IDMapOfLinkOfDataStructureOfDelaun from BRepMesh,
               IMapOfElementOfDataStructureOfDelaun from BRepMesh,

src/BRepMesh/BRepMesh_FastDiscret.cxx

@@ -69,7 +69,6 @@
 #include <BRepMesh_ListIteratorOfListOfXY.hxx>
 
 #include <TColStd_Array1OfInteger.hxx>
-#include <BRepMesh_IDMapOfNodeOfDataStructureOfDelaun.hxx>
 #include <Standard_ErrorHandler.hxx>
 #include <Standard_Failure.hxx>
 //#include <TColStd_DataMapOfInteger.hxx>

src/CDF/CDF_StoreList.cdl

@@ -18,10 +18,9 @@ private class StoreList from CDF inherits Transient from Standard
 
 uses
     Document from CDM,
-    StackOfDocument from CDM,
+    ListOfDocument from CDM,
     MapOfDocument from CDM,
     MapIteratorOfMapOfDocument from CDM,
-    ListIteratorOfStackOfDocument from CDM,
     MetaData from CDM,
     ExtendedString from TCollection,
     StoreStatus from PCDM
@@ -60,7 +59,7 @@ is
 fields
 
     myItems: MapOfDocument from CDM;
-    myStack: StackOfDocument from CDM;
+    myStack: ListOfDocument from CDM;
     myIterator: MapIteratorOfMapOfDocument from CDM;
     myMainDocument: Document from CDM;
 end StoreList from CDF;

src/CDM/CDM.cdl

@@ -64,6 +64,5 @@ is
     class DocumentHasher instantiates MapHasher from TCollection(Document from CDM);
     class MapOfDocument instantiates Map from TCollection(Document from CDM, DocumentHasher from CDM);
     class ListOfDocument instantiates List from TCollection(Document from CDM);
-    class StackOfDocument instantiates List from TCollection(Document from CDM);
 
 end CDM;

src/DBC/DBC_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" )  && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/DBC/DBC_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/DBC/FILES

@@ -3,5 +3,3 @@ DBC_DBVArray.cxx
 DBC_DBVArray.hxx
 DBC_Copy.tcl
 DBC_WOKSteps.edl
-DBC_CMPLRS.edl
-DBC_LDSHR.edl

src/Draw/Draw.cdl

@@ -123,14 +123,8 @@ is
     	    	    	       Drawable3D from Draw,
                                MapIntegerHasher from TColStd);    
         
-    private class MapOfFunctions instantiates DataMap from TCollection(AsciiString from TCollection ,Function from OSD, AsciiString from TCollection);
-
     class MapOfAsciiString instantiates IndexedMap from TCollection(AsciiString from TCollection,AsciiString from TCollection); 
      
-    Load(theDI: out Interpretor from Draw; theKey, theResourceFileName: AsciiString from TCollection)  
---    returns Transient from Standard
-    raises Failure  from Draw;      
-     
     Load(theDI: out Interpretor from Draw;
          theKey, theResourceFileName: AsciiString from TCollection;
          theDefaultsDirectory, theUserDefaultsDirectory: in out AsciiString from TCollection;

src/Draw/Draw.cxx

@@ -56,7 +56,7 @@
 #include <Draw_Interpretor.hxx>
 #include <Draw_ProgressIndicator.hxx>
 
-#include <Draw_MapOfFunctions.hxx>
+#include <Plugin_MapOfFunctions.hxx>
 #include <OSD_SharedLibrary.hxx>
 #include <Resource_Manager.hxx>
 #include <Draw_Failure.hxx>
@@ -497,76 +497,6 @@ Standard_Integer  Draw_Call (char *c)
    return r;
 }
 
-
-//=================================================================================
-//
-//=================================================================================
-void Draw::Load(Draw_Interpretor& theDI, const TCollection_AsciiString& theKey,
-		 const TCollection_AsciiString& theResourceFileName) {
-
-  static Draw_MapOfFunctions theMapOfFunctions;
-  OSD_Function f;
-
-  if(!theMapOfFunctions.IsBound(theKey)) {
-
-    Handle(Resource_Manager) aPluginResource = new Resource_Manager(theResourceFileName.ToCString());
-    if(!aPluginResource->Find(theKey.ToCString())) {
-      Standard_SStream aMsg; aMsg << "Could not find the resource:";
-      aMsg << theKey.ToCString()<< endl;
-      cout << "could not find the resource:"<<theKey.ToCString()<< endl;
-      Draw_Failure::Raise(aMsg);
-    }
-
-    TCollection_AsciiString aPluginLibrary("");
-#ifndef WNT
-    aPluginLibrary += "lib";
-#endif
-    aPluginLibrary +=  aPluginResource->Value(theKey.ToCString());
-#ifdef WNT
-    aPluginLibrary += ".dll";
-#elif __APPLE__
-    aPluginLibrary += ".dylib";
-#elif defined (HPUX) || defined(_hpux)
-    aPluginLibrary += ".sl";
-#else
-    aPluginLibrary += ".so";
-#endif
-    OSD_SharedLibrary aSharedLibrary(aPluginLibrary.ToCString());
-    if(!aSharedLibrary.DlOpen(OSD_RTLD_LAZY)) {
-      TCollection_AsciiString error(aSharedLibrary.DlError());
-      Standard_SStream aMsg; aMsg << "Could not open: ";
-      aMsg << aPluginResource->Value(theKey.ToCString());
-      aMsg << "; reason: ";
-      aMsg << error.ToCString();
-#ifdef DEB
-      cout << "could not open: "  << aPluginResource->Value(theKey.ToCString())<< " ; reason: "<< error.ToCString() << endl;
-#endif
-      Draw_Failure::Raise(aMsg);
-    }
-    f = aSharedLibrary.DlSymb("PLUGINFACTORY");
-    if( f == NULL ) {
-      TCollection_AsciiString error(aSharedLibrary.DlError());
-      Standard_SStream aMsg; aMsg << "Could not find the factory in: ";
-      aMsg << aPluginResource->Value(theKey.ToCString());
-      aMsg << error.ToCString();
-      Draw_Failure::Raise(aMsg);
-    }
-    theMapOfFunctions.Bind(theKey, f);
-  }
-  else
-    f = theMapOfFunctions(theKey);
-
-//   void (*fp) (Draw_Interpretor&, const TCollection_AsciiString&) = NULL;
-//   fp = (void (*)(Draw_Interpretor&, const TCollection_AsciiString&)) f;
-//   (*fp) (theDI, theKey);
-
-  void (*fp) (Draw_Interpretor&) = NULL;
-  fp = (void (*)(Draw_Interpretor&)) f;
-  (*fp) (theDI);
-
-}
-
-
 //=================================================================================
 //
 //=================================================================================
@@ -576,7 +506,7 @@ void Draw::Load(Draw_Interpretor& theDI, const TCollection_AsciiString& theKey,
 		TCollection_AsciiString& theUserDefaultsDirectory,
 		const Standard_Boolean Verbose ) {
 
-  static Draw_MapOfFunctions theMapOfFunctions;
+  static Plugin_MapOfFunctions theMapOfFunctions;
   OSD_Function f;
 
   if(!theMapOfFunctions.IsBound(theKey)) {

src/ExprIntrp/ExprIntrp.cdl

@@ -51,10 +51,6 @@ is
     private class StackOfGeneralFunction instantiates 
     	List from TCollection (GeneralFunction from Expr);
         
-    
-    private class StackOfNames instantiates 
-    	List from TCollection (AsciiString from TCollection);
-
     Parse(gen : Generator; str : AsciiString from TCollection)
     returns Boolean
     is private;

src/ExprIntrp/ExprIntrp_Analysis.cdl

@@ -32,7 +32,7 @@ uses Generator from ExprIntrp,
     NamedFunction from Expr,
     NamedExpression from Expr,
     AsciiString from TCollection,
-    StackOfNames from ExprIntrp
+    ListOfAsciiString from TColStd
     
 is
 
@@ -107,7 +107,7 @@ fields
     myGEStack : StackOfGeneralExpression;
     myGRStack : StackOfGeneralRelation;
     myGFStack : StackOfGeneralFunction;
-    myNameStack : StackOfNames;
+    myNameStack : ListOfAsciiString from TColStd;
     myValueStack : ListOfInteger;
     myFunctions : SequenceOfNamedFunction;
     myNamed : SequenceOfNamedExpression;

src/Graphic3d/Graphic3d.cdl

@@ -522,11 +522,6 @@ is
     -- Category: Instantiated classes
     ---------------------------------
 
-    class SequenceOfAddress instantiates
-            Sequence from TCollection
-            (Address from Standard);
-    ---Category: Instantiated classes
-
     imported SequenceOfGroup;
 
     ---Category: Instantiated classes

src/MeshVS/MeshVS_ColorHasher.cdl

@@ -13,7 +13,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-class ColorHasher from MeshVS inherits MapIntegerHasher from TColStd
+class ColorHasher from MeshVS
 
 	---Purpose: Hasher for using in ColorToIdsMap from MeshVS
 

src/PColStd/FILES

@@ -1,2 +0,0 @@
-PColStd_CMPLRS.edl
-PColStd_LDSHR.edl

src/PColStd/PColStd.cdl

@@ -25,41 +25,6 @@ is
 --                             *****************************          --
 ------------------------------------------------------------------------
 
---
---       Instantiations HSequence (Integer,Real,Persistent,
---                                 HAsciiString,
---                                 HExtendedString)
---       **************************************************
---       
-class HSequenceOfInteger instantiates 
-           HSequence from PCollection(Integer);
-class HSequenceOfReal instantiates 
-           HSequence from PCollection(Real);
-class HSequenceOfPersistent instantiates 
-           HSequence from PCollection(Persistent);
-class HSequenceOfHAsciiString instantiates 
-           HSequence from PCollection(HAsciiString from PCollection);
-class HSequenceOfHExtendedString instantiates 
-           HSequence from PCollection(HExtendedString from PCollection);
---
---       Instantiations HSingleList (Integer,Real,Persistent)
---       *****************************************************
---       
-class HSingleListOfInteger instantiates 
-           HSingleList from PCollection(Integer);
-class HSingleListOfReal instantiates 
-           HSingleList from PCollection(Real);
-class HSingleListOfPersistent instantiates 
-           HSingleList from PCollection(Persistent);
---       Instantiations HDoubleList (Integer,Real,Persistent)
---       *********************************************
---       
-class HDoubleListOfInteger instantiates 
-           HDoubleList from PCollection(Integer);
-class HDoubleListOfReal instantiates 
-           HDoubleList from PCollection(Real);
-class HDoubleListOfPersistent instantiates 
-           HDoubleList from PCollection(Persistent);
 --
 --       Instantiations HArray1 (Integer,Real,Persistent)
 --       ****************************************************
@@ -86,20 +51,6 @@ class HDoubleListOfPersistent instantiates
     class HArray2OfPersistent instantiates 
                         HArray2 from PCollection(Persistent);
 
---       Instantiations Hash (Integer)
---       *****************************
---
-class HOfInteger instantiates Hash from PCollection(Integer);
-class HOfReal instantiates Hash from PCollection(Real);
-class HOfAsciiString instantiates Hash from PCollection(HAsciiString from PCollection);
----Purpose: Hash on the Handle.
-class HashAsciiString;
----Purpose: Hash on the string.
-class HOfExtendedString instantiates Hash from PCollection(HExtendedString from PCollection); 
----Purpose: Hash on the Handle
-class HashExtendedString;
----Purpose: Hash on the string.
-
 end PColStd;
 
 

src/PColStd/PColStd_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/PColStd/PColStd_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/PCollection/FILES

@@ -1,4 +0,0 @@
-PCollection_Compare.gxx
-PCollection_CMPLRS.edl
-PCollection_LDSHR.edl
-PCollection_WOKSteps.edl

src/PCollection/PCollection.cdl

@@ -35,50 +35,12 @@ is
 
         generic class HArray2, FieldOfHArray2 ;   
 
-        generic class HSingleList;
-	    ---Purpose: The private generic class SingleList represents
-	    -- a sequence of 0 or more linked items.
-
- 	 generic class HDoubleList;
-	    ---Purpose: A List is a sequence of zero or more items
-    	    -- Each item has two pointers (backward,forward)
-
-
 	generic class HSequence,SeqNode,SeqExplorer;
 
 		---Purpose: Generic sequence of elements
 		-- indexed by an integer in the range 1..N.
 
 	
-	generic class Hash;
-	
-	---Purpose: Definition of hash function. This class is used by Map 
-	-- class and may be redefined by user.
-
-
-        deferred generic class Compare ;
-    	                            
-	     ---Purpose: Defines a comparison operator which can be used by
-	     -- any ordered structure.   The  way to compare items
-	     -- has  to be described  in  subclasses, which  inherit
-	     -- from instantiations of Compare.
-
-        private deferred class PrivCompareOfInteger 
-                            instantiates Compare from PCollection(Integer); 
-
-        private deferred class PrivCompareOfReal 
-                            instantiates Compare from PCollection(Real); 
-
-        class CompareOfInteger;
-	
-	class CompareOfReal;
-		
-        enumeration Side is Left , Right;
-
-        exception IsNotRoot inherits Failure;
-        exception IsNullTree inherits Failure;
-        exception IsContained inherits Failure;
-
         class HAsciiString;
 
 	class HExtendedString;

src/PCollection/PCollection_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/PCollection/PCollection_Compare.cdl

@@ -1,46 +0,0 @@
--- Created on: 1991-05-14
--- Created by: Annick PANCHER
--- Copyright (c) 1991-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
--- Revised:     Mireille MERCIEN
-
-
-deferred generic class Compare from PCollection ( Item as Storable)
-inherits Storable
-
-	---Purpose: Defines a comparison operator which can be used by
-	-- any ordered structure.   The  way to compare items
-	-- has  to be described  in  subclasses, which inherit
-	-- from instantiations of Compare.
-
-is
-
-    IsLower (me; Left, Right: Item)
-	---Purpose: Returns True if <Left> is lower than <Right>
-    	returns Boolean is virtual;
-    ---Level: Public
-    
-    IsGreater (me; Left, Right: Item)
-	---Purpose: Returns True if <Left> is greater than <Right>
-    	returns Boolean is virtual;
-    ---Level: Public
-
-    IsEqual(me; Left, Right: Item)
-	---Purpose: Returns True when <Right> and <Left> are equal.
-	returns Boolean;
-    ---Level: Public
-end;
-
-

src/PCollection/PCollection_Compare.gxx

@@ -1,51 +0,0 @@
-// Created on: 1992-08-27
-// Created by: Mireille MERCIEN
-// Copyright (c) 1992-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-#include <Standard_NotImplemented.hxx>
-#include <Standard_ProgramError.hxx>
-
-// -----------
-// IsLower :
-// -----------
-Standard_Boolean PCollection_Compare::IsLower (const Item& ,
-					       const Item& ) const
-{
-//   Standard_NotImplemented::Raise();
-   return Standard_False;
-}
-
-// -----------
-// IsGreater :
-// -----------
-Standard_Boolean PCollection_Compare::IsGreater (const Item& ,
-						 const Item& ) const
-{
-//   Standard_NotImplemented::Raise();
-   return Standard_False;
-}
-
-// -----------
-// IsEqual :
-// -----------
-Standard_Boolean PCollection_Compare::IsEqual (const Item& ,
-					       const Item& ) const
-{
-  //   return (Left == Right) ;
-  Standard_ProgramError::Raise("PCollection_Compare::IsEqual : Obsolete method...");
-  return Standard_False;
-}
-
-

src/PCollection/PCollection_CompareOfInteger.cdl

@@ -1,37 +0,0 @@
--- Created on: 1992-08-27
--- Created by: Mireille MERCIEN
--- Copyright (c) 1992-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-class CompareOfInteger from PCollection 
-  inherits 
-    PrivCompareOfInteger
-
-is
-
-    Create ;
-    
-    IsLower (me; Left, Right: Integer)
-	---Purpose: Returns True if <Left> is lower than <Right>.
-        ---Level: Public
-    	returns Boolean
-        is redefined;
-
-    IsGreater (me; Left, Right: Integer)
-	---Purpose: Returns True if <Left> is greater than <Right>.
-        ---Level: Public
-    	returns Boolean
-	is redefined;
-
-end;

src/PCollection/PCollection_CompareOfInteger.cxx

@@ -1,42 +0,0 @@
-// Created on: 1992-08-27
-// Created by: Mireille MERCIEN
-// Copyright (c) 1992-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-#include <PCollection_CompareOfInteger.ixx>
-
-// -----------
-// Create :
-// -----------
-PCollection_CompareOfInteger::PCollection_CompareOfInteger()
-{
-}
-
-// -----------
-// IsLower :
-// -----------
-Standard_Boolean PCollection_CompareOfInteger::IsLower (
-       const Standard_Integer &Left,const Standard_Integer &Right) const
-{
-   return (Left < Right) ;
-}
-
-// -----------
-// IsGreater :
-// -----------
-Standard_Boolean PCollection_CompareOfInteger::IsGreater (
-       const Standard_Integer &Left,const Standard_Integer &Right) const
-{
-   return (Left > Right) ;
-}						

src/PCollection/PCollection_CompareOfReal.cdl

@@ -1,37 +0,0 @@
--- Created on: 1992-08-27
--- Created by: Mireille MERCIEN
--- Copyright (c) 1992-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-class CompareOfReal from PCollection 
-  inherits 
-    PrivCompareOfReal
-
-is
-
-    Create;
-
-    IsLower (me; Left, Right: Real)
-	---Purpose: Returns True if <Left> is lower than <Right>.
-        ---Level: Public
-    	returns Boolean
-        is redefined;
-
-    IsGreater (me; Left, Right: Real)
-	---Purpose: Returns True if <Left> is greater than <Right>.
-        ---Level: Public
-    	returns Boolean
-	is redefined;
-
-end;

src/PCollection/PCollection_CompareOfReal.cxx

@@ -1,49 +0,0 @@
-// Created on: 1992-08-27
-// Created by: Mireille MERCIEN
-// Copyright (c) 1992-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-// Do not delete this line. Used by sccs.
-
-#include <PCollection_CompareOfReal.ixx>
-
-// -----------
-// Create :
-// -----------
-PCollection_CompareOfReal::PCollection_CompareOfReal()
-{
-}
-
-// -----------
-// IsLower :
-// -----------
-Standard_Boolean PCollection_CompareOfReal::IsLower (
-       const Standard_Real &Left,const Standard_Real &Right) const
-{
-   return (Left < Right) ;
-}
-
-// -----------
-// IsGreater :
-// -----------
-Standard_Boolean PCollection_CompareOfReal::IsGreater (
-       const Standard_Real &Left,const Standard_Real &Right) const
-{
-   return (Left > Right) ;
-}						
-
-
-
-
-

src/PCollection/PCollection_HDoubleList.cdl

@@ -1,122 +0,0 @@
--- Created on: 1992-02-19
--- Created by: Jean Pierre TIRAULT
--- Copyright (c) 1992-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-generic class HDoubleList from PCollection (Item as Storable) 
-inherits PManaged 
-
-
-raises NoSuchObject from Standard
-
-is
-
-	---Purpose: Definition of a double linked list
-        -- Idem to the SingleList with a pointer to the previous node
-
-	
-	Create returns  mutable HDoubleList;
-	---Purpose: Creation of an empty list
-
-	IsEmpty(me) returns Boolean;
-        ---Level: Public
-	---Purpose: Returns True if the list contains no element.
-
-	Construct(me : mutable; T : Item) returns mutable HDoubleList;
-        ---Level: Public
-	---Purpose: Adds T at the begining of me.
-	---Example: before
-	--   me = (A B C) 
-        -- after
-	--   me = (A B C)
-	-- returns 
-	--   (T A B C)
-
-	Value(me) returns any Item
-                raises NoSuchObject;
-        ---Level: Public
-	---Purpose: Value of the first node of me
-	-- Raises an exception if me is empty
-	---Purpose: before
-	--   me = (A B C) 
-        -- after
-	--   me = (A B C)
-	-- returns 
-	--   A
-
-	Tail(me) returns any HDoubleList
-                raises NoSuchObject;
-        ---Level: Public
-	---Purpose: Returns the end of the list <me>.
-	-- Raises an exception if me is empty.
-	---Example: before
-	--   me = (A B C) 
-        -- after
-	--   me = (A B C)
-	-- returns 
-	--   (B C)
-
-	Previous(me) returns any HDoubleList
-                raises NoSuchObject;
-                ---Level: Public
-		---Purpose: Previous node of me.
-		-- Raises an exception if me is empty.
-		---Example: before
-                --   A list L = (A B C) with me = (B C) a sub-list of L.
-                -- after
-		--   L = (A B C), me = (B C)
-		-- returns 
-		--   (A)
-
-	SwapTail(me : mutable; WithList : in out any HDoubleList) 
-                raises NoSuchObject;
-                ---Level: Public
-		---Purpose: Exchanges end of me with WithList.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C)
-		--   WithList = (D E)
-		-- after
-		--   me = (A D E)
-		--   WithList = (B C)
-
-	SetValue(me : mutable; T : Item) 
-                raises NoSuchObject;
-                ---Level: Public
-		---Purpose: Changes the value of the first node of me.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C) 
-                -- after
-		--   me = (T B C)
-
-
-	ChangeBackPointer(me : mutable; BackPointer : HDoubleList);
-                ---Level: Public
-		---Purpose: Modification of the backward pointer
-
-	ChangeForwardPointer(me : mutable; ForwardPointer : 
-						HDoubleList);
-                ---Level: Public
-		---Purpose: Modification of the forward pointer
-
-    	Destroy(me : mutable);
-	---C++: alias ~
-       
-fields 
-           Data : 	Item;
-           Next : 	HDoubleList;
-           Before : 	HDoubleList;
-
-end HDoubleList;

src/PCollection/PCollection_HDoubleList.gxx

@@ -1,127 +0,0 @@
-// Copyright (c) 1998-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-// -----------------------------------------------------------------------
-// -                                                                     -
-// -                      HDoubleList                                     -
-// -                                                                     -
-// -----------------------------------------------------------------------
-
-
-
-#include <Standard_NoSuchObject.hxx>
-#include <Standard_NotImplemented.hxx>
-
-// -----------------------------------------------------------------------
-// -                                                                     -
-// -                                                                     -
-// -                                                                     -
-// -----------------------------------------------------------------------
-PCollection_HDoubleList::PCollection_HDoubleList ( ){
-}
-
-
-// -----------------------------------------------------------------------
-// -                                                                     -
-// -                                                                     -
-// -                                                                     -
-// -----------------------------------------------------------------------
-Handle(PCollection_HDoubleList) 
-   PCollection_HDoubleList::Construct(const Item& T)
-{
-
- Handle(PCollection_HDoubleList) me , L ;
- me = this;
- L  = new PCollection_HDoubleList;
- L->ChangeForwardPointer ( me );  // Pointeur avant de L sur me.
- Before = L;                      // Pointer arriere de me sur L.
- L->SetValue ( T );               // Mettre la valeur de l'item.
- return L;                        // C'est L qui est retourne.
-}
-
-/* Anciens INLINE */
-
-
-void PCollection_HDoubleList::ChangeForwardPointer
-   (const Handle(PCollection_HDoubleList)& L)
-{
-     Next = L;
-}
-
-void PCollection_HDoubleList::ChangeBackPointer
-   (const Handle(PCollection_HDoubleList)& L)
-{
-    Before  = L;
-}
-
-
-void PCollection_HDoubleList::SetValue(const Item& T)
-{
-  Standard_NoSuchObject_Raise_if (IsEmpty(),
-                                  "Empty Element in HDoubleList::SetValue");
-  Data = T;
-}
-
-
-Item PCollection_HDoubleList::Value() const {
-  Standard_NoSuchObject_Raise_if(IsEmpty(),
-                                    "Empty Element in HDoubleList::Value");
-  return Data;
-}
-
-Handle(PCollection_HDoubleList) PCollection_HDoubleList::Previous() const {
-  Standard_NoSuchObject_Raise_if((IsEmpty() && Before.IsNull()),
-                                 "Empty Element in HDoubleList::Previous");
-  return Before;
-}
-
-
-Standard_Boolean PCollection_HDoubleList::IsEmpty()const
-{
-  return Next.IsNull();
-}
-
-
-Handle(PCollection_HDoubleList) PCollection_HDoubleList::Tail() const {
-  Standard_NoSuchObject_Raise_if(IsEmpty(),
-                                 "Empty Element in HDoubleList::Previous");
-  return Next;
-}
-
-// -----------------------------------------------------------------------
-// -                                                                     -
-// -                                                                     -
-// -                                                                     -
-// -----------------------------------------------------------------------
-void PCollection_HDoubleList::SwapTail(Handle(PCollection_HDoubleList)&
-                                            WithList)
-{
- // Exception si liste vide
-  Standard_NoSuchObject_Raise_if(IsEmpty(),
-                                 "Empty Element in HDoubleList::SwapTail") ;
-
-  Handle(PCollection_HDoubleList) L  = Next;
-  Handle(PCollection_HDoubleList) me ;
-  me = this;
-  WithList->ChangeBackPointer(me);
-  Next = WithList;
-  WithList = L;
-}
-
-void PCollection_HDoubleList::Destroy()
-{
-#ifdef CSFDB 
-  Next.Nullify();
-#endif
-}

src/PCollection/PCollection_HSingleList.cdl

@@ -1,100 +0,0 @@
--- Created on: 1992-02-19
--- Created by: Jean Pierre TIRAULT
--- Copyright (c) 1992-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-generic class HSingleList from PCollection (Item as Storable) 
-inherits PManaged 
-
-raises
-    NoSuchObject from Standard
-
-is
-
-	---Purpose: Definition of a single linked list.
-
-	Create returns mutable HSingleList;
-		---Creation of an empty list.
-
-	IsEmpty(me) returns Boolean from Standard;
-                ---Level: Public
-		---Purpose: Returns True if the list contains no element.
-
-
-	Construct(me; T : Item) returns mutable 
-		HSingleList;
-                ---Level: Public
-		---Purpose: add T at the begining of me
-		---Example: before
-		--   me = (A B C) 
-                -- after
-		--   me = (A B C)
-		-- returns 
-		--   (T A B C)
-
-	Value(me) returns any Item
-                raises NoSuchObject from Standard;
-                ---Level: Public
-		---Purpose: Returns the value of the first node of me.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C) 
-                -- after
-		--   me = (A B C)
-		-- returns 
-		--   A
-
-	Tail(me) returns any HSingleList
-                raises NoSuchObject from Standard;
-                ---Level: Public
-		---Purpose: End of the list me.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C) 
-                -- after
-		--   me = (A B C)
-		-- returns 
-		--   (B C)
-
-	SwapTail(me : mutable; WithList : in out any HSingleList)
-	   	raises NoSuchObject from Standard;
-                ---Level: Public
-		---Purpose: Exchanges the end of <me> with the list WithList.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C)
-		--   WithList = (D E)
-		-- after
-		--   me = (A D E)
-		--   WithList = (B C)
-		
-	SetValue(me : mutable; T : Item)
-                raises NoSuchObject from Standard ;
-                ---Level: Public
-		---Purpose: Changes the value of the first node of me.
-		-- Raises an exception if me is empty.
-		---Example: before
-		--   me = (A B C) 
-                -- after
-		--   me = (T B C)
-
-	ChangeForwardPointer(me : mutable; ForwardPointer : HSingleList);
-                ---Level: Public
-		---Purpose: Modification of the node link.
-
-fields 
-           Data : 	Item;
-           Next : 	HSingleList;
-
-end HSingleList;

src/PCollection/PCollection_HSingleList.gxx

@@ -1,114 +0,0 @@
-// Copyright (c) 1998-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-// ----------------------------------------------------------------------
-// HSingleList implementation:
-// Last Revision : Feb,10 1992 J.P Tirault
-//                 Implementation of ShallowCopy, ShallowDump
-//                 methods.
-// -------------------------------------------------------------------------
-
-#include <Standard_NoSuchObject.hxx>
-#include <Standard_NotImplemented.hxx>
-#include <Standard_ProgramError.hxx>
-#include <Standard_OStream.hxx>
-
-// -------------------------------------------------------------------------
-//                                                                         -
-// Constructor Returns an empty list                                       -
-// ----------                                                              -
-//                                                                         -
-// -------------------------------------------------------------------------
-PCollection_HSingleList::PCollection_HSingleList ()
-{
- Next.Nullify();
-}
-
-
-// -------------------------------------------------------------------------
-//                                                                         -
-// Construct : Add an item at the beginning of the list                    -
-// ---------                                                               -
-//                                                                         -
-// -------------------------------------------------------------------------
-Handle(PCollection_HSingleList) 
-  PCollection_HSingleList::Construct(const Item& T)const
-{
-
-
- Handle(PCollection_HSingleList) me , L ;
- me = this;
-#ifndef OBJS
- L = new PCollection_HSingleList;
-#else
- L = new (os_segment::of(this)) PCollection_HSingleList;
-#endif
- L->ChangeForwardPointer ( me );
- L->SetValue ( T );			
- return L;
-}
-
-/* Anciens INLINE */
-
-Item PCollection_HSingleList::Value() const {
-  Standard_NoSuchObject_Raise_if(IsEmpty(),
-                                 "Empty Element in HSingleList::Value");
-     return Data;
-}
-
-Handle(PCollection_HSingleList) PCollection_HSingleList::Tail() const {
-  Standard_NoSuchObject_Raise_if (IsEmpty(),
-                                  "Empty Element in HSingleList::Value");
-  return Next;
-}
-
-
-Standard_Boolean PCollection_HSingleList::IsEmpty()const
-{
-  return Next.IsNull();
-}
-
-
-void PCollection_HSingleList::SetValue(const Item& T)
-{
-  Standard_NoSuchObject_Raise_if (IsEmpty(),
-                                  "Empty Element in HSingleList::SetValue");
-  Data = T;
-}
-
-
-// -------------------------------------------------------------------------
-//                                                                         -
-// SwapTail : Exchange the tail of the current list with an another list   -
-// --------                                                                -
-//                                                                         -
-// -------------------------------------------------------------------------
-void PCollection_HSingleList::SwapTail(Handle(PCollection_HSingleList)&
-                                            WithList)
-{
-  Standard_NoSuchObject_Raise_if (IsEmpty(),
-                                  "Empty Element in HSingleList::SwapTail");
-  Handle(PCollection_HSingleList) L = Next;
-  Next     = WithList;
-  WithList = L;
-}
-
-
-void PCollection_HSingleList::ChangeForwardPointer
-   (const Handle(PCollection_HSingleList)& L)
-{
-     Next = L;
-}
-
-

src/PCollection/PCollection_Hash.cdl

@@ -1,39 +0,0 @@
--- Created on: 1991-04-22
--- Created by: jean pierre TIRAULT
--- Copyright (c) 1991-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-generic class Hash from PCollection (key as Storable) inherits Storable
-    is
-    
-    
-    
-    Create returns Hash;
-    ---Purpose : Empty constructor.
-
-
-
-    HashCode (me; MyKey : key ; Upper : Integer) 
-             returns Integer is virtual;
-    ---Level: Public
-    ---Purpose: Returns a hashcod value of key bounded by Upper.
-
-
-
-    Compare (me; One , Two : key) returns Boolean is virtual;    
-    ---Level: Public
-    ---Purpose : Compare two keys and returns a boolean value
-
-end;
-

src/PCollection/PCollection_Hash.gxx

@@ -1,57 +0,0 @@
-// Copyright (c) 1992-1999 Matra Datavision
-// Copyright (c) 1999-2014 OPEN CASCADE SAS
-//
-// This file is part of Open CASCADE Technology software library.
-//
-// This library is free software; you can redistribute it and/or modify it under
-// the terms of the GNU Lesser General Public License version 2.1 as published
-// by the Free Software Foundation, with special exception defined in the file
-// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-// distribution for complete text of the license and disclaimer of any warranty.
-//
-// Alternatively, this file may be used under the terms of Open CASCADE
-// commercial license or contractual agreement.
-
-// Hash.gxx doesn't contains methods. All methods are inline methods.
-
-
-// methods for hash class from PCollection.
-// Written by JPT FEB,24 1992
-// -----------------
-// Empty constructor
-// -----------------
-PCollection_Hash::PCollection_Hash(){}
-
-
-// -----------------------------------------------------------------
-// To remove the ambigous compilation warning between Hash::HashCode 
-// and Storable::Hashcode
-// -----------------------------------------------------------------
-//Standard_Integer PCollection_Hash::HashCode
-//                    (const Standard_Integer Upper) const { 
-      
-//   return this % Upper; 
-//}
-
-// ------------------------------
-// The PCollection::Hascode method
-// ------------------------------
-Standard_Integer PCollection_Hash::HashCode(const key& K,
-						  const Standard_Integer Upper)
-const  {
-
-   return ::HashCode(K,Upper);
-}
-
-
-// -----------------------------
-// A method to compare two items
-// ------------------------------
-Standard_Boolean PCollection_Hash::Compare (const key& one,
-						  const key& two) const {
-
-  return(one == two);
-}
-
-
-

src/PCollection/PCollection_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/PCollection/PCollection_WOKSteps.edl

@@ -1,24 +0,0 @@
--- Created by: Stephane Callegari
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@ifnotdefined ( %PCollection_WOKSteps_EDL) then
-
-  @set %PCollection_WOKSteps_EDL = "";
-
-  @string %WOKSteps_XcppGroup = " xcpp.fill xcpp.src xcpp.header xcpp.template obj.cgen obj.inc ";
-  --@set %WOKSteps_xcpp_repl = "*PCollection_Replace(xcpp.header)";
-
-@endif;
-

src/PMMgt/FILES

@@ -1,4 +1,2 @@
 PMMgt_InsertDelete.tcl
 PMMgt_WOKSteps.edl
-PMMgt_CMPLRS.edl
-PMMgt_LDSHR.edl

src/PMMgt/PMMgt_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/PMMgt/PMMgt_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/PShort/FILES

@@ -1,2 +0,0 @@
-PShort_CMPLRS.edl
-PShort_LDSHR.edl

src/PShort/PShort_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/PShort/PShort_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/PStandard/FILES

@@ -1,2 +0,0 @@
-PStandard_CMPLRS.edl
-PStandard_LDSHR.edl

src/PStandard/PStandard_CMPLRS.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" )  && ( %DBMS == "OBJS" ) ) then
-  @uses "OBJSCMPLRS.edl";
-@endif;

src/PStandard/PStandard_LDSHR.edl

@@ -1,17 +0,0 @@
--- Copyright (c) 1998-1999 Matra Datavision
--- Copyright (c) 1999-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-@if ( ( %Station == "ao1" ) && ( %DBMS == "OBJS" ) ) then
-  @string %LDSHR_DBMSOpt += " -taso ";
-@endif;

src/QADNaming/QADNaming.cdl

@@ -29,10 +29,6 @@ uses
     TopTools
 is
          
-    class DataMapOfShapeOfName instantiates
-    	DataMap from TCollection(Shape          from TopoDS,
-	    	    	    	 AsciiString    from TCollection,
-                                 ShapeMapHasher from TopTools);  				  			       								   
     CurrentShape (ShapeEntry      : CString  from Standard; 
     	    	  Data            : Data     from TDF)
     returns Shape from TopoDS;		  

src/QADNaming/QADNaming_ToolsCommands.cxx

@@ -28,8 +28,8 @@
 #include <TCollection_AsciiString.hxx>
 #include <TNaming_Translator.hxx>
 #include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
-#include <QADNaming_DataMapOfShapeOfName.hxx>
+#include <DNaming_DataMapOfShapeOfName.hxx>
-#include <QADNaming_DataMapIteratorOfDataMapOfShapeOfName.hxx>
+#include <DNaming_DataMapIteratorOfDataMapOfShapeOfName.hxx>
 #include <TCollection_AsciiString.hxx>
 #include <TopAbs.hxx>
 #include <TopExp_Explorer.hxx>
@@ -110,7 +110,7 @@ static Standard_Integer QADNaming_TCopyShape (Draw_Interpretor& di,
   TNaming_Translator TR;
   if(nb < 2) return (1);
 
-  QADNaming_DataMapOfShapeOfName aDMapOfShapeOfName;
+  DNaming_DataMapOfShapeOfName aDMapOfShapeOfName;
   for(Standard_Integer i= 1;i < nb; i++) {
     TopoDS_Shape S = DBRep::Get(arg[i]);
     TCollection_AsciiString name(arg[i]);
@@ -134,7 +134,7 @@ static Standard_Integer QADNaming_TCopyShape (Draw_Interpretor& di,
   if(TR.IsDone()){
 //    cout << "QADNaming_CopyShape:: Copy is Done " << endl;
 
-    QADNaming_DataMapIteratorOfDataMapOfShapeOfName itrn(aDMapOfShapeOfName);
+    DNaming_DataMapIteratorOfDataMapOfShapeOfName itrn(aDMapOfShapeOfName);
     for(;itrn.More();itrn.Next()) {
       TCollection_AsciiString name = itrn.Value();
       const TopoDS_Shape& Result = TR.Copied(itrn.Key());

src/Storage/Storage.cdl

@@ -141,9 +141,6 @@ is
     private class stCONSTclCOM;
 
     private class TypedCallBack;
-    private class SeqOfPersistent instantiates Sequence from TCollection(Persistent from Standard);
-    private class HSeqOfPersistent instantiates HSequence from TCollection(Persistent from Standard,SeqOfPersistent);
-    private class MapPSDHasher  instantiates MapHasher from TCollection(Persistent from Standard);
     
     private class PType instantiates IndexedDataMap from TCollection(AsciiString from TCollection, 
     				     		     	     Integer from Standard, 
@@ -163,9 +160,6 @@ is
     class ArrayOfSchema instantiates Array1 from TCollection(Schema from Storage);
     class HArrayOfSchema instantiates HArray1 from TCollection(Schema from Storage,ArrayOfSchema from Storage);
     
-    private class SeqOfCallBack instantiates Sequence from TCollection(CallBack from Storage);
-    private class HSeqOfCallBack instantiates HSequence from TCollection(CallBack from Storage,SeqOfCallBack from Storage);
-
     private class PArray instantiates Array1 from TCollection(Persistent from Standard);  
     private class HPArray instantiates HArray1 from TCollection(Persistent from Standard, PArray from Storage);
     

src/TDF/TDF.cdl

@@ -261,11 +261,6 @@ is
 	 Integer from Standard,
     	 LabelMapHasher from TDF);
 
-    class LabelLabelMap instantiates DataMap from TCollection
-    	(Label from TDF,
-	 Label from TDF,
-    	 LabelMapHasher from TDF);
-
     class GUIDProgIDMap instantiates DoubleMap from TCollection
     	(GUID from Standard,
     	 ExtendedString from TCollection,

src/V3d/V3d_Viewer.cdl

@@ -737,6 +737,5 @@ fields
 friends
 
         class View from V3d,
-        class Light from V3d,
+        class Light from V3d
-        SetPlane  from package V3d (aViewer: Viewer from V3d; x1,y1,z1,x2,y2,z2: Length from Quantity)
 end Viewer;

src/XCAFDoc/XCAFDoc_DocumentTool.cxx

@@ -17,7 +17,6 @@
 #include <TDataStd_Name.hxx>
 #include <TDF_Data.hxx>
 #include <TDF_Tool.hxx>
-#include <TDF_LabelLabelMap.hxx>
 #include <TDataStd_TreeNode.hxx>
 
 //=======================================================================