0024841: Remove duplicated and/or unused instances of collections
authorabv <abv@opencascade.com>
Wed, 23 Apr 2014 08:45:31 +0000 (12:45 +0400)
committerapn <apn@opencascade.com>
Thu, 15 May 2014 13:50:04 +0000 (17:50 +0400)
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.

52 files changed:
src/BRepMAT2d/BRepMAT2d.cdl
src/BRepMAT2d/BRepMAT2d_LinkTopoBilo.cxx
src/BRepMesh/BRepMesh.cdl
src/BRepMesh/BRepMesh_DataStructureOfDelaun.cdl
src/BRepMesh/BRepMesh_FastDiscret.cxx
src/CDF/CDF_StoreList.cdl
src/CDM/CDM.cdl
src/DBC/DBC_CMPLRS.edl [deleted file]
src/DBC/DBC_LDSHR.edl [deleted file]
src/DBC/FILES
src/Draw/Draw.cdl
src/Draw/Draw.cxx
src/ExprIntrp/ExprIntrp.cdl
src/ExprIntrp/ExprIntrp_Analysis.cdl
src/Graphic3d/Graphic3d.cdl
src/MeshVS/MeshVS_ColorHasher.cdl
src/PColStd/FILES [deleted file]
src/PColStd/PColStd.cdl
src/PColStd/PColStd_CMPLRS.edl [deleted file]
src/PColStd/PColStd_LDSHR.edl [deleted file]
src/PCollection/FILES [deleted file]
src/PCollection/PCollection.cdl
src/PCollection/PCollection_CMPLRS.edl [deleted file]
src/PCollection/PCollection_Compare.cdl [deleted file]
src/PCollection/PCollection_Compare.gxx [deleted file]
src/PCollection/PCollection_CompareOfInteger.cdl [deleted file]
src/PCollection/PCollection_CompareOfInteger.cxx [deleted file]
src/PCollection/PCollection_CompareOfReal.cdl [deleted file]
src/PCollection/PCollection_CompareOfReal.cxx [deleted file]
src/PCollection/PCollection_HDoubleList.cdl [deleted file]
src/PCollection/PCollection_HDoubleList.gxx [deleted file]
src/PCollection/PCollection_HSingleList.cdl [deleted file]
src/PCollection/PCollection_HSingleList.gxx [deleted file]
src/PCollection/PCollection_Hash.cdl [deleted file]
src/PCollection/PCollection_Hash.gxx [deleted file]
src/PCollection/PCollection_LDSHR.edl [deleted file]
src/PCollection/PCollection_WOKSteps.edl [deleted file]
src/PMMgt/FILES
src/PMMgt/PMMgt_CMPLRS.edl [deleted file]
src/PMMgt/PMMgt_LDSHR.edl [deleted file]
src/PShort/FILES [deleted file]
src/PShort/PShort_CMPLRS.edl [deleted file]
src/PShort/PShort_LDSHR.edl [deleted file]
src/PStandard/FILES [deleted file]
src/PStandard/PStandard_CMPLRS.edl [deleted file]
src/PStandard/PStandard_LDSHR.edl [deleted file]
src/QADNaming/QADNaming.cdl
src/QADNaming/QADNaming_ToolsCommands.cxx
src/Storage/Storage.cdl
src/TDF/TDF.cdl
src/V3d/V3d_Viewer.cdl
src/XCAFDoc/XCAFDoc_DocumentTool.cxx

index 5677c88..3051e22 100644 (file)
@@ -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
index 1fcdbf6..e04cd5d 100644 (file)
@@ -29,9 +29,9 @@
 #include <TColGeom2d_SequenceOfCurve.hxx>
 #include <MAT_Graph.hxx>
 #include <MAT_BasicElt.hxx>
-#include <BRepTools_WireExplorer.hxx>
-#include <BRepMAT2d_SequenceOfBasicElt.hxx>
+#include <MAT_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;
index ec294ed..ba55d7b 100644 (file)
@@ -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);
index ffe5a2c..45c19a4 100644 (file)
@@ -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,
index 72b2780..d65e8eb 100644 (file)
@@ -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>
index bfd2203..e9730fd 100644 (file)
@@ -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;
index e10854c..11fb431 100644 (file)
@@ -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;
diff --git a/src/DBC/DBC_CMPLRS.edl b/src/DBC/DBC_CMPLRS.edl
deleted file mode 100644 (file)
index 4abeb9a..0000000
+++ /dev/null
@@ -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;
diff --git a/src/DBC/DBC_LDSHR.edl b/src/DBC/DBC_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
index 828edd5..e5315f6 100755 (executable)
@@ -3,5 +3,3 @@ DBC_DBVArray.cxx
 DBC_DBVArray.hxx
 DBC_Copy.tcl
 DBC_WOKSteps.edl
-DBC_CMPLRS.edl
-DBC_LDSHR.edl
index 72b3d58..bd3876b 100644 (file)
@@ -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;
index e04c99b..7884ee3 100644 (file)
@@ -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)) {
index 65c1a68..1d37805 100644 (file)
@@ -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;
index ef71a30..543ef09 100644 (file)
@@ -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;
index ae1113f..6d63fc0 100644 (file)
@@ -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
index 5529552..0b57d9f 100644 (file)
@@ -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
 
diff --git a/src/PColStd/FILES b/src/PColStd/FILES
deleted file mode 100755 (executable)
index 56c8d42..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-PColStd_CMPLRS.edl
-PColStd_LDSHR.edl
index 7deb56d..86c4e29 100644 (file)
@@ -26,41 +26,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;
 
 
diff --git a/src/PColStd/PColStd_CMPLRS.edl b/src/PColStd/PColStd_CMPLRS.edl
deleted file mode 100644 (file)
index 8255dc7..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PColStd/PColStd_LDSHR.edl b/src/PColStd/PColStd_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/FILES b/src/PCollection/FILES
deleted file mode 100755 (executable)
index 991a8ef..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-PCollection_Compare.gxx
-PCollection_CMPLRS.edl
-PCollection_LDSHR.edl
-PCollection_WOKSteps.edl
index c16a4a1..1c3f3fd 100644 (file)
@@ -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;
diff --git a/src/PCollection/PCollection_CMPLRS.edl b/src/PCollection/PCollection_CMPLRS.edl
deleted file mode 100644 (file)
index 8255dc7..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_Compare.cdl b/src/PCollection/PCollection_Compare.cdl
deleted file mode 100644 (file)
index cd022ce..0000000
+++ /dev/null
@@ -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;
-
-
diff --git a/src/PCollection/PCollection_Compare.gxx b/src/PCollection/PCollection_Compare.gxx
deleted file mode 100644 (file)
index cb939d2..0000000
+++ /dev/null
@@ -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;
-}
-
-
diff --git a/src/PCollection/PCollection_CompareOfInteger.cdl b/src/PCollection/PCollection_CompareOfInteger.cdl
deleted file mode 100644 (file)
index 4af4fbd..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_CompareOfInteger.cxx b/src/PCollection/PCollection_CompareOfInteger.cxx
deleted file mode 100644 (file)
index e1609f4..0000000
+++ /dev/null
@@ -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) ;
-}                                              
diff --git a/src/PCollection/PCollection_CompareOfReal.cdl b/src/PCollection/PCollection_CompareOfReal.cdl
deleted file mode 100644 (file)
index 3b5d606..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_CompareOfReal.cxx b/src/PCollection/PCollection_CompareOfReal.cxx
deleted file mode 100644 (file)
index 0d74c70..0000000
+++ /dev/null
@@ -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) ;
-}                                              
-
-
-
-
-
diff --git a/src/PCollection/PCollection_HDoubleList.cdl b/src/PCollection/PCollection_HDoubleList.cdl
deleted file mode 100644 (file)
index 5591e5b..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_HDoubleList.gxx b/src/PCollection/PCollection_HDoubleList.gxx
deleted file mode 100644 (file)
index 87728cd..0000000
+++ /dev/null
@@ -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
-}
diff --git a/src/PCollection/PCollection_HSingleList.cdl b/src/PCollection/PCollection_HSingleList.cdl
deleted file mode 100644 (file)
index 8eab7dc..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_HSingleList.gxx b/src/PCollection/PCollection_HSingleList.gxx
deleted file mode 100644 (file)
index ad6a0a7..0000000
+++ /dev/null
@@ -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;
-}
-
-
diff --git a/src/PCollection/PCollection_Hash.cdl b/src/PCollection/PCollection_Hash.cdl
deleted file mode 100644 (file)
index e4db508..0000000
+++ /dev/null
@@ -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;
-
diff --git a/src/PCollection/PCollection_Hash.gxx b/src/PCollection/PCollection_Hash.gxx
deleted file mode 100644 (file)
index 5bf3157..0000000
+++ /dev/null
@@ -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);
-}
-
-
-
diff --git a/src/PCollection/PCollection_LDSHR.edl b/src/PCollection/PCollection_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PCollection/PCollection_WOKSteps.edl b/src/PCollection/PCollection_WOKSteps.edl
deleted file mode 100644 (file)
index 7a23846..0000000
+++ /dev/null
@@ -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;
-
index c35f46d..5be55c9 100755 (executable)
@@ -1,4 +1,2 @@
 PMMgt_InsertDelete.tcl
 PMMgt_WOKSteps.edl
-PMMgt_CMPLRS.edl
-PMMgt_LDSHR.edl
diff --git a/src/PMMgt/PMMgt_CMPLRS.edl b/src/PMMgt/PMMgt_CMPLRS.edl
deleted file mode 100644 (file)
index 8255dc7..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PMMgt/PMMgt_LDSHR.edl b/src/PMMgt/PMMgt_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PShort/FILES b/src/PShort/FILES
deleted file mode 100755 (executable)
index dd1ce1c..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-PShort_CMPLRS.edl
-PShort_LDSHR.edl
diff --git a/src/PShort/PShort_CMPLRS.edl b/src/PShort/PShort_CMPLRS.edl
deleted file mode 100644 (file)
index 8255dc7..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PShort/PShort_LDSHR.edl b/src/PShort/PShort_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PStandard/FILES b/src/PStandard/FILES
deleted file mode 100755 (executable)
index 3b0b7d9..0000000
+++ /dev/null
@@ -1,2 +0,0 @@
-PStandard_CMPLRS.edl
-PStandard_LDSHR.edl
diff --git a/src/PStandard/PStandard_CMPLRS.edl b/src/PStandard/PStandard_CMPLRS.edl
deleted file mode 100644 (file)
index 4abeb9a..0000000
+++ /dev/null
@@ -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;
diff --git a/src/PStandard/PStandard_LDSHR.edl b/src/PStandard/PStandard_LDSHR.edl
deleted file mode 100644 (file)
index 1840bcb..0000000
+++ /dev/null
@@ -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;
index 40769a8..1b53197 100644 (file)
@@ -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;           
index 7138fd0..45f4999 100644 (file)
@@ -28,8 +28,8 @@
 #include <TCollection_AsciiString.hxx>
 #include <TNaming_Translator.hxx>
 #include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
-#include <QADNaming_DataMapOfShapeOfName.hxx>
-#include <QADNaming_DataMapIteratorOfDataMapOfShapeOfName.hxx>
+#include <DNaming_DataMapOfShapeOfName.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());
index 278f6c2..13e405b 100644 (file)
@@ -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);
     
index 86be155..f650811 100644 (file)
@@ -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,
index 13809c1..812c86f 100644 (file)
@@ -737,6 +737,5 @@ fields
 friends
 
         class View from V3d,
-        class Light from V3d,
-        SetPlane  from package V3d (aViewer: Viewer from V3d; x1,y1,z1,x2,y2,z2: Length from Quantity)
+        class Light from V3d
 end Viewer;
index e4ff2a1..502b654 100644 (file)
@@ -17,7 +17,6 @@
 #include <TDataStd_Name.hxx>
 #include <TDF_Data.hxx>
 #include <TDF_Tool.hxx>
-#include <TDF_LabelLabelMap.hxx>
 #include <TDataStd_TreeNode.hxx>
 
 //=======================================================================