blob: 95311d4c1c62837a82751e513b525afe903a8c4f (
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
|
-- File: MDocStd_DocumentStorageDriver.cdl
-- Created: Thu Apr 15 13:47:15 1999
-- Author: Denis PASCAL
-- <dp@dingox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class DocumentStorageDriver from MDocStd inherits StorageDriver from PCDM
---Purpose: storage driver for a standard document
uses Document from TDocStd,
Document from PDocStd,
SRelocationTable from MDF,
Document from CDM,
MessageDriver from CDM,
Document from PCDM,
ExtendedString from TCollection,
ASDriverTable from MDF
is
Create
returns mutable DocumentStorageDriver from MDocStd;
CreateDocument (me: mutable) returns Document from PCDM
---Purpose: returns an empty PDocStd_Document. may be redefined;
is virtual;
Paste (me : mutable; TDOC : Document from TDocStd;
PDOC : Document from PDocStd;
aReloc : SRelocationTable from MDF);
---Purpose: virtual methods of StorageDriver from PCDM
-- ============================================
Make (me: mutable; aDocument: Document from CDM)
returns Document from PCDM
is redefined;
---Purpose: virtual methods (may be redefined by specialized application)
-- =============================================================
SchemaName(me)
returns ExtendedString from TCollection
is virtual;
AttributeDrivers(me : mutable; theMessageDriver : MessageDriver from CDM)
returns ASDriverTable from MDF
is virtual;
fields
myDrivers : ASDriverTable from MDF;
end DocumentStorageDriver;
|
