b311480e |
1 | -- Created on: 1993-01-09 |
2 | -- Created by: CKY / Contract Toubro-Larsen ( Arun MENON ) |
3 | -- Copyright (c) 1993-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
7fd59977 |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
7fd59977 |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
7fd59977 |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class SingleParent from IGESBasic inherits SingleParentEntity |
18 | |
19 | ---Purpose: defines SingleParent, Type <402> Form <9> |
20 | -- in package IGESBasic |
21 | -- It defines a logical structure of one independent |
22 | -- (parent) entity and one or more subordinate (children) |
23 | -- entities |
24 | |
25 | uses |
26 | |
27 | IGESEntity, |
28 | HArray1OfIGESEntity from IGESData |
29 | |
30 | raises OutOfRange |
31 | |
32 | is |
33 | |
6e33d3ce |
34 | Create returns SingleParent; |
7fd59977 |
35 | |
36 | -- Specific Methods pertaining to the class |
37 | |
38 | Init (me : mutable; |
39 | nbParentEntities : Integer; |
40 | aParentEntity : IGESEntity; |
41 | allChildren : HArray1OfIGESEntity); |
42 | ---Purpose : This method is used to set the fields of the class |
43 | -- SingleParent |
44 | -- - nbParentEntities : Indicates number of Parents, always = 1 |
45 | -- - aParentEntity : Used to hold the Parent Entity |
46 | -- - allChildren : Used to hold the children |
47 | |
48 | NbParentEntities (me) returns Integer; |
49 | ---Purpose : returns the number of Parent Entities, which should be 1 |
50 | |
51 | SingleParent (me) returns IGESEntity; |
52 | ---Purpose : Returns the Parent Entity (inherited method) |
53 | |
54 | NbChildren (me) returns Integer; |
55 | ---Purpose : returns the number of children of the Parent |
56 | |
57 | Child (me; Index : Integer) returns IGESEntity |
58 | raises OutOfRange; |
59 | ---Purpose : returns the specific child as indicated by Index |
60 | -- raises exception if Index <= 0 or Index > NbChildren() |
61 | |
62 | fields |
63 | |
64 | -- |
65 | -- Class : IGESBasic_SingleParent |
66 | -- |
67 | -- Purpose : Declaration of variables specific to the definition |
68 | -- of the Class SingleParent. |
69 | -- |
70 | -- Reminder : A SingleParent instance is defined by : |
71 | -- - number of parents (equal to 1) |
72 | -- - the parent entity |
73 | -- - the children entities |
74 | |
75 | theNbParentEntities : Integer; |
76 | theParentEntity : IGESEntity; |
77 | theChildren : HArray1OfIGESEntity; |
78 | |
79 | end SingleParent; |