1 -- Created on: 2001-07-25
2 -- Created by: Julia DOROVSKIKH
3 -- Copyright (c) 2001-2014 OPEN CASCADE SAS
5 -- This file is part of Open CASCADE Technology software library.
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
16 class DocumentStorageDriver from XmlLDrivers inherits StorageDriver from PCDM
19 AsciiString from TCollection,
20 ExtendedString from TCollection,
21 SequenceOfExtendedString from TColStd,
23 Document from TDocStd,
24 SequenceOfNamespaceDef from XmlLDrivers,
25 Element from XmlObjMgt,
26 SRelocationTable from XmlObjMgt,
27 ADriverTable from XmlMDF,
28 MessageDriver from CDM
31 Create (theCopyright: ExtendedString from TCollection)
32 returns DocumentStorageDriver from XmlLDrivers;
35 SchemaName(me) returns ExtendedString from TCollection is redefined virtual;
36 -- pure virtual method definition
38 Write (me: mutable;theDocument: Document from CDM;
39 theFileName: ExtendedString from TCollection)
41 -- Write <aDocument> to the xml file <theFileName>
43 WriteToDomDocument(me:mutable; theDocument: Document from CDM;
44 thePDoc : out Element from XmlObjMgt;
45 theFileName: ExtendedString from TCollection)
46 returns Boolean from Standard
49 MakeDocument (me:mutable; theDocument: Document from CDM;
50 thePDoc : out Element from XmlObjMgt)
51 returns Integer from Standard
54 AddNamespace (me:mutable; thePrefix, theURI: AsciiString)
57 AttributeDrivers (me : mutable; theMsgDriver: MessageDriver from CDM)
58 returns ADriverTable from XmlMDF
61 WriteShapeSection (me:mutable; thePDoc : out Element from XmlObjMgt)
62 returns Boolean from Standard
66 myDrivers : ADriverTable from XmlMDF is protected;
67 mySeqOfNS : SequenceOfNamespaceDef from XmlLDrivers;
68 myCopyright : ExtendedString from TCollection;
69 myRelocTable: SRelocationTable from XmlObjMgt is protected;
71 end DocumentStorageDriver;