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