0024545: Convertation of the generic classes to the non-generic (XmlObjMgt).
authordln <dmitry.lisin@opencascade.com>
Tue, 21 Jan 2014 11:59:23 +0000 (15:59 +0400)
committerbugmaster <bugmaster@opencascade.com>
Thu, 23 Jan 2014 07:41:39 +0000 (11:41 +0400)
In the package "XmlObjMgt" class "XmlObjMgt_Array1" was converted to the non-generic.
And some changes were made in "XmlNaming" package for correct compilation of the application.

src/XmlMNaming/XmlMNaming.cdl
src/XmlMNaming/XmlMNaming_NamedShapeDriver.cxx
src/XmlObjMgt/XmlObjMgt.cdl
src/XmlObjMgt/XmlObjMgt_Array1.cdl
src/XmlObjMgt/XmlObjMgt_Array1.cxx [moved from src/XmlObjMgt/XmlObjMgt_Array1.gxx with 98% similarity]

index 5c1b267..0a86531 100644 (file)
@@ -33,9 +33,6 @@ is
     class NamingDriver;
 
     class Shape1;
-    
-    class Array1OfShape1 instantiates Array1 from XmlObjMgt
-                (Shape1 from XmlMNaming);
 
     AddDrivers (aDriverTable  : ADriverTable  from XmlMDF;
                 aMessageDriver: MessageDriver from CDM);
index 0f1d384..7a90be7 100644 (file)
@@ -18,7 +18,7 @@
 #include <XmlMNaming_NamedShapeDriver.ixx>
 
 #include <XmlObjMgt.hxx>
-#include <XmlMNaming_Array1OfShape1.hxx>
+#include <XmlObjMgt_Array1.hxx>
 #include <XmlMNaming_Shape1.hxx>
 
 #include <TDF_Label.hxx>
@@ -103,8 +103,8 @@ Standard_Boolean XmlMNaming_NamedShapeDriver::Paste
   // apres creation Builder qui a mis la version a 1 :
   aTarget -> SetVersion (aVersion);
 
-  const XmlMNaming_Array1OfShape1 OldPShapes (anElement, ::OldsString());
-  const XmlMNaming_Array1OfShape1 NewPShapes (anElement, ::NewsString());
+  const XmlObjMgt_Array1 OldPShapes (anElement, ::OldsString());
+  const XmlObjMgt_Array1 NewPShapes (anElement, ::NewsString());
   if (NewPShapes.Length() == 0 && OldPShapes.Length() == 0)
     return Standard_True;
 
@@ -198,7 +198,7 @@ void XmlMNaming_NamedShapeDriver::Paste (const Handle(TDF_Attribute)& theSource,
   }
 
   BRepTools_ShapeSet& aShapeSet = (BRepTools_ShapeSet&) myShapeSet;
-  XmlMNaming_Array1OfShape1 OldPShapes (1,NbShapes), NewPShapes (1,NbShapes);
+  XmlObjMgt_Array1 OldPShapes (1,NbShapes), NewPShapes (1,NbShapes);
 
   OldPShapes.CreateArrayElement (theTarget, ::OldsString());
   NewPShapes.CreateArrayElement (theTarget, ::NewsString());
index 62c9a7d..3c6ed3b 100644 (file)
@@ -41,7 +41,7 @@ is
     -- Retrieval Relocation Table
     alias RRelocationTable is DataMapOfIntegerTransient from TColStd;
 
-    generic class Array1; 
+    class Array1; 
 
     -- Package methods
     IdString returns DOMString from XmlObjMgt;
index c67dc43..ca95826 100644 (file)
@@ -14,7 +14,7 @@
 -- Alternatively, this file may be used under the terms of Open CASCADE
 -- commercial license or contractual agreement.
 
-generic class Array1 from XmlObjMgt  (Item as Storable) 
+class Array1 from XmlObjMgt
 
         ---Purpose: The class Array1 represents unidimensionnal 
         -- array of fixed size known at run time. 
similarity index 98%
rename from src/XmlObjMgt/XmlObjMgt_Array1.gxx
rename to src/XmlObjMgt/XmlObjMgt_Array1.cxx
index 12ba063..f603e71 100644 (file)
 // commercial license or contractual agreement.
 
 //AGV 130202: Changed prototype LDOM_Node::getOwnerDocument()
+#include <XmlObjMgt_Array1.ixx>
 
 #include <XmlObjMgt.hxx>
 #include <XmlObjMgt_DOMString.hxx>
+#include <XmlObjMgt_Document.hxx>
 #include <TCollection_AsciiString.hxx>
 
 IMPLEMENT_DOMSTRING (LowerString, "lower")