mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03: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.
118 lines
4.9 KiB
Plaintext
118 lines
4.9 KiB
Plaintext
-- Created on: 1992-11-02
|
|
-- Created by: Christian CAILLET
|
|
-- 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.
|
|
|
|
private class EntityCluster from Interface inherits TShared
|
|
|
|
---Purpose : Auxiliary class for EntityList. An EntityList designates an
|
|
-- EntityCluster, which brings itself an fixed maximum count of
|
|
-- Entities. If it is full, it gives access to another cluster
|
|
-- ("Next"). This class is intended to give a good compromise
|
|
-- between access time (faster than a Sequence, good for little
|
|
-- count) and memory use (better than a Sequence in any case,
|
|
-- overall for little count, better than an Array for a very
|
|
-- little count. It is designed for a light management.
|
|
-- Remark that a new Item may not be Null, because this is the
|
|
-- criterium used for "End of List"
|
|
|
|
uses EntityIterator, Transient
|
|
|
|
raises OutOfRange, NullObject
|
|
|
|
is
|
|
|
|
Create returns EntityCluster;
|
|
---Purpose : Creates an empty, non-chained, EntityCluster
|
|
|
|
Create (ent : any Transient) returns EntityCluster;
|
|
---Purpose : Creates a non-chained EntityCluster, filled with one Entity
|
|
|
|
Create (ec : EntityCluster) returns EntityCluster;
|
|
---Purpose : Creates an empty EntityCluster, chained with another one
|
|
-- (that is, put BEFORE this other one in the list)
|
|
|
|
Create (ant : any Transient; ec : EntityCluster)
|
|
returns EntityCluster;
|
|
---Purpose : Creates an EntityCluster, filled with a first Entity, and
|
|
-- chained to another EntityCluster (BEFORE it, as above)
|
|
|
|
|
|
Append (me : mutable; ent : any Transient)
|
|
---Purpose : Appends an Entity to the Cluster. If it is not full, adds the
|
|
-- entity directly inside itself. Else, transmits to its Next
|
|
-- and Creates it if it does not yet exist
|
|
raises NullObject is static;
|
|
-- Error if <ent> is Null
|
|
|
|
Remove (me : mutable; ent : any Transient) returns Boolean
|
|
---Purpose : Removes an Entity from the Cluster. If it is not found, calls
|
|
-- its Next one to do so.
|
|
-- Returns True if it becomes itself empty, False else
|
|
-- (thus, a Cluster which becomes empty is deleted from the list)
|
|
raises NullObject is static;
|
|
-- Error if <ent> is Null
|
|
|
|
Remove (me : mutable; num : Integer) returns Boolean
|
|
---Purpose : Removes an Entity from the Cluster, given its rank. If <num>
|
|
-- is greater than NbLocal, calls its Next with (num - NbLocal),
|
|
-- Returns True if it becomes itself empty, False else
|
|
raises OutOfRange is static;
|
|
-- Raises an Exception if there is no Next to do so.
|
|
|
|
NbEntities (me) returns Integer is static;
|
|
---Purpose : Returns total count of Entities (including Next)
|
|
|
|
Value (me; num : Integer) returns any Transient
|
|
---Purpose : Returns the Entity identified by its rank in the list
|
|
-- (including Next)
|
|
raises OutOfRange is static;
|
|
-- Error if num less than 1 or num more then NbEntities
|
|
---C++ : return const &
|
|
|
|
SetValue (me : mutable; num : Integer; ent : any Transient)
|
|
---Purpose : Changes an Entity given its rank.
|
|
raises OutOfRange, NullObject is static;
|
|
-- Error if <num> is not in [1 - NbEntities], or if <ent> is Null
|
|
|
|
FillIterator (me; iter : in out EntityIterator) is static;
|
|
---Purpose : Fills an Iterator with designated Entities (includes Next)
|
|
|
|
-- -- Internal Queries, also used by EntityList -- --
|
|
|
|
IsLocalFull (me) returns Boolean is static private;
|
|
---Purpose : Returns True if all the set of entities local to a Cluster is
|
|
-- full. Used by EntityList.
|
|
|
|
NbLocal (me) returns Integer is static private;
|
|
---Purpose : Returns count of entities in the local set (without Next)
|
|
-- Entities can then be read normally by method Value
|
|
|
|
HasNext (me) returns Boolean is static private;
|
|
---Purpose : Returns True if a Cluster has a Next
|
|
|
|
Next (me) returns EntityCluster is static private;
|
|
---Purpose : Returns Next Cluster in the chain
|
|
|
|
fields
|
|
|
|
theents : Transient[4]; -- 4 : best compromise for memory use
|
|
thenext : EntityCluster;
|
|
|
|
friends
|
|
|
|
class EntityList -- of which EntityCluster stores content
|
|
|
|
end EntityCluster;
|