blob: 929f04704c3f94fce572bcf337a6939a5a4acb28 (
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
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
|
-- File: MDF_RelocationTable.cdl
-- -----------------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 May 7 1997 Creation
generic class RelocationTable from MDF
(TheSourceType as any;
TheTargetType as any;
TheOtherSourceType as any;
TheOtherTargetType as any;
TheMapType as any)
inherits TShared from MMgt
---Purpose: Storage Relocation Table
-- (Transient->Persistent). It is a relocation
-- dictionnary.
uses
Tool from MDF
-- raises
is
Create(theSelfRelocation : Boolean from Standard = Standard_False)
returns mutable RelocationTable from MDF;
---Purpose: Creates a relocation table.
-- <theSelfRelocation> status says that the relocation table allows self relocation.
SetSelfRelocation(me : mutable; theStatus : Boolean from Standard = Standard_True);
---Purpose: Sets self relocation status.
IsSelfRelocation(me)
---Purpose: Returns true if the self relocation status is set.
returns Boolean from Standard;
-- Attribute relocation methods.
-- ---------
SetRelocation(me : mutable;
aSourceAttribute : TheSourceType;
aTargetAttribute : TheTargetType);
---Purpose: Sets the relocation value of <aSourceAttribute> to
-- <aTargetAttribute>.
HasRelocation(me : mutable;
aSourceAttribute : TheSourceType;
aTargetAttribute : in out mutable TheTargetType)
returns Boolean from Standard;
---Purpose: Finds the relocation value of <aSourceAttribute>
-- and returns it into <aTargetAttribute>.
--
-- If a value is found, returns True; False otherwise.
-- Transient other types object relocation methods.
-- ---------------------
SetOtherRelocation(me : mutable;
aSource : TheOtherSourceType;
aTarget : TheOtherTargetType);
---Purpose: Sets the relocation value of <aSourceTransient> to
-- <aTargetTransient>.
HasOtherRelocation(me : mutable;
aSource : TheOtherSourceType;
aTarget : in out mutable TheOtherTargetType)
returns Boolean from Standard;
---Purpose: Finds the relocation value of <aSource>
-- and returns it into <aTarget>.
--
-- If a value is found, returns True; False otherwise.
-- Try not to use the following methods...
AttributeTable(me : mutable)
returns TheMapType;
---Purpose: Returns <myAttributeTable> to be read or
-- updated. Please, for a better security, avoid to
-- use this method.
--
---C++: return &
OtherTable(me : mutable)
returns TheMapType;
---Purpose: Returns <myOtherTable> to be read or
-- updated. Please, for a better security, avoid to
-- use this method.
--
---C++: return &
fields
myAttributeTable : TheMapType;
myOtherTable : TheMapType;
mySelfRelocation : Boolean from Standard;
end RelocationTable;
|