blob: 24e48be3add4184838d7f3d1e06f13ab5183303a (
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
|
-- File: Protocol.cdl
-- Created: Fri Dec 1 11:11:11 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class Protocol from StepAP214 inherits Protocol from StepData
---Purpose : Protocol for StepAP214 Entities
-- It requires StepAP214 as a Resource
uses Protocol from Interface,
CString from Standard
is
Create returns mutable Protocol from StepAP214;
TypeNumber (me; atype : any Type) returns Integer is redefined;
---Purpose :Returns a Case Number for each of the StepAP214 Entities
SchemaName(me) returns CString from Standard is redefined;
-- was C++ : return const
NbResources (me) returns Integer is redefined;
---Purpose : Returns count of Protocol used as Resources (level one)
Resource (me; num : Integer) returns Protocol from Interface is redefined;
---Purpose : Returns a Resource, given its rank (between 1 and NbResources)
end Protocol;
|