src/XmlLDrivers/XmlLDrivers_DocumentStorageDriver.cdl

   1 -- Created on: 2001-07-25
   2 -- Created by: Julia DOROVSKIKH
   3 -- Copyright (c) 2001-2012 OPEN CASCADE SAS
   4 --
   5 -- The content of this file is subject to the Open CASCADE Technology Public
   6 -- License Version 6.5 (the "License"). You may not use the content of this file
   7 -- except in compliance with the License. Please obtain a copy of the License
   8 -- at http://www.opencascade.org and read it completely before using this file.
   9 --
  10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  12 --
  13 -- The Original Code and all software distributed under the License is
  14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  15 -- Initial Developer hereby disclaims all such warranties, including without
  16 -- limitation, any warranties of merchantability, fitness for a particular
  17 -- purpose or non-infringement. Please see the License for the specific terms
  18 -- and conditions governing the rights and limitations under the License.
  19
  20
  21 class DocumentStorageDriver from XmlLDrivers inherits StorageDriver from PCDM
  22
  23 uses
  24     AsciiString                 from TCollection,
  25     ExtendedString              from TCollection,
  26     SequenceOfExtendedString    from TColStd,
  27     Document                    from CDM,
  28     Document                    from TDocStd,
  29     SequenceOfNamespaceDef      from XmlLDrivers,
  30     Element                     from XmlObjMgt,
  31     SRelocationTable            from XmlObjMgt,
  32     ADriverTable                from XmlMDF,
  33     MessageDriver               from CDM
  34
  35 is
  36     Create (theCopyright: ExtendedString from TCollection)
  37         returns mutable DocumentStorageDriver from XmlLDrivers;
  38     -- Constructor
  39
  40     SchemaName(me) returns ExtendedString from TCollection is redefined virtual;
  41     -- pure virtual method definition
  42
  43     Write             (me: mutable;theDocument: Document       from CDM;
  44                                    theFileName: ExtendedString from TCollection)
  45         is redefined virtual;
  46     -- Write <aDocument> to the xml file <theFileName>
  47
  48     WriteToDomDocument(me:mutable; theDocument: Document from CDM;
  49                                    thePDoc    : out Element from XmlObjMgt;
  50                                    theFileName: ExtendedString from TCollection)
  51         returns Boolean from Standard
  52         is virtual protected;
  53
  54     MakeDocument      (me:mutable; theDocument: Document from CDM;
  55                                    thePDoc    : out Element from XmlObjMgt)
  56         returns Integer from Standard
  57         is virtual protected;
  58
  59     AddNamespace      (me:mutable; thePrefix, theURI: AsciiString)
  60         is protected;
  61
  62     AttributeDrivers  (me : mutable; theMsgDriver: MessageDriver from CDM)
  63         returns ADriverTable from XmlMDF
  64         is virtual;
  65
  66     WriteShapeSection (me:mutable; thePDoc    : out Element from XmlObjMgt)
  67         returns Boolean from Standard
  68         is virtual protected;
  69
  70 fields
  71     myDrivers   :       ADriverTable             from XmlMDF is protected;
  72     mySeqOfNS   :       SequenceOfNamespaceDef   from XmlLDrivers;
  73     myCopyright :       ExtendedString           from TCollection;
  74     myRelocTable:       SRelocationTable         from XmlObjMgt  is protected;
  75
  76 end DocumentStorageDriver;