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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
-- File: TDF_CopyTool.cdl
-- ----------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 Mar 11 1997 Creation
class CopyTool from TDF
---Purpose: This class provides services to build, copy or
-- paste a set of information.
--
-- Copy methods:
-- -------------
--
-- * Copy(aSourceDataSet, aTargetLabel,
-- aRelocationTable) copies a source DataSet under
-- its target place (see below: IMPORTANT NOTICE 1).
--
-- * Copy(aSourceDataSet, anTargetLabel,
-- aRelocationTable, aFilter) does the same job as
-- the previous method. But <aFilter> gives a list of
-- IDs for which a target attribute prevails over a
-- source one. In this special case, the source
-- attribute will be copied only if there will be no
-- target attribute.
--
--
-- IMPORTANT NOTICE : Label pre-binding
-- ------------------
--
-- For it is possible to copy root labels in another
-- place in the same Data or in a different one with
-- other tags, it is necessary to inform the Copy
-- algorithm about the target place. To do so:
--
-- * first get or create new target root labels;
--
-- * then bind them with the source root labels using
-- the relocation table method:
-- SetRelocation(aSourceLabel, aTargetLabel);
--
-- * finally call Copy(...) with the relocation table
-- previously set. In this way, this method will take
-- these relocations in account.
uses
Boolean from Standard,
Label from TDF,
Attribute from TDF,
DataSet from TDF,
RelocationTable from TDF,
AttributeMap from TDF,
AttributeDataMap from TDF,
LabelDataMap from TDF,
LabelMap from TDF,
IDFilter from TDF,
ClosureMode from TDF
is
Copy(myclass;
aSourceDataSet : DataSet from TDF;
aRelocationTable : mutable RelocationTable from TDF);
---Purpose: Copy <aSourceDataSet> with using and updating
-- <aRelocationTable>. This method ignores target
-- attributes privilege over source ones.
Copy(myclass;
aSourceDataSet : DataSet from TDF;
aRelocationTable : mutable RelocationTable from TDF;
aPrivilegeFilter : IDFilter from TDF);
---Purpose: Copy <aSourceDataSet> using and updating
-- <aRelocationTable>. Use <aPrivilegeFilter> to give
-- a list of IDs for which the target attribute
-- prevails over the source one.
-- Copy method piloting self contained attitude.
-- ----------------------------------------------
Copy(myclass;
aSourceDataSet : DataSet from TDF;
aRelocationTable : mutable RelocationTable from TDF;
aPrivilegeFilter : IDFilter from TDF;
aRefFilter : IDFilter from TDF;
setSelfContained : Boolean from Standard);
---Purpose: Copy <aSourceDataSet> using and updating
-- <aRelocationTable>. Use <aPrivilegeFilter> to give
-- a list of IDs for which the target attribute
-- prevails over the source one. If
-- <setSelfContained> is set to true, every
-- TDF_Reference will be replaced by the referenced
-- structure according to <aRefFilter>.
--
-- NB: <aRefFilter> is used only if
-- <setSelfContained> is true.
-- ----------------------------------------------------------------------
--
-- Private methods
--
-- ----------------------------------------------------------------------
---Purpose: Internal root label copy recursive method.
CopyLabels(myclass;
aSLabel : Label from TDF;
aTargetLabel : in out Label from TDF;
aLabMap : in out LabelDataMap from TDF;
aAttMap : in out AttributeDataMap from TDF;
aSrcLabelMap : LabelMap from TDF;
aSrcAttributeMap : AttributeMap from TDF)
is private;
---Purpose: Internal root label copy recursive method.
CopyAttributes(myclass;
aSLabel : Label from TDF;
aTargetLabel : in out Label from TDF;
aAttMap : in out AttributeDataMap from TDF;
aSrcAttributeMap : AttributeMap from TDF)
is private;
---Purpose: Internal attribute copy method.
end CopyTool;
|
