mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-29 17:09:01 +08:00
6e33d3ced2
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.
127 lines
5.8 KiB
Plaintext
127 lines
5.8 KiB
Plaintext
-- Created on: 1993-05-10
|
|
-- Created by: Christian CAILLET
|
|
-- Copyright (c) 1993-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.
|
|
|
|
deferred class GeneralModule from IGESData
|
|
inherits GeneralModule from Interface
|
|
|
|
---Purpose : Definition of General Services adapted to IGES.
|
|
-- This Services comprise : Shared & Implied Lists, Copy, Check
|
|
-- They are adapted according to the organisation of IGES
|
|
-- Entities : Directory Part, Lists of Associativities and
|
|
-- Properties are specifically processed
|
|
|
|
uses Transient, HAsciiString from TCollection,
|
|
InterfaceModel, Check, ShareTool, EntityIterator, CopyTool,
|
|
IGESEntity, DirChecker
|
|
|
|
is
|
|
|
|
FillSharedCase (me; CN : Integer; ent : Transient;
|
|
iter : in out EntityIterator);
|
|
---Purpose : Fills the list of Entities shared by an IGESEntity <ent>,
|
|
-- according a Case Number <CN> (formerly computed by CaseNum).
|
|
-- Considers Properties and Directory Part, and calls
|
|
-- OwnSharedCase (which is adapted to each Type of Entity)
|
|
|
|
OwnSharedCase (me; CN : Integer; ent : IGESEntity;
|
|
iter : in out EntityIterator) is deferred;
|
|
---Purpose : Lists the Entities shared by a given IGESEntity <ent>, from
|
|
-- its specific parameters : specific for each type
|
|
|
|
ListImpliedCase (me; CN : Integer; ent : Transient;
|
|
iter : in out EntityIterator) is redefined;
|
|
---Purpose : Lists the Implied References of <ent>. Here, these are the
|
|
-- Associativities, plus the Entities defined by OwnSharedCase
|
|
|
|
OwnImpliedCase (me; CN : Integer; ent : IGESEntity;
|
|
iter : in out EntityIterator) is virtual;
|
|
---Purpose : Specific list of Entities implied by a given IGESEntity <ent>
|
|
-- (in addition to Associativities). By default, there are none,
|
|
-- but this method can be redefined as required
|
|
|
|
|
|
|
|
CheckCase (me; CN : Integer; ent : Transient; shares : ShareTool;
|
|
ach : in out Check);
|
|
---Purpose : Semantic Checking of an IGESEntity. Performs general Checks,
|
|
-- which use DirChecker, then call OwnCheck which does a check
|
|
-- specific for each type of Entity
|
|
|
|
DirChecker (me; CN : Integer; ent : IGESEntity) returns DirChecker
|
|
is deferred;
|
|
---Purpose : Returns a DirChecker, specific for each type of Entity
|
|
-- (identified by its Case Number) : this DirChecker defines
|
|
-- constraints which must be respected by the DirectoryPart
|
|
|
|
OwnCheckCase (me; CN : Integer; ent : IGESEntity; shares : ShareTool;
|
|
ach : in out Check) is deferred;
|
|
---Purpose : Performs Specific Semantic Check for each type of Entity
|
|
|
|
|
|
CanCopy (me; CN : Integer; ent : Transient) returns Boolean is redefined;
|
|
---Purpose : Specific answer to the question "is Copy properly implemented"
|
|
-- For IGES, answer is always True
|
|
|
|
NewVoid (me; CN : Integer; entto : out Transient)
|
|
returns Boolean is deferred;
|
|
---Purpose : Specific creation of a new void entity
|
|
|
|
CopyCase (me; CN : Integer;
|
|
entfrom : Transient; entto : Transient;
|
|
TC : in out CopyTool);
|
|
---Purpose : Copy ("Deep") from <entfrom> to <entto> (same type)
|
|
-- by using a CopyTool which provides its working Map.
|
|
-- For IGESEntities, Copies general data (Directory Part, List of
|
|
-- Properties) and call OwnCopyCase
|
|
|
|
OwnCopyCase (me; CN : Integer;
|
|
entfrom : IGESEntity; entto : IGESEntity;
|
|
TC : in out CopyTool) is deferred;
|
|
---Purpose : Copies parameters which are specific of each Type of Entity
|
|
|
|
RenewImpliedCase (me; CN : Integer;
|
|
entfrom : Transient; entto : Transient;
|
|
TC : CopyTool) is redefined;
|
|
---Purpose : Renewing of Implied References.
|
|
-- For IGESEntities, Copies general data(List of Associativities)
|
|
-- and calls OwnRenewCase
|
|
|
|
OwnRenewCase (me; CN : Integer;
|
|
entfrom : IGESEntity; entto : IGESEntity;
|
|
TC : CopyTool) is virtual;
|
|
---Purpose : Renews parameters which are specific of each Type of Entity :
|
|
-- the provided default does nothing, but this method may be
|
|
-- redefined as required
|
|
|
|
WhenDeleteCase (me; CN : Integer;
|
|
ent : Transient; dispatched : Boolean) is redefined;
|
|
---Purpose : Prepares an IGES Entity for delete : works on directory part
|
|
-- then calls OwnDeleteCase
|
|
-- While dispatch requires to copy the entities, <dispatched> is
|
|
-- ignored, entities are cleared in any case
|
|
|
|
OwnDeleteCase (me; CN : Integer;
|
|
ent : IGESEntity) is virtual;
|
|
---Purpose : Specific preparation for delete, acts on own parameters
|
|
-- Default does nothing, to be redefined as required
|
|
|
|
Name (me; CN : Integer; ent : Transient; shares : ShareTool from Interface)
|
|
returns HAsciiString from TCollection is redefined virtual;
|
|
---Purpose : Returns the name of an IGES Entity (its NameValue)
|
|
-- Can be redefined for an even more specific case ...
|
|
|
|
end GeneralModule;
|