blob: 0a48b45d3a177803a18a068d24d84c9932dda490 (
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
|
--
-- File : LevelToPWBLayerMap.cdl
-- Created : Mon 11 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Anand NATRAJAN )
--
---Copyright : MATRA-DATAVISION 1993
--
class LevelToPWBLayerMap from IGESAppli inherits IGESEntity
---Purpose: defines LevelToPWBLayerMap, Type <406> Form <24>
-- in package IGESAppli
-- Used to correlate an exchange file level number with
-- its corresponding native level identifier, physical PWB
-- layer number and predefined functional level
-- identification
uses
HAsciiString from TCollection,
HArray1OfInteger from TColStd,
HArray1OfHAsciiString from Interface
raises DimensionMismatch, OutOfRange
is
Create returns mutable LevelToPWBLayerMap;
-- Specific Methods pertaining to the class
Init (me : mutable;
nbPropVal : Integer;
allExchLevels : HArray1OfInteger;
allNativeLevels : HArray1OfHAsciiString;
allPhysLevels : HArray1OfInteger;
allExchIdents : HArray1OfHAsciiString)
raises DimensionMismatch;
---Purpose : This method is used to set the fields of the class
-- LevelToPWBLayerMap
-- - nbPropVal : Number of property values
-- - allExchLevels : Exchange File Level Numbers
-- - allNativeLevels : Native Level Identifications
-- - allPhysLevels : Physical Layer Numbers
-- - allExchIdents : Exchange File Level Identifications
-- raises exception if allExchLevels, allNativeLevels, allPhysLevels
-- and all ExchIdents are not of same dimensions
NbPropertyValues (me) returns Integer;
---Purpose : returns number of property values
NbLevelToLayerDefs (me) returns Integer;
---Purpose : returns number of level to layer definitions
ExchangeFileLevelNumber (me; Index : Integer) returns Integer
raises OutOfRange;
---Purpose : returns Exchange File Level Number
-- raises exception if Index <= 0 or Index > NbLevelToLayerDefs
NativeLevel (me; Index : Integer) returns HAsciiString from TCollection
raises OutOfRange;
---Purpose : returns Native Level Identification
-- raises exception if Index <= 0 or Index > NbLevelToLayerDefs
PhysicalLayerNumber (me; Index : Integer) returns Integer
raises OutOfRange;
---Purpose : returns Physical Layer Number
-- raises exception if Index <= 0 or Index > NbLevelToLayerDefs
ExchangeFileLevelIdent (me; Index : Integer)
returns HAsciiString from TCollection
raises OutOfRange;
-- returns Exchange File Level Identification
-- raises exception if Index <= 0 or Index > NbLevelToLayerDefs
fields
--
-- Class : IGESAppli_LevelToPWBLayerMap
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class LevelToPWBLayerMap.
--
-- Reminder : A LevelToPWBLayerMap instance is defined by :
-- - Number of property values
-- - Exchange File Level Numbers
-- - Native Level Identifications
-- - Physical Layer Numbers
-- - Exchange File Level Identifications
theNbPropertyValues : Integer;
theExchangeFileLevelNumber : HArray1OfInteger;
theNativeLevel : HArray1OfHAsciiString;
thePhysicalLayerNumber : HArray1OfInteger;
theExchangeFileLevelIdent : HArray1OfHAsciiString;
end LevelToPWBLayerMap;
|
