mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-16 06:25:04 +08:00
34 lines
1.1 KiB
Plaintext
Executable File
34 lines
1.1 KiB
Plaintext
Executable File
-- File: IGESBasic_Protocol.cdl
|
|
-- Created: Wed May 5 11:30:30 1993
|
|
-- Author: Christian CAILLET
|
|
-- <cky@bravox>
|
|
---Copyright: Matra Datavision 1993
|
|
|
|
|
|
|
|
class Protocol from IGESBasic inherits Protocol from IGESData
|
|
|
|
---Purpose : Description of Protocol for IGESBasic
|
|
|
|
uses Type, Protocol from Interface
|
|
|
|
is
|
|
|
|
Create returns mutable Protocol from IGESBasic;
|
|
|
|
NbResources (me) returns Integer is redefined;
|
|
---Purpose : Gives the count of Resource Protocol. Here, one
|
|
-- (Protocol from IGESData)
|
|
|
|
Resource (me; num : Integer) returns Protocol from Interface is redefined;
|
|
---Purpose : Returns a Resource, given a rank.
|
|
|
|
TypeNumber (me; atype : any Type) returns Integer is redefined;
|
|
---Purpose : Returns a Case Number, specific of each recognized Type
|
|
-- This Case Number is then used in Libraries : the various
|
|
-- Modules attached to this class of Protocol must use them
|
|
-- in accordance (for a given value of TypeNumber, they must
|
|
-- consider the same Type as the Protocol defines)
|
|
|
|
end Protocol;
|