7fd59977 |
1 | -- File: IGESSolid_Protocol.cdl |
2 | -- Created: Wed May 5 11:30:30 1993 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@bravox> |
5 | ---Copyright: Matra Datavision 1993 |
6 | |
7 | |
8 | |
9 | class Protocol from IGESSolid inherits Protocol from IGESData |
10 | |
11 | ---Purpose : Description of Protocol for IGESSolid |
12 | |
13 | uses Type, Protocol from Interface |
14 | |
15 | is |
16 | |
17 | Create returns mutable Protocol from IGESSolid; |
18 | |
19 | NbResources (me) returns Integer is redefined; |
20 | ---Purpose : Gives the count of Resource Protocol. Here, one |
21 | -- (Protocol from IGESGeom) |
22 | |
23 | Resource (me; num : Integer) returns Protocol from Interface is redefined; |
24 | ---Purpose : Returns a Resource, given a rank. |
25 | |
26 | TypeNumber (me; atype : any Type) returns Integer is redefined; |
27 | ---Purpose : Returns a Case Number, specific of each recognized Type |
28 | -- This Case Number is then used in Libraries : the various |
29 | -- Modules attached to this class of Protocol must use them |
30 | -- in accordance (for a given value of TypeNumber, they must |
31 | -- consider the same Type as the Protocol defines) |
32 | |
33 | end Protocol; |