src/MDF/MDF_Tool.cdl

   1 -- File:        MDF_Tool.cdl
   2 --              --------------
   3 -- Author:      DAUTRY Philippe
   4 --              <fid@fox.paris1.matra-dtv.fr>
   5 ---Copyright:    MATRA DATAVISION 1997
   6
   7 ---Version:     0.0
   8 ---History:     Version Date            Purpose
   9 --              0.0     Mar 13 1997     Creation
  10
  11
  12 class Tool from MDF
  13
  14         ---Purpose: A tool to translate...
  15
  16 uses
  17
  18     Label                  from TDF,
  19     Data                   from TDF,
  20     Data                   from PDF,
  21     HAttributeArray1       from PDF,
  22     TypeARDriverMap        from MDF,
  23     TypeASDriverMap        from MDF,
  24     ARDriverTable          from MDF,
  25     ASDriverTable          from MDF,
  26     RRelocationTable       from MDF,
  27     SRelocationTable       from MDF,
  28     Integer                from Standard,
  29     HArray1OfInteger       from PColStd,
  30     TransientPersistentMap from PTColStd
  31
  32 -- raises
  33
  34 is
  35
  36     WriteLabels(myclass;
  37           aSource : Data from TDF;
  38           aTarget : Data from PDF;
  39           aDriverMap    : TypeASDriverMap from MDF;
  40           aReloc        : SRelocationTable from MDF);
  41         ---Purpose: Writes the labels with empty attributes.
  42
  43     WriteLabels(myclass;
  44           aSourceLab    : Label from TDF;
  45           theLabels     : HArray1OfInteger from PColStd;
  46           theAttributes : HAttributeArray1 from PDF;
  47           aDriverMap    : TypeASDriverMap from MDF;
  48           aReloc        : SRelocationTable from MDF;
  49           labAlloc      : in out Integer from Standard;
  50           attAlloc      : in out Integer from Standard);
  51         ---Purpose: Used for recursivity.
  52
  53     WriteAttributes(myclass;
  54         aDriverMap    : TypeASDriverMap from MDF;
  55         aReloc        : SRelocationTable from MDF);
  56         ---Purpose: Writes attributes content.
  57
  58
  59
  60     ReadLabels(myclass;
  61           aSource : Data from PDF;
  62           aTarget : Data from TDF;
  63           aDriverMap    : TypeARDriverMap from MDF;
  64           aReloc        : RRelocationTable from MDF);
  65         ---Purpose:  Reads the labels abd adds empty attributes to them.
  66
  67     ReadLabels(myclass;
  68           anIns         : in out Label from TDF;
  69           theLabels     : HArray1OfInteger from PColStd;
  70           theAttributes : HAttributeArray1 from PDF;
  71           aDriverMap    : TypeARDriverMap from MDF;
  72           aReloc        : RRelocationTable from MDF;
  73           labRead       : in out Integer from Standard;
  74           attRead       : in out Integer from Standard);
  75         ---Purpose: Used for recursivity.
  76
  77     ReadAttributes(myclass;
  78         aDriverMap    : TypeARDriverMap from MDF;
  79         aReloc        : RRelocationTable from MDF);
  80         ---Purpose: Reads attributes content and paste them.
  81
  82 end Tool;