7fd59977 |
1 | -- File: BinMDF_ReferenceDriver.cdl |
2 | -- Created: Wed Oct 30 12:08:13 2002 |
3 | -- Author: Michael SAZONOV |
4 | -- <msv@novgorox.nnov.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 2002 |
6 | |
7 | |
8 | class ReferenceDriver from BinMDF inherits ADriver from BinMDF |
9 | |
10 | ---Purpose: Reference attribute Driver. |
11 | |
12 | uses |
13 | MessageDriver from CDM, |
14 | SRelocationTable from BinObjMgt, |
15 | RRelocationTable from BinObjMgt, |
16 | Persistent from BinObjMgt, |
17 | Attribute from TDF |
18 | |
19 | is |
20 | Create (theMessageDriver:MessageDriver from CDM) |
21 | returns mutable ReferenceDriver from BinMDF; |
22 | |
23 | NewEmpty (me) returns mutable Attribute from TDF |
24 | is redefined; |
25 | |
26 | Paste(me; Source : Persistent from BinObjMgt; |
27 | Target : mutable Attribute from TDF; |
28 | RelocTable : out RRelocationTable from BinObjMgt) |
29 | returns Boolean from Standard is redefined; |
30 | |
31 | Paste(me; Source : Attribute from TDF; |
32 | Target : in out Persistent from BinObjMgt; |
33 | RelocTable : out SRelocationTable from BinObjMgt) |
34 | is redefined; |
35 | |
36 | end ReferenceDriver; |