0031918: Application Framework - New binary format for fast reading part of OCAF...
[occt.git] / src / BinDrivers / BinDrivers_DocumentRetrievalDriver.cxx
1 // Created on: 2002-10-31
2 // Created by: Michael SAZONOV
3 // Copyright (c) 2002-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
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.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16
17 #include <BinDrivers.hxx>
18 #include <BinDrivers_DocumentRetrievalDriver.hxx>
19 #include <BinLDrivers_DocumentSection.hxx>
20 #include <BinMDataStd.hxx>
21 #include <BinMDF_ADriverTable.hxx>
22 #include <BinMNaming.hxx>
23 #include <BinMNaming_NamedShapeDriver.hxx>
24 #include <Message_Messenger.hxx>
25 #include <Standard_ErrorHandler.hxx>
26 #include <Standard_Failure.hxx>
27 #include <Standard_IStream.hxx>
28 #include <Standard_Type.hxx>
29 #include <Standard_NotImplemented.hxx>
30 #include <TCollection_ExtendedString.hxx>
31 #include <TNaming_NamedShape.hxx>
32
33 IMPLEMENT_STANDARD_RTTIEXT(BinDrivers_DocumentRetrievalDriver,BinLDrivers_DocumentRetrievalDriver)
34
35 //=======================================================================
36 //function : BinDrivers_DocumentRetrievalDriver
37 //purpose  : Constructor
38 //=======================================================================
39 BinDrivers_DocumentRetrievalDriver::BinDrivers_DocumentRetrievalDriver ()
40 {
41 }
42
43 //=======================================================================
44 //function : AttributeDrivers
45 //purpose  :
46 //=======================================================================
47
48 Handle(BinMDF_ADriverTable) BinDrivers_DocumentRetrievalDriver::AttributeDrivers
49        (const Handle(Message_Messenger)& theMessageDriver)
50 {
51   return BinDrivers::AttributeDrivers (theMessageDriver);
52 }
53
54 //=======================================================================
55 //function : ReadShapeSection
56 //purpose  : 
57 //=======================================================================
58
59 void BinDrivers_DocumentRetrievalDriver::ReadShapeSection
60                               (BinLDrivers_DocumentSection& /*theSection*/,
61                                Standard_IStream&            theIS,
62                                const Standard_Boolean       /*isMess*/,
63                                const Message_ProgressRange& theRange)
64
65 {
66   // Read Shapes
67   Handle(BinMDF_ADriver) aDriver;
68   if (myDrivers->GetDriver (STANDARD_TYPE(TNaming_NamedShape),aDriver))
69   {
70     try {
71       OCC_CATCH_SIGNALS
72       Handle(BinMNaming_NamedShapeDriver) aNamedShapeDriver =
73         Handle(BinMNaming_NamedShapeDriver)::DownCast (aDriver);
74       aNamedShapeDriver->ReadShapeSection (theIS, theRange);
75     }
76     catch(Standard_Failure const& anException) {
77       const TCollection_ExtendedString aMethStr
78         ("BinDrivers_DocumentRetrievalDriver: ");
79       myMsgDriver->Send(aMethStr + "error of Shape Section " +
80         anException.GetMessageString(), Message_Fail);
81     }
82   }
83 }
84
85 //=======================================================================
86 //function : CheckShapeSection
87 //purpose  : 
88 //=======================================================================
89 void BinDrivers_DocumentRetrievalDriver::CheckShapeSection (
90                               const Storage_Position& /*ShapeSectionPos*/,
91                               Standard_IStream& /*IS*/)
92 {}
93
94 //=======================================================================
95 //function : Clear
96 //purpose  : 
97 //=======================================================================
98 void BinDrivers_DocumentRetrievalDriver::Clear()
99 {
100   // Clear NamedShape driver
101   Handle(BinMDF_ADriver) aDriver;
102   if (myDrivers->GetDriver (STANDARD_TYPE(TNaming_NamedShape), aDriver))
103   {
104     Handle(BinMNaming_NamedShapeDriver) aNamedShapeDriver =
105       Handle(BinMNaming_NamedShapeDriver)::DownCast (aDriver);
106     aNamedShapeDriver->Clear();
107   }
108   BinLDrivers_DocumentRetrievalDriver::Clear();
109 }
110
111 //=======================================================================
112 //function : EnableQuickPartReading
113 //purpose  : 
114 //=======================================================================
115 void BinDrivers_DocumentRetrievalDriver::EnableQuickPartReading (
116   const Handle(Message_Messenger)& theMessageDriver, Standard_Boolean theValue)
117 {
118   if (myDrivers.IsNull())
119     myDrivers = AttributeDrivers (theMessageDriver);
120   if (myDrivers.IsNull())
121     return;
122
123   Handle(BinMDF_ADriver) aDriver;
124   myDrivers->GetDriver (STANDARD_TYPE(TNaming_NamedShape), aDriver);
125   Handle(BinMNaming_NamedShapeDriver) aShapesDriver = Handle(BinMNaming_NamedShapeDriver)::DownCast (aDriver);
126   if (aShapesDriver.IsNull())
127     throw Standard_NotImplemented ("Internal Error - TNaming_NamedShape is not found!");
128
129   aShapesDriver->EnableQuickPart (theValue);
130 }