OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-06 18:26:22 +03:00
Code Packages Releases Activity

0024841: Remove duplicated and/or unused instances of collections

Browse Source 
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.
This commit is contained in:
abv 2014-04-23 12:45:31 +04:00 committed by apn
parent a096a7a58a
commit 97385d6142
52 changed files with 16 additions and 1289 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/BRepMAT2d/BRepMAT2d.cdl
View 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

6
src/BRepMAT2d/BRepMAT2d_LinkTopoBilo.cxx
View 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;

12
src/BRepMesh/BRepMesh.cdl
View 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);

3
src/BRepMesh/BRepMesh_DataStructureOfDelaun.cdl
View 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,

1
src/BRepMesh/BRepMesh_FastDiscret.cxx
View 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>

5
src/CDF/CDF_StoreList.cdl
View 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;

1
src/CDM/CDM.cdl
View 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;

17
src/DBC/DBC_CMPLRS.edl
View File

@ -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;

17
src/DBC/DBC_LDSHR.edl
View File

@ -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;

2
src/DBC/FILES
View File

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

6
src/Draw/Draw.cdl
View 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;

74
src/Draw/Draw.cxx
View 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)) {

4
src/ExprIntrp/ExprIntrp.cdl
View 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;

4
src/ExprIntrp/ExprIntrp_Analysis.cdl
View 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;

5
src/Graphic3d/Graphic3d.cdl
View 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

2
src/MeshVS/MeshVS_ColorHasher.cdl
View 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

2
src/PColStd/FILES
View File

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

49
src/PColStd/PColStd.cdl
View File

@ -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;

17
src/PColStd/PColStd_CMPLRS.edl
View File

@ -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;

17
src/PColStd/PColStd_LDSHR.edl
View File

@ -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;

4
src/PCollection/FILES
View File

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

38
src/PCollection/PCollection.cdl
View 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;

17
src/PCollection/PCollection_CMPLRS.edl
View File

@ -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;

46
src/PCollection/PCollection_Compare.cdl
View File

@ -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;

51
src/PCollection/PCollection_Compare.gxx
View File

@ -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;
}

37
src/PCollection/PCollection_CompareOfInteger.cdl
View File

@ -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;

42
src/PCollection/PCollection_CompareOfInteger.cxx
View File

@ -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) ;
}

37
src/PCollection/PCollection_CompareOfReal.cdl
View File

@ -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;

49
src/PCollection/PCollection_CompareOfReal.cxx
View File

@ -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) ;
}

122
src/PCollection/PCollection_HDoubleList.cdl
View File

@ -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;

127
src/PCollection/PCollection_HDoubleList.gxx
View File

@ -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
}

100
src/PCollection/PCollection_HSingleList.cdl
View File

@ -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;

114
src/PCollection/PCollection_HSingleList.gxx
View File

@ -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;
}

39
src/PCollection/PCollection_Hash.cdl
View File

@ -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;

57
src/PCollection/PCollection_Hash.gxx
View File

@ -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);
}

17
src/PCollection/PCollection_LDSHR.edl
View File

@ -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;

24
src/PCollection/PCollection_WOKSteps.edl
View File

@ -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;

2
src/PMMgt/FILES
View File

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

17
src/PMMgt/PMMgt_CMPLRS.edl
View File

@ -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;

17
src/PMMgt/PMMgt_LDSHR.edl
View File

@ -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;

2
src/PShort/FILES
View File

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

17
src/PShort/PShort_CMPLRS.edl
View File

@ -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;

17
src/PShort/PShort_LDSHR.edl
View File

@ -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;

2
src/PStandard/FILES
View File

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

17
src/PStandard/PStandard_CMPLRS.edl
View File

@ -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;

17
src/PStandard/PStandard_LDSHR.edl
View File

@ -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;

4
src/QADNaming/QADNaming.cdl
View 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;

8
src/QADNaming/QADNaming_ToolsCommands.cxx
View 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());

6
src/Storage/Storage.cdl
View 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);

5
src/TDF/TDF.cdl
View 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,

3
src/V3d/V3d_Viewer.cdl
View 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;

1
src/XCAFDoc/XCAFDoc_DocumentTool.cxx
View 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>
//=======================================================================