src/IGESSolid/IGESSolid_Protocol.cdl

   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;