7fd59977 |
1 | -- File: MDataStd_CommentRetrievalDriver.cdl |
2 | -- Created: Thu Jan 15 11:22:53 1998 |
3 | -- Author: Denis PASCAL |
4 | -- <dp@dingox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1998 |
6 | |
7 | |
8 | class CommentRetrievalDriver from MDataStd inherits ARDriver from MDF |
9 | |
10 | ---Purpose: |
11 | |
12 | uses RRelocationTable from MDF, |
13 | Attribute from PDF, |
14 | Attribute from TDF, |
15 | MessageDriver from CDM |
16 | |
17 | is |
18 | |
19 | |
20 | Create(theMessageDriver : MessageDriver from CDM) -- Version 0 |
21 | returns mutable CommentRetrievalDriver from MDataStd; |
22 | |
23 | |
24 | VersionNumber(me) returns Integer from Standard; |
25 | ---Purpose: Returns the version number from which the driver |
26 | -- is available: 0. |
27 | |
28 | SourceType(me) returns Type from Standard; |
29 | ---Purpose: Returns the type: Comment from PDataStd. |
30 | |
31 | NewEmpty (me) returns mutable Attribute from TDF; |
32 | |
33 | |
34 | Paste(me; |
35 | Source : Attribute from PDF; |
36 | Target : mutable Attribute from TDF; |
37 | RelocTable : RRelocationTable from MDF); |
38 | |
39 | end CommentRetrievalDriver; |