Integration of OCCT 6.5.0 from SVN

src/XmlDrivers/XmlDrivers.cdl

@@ -0,0 +1,30 @@
+-- File:        XmlDrivers.cdl
+-- Created:     Wed Jul 25 16:50:11 2001
+-- Author:      Julia DOROVSKIKH
+--              <jfa@hotdox.nnov.matra-dtv.fr>
+---Copyright:    Matra Datavision 2001
+
+package XmlDrivers
+
+uses
+    Standard,
+    TDF,
+    TDocStd,
+    TCollection,
+    TColStd,
+    CDM,
+    PCDM,
+    XmlObjMgt,
+    XmlMDF,
+    XmlLDrivers
+
+is
+    class DocumentStorageDriver;
+    class DocumentRetrievalDriver;
+
+    Factory (theGUID : GUID from Standard) returns Transient from Standard;
+
+    AttributeDrivers (theMsgDriver: MessageDriver from CDM)
+        returns ADriverTable from XmlMDF;
+
+end XmlDrivers;

src/XmlDrivers/XmlDrivers.cxx

@@ -0,0 +1,82 @@
+// File:      XmlDrivers.cxx
+// Created:   Mon Jul  9 12:29:49 MSK DST 2001
+// Author:    Julia DOROVSKIKH
+// Copyright: Matra Datavision 2001
+
+#include <XmlDrivers.ixx>
+
+#include <XmlDrivers_DocumentStorageDriver.hxx>
+#include <XmlDrivers_DocumentRetrievalDriver.hxx>
+#include <XmlMDF_ADriverTable.hxx>
+#include <XmlMDF.hxx>
+#include <XmlMDataStd.hxx>
+#include <XmlMDataXtd.hxx>
+#include <XmlMDocStd.hxx>
+#include <XmlMNaming.hxx>
+#include <XmlMPrsStd.hxx>
+#include <XmlMFunction.hxx>
+
+#include <Standard_GUID.hxx>
+
+#include <locale.h>
+#include <time.h>
+
+#include <Plugin_Macro.hxx>
+
+// avoid warnings on 'extern "C"' functions returning C++ classes
+#ifdef WNT
+#pragma warning(4:4190)
+#endif
+
+static Standard_GUID XmlStorageDriver  ("03a56820-8269-11d5-aab2-0050044b1af1");
+static Standard_GUID XmlRetrievalDriver("03a56822-8269-11d5-aab2-0050044b1af1");
+
+//=======================================================================
+//function : Factory
+//purpose  : PLUGIN FACTORY
+//=======================================================================
+Handle(Standard_Transient) XmlDrivers::Factory(const Standard_GUID& theGUID)
+{
+  if (theGUID == XmlStorageDriver)
+  {
+    cout << "XmlDrivers : Storage Plugin" << endl;
+    static Handle(XmlDrivers_DocumentStorageDriver) model_sd =
+      new XmlDrivers_DocumentStorageDriver
+        ("Copyright: Open Cascade, 2001-2002"); // default copyright
+    return model_sd;
+  }
+
+  if (theGUID == XmlRetrievalDriver)
+  {
+    cout << "XmlDrivers : Retrieval Plugin" << endl;
+    static Handle (XmlDrivers_DocumentRetrievalDriver) model_rd =
+      new XmlDrivers_DocumentRetrievalDriver ();
+    return model_rd;
+  }
+ 
+  Standard_Failure::Raise ("XmlDrivers : unknown GUID");
+  return NULL;
+}
+
+//=======================================================================
+//function : AttributeDrivers
+//purpose  : 
+//=======================================================================
+Handle(XmlMDF_ADriverTable) XmlDrivers::AttributeDrivers
+                (const Handle_CDM_MessageDriver& theMessageDriver)
+{
+  Handle(XmlMDF_ADriverTable) aTable = new XmlMDF_ADriverTable();
+  //
+  XmlMDF        ::AddDrivers (aTable, theMessageDriver);
+  XmlMDataStd   ::AddDrivers (aTable, theMessageDriver);
+  XmlMDataXtd   ::AddDrivers (aTable, theMessageDriver);  
+  XmlMNaming    ::AddDrivers (aTable, theMessageDriver);
+  XmlMFunction  ::AddDrivers (aTable, theMessageDriver); 
+  XmlMDocStd    ::AddDrivers (aTable, theMessageDriver); 
+  XmlMPrsStd    ::AddDrivers (aTable, theMessageDriver); 
+  //
+  return aTable;
+}
+
+// Declare entry point PLUGINFACTORY
+PLUGIN(XmlDrivers)

src/XmlDrivers/XmlDrivers_DocumentRetrievalDriver.cdl

@@ -0,0 +1,35 @@
+-- File:	XmlDrivers_DocumentRetrievalDriver.cdl
+-- Created:	Wed Jul 25 16:56:28 2001
+-- Author:	Julia DOROVSKIKH
+--		<jfa@hotdox.nnov.matra-dtv.fr>
+---Copyright:	Open Cascade 2001
+
+class DocumentRetrievalDriver from XmlDrivers inherits DocumentRetrievalDriver from XmlLDrivers
+
+uses
+
+    ADriverTable		from XmlMDF, 
+    ADriver                     from XmlMDF, 
+    Element                     from XmlObjMgt,
+    MessageDriver               from CDM
+
+is
+    Create returns mutable DocumentRetrievalDriver from XmlDrivers;
+    -- Constructor
+
+    AttributeDrivers	(me : mutable; theMsgDriver: MessageDriver from CDM)
+	returns ADriverTable from XmlMDF
+	is redefined virtual; 
+	 
+    ReadShapeSection (me:mutable; thePDoc  :  Element from XmlObjMgt; 
+                                  theMsgDriver : MessageDriver from CDM) 
+        returns ADriver from XmlMDF
+        is redefined virtual; 
+	 
+    ShapeSetCleaning(me:mutable; theDriver : ADriver from XmlMDF) 
+        is redefined virtual;
+	
+    PropagateDocumentVersion(me:mutable; theDocVersion : Integer from Standard) 
+        is redefined virtual;  
+	 
+end DocumentRetrievalDriver;

src/XmlDrivers/XmlDrivers_DocumentRetrievalDriver.cxx

@@ -0,0 +1,77 @@
+// File:      XmlDrivers_DocumentRetrievalDriver.cxx
+// Created:   Mon Jul  9 12:29:49 MSK DST 2001
+// Author:    Julia DOROVSKIKH
+// Copyright: Open Cascade 2001
+
+#include <XmlDrivers_DocumentRetrievalDriver.ixx>
+
+#include <XmlDrivers.hxx>
+#include <XmlMDataStd.hxx>
+#include <XmlMNaming.hxx>
+#include <XmlObjMgt_Element.hxx>
+#include <XmlMNaming_NamedShapeDriver.hxx>
+#include <TNaming_NamedShape.hxx>
+#include <XmlMDF_ADriver.hxx>
+#include <CDM_MessageDriver.hxx>
+//=======================================================================
+//function : XmlDrivers_DocumentRetrievalDriver
+//purpose  : Constructor
+//=======================================================================
+XmlDrivers_DocumentRetrievalDriver::XmlDrivers_DocumentRetrievalDriver()
+{
+}
+
+//=======================================================================
+//function : AttributeDrivers
+//purpose  : 
+//=======================================================================
+Handle(XmlMDF_ADriverTable) XmlDrivers_DocumentRetrievalDriver::AttributeDrivers
+       (const Handle(CDM_MessageDriver)& theMessageDriver) 
+{
+  return XmlDrivers::AttributeDrivers (theMessageDriver);
+}
+
+//=======================================================================
+//function : PropagateDocumentVersion
+//purpose  : 
+//=======================================================================
+void XmlDrivers_DocumentRetrievalDriver::PropagateDocumentVersion(
+                                   const Standard_Integer theDocVersion )
+{
+#ifdef DEB
+//    cout << "DocCurVersion =" << theDocVersion <<endl;
+#endif
+  XmlMDataStd::SetDocumentVersion(theDocVersion);
+  XmlMNaming::SetDocumentVersion(theDocVersion);
+}
+
+//=======================================================================
+//function : ReadShapeSection
+//purpose  : Implementation of ReadShapeSection
+//=======================================================================
+Handle(XmlMDF_ADriver) XmlDrivers_DocumentRetrievalDriver::ReadShapeSection(
+                               const XmlObjMgt_Element&       theElement,
+                               const Handle(CDM_MessageDriver)& theMsgDriver)
+{
+  if (myDrivers.IsNull()) myDrivers = AttributeDrivers (theMsgDriver);
+  Handle(XmlMNaming_NamedShapeDriver) aNamedShapeDriver;
+  if (myDrivers -> GetDriver (STANDARD_TYPE(TNaming_NamedShape),
+                              aNamedShapeDriver))
+    aNamedShapeDriver -> ReadShapeSection (theElement);
+  return aNamedShapeDriver;
+}
+
+//=======================================================================
+//function : ShapeSetCleaning
+//purpose  : definition of ShapeSetCleaning
+//=======================================================================
+void XmlDrivers_DocumentRetrievalDriver::ShapeSetCleaning(
+			      const Handle(XmlMDF_ADriver)& theDriver) 
+{
+  Handle(XmlMNaming_NamedShapeDriver) aNamedShapeDriver = 
+    Handle(XmlMNaming_NamedShapeDriver)::DownCast(theDriver);
+  if (aNamedShapeDriver.IsNull() == Standard_False)
+    aNamedShapeDriver -> Clear();
+}
+
+

src/XmlDrivers/XmlDrivers_DocumentStorageDriver.cdl

@@ -0,0 +1,28 @@
+-- File:	XmlDrivers_DocumentStorageDriver.cdl
+-- Created:	Wed Jul 25 16:56:28 2001
+-- Author:	Julia DOROVSKIKH
+--		<jfa@hotdox.nnov.matra-dtv.fr>
+---Copyright:	Open Cascade 2001
+
+class DocumentStorageDriver from XmlDrivers inherits DocumentStorageDriver from XmlLDrivers
+
+uses
+    ExtendedString              from TCollection,
+    ADriverTable		from XmlMDF, 
+    Element                     from XmlObjMgt,
+    MessageDriver               from CDM
+
+is
+    Create (theCopyright: ExtendedString from TCollection)
+    	returns mutable DocumentStorageDriver from XmlDrivers;
+    -- Constructor
+
+    AttributeDrivers  (me : mutable; theMsgDriver: MessageDriver from CDM)
+	returns ADriverTable from XmlMDF
+	is redefined virtual;
+
+    WriteShapeSection (me:mutable; thePDoc  : out Element from XmlObjMgt)  
+        returns Boolean from Standard
+        is redefined virtual; 
+    
+end DocumentStorageDriver;

src/XmlDrivers/XmlDrivers_DocumentStorageDriver.cxx

@@ -0,0 +1,46 @@
+// File:      XmlDrivers_DocumentStorageDriver.cxx
+// Created:   Mon Jul  9 12:29:49 MSK DST 2001
+// Author:    Julia DOROVSKIKH
+// Copyright: Open Cascade 2001
+
+#include <XmlDrivers_DocumentStorageDriver.ixx>
+#include <XmlDrivers.hxx>
+#include <XmlMNaming_NamedShapeDriver.hxx>
+#include <TNaming_NamedShape.hxx>
+#include <XmlObjMgt_Element.hxx>
+//=======================================================================
+//function : XmlDrivers_DocumentStorageDriver
+//purpose  : Constructor
+//=======================================================================
+XmlDrivers_DocumentStorageDriver::XmlDrivers_DocumentStorageDriver
+                                (const TCollection_ExtendedString& theCopyright) :
+  XmlLDrivers_DocumentStorageDriver(theCopyright)
+{ 
+}
+
+//=======================================================================
+//function : AttributeDrivers
+//purpose  : 
+//=======================================================================
+Handle(XmlMDF_ADriverTable) XmlDrivers_DocumentStorageDriver::AttributeDrivers
+       (const Handle(CDM_MessageDriver)& theMessageDriver) 
+{
+  return XmlDrivers::AttributeDrivers (theMessageDriver);
+}
+
+//=======================================================================
+//function : WriteShapeSection
+//purpose  : Implements WriteShapeSection
+//=======================================================================
+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)) {
+    aNamedShapeDriver -> WriteShapeSection (theElement); 
+    isShape = Standard_True;
+  }
+  return isShape;
+}