blob: 626b8e48b48cabe1dff6e3cfa9111f30bd88842e (
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
--
-- File : AssociativityDef.cdl
-- Created : Wed 13 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Deepak PRABHU )
--
---Copyright : MATRA-DATAVISION 1993
--
class AssociativityDef from IGESDefs inherits IGESEntity
---Purpose: defines IGES Associativity Definition Entity, Type <302>
-- Form <5001 - 9999> in package IGESDefs.
-- This class permits the preprocessor to define an
-- associativity schema. i.e., by using it preprocessor
-- defines the type of relationship.
uses
HArray1OfInteger from TColStd,
HArray1OfHArray1OfInteger from IGESBasic
raises DimensionMismatch, OutOfRange
is
Create returns mutable AssociativityDef;
-- Specific methods for the entity
Init (me : mutable;
requirements : HArray1OfInteger;
orders : HArray1OfInteger;
numItems : HArray1OfInteger;
items : HArray1OfHArray1OfInteger)
raises DimensionMismatch;
---Purpose : This method is used to set the fields of the class
-- AssociativityDef
-- - requirements : Back Pointers requirements
-- - orders : Class Orders
-- - numItems : Number of Items per Class
-- - items : Items in each class
-- raises exception if lengths of the arrays are not the same.
SetFormNumber (me : mutable; form : Integer);
-- Sets Form Number to a given value (free over 5000)
NbClassDefs(me) returns Integer;
---Purpose : returns the Number of class definitions
IsBackPointerReq(me ; ClassNum : Integer) returns Boolean
raises OutOfRange;
---Purpose : returns 1 if the theBackPointerReqs(ClassNum) = 1
-- returns 0 if the theBackPointerReqs(ClassNum) = 2
-- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
BackPointerReq(me ; ClassNum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns 1 or 2
-- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
IsOrdered(me ; ClassNum : Integer) returns Boolean
raises OutOfRange;
---Purpose : returns 1 if theClassOrders(ClassNum) = 1 (ordered class)
-- returns 0 if theClassOrders(ClassNum) = 2 (unordered class)
-- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
ClassOrder(me ; ClassNum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns 1 or 2
-- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
NbItemsPerClass(me ; ClassNum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns no. of items per class entry
-- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
Item(me ; ClassNum : Integer; ItemNum : Integer) returns Integer
raises OutOfRange;
---Purpose : returns ItemNum'th Item of ClassNum'th Class
-- raises exception if
-- ClassNum <= 0 or ClassNum > NbClassDefs()
-- ItemNum <= 0 or ItemNum > NbItemsPerClass(ClassNum)
fields
--
-- Class : IGESDefs_AssociativityDef
--
-- Purpose : Declaration of variables specific to AssociativityDef
--
-- Reminder : An AssociativityDef Entity permits the preprocessor
-- to define an associativity schema. The definition
-- includes associativity form, the no. of classes,
-- the number and type of items in each class, and
-- whether back pointers are required.
theBackPointerReqs : HArray1OfInteger;
theClassOrders : HArray1OfInteger;
theNbItemsPerClass : HArray1OfInteger;
theItems : HArray1OfHArray1OfInteger;
end AssociativityDef;
|
