src/BinMDataStd/BinMDataStd_RealListDriver.cdl

   1 -- File:        BinMDataStd_RealListDriver.cdl
   2 -- Created:     May 29 11:40:00 2007
   3 -- Author:      Vlad Romashko
   4 --              <vladislav.romashko@opencascade.com>
   5 -- Copyright:   Open CASCADE
   6
   7 class RealListDriver from BinMDataStd inherits ADriver from BinMDF
   8
   9 uses
  10
  11     MessageDriver    from CDM,
  12     SRelocationTable from BinObjMgt,
  13     RRelocationTable from BinObjMgt,
  14     Persistent       from BinObjMgt,
  15     Attribute        from TDF
  16
  17 is
  18     Create (theMessageDriver:MessageDriver from CDM)
  19     returns mutable RealListDriver from BinMDataStd;
  20
  21     NewEmpty (me)
  22     returns mutable Attribute from TDF
  23     is redefined;
  24
  25     Paste(me; Source     : Persistent from BinObjMgt;
  26               Target     : mutable Attribute from TDF;
  27               RelocTable : out RRelocationTable from BinObjMgt)
  28     returns Boolean from Standard is redefined;
  29
  30     Paste(me; Source     : Attribute from TDF;
  31               Target     : in out Persistent from BinObjMgt;
  32               RelocTable : out SRelocationTable from BinObjMgt)
  33     is redefined;
  34
  35 end RealListDriver;