b311480e |
1 | -- Created on: 1999-04-15 |
2 | -- Created by: Denis PASCAL |
3 | -- Copyright (c) 1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class DocumentStorageDriver from MDocStd inherits StorageDriver from PCDM |
18 | |
19 | ---Purpose: storage driver for a standard document |
20 | |
21 | |
22 | uses Document from TDocStd, |
23 | Document from PDocStd, |
24 | SRelocationTable from MDF, |
25 | Document from CDM, |
26 | MessageDriver from CDM, |
27 | Document from PCDM, |
28 | ExtendedString from TCollection, |
29 | ASDriverTable from MDF |
30 | |
31 | |
32 | is |
33 | |
34 | |
35 | Create |
6e33d3ce |
36 | returns DocumentStorageDriver from MDocStd; |
7fd59977 |
37 | |
38 | CreateDocument (me: mutable) returns Document from PCDM |
39 | ---Purpose: returns an empty PDocStd_Document. may be redefined; |
40 | is virtual; |
41 | |
42 | Paste (me : mutable; TDOC : Document from TDocStd; |
43 | PDOC : Document from PDocStd; |
44 | aReloc : SRelocationTable from MDF); |
45 | |
46 | |
47 | ---Purpose: virtual methods of StorageDriver from PCDM |
48 | -- ============================================ |
49 | |
50 | Make (me: mutable; aDocument: Document from CDM) |
51 | returns Document from PCDM |
52 | is redefined; |
53 | |
54 | ---Purpose: virtual methods (may be redefined by specialized application) |
55 | -- ============================================================= |
56 | |
57 | SchemaName(me) |
58 | returns ExtendedString from TCollection |
59 | is virtual; |
60 | |
61 | AttributeDrivers(me : mutable; theMessageDriver : MessageDriver from CDM) |
62 | returns ASDriverTable from MDF |
63 | is virtual; |
64 | |
65 | fields |
66 | |
67 | myDrivers : ASDriverTable from MDF; |
68 | |
69 | end DocumentStorageDriver; |