mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-18 16:18:37 +08:00
d5f74e42d6
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.
118 lines
5.0 KiB
Plaintext
118 lines
5.0 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 mutable EntityCluster;
|
|
---Purpose : Creates an empty, non-chained, EntityCluster
|
|
|
|
Create (ent : any Transient) returns mutable EntityCluster;
|
|
---Purpose : Creates a non-chained EntityCluster, filled with one Entity
|
|
|
|
Create (ec : mutable EntityCluster) returns mutable 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 : mutable EntityCluster)
|
|
returns mutable 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 mutable 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;
|