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