Integration of OCCT 6.5.0 from SVN

src/XmlMDocStd/XmlMDocStd.cdl

@@ -0,0 +1,26 @@
+-- File:      XmlMDocStd.cxx
+-- Created:   05.09.01 09:40:49
+-- Author:    Julia DOROVSKIKH
+-- Copyright: Open Cascade 2001
+
+package XmlMDocStd
+
+        ---Purpose: Driver for TDocStd_XLink
+
+uses
+    TDF,
+    CDM,
+    XmlMDF,
+    XmlObjMgt
+
+is
+    ---Category: Classes
+    --           =============================================================
+
+    class XLinkDriver;
+
+    AddDrivers (aDriverTable    : ADriverTable  from XmlMDF;
+                theMessageDriver: MessageDriver from CDM);
+        ---Purpose: Adds the attribute drivers to <aDriverTable>.
+
+end XmlMDocStd;

src/XmlMDocStd/XmlMDocStd.cxx

@@ -0,0 +1,19 @@
+// File:      XmlMDocStd.cxx
+// Created:   05.09.01 09:40:49
+// Author:    Julia DOROVSKIKH
+// Copyright: Open Cascade 2001
+// History:
+
+#include <XmlMDocStd.ixx>
+
+#include <XmlMDocStd_XLinkDriver.hxx>
+
+//=======================================================================
+//function : AddDrivers
+//purpose  : 
+//=======================================================================
+void XmlMDocStd::AddDrivers (const Handle(XmlMDF_ADriverTable)& aDriverTable,
+                             const Handle(CDM_MessageDriver)&   aMessageDriver)
+{
+  aDriverTable->AddDriver (new XmlMDocStd_XLinkDriver(aMessageDriver)); 
+}

src/XmlMDocStd/XmlMDocStd_XLinkDriver.cdl

@@ -0,0 +1,32 @@
+-- File:      XmlMDocStd_XLinkDriver.cdl
+-- Created:   04.09.01 14:47:31
+-- Author:    Julia DOROVSKIKH
+-- Copyright: Open Cascade 2001
+
+class XLinkDriver from XmlMDocStd  inherits ADriver from XmlMDF
+
+        ---Purpose: Attribute Driver.
+
+uses
+    SRelocationTable from XmlObjMgt,
+    RRelocationTable from XmlObjMgt,
+    Persistent       from XmlObjMgt,
+    MessageDriver    from CDM,
+    Attribute        from TDF
+
+is
+    Create (theMessageDriver:MessageDriver from CDM)
+        returns mutable XLinkDriver from XmlMDocStd;
+
+    NewEmpty (me)  returns mutable Attribute from TDF;
+
+    Paste(me; Source     : Persistent from XmlObjMgt;
+              Target     : mutable Attribute from TDF;
+              RelocTable : out RRelocationTable from XmlObjMgt)
+        returns Boolean from Standard;
+
+    Paste(me; Source     : Attribute from TDF;
+              Target     : in out Persistent from XmlObjMgt;
+              RelocTable : out SRelocationTable from XmlObjMgt);
+
+end XLinkDriver;

src/XmlMDocStd/XmlMDocStd_XLinkDriver.cxx

@@ -0,0 +1,100 @@
+// File:      XmlMDocStd_XLinkDriver.cxx
+// Created:   04.09.01 14:47:31
+// Author:    Julia DOROVSKIKH
+// Copyright: Open Cascade 2001
+// History:
+
+#include <XmlMDocStd_XLinkDriver.ixx>
+
+#include <XmlObjMgt.hxx>
+
+#include <TDocStd_XLink.hxx>
+#include <TDF_Tool.hxx>
+#include <TDF_Label.hxx>
+
+IMPLEMENT_DOMSTRING (DocEntryString, "documentEntry")
+
+//=======================================================================
+//function : XmlMDocStd_XLinkDriver
+//purpose  : Constructor
+//=======================================================================
+XmlMDocStd_XLinkDriver::XmlMDocStd_XLinkDriver
+                        (const Handle(CDM_MessageDriver)& theMsgDriver)
+      : XmlMDF_ADriver (theMsgDriver, NULL)
+{}
+
+//=======================================================================
+//function : NewEmpty
+//purpose  : 
+//=======================================================================
+Handle(TDF_Attribute) XmlMDocStd_XLinkDriver::NewEmpty() const
+{
+  return (new TDocStd_XLink());
+}
+
+//=======================================================================
+//function : Paste
+//purpose  : persistent -> transient (retrieve)
+//=======================================================================
+Standard_Boolean XmlMDocStd_XLinkDriver::Paste
+                (const XmlObjMgt_Persistent&  theSource,
+                 const Handle(TDF_Attribute)& theTarget,
+                 XmlObjMgt_RRelocationTable&  ) const
+{
+  XmlObjMgt_DOMString anXPath = XmlObjMgt::GetStringValue (theSource);
+
+  if (anXPath == NULL)
+  {
+    WriteMessage ("XLink: Cannot retrieve reference string from element");
+    return Standard_False;
+  }
+
+  TCollection_AsciiString anEntry;
+  if (XmlObjMgt::GetTagEntryString (anXPath, anEntry) == Standard_False)
+  {
+    TCollection_ExtendedString aMessage =
+      TCollection_ExtendedString ("Cannot retrieve XLink reference from \"")
+        + anXPath + '\"';
+    WriteMessage (aMessage);
+    return Standard_False;
+  }
+
+  Handle(TDocStd_XLink) aRef = Handle(TDocStd_XLink)::DownCast(theTarget);
+
+  // set referenced label
+  aRef->LabelEntry(anEntry);
+
+  // document entry
+  aRef->DocumentEntry(theSource.Element().getAttribute(::DocEntryString()));
+
+  return Standard_True;
+}
+
+//=======================================================================
+//function : Paste
+//purpose  : transient -> persistent (store)
+//           <label tag='1'>     <This is label entry 0:4:1>
+//           ...
+//           <label tag='8'>     <This is label entry 0:4:1:8>
+//
+//           <TDocStd_XLink id="621"> /document/label/label[@tag="4"]/label[@tag="1"]
+//           </TDocStd_XLink>    <This is reference to label 0:4:1>
+//=======================================================================
+void XmlMDocStd_XLinkDriver::Paste (const Handle(TDF_Attribute)& theSource,
+                                    XmlObjMgt_Persistent&        theTarget,
+                                    XmlObjMgt_SRelocationTable&  ) const
+{
+  Handle(TDocStd_XLink) aRef = Handle(TDocStd_XLink)::DownCast(theSource);
+  if (!aRef.IsNull())
+  {
+    // reference
+    TCollection_AsciiString anEntry = aRef->LabelEntry();
+    XmlObjMgt_DOMString aDOMString;
+    XmlObjMgt::SetTagEntryString (aDOMString, anEntry);
+    XmlObjMgt::SetStringValue (theTarget, aDOMString);
+
+    // document entry
+    theTarget.Element().setAttribute(::DocEntryString(),
+                                      aRef->DocumentEntry().ToCString());
+  }
+}