0024002: Overall code and build procedure refactoring -- automatic

[occt.git] / src / BinLDrivers / BinLDrivers_DocumentRetrievalDriver.cdl

diff --git a/src/BinLDrivers/BinLDrivers_DocumentRetrievalDriver.cdl b/src/BinLDrivers/BinLDrivers_DocumentRetrievalDriver.cdl
deleted file mode 100644 (file)
index dc67cc2..0000000
--- a/src/BinLDrivers/BinLDrivers_DocumentRetrievalDriver.cdl
+++ /dev/null
@@ -1,127 +0,0 @@
--- Created on: 2002-10-31
--- Created by: Michael SAZONOV
--- Copyright (c) 2002-2014 OPEN CASCADE SAS
---
--- This file is part of Open CASCADE Technology software library.
---
--- This library is free software; you can redistribute it and/or modify it under
--- the terms of the GNU Lesser General Public License version 2.1 as published
--- by the Free Software Foundation, with special exception defined in the file
--- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
--- distribution for complete text of the license and disclaimer of any warranty.
---
--- Alternatively, this file may be used under the terms of Open CASCADE
--- commercial license or contractual agreement.
-
-class DocumentRetrievalDriver from BinLDrivers inherits RetrievalDriver from PCDM
-
-uses
-    HeaderData                  from Storage,
-    Position                    from Storage,
-    AsciiString                 from TCollection,
-    ExtendedString              from TCollection,
-    Document                    from PCDM,
-    Document                    from CDM,
-    Application                 from CDM,
-    MessageDriver               from CDM,
-    ADriverTable                from BinMDF,
-    RRelocationTable            from BinObjMgt,
-    Persistent                  from BinObjMgt,
-    Label                       from TDF,
-    IStream                     from Standard,
-    MapOfInteger                from TColStd,
-    DocumentSection             from BinLDrivers,
-    VectorOfDocumentSection     from BinLDrivers
-
-is
-    -- ===== Public methods =====
-
-    Create returns DocumentRetrievalDriver from BinLDrivers;
-        ---Purpose: Constructor
-
-    SchemaName          (me)
-        returns ExtendedString from TCollection is redefined virtual;
-        ---Purpose: pure virtual method definition
-
-    Make                (me : mutable; PD : Document from PCDM;
-                                       TD : Document from CDM)
-        is redefined virtual;
-        ---Purpose: pure virtual method definition
-
-    CreateDocument      (me : mutable)
-        returns Document from CDM is redefined virtual;
-        ---Purpose: pure virtual method definition
-
-    Read(me:mutable; theFileName:    ExtendedString from TCollection;
-                     theNewDocument: Document    from CDM;
-                     theApplication: Application from CDM) is redefined virtual;
-        ---Purpose: retrieves the content of the file into a new Document.
-
-    AttributeDrivers  (me : mutable; theMsgDriver: MessageDriver from CDM)
-        returns ADriverTable from BinMDF
-        is virtual;
-
-    -- ===== Protected methods =====
-
-    ReadSubTree (me: mutable; theIS   : in out IStream from Standard;
-                              theData : Label from TDF)
-        returns Integer from Standard
-        is virtual protected;
-        ---Purpose: Read the tree from the stream <theIS> to <theLabel>
-
-    ReadInfoSection(me: mutable; theFile : AsciiString from TCollection;
-                                 theData : in out HeaderData from Storage)
-        returns Position from Storage is protected;
-        ---Purpose: Read the  info  section  of  theFile into theData,
-        --          return a file  position  corresponding to the info
-        --          section end
-    
-    ReadSection    (me: mutable;
-                    theSection : in out DocumentSection from BinLDrivers;
-                    theDoc     : Document    from CDM;
-                    theIS      : in out IStream from Standard)
-        is virtual protected; 
-        ---Purpose: define the procedure of reading a section to file.
-
-    ReadShapeSection (me: mutable;
-                      theSection : in out DocumentSection from BinLDrivers;
-                      theIS      : in out IStream from Standard; 
-                     isMess     : Boolean from Standard = Standard_False)
-        is virtual protected; 
-       
-    CheckShapeSection (me: mutable;
-                      thePos : Position from Storage;
-                      theIS  : in out IStream from Standard)
-        is virtual protected; 
-        
-    PropagateDocumentVersion(me: mutable; theVersion : Integer from Standard) 
-       is virtual protected; 
-
-    CheckDocumentVersion(me: mutable; 
-                     theFileVersion : Integer from Standard;
-                     theCurVersion : Integer from Standard) 
-        returns Boolean from Standard
-       is virtual protected; 
-        ---Purpose: Check a file version(in which file was written) with a current version. 
-        --          Redefining this method is a chance for application to read files
-        --          written by newer applications.
-        --          The default implementation: if the version of the file is greater than the
-        --          current or lesser than 2, then return false, else true
-       
-    WriteMessage(me: mutable; theMessage : ExtendedString from TCollection)
-        is protected;
-        ---Purpose: write  theMessage  to  the  MessageDriver  of  the
-        --          Application
-    
-fields
-    -- use one self-increasing buffer for an attribute
-    myPAtt      : Persistent            from BinObjMgt;
-    myDrivers   : ADriverTable          from BinMDF    is protected;
-    myRelocTable: RRelocationTable      from BinObjMgt is protected;
-    myMsgDriver : MessageDriver         from CDM;
-    -- map of type ID of attributes registered in file header but not having a driver
-    myMapUnsupported :  MapOfInteger    from TColStd;
-
-    mySections  : VectorOfDocumentSection from BinLDrivers;
-
-end DocumentRetrievalDriver;