src/IGESData/IGESData_DirPart.cdl

   1 -- File:        DirPart.cdl
   2 -- Created:     Mon Apr  6 14:27:54 1992
   3 -- Author:      Christian CAILLET
   4 --              <cky@phobox>
   5 ---Copyright:    Matra Datavision 1992
   6
   7
   8 class DirPart  from IGESData  inherits Storable    -- for Array
   9
  10     ---Purpose : litteral/numeric description of an entity's directory section,
  11     --           taken from file
  12
  13 uses Integer, Character, IGESType
  14
  15 is
  16
  17     Create returns DirPart;
  18     ---Purpose : creates an empty DirPart, ready to be filled by Init
  19
  20     Init (me : in out;
  21       i1,i2,i3,i4,i5,i6,i7,i8,i9,i19,i11,i12,i13,i14,i15,i16,i17 : Integer;
  22       res1,res2,label,subscript : CString)  is static;
  23     ---Purpose : fills DirPart with consistant data read from file
  24
  25     Values (me;
  26       i1,i2,i3,i4,i5,i6,i7,i8,i9,i19,i11,i12,i13,i14,i15,i16,i17 : out Integer;
  27       res1,res2,label,subscript : CString)  is static;
  28     ---Purpose : returns values recorded in DirPart
  29     --           (content of cstrings are modified)
  30
  31     Type (me) returns IGESType  is static;
  32     ---Purpose : returns "type" and "form" info, used to recognize the entity
  33
  34 fields
  35
  36     thevals : Integer[17];
  37     theres1 : Character[10];
  38     theres2 : Character[10];
  39     thelabl : Character[10];
  40     thesubs : Character[10];
  41
  42 end DirPart;