mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-16 10:08:36 +03:00
ed4415982c
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
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 mutable Transient)
|
|
returns Boolean is deferred;
|
|
---Purpose : Specific creation of a new void entity
|
|
|
|
CopyCase (me; CN : Integer;
|
|
entfrom : Transient; entto : mutable 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 : mutable 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 : mutable 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 : mutable 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 : mutable 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 : mutable 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;
|