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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
-- File: StepData_Protocol.cdl
-- Created: Wed Feb 3 11:01:48 1993
-- Author: Christian CAILLET
-- <cky@phobox>
---Copyright: Matra Datavision 1993
class Protocol from StepData inherits Protocol from Interface
---Purpose : Description of Basic Protocol for Step
-- The class Protocol from StepData itself describes a default
-- Protocol, which recognizes only UnknownEntities.
-- Sub-classes will redefine CaseNumber and, if necessary,
-- NbResources and Resources.
uses CString, Type,
SequenceOfAsciiString from TColStd, DictionaryOfTransient from Dico,
DataMapOfTransientInteger from Interface,
InterfaceModel from Interface,
EDescr from StepData, ESDescr from StepData, ECDescr from StepData,
PDescr from StepData
is
Create returns mutable Protocol from StepData;
NbResources (me) returns Integer;
---Purpose : Gives the count of Protocols used as Resource (can be zero)
-- Here, No resource
Resource (me; num : Integer) returns Protocol from Interface;
---Purpose : Returns a Resource, given a rank. Here, none
CaseNumber (me; obj : any Transient) returns Integer is redefined;
---Purpose : Returns a unique positive number for any recognized entity
-- Redefined to work by calling both TypeNumber and, for a
-- Described Entity (late binding) DescrNumber
TypeNumber (me; atype : any Type) returns Integer;
---Purpose : Returns a Case Number, specific of each recognized Type
-- Here, only Unknown Entity is recognized
-- -- Specific for StepData -- --
SchemaName (me) returns CString is virtual;
---Purpose : Returns the Schema Name attached to each class of Protocol
-- To be redefined by each sub-class
-- Here, SchemaName returns "(DEFAULT)"
-- was C++ : return const
-- -- General Services (defined at Norm level) -- --
NewModel (me) returns mutable InterfaceModel;
---Purpose : Creates an empty Model for Step Norm
IsSuitableModel (me; model : InterfaceModel) returns Boolean;
---Purpose : Returns True if <model> is a Model of Step Norm
UnknownEntity (me) returns mutable Transient;
---Purpose : Creates a new Unknown Entity for Step (UndefinedEntity)
IsUnknownEntity (me; ent : Transient) returns Boolean;
---Purpose : Returns True if <ent> is an Unknown Entity for the Norm, i.e.
-- Type UndefinedEntity, status Unknown
-- -- About Descriptions (late binding)
DescrNumber (me; adescr : any EDescr) returns Integer is virtual;
---Purpose : Returns a unique positive CaseNumber for types described by
-- an EDescr (late binding)
-- Warning : TypeNumber and DescrNumber must give together a unique
-- positive case number for each distinct case, type or descr
AddDescr (me : mutable; adescr : EDescr; CN : Integer);
---Purpose : Records an EDescr with its case number
-- Also records its name for an ESDescr (simple type): an ESDescr
-- is then used, for case number, or for type name
HasDescr (me) returns Boolean;
---Purpose : Tells if a Protocol brings at least one ESDescr, i.e. if it
-- defines at least one entity description by ESDescr mechanism
Descr (me; num : Integer) returns EDescr;
---Purpose : Returns the description attached to a case number, or null
Descr (me; name : CString; anylevel : Boolean = Standard_True)
returns EDescr;
---Purpose : Returns a description according to its name
-- <anylevel> True (D) : for <me> and its resources
-- <anylevel> False : for <me> only
ESDescr (me; name : CString; anylevel : Boolean = Standard_True)
returns ESDescr;
---Purpose : Idem as Descr but cast to simple description
ECDescr (me; names : SequenceOfAsciiString from TColStd;
anylevel : Boolean = Standard_True) returns ECDescr;
---Purpose : Returns a complex description according to list of names
-- <anylevel> True (D) : for <me> and its resources
-- <anylevel> False : for <me> only
AddPDescr (me : mutable; pdescr : PDescr);
---Purpose : Records an PDescr
PDescr (me; name : CString; anylevel : Boolean = Standard_True)
returns PDescr;
---Purpose : Returns a parameter description according to its name
-- <anylevel> True (D) : for <me> and its resources
-- <anylevel> False : for <me> only
AddBasicDescr (me : mutable; esdescr : ESDescr);
---Purpose : Records an ESDescr, intended to build complex descriptions
BasicDescr (me; name : CString; anylevel : Boolean = Standard_True)
returns EDescr;
---Purpose : Returns a basic description according to its name
-- <anylevel> True (D) : for <me> and its resources
-- <anylevel> False : for <me> only
fields
thedscnum : DataMapOfTransientInteger from Interface;
thedscnam : DictionaryOfTransient from Dico;
thepdescr : DictionaryOfTransient from Dico;
thedscbas : DictionaryOfTransient from Dico;
end Protocol;
|
