// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
-#include <XmlDrivers_DocumentStorageDriver.ixx>
+
+#include <CDM_MessageDriver.hxx>
+#include <Standard_Type.hxx>
+#include <TCollection_ExtendedString.hxx>
+#include <TNaming_NamedShape.hxx>
#include <XmlDrivers.hxx>
+#include <XmlDrivers_DocumentStorageDriver.hxx>
+#include <XmlMDF_ADriverTable.hxx>
#include <XmlMNaming_NamedShapeDriver.hxx>
-#include <TNaming_NamedShape.hxx>
#include <XmlObjMgt_Element.hxx>
+
+IMPLEMENT_STANDARD_RTTIEXT(XmlDrivers_DocumentStorageDriver,XmlLDrivers_DocumentStorageDriver)
+
//=======================================================================
//function : XmlDrivers_DocumentStorageDriver
//purpose : Constructor
Standard_Boolean XmlDrivers_DocumentStorageDriver::WriteShapeSection
(XmlObjMgt_Element& theElement)
{
- Handle(XmlMNaming_NamedShapeDriver) aNamedShapeDriver;
Standard_Boolean isShape(Standard_False);
- if (myDrivers -> GetDriver (STANDARD_TYPE(TNaming_NamedShape),
- aNamedShapeDriver)) {
+ Handle(XmlMDF_ADriver) aDriver;
+ if (myDrivers->GetDriver (STANDARD_TYPE(TNaming_NamedShape), aDriver))
+ {
+ Handle(XmlMNaming_NamedShapeDriver) aNamedShapeDriver =
+ Handle(XmlMNaming_NamedShapeDriver)::DownCast (aDriver);
aNamedShapeDriver -> WriteShapeSection (theElement);
isShape = Standard_True;
}