blob: 1fdc9e764b4db3a760da9a9149bc5fc699344c81 (
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
-- File: TDocStd_XLinkRoot.cdl
-- ------------------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 Aug 27 1997 Creation
private class XLinkRoot from TDocStd inherits Attribute from TDF
---Purpose: This attribute is the root of all external
-- references contained in a Data from TDF. Only one
-- instance of this class is added to the TDF_Data
-- root label. Starting from this attribute all the
-- Reference are linked together, to be found
-- easely.
uses
GUID from Standard,
Data from TDF,
RelocationTable from TDF,
XLink from TDocStd,
XLinkPtr from TDocStd
-- raises
is
-- CLASS methods.
-- --------------
GetID(myclass) returns GUID from Standard;
---Purpose: Returns the ID: 2a96b61d-ec8b-11d0-bee7-080009dc3333
--
---C++: return const &
Set(myclass; aDF : Data from TDF)
returns XLinkRoot from TDocStd;
---Purpose: Sets an empty XLinkRoot to Root or gets the
-- existing one. Only one attribute per TDF_Data.
Insert(myclass; anXLinkPtr : XLinkPtr from TDocStd);
---Purpose: Inserts <anXLinkPtr> at the beginning of the XLink chain.
Remove(myclass; anXLinkPtr : XLinkPtr from TDocStd);
---Purpose: Removes <anXLinkPtr> from the XLink chain, if it exists.
-- Basic methods.
-- --------------
Create
returns mutable XLinkRoot from TDocStd
is private;
---Purpose: Initializes fields.
-- Information access.
-- -------------------
ID(me) returns GUID from Standard
is redefined static;
---Purpose: Returns the ID of the attribute.
--
---C++: return const &
BackupCopy(me) returns mutable Attribute from TDF
is redefined static;
---Purpose: Returns a null handle.
Restore(me: mutable;
anAttribute : Attribute from TDF)
is redefined static;
---Purpose: Does nothing.
First(me : mutable; anXLinkPtr : XLinkPtr from TDocStd)
is private;
---Purpose: Sets the field <myFirst> with <anXLinkPtr>.
--
---C++: inline
First(me)
returns XLinkPtr from TDocStd
is private;
---Purpose: Returns the contents of the field <myFirst>.
--
---C++: inline
-- Copy use methods
-- ----------------
NewEmpty(me)
returns mutable Attribute from TDF
is redefined static;
---Purpose: Returns a null handle.
Paste(me;
intoAttribute : mutable Attribute from TDF;
aRelocationTable : mutable RelocationTable from TDF)
is redefined static;
---Purpose: Does nothing.
-- Miscelleaneous
-- --------------
Dump(me; anOS : in out OStream from Standard)
returns OStream from Standard
is redefined static;
---Purpose: Dumps the attribute on <aStream>.
---C++ : return &
fields
myFirst : XLinkPtr from TDocStd;
friends
class XLinkIterator from TDocStd
end XLinkRoot;
|
