blob: 885de193bb87891f237429da1c36edc9ee616812 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-- File: SingleParentEntity.cdl
-- Created: Wed Oct 21 18:19:01 1992
-- Author: Christian CAILLET
-- <cky@topsn2>
---Copyright: Matra Datavision 1992
deferred class SingleParentEntity from IGESData inherits IGESEntity
---Purpose : a SingleParentEntity is a kind of IGESEntity which can refer
-- to a (Single) Parent, from Associativities list of an Entity
-- a effective SingleParent definition entity must inherit it
uses Integer
raises OutOfRange
is
SingleParent (me) returns IGESEntity is deferred;
---Purpose : Returns the parent designated by the Entity, if only one !
NbChildren (me) returns Integer is deferred;
---Purpose : Returns the count of Entities designated as children
Child (me; num : Integer) returns IGESEntity
---Purpose : Returns a Child given its rank
raises OutOfRange is deferred;
-- Error if <num> is below one or over <NbChildren>
end SingleParentEntity;
|
