Files
OCCT/src/TDF/TDF_ComparisonTool.cdl
abv 6e33d3ced2 0024830: Remove redundant keyword 'mutable' in CDL declarations
Redundant keyword 'mutable' removed in CDL files.
In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed.
Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
2014-05-29 14:58:25 +04:00

149 lines
5.2 KiB
Plaintext

-- Created by: DAUTRY Philippe
-- Copyright (c) 1997-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.
-- ----------------------
---Version: 0.0
--Version Date Purpose
-- 0.0 Sep 4 1997 Creation
class ComparisonTool from TDF
---Purpose: This class provides services to compare sets of
-- information. The use of this tool can works after
-- a copy, acted by a CopyTool.
--
-- * Compare(...) compares two DataSet and returns
-- the result.
--
-- * SourceUnbound(...) builds the difference between
-- a relocation dictionnary and a source set of
-- information.
--
-- * TargetUnbound(...) does the same between a
-- relocation dictionnary and a target set of
-- information.
--
-- * Cut(aDataSet, anLabel) removes a set of
-- attributes.
--
-- * IsSelfContained(...) returns true if all the
-- labels of the attributes of the given DataSet are
-- descendant of the given label.
uses
Boolean from Standard,
Label from TDF,
Attribute from TDF,
DataSet from TDF,
RelocationTable from TDF,
AttributeMap from TDF,
IDFilter from TDF
-- raises
is
Compare(myclass;
aSourceDataSet : DataSet from TDF;
aTargetDataSet : DataSet from TDF;
aFilter : IDFilter from TDF;
aRelocationTable : RelocationTable from TDF);
---Purpose: Compares <aSourceDataSet> with <aTargetDataSet>,
-- updating <aRelocationTable> with labels and
-- attributes found in both sets.
SourceUnbound(myclass;
aRefDataSet : DataSet from TDF;
aRelocationTable : RelocationTable from TDF;
aFilter : IDFilter from TDF;
aDiffDataSet : DataSet from TDF;
anOption : Integer from Standard = 2)
returns Boolean from Standard;
---Purpose: Finds from <aRefDataSet> all the keys not bound
-- into <aRelocationTable> and put them into
-- <aDiffDataSet>. Returns True if the difference
-- contains at least one key. (A key is a source
-- object).
--
-- <anOption> may take the following values:
-- 1 : labels treatment only;
-- 2 : attributes treatment only (default value);
-- 3 : both labels & attributes treatment.
TargetUnbound(myclass;
aRefDataSet : DataSet from TDF;
aRelocationTable : RelocationTable from TDF;
aFilter : IDFilter from TDF;
aDiffDataSet : DataSet from TDF;
anOption : Integer from Standard = 2)
returns Boolean from Standard;
---Purpose: Substracts from <aRefDataSet> all the items bound
-- into <aRelocationTable>. The result is put into
-- <aDiffDataSet>. Returns True if the difference
-- contains at least one item. (An item is a target
-- object).
--
-- <anOption> may take the following values:
-- 1 : labels treatment only;
-- 2 : attributes treatment only(default value);
-- 3 : both labels & attributes treatment.
Cut(myclass;
aDataSet : DataSet from TDF);
---Purpose: Removes attributes from <aDataSet>.
IsSelfContained(myclass;
aLabel : Label from TDF;
aDataSet : DataSet from TDF)
returns Boolean from Standard;
---Purpose: Returns true if all the labels of <aDataSet> are
-- descendant of <aLabel>.
-- ----------------------------------------------------------------------
--
-- Private methods
--
-- ----------------------------------------------------------------------
Compare(myclass;
aSrcLabel : Label from TDF;
aTrgLabel : Label from TDF;
aSourceDataSet : DataSet from TDF;
aTargetDataSet : DataSet from TDF;
aFilter : IDFilter from TDF;
aRelocationTable : RelocationTable from TDF)
is private;
---Purpose: Internal comparison method used by Compare(...).
Unbound(myclass;
aRefDataSet : DataSet from TDF;
aRelocationTable : RelocationTable from TDF;
aFilter : IDFilter from TDF;
aDiffDataSet : DataSet from TDF;
anOption : Integer from Standard;
theSource : Boolean from Standard)
returns Boolean from Standard
is private;
---Purpose: Internal function used by SourceUnbound() and
-- TargetUnbound().
end ComparisonTool;