blob: 2b8151380481ab2642cfee23e55ff60b7514c8e0 (
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
--
-- File : SingleParent.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Arun MENON )
--
---Copyright : MATRA-DATAVISION 1993
--
class SingleParent from IGESBasic inherits SingleParentEntity
---Purpose: defines SingleParent, Type <402> Form <9>
-- in package IGESBasic
-- It defines a logical structure of one independent
-- (parent) entity and one or more subordinate (children)
-- entities
uses
IGESEntity,
HArray1OfIGESEntity from IGESData
raises OutOfRange
is
Create returns mutable SingleParent;
-- Specific Methods pertaining to the class
Init (me : mutable;
nbParentEntities : Integer;
aParentEntity : IGESEntity;
allChildren : HArray1OfIGESEntity);
---Purpose : This method is used to set the fields of the class
-- SingleParent
-- - nbParentEntities : Indicates number of Parents, always = 1
-- - aParentEntity : Used to hold the Parent Entity
-- - allChildren : Used to hold the children
NbParentEntities (me) returns Integer;
---Purpose : returns the number of Parent Entities, which should be 1
SingleParent (me) returns IGESEntity;
---Purpose : Returns the Parent Entity (inherited method)
NbChildren (me) returns Integer;
---Purpose : returns the number of children of the Parent
Child (me; Index : Integer) returns IGESEntity
raises OutOfRange;
---Purpose : returns the specific child as indicated by Index
-- raises exception if Index <= 0 or Index > NbChildren()
fields
--
-- Class : IGESBasic_SingleParent
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class SingleParent.
--
-- Reminder : A SingleParent instance is defined by :
-- - number of parents (equal to 1)
-- - the parent entity
-- - the children entities
theNbParentEntities : Integer;
theParentEntity : IGESEntity;
theChildren : HArray1OfIGESEntity;
end SingleParent;
|
