0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / MDF / MDF_Tool.cdl
1 -- Created by: DAUTRY Philippe
2 -- Copyright (c) 1997-1999 Matra Datavision
3 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
4 --
5 -- This file is part of Open CASCADE Technology software library.
6 --
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
12 --
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
15
16 --              --------------
17
18 ---Version:     0.0
19 --Version       Date            Purpose
20 --              0.0     Mar 13 1997     Creation
21
22
23 class Tool from MDF
24
25         ---Purpose: A tool to translate...
26
27 uses
28
29     Label                  from TDF,
30     Data                   from TDF,
31     Data                   from PDF,
32     HAttributeArray1       from PDF,
33     TypeARDriverMap        from MDF,
34     TypeASDriverMap        from MDF,
35     ARDriverTable          from MDF,
36     ASDriverTable          from MDF,
37     RRelocationTable       from MDF,
38     SRelocationTable       from MDF,
39     Integer                from Standard,
40     HArray1OfInteger       from PColStd,
41     TransientPersistentMap from PTColStd
42
43 -- raises
44
45 is
46
47     WriteLabels(myclass;
48           aSource : Data from TDF;
49           aTarget : Data from PDF;
50           aDriverMap    : TypeASDriverMap from MDF;
51           aReloc        : SRelocationTable from MDF);
52         ---Purpose: Writes the labels with empty attributes.
53
54     WriteLabels(myclass;
55           aSourceLab    : Label from TDF;
56           theLabels     : HArray1OfInteger from PColStd;
57           theAttributes : HAttributeArray1 from PDF;
58           aDriverMap    : TypeASDriverMap from MDF;
59           aReloc        : SRelocationTable from MDF;
60           labAlloc      : in out Integer from Standard;
61           attAlloc      : in out Integer from Standard);
62         ---Purpose: Used for recursivity.
63
64     WriteAttributes(myclass;
65         aDriverMap    : TypeASDriverMap from MDF;
66         aReloc        : SRelocationTable from MDF);
67         ---Purpose: Writes attributes content.
68
69
70
71     ReadLabels(myclass;
72           aSource : Data from PDF;
73           aTarget : Data from TDF;
74           aDriverMap    : TypeARDriverMap from MDF;
75           aReloc        : RRelocationTable from MDF);
76         ---Purpose:  Reads the labels abd adds empty attributes to them.
77
78     ReadLabels(myclass;
79           anIns         : in out Label from TDF;
80           theLabels     : HArray1OfInteger from PColStd;
81           theAttributes : HAttributeArray1 from PDF;
82           aDriverMap    : TypeARDriverMap from MDF;
83           aReloc        : RRelocationTable from MDF;
84           labRead       : in out Integer from Standard;
85           attRead       : in out Integer from Standard);
86         ---Purpose: Used for recursivity.
87
88     ReadAttributes(myclass;
89         aDriverMap    : TypeARDriverMap from MDF;
90         aReloc        : RRelocationTable from MDF);
91         ---Purpose: Reads attributes content and paste them.
92
93 end Tool;