Integration of OCCT 6.5.0 from SVN

src/XmlMNaming/XmlMNaming_Shape1.cxx

@@ -0,0 +1,157 @@
+// File:      XmlMNaming_Shape1.cxx
+// Created:   01.08.01 18:26:53
+// Author:    Alexander GRIGORIEV
+// Copyright: Open Cascade 2001
+// History:
+
+#include <XmlMNaming_Shape1.ixx>
+
+#include <XmlObjMgt.hxx>
+#include <TCollection_AsciiString.hxx>
+#include <TopoDS_Vertex.hxx>
+#include <TopoDS.hxx>
+#include <gp_Pnt.hxx>
+#include <BRep_Tool.hxx>
+
+#include <stdio.h>
+
+IMPLEMENT_DOMSTRING (TShapeString,   "tshape")
+IMPLEMENT_DOMSTRING (LocationString, "location")
+
+IMPLEMENT_DOMSTRING (XCoordString, "x")
+IMPLEMENT_DOMSTRING (YCoordString, "y")
+IMPLEMENT_DOMSTRING (ZCoordString, "z")
+
+//=======================================================================
+//function : XmlMNaming_Shape1
+//purpose  : 
+//=======================================================================
+XmlMNaming_Shape1::XmlMNaming_Shape1 (XmlObjMgt_Document& theDoc)
+     : myTShapeID (0),
+       myLocID    (0),
+       myOrientation (TopAbs_FORWARD)
+{
+  myElement = theDoc.createElement(XmlObjMgt_DOMString("shape"));
+}
+
+//=======================================================================
+//function : XmlMNaming_Shape1
+//purpose  : 
+//=======================================================================
+XmlMNaming_Shape1::XmlMNaming_Shape1 (const XmlObjMgt_Element& theEl)
+     : myElement(theEl),
+       myTShapeID (0),
+       myLocID    (0),
+       myOrientation (TopAbs_FORWARD)
+{
+  if (myElement != NULL)
+  {
+    myElement.getAttribute(::LocationString()).GetInteger (myLocID);
+    XmlObjMgt_DOMString aString = myElement.getAttribute(::TShapeString());
+    const char * aPtr = aString.GetString();
+    switch (* aPtr) {
+    case '+' : myOrientation = TopAbs_FORWARD;  break;
+    case '-' : myOrientation = TopAbs_REVERSED; break;
+    case 'i' : myOrientation = TopAbs_INTERNAL; break;
+    case 'e' : myOrientation = TopAbs_EXTERNAL; break;
+    default:       Standard_DomainError::Raise
+      ("XmlMNaming_Shape1; orientation value without enum term equivalence");
+    }
+    Standard_CString anIntPtr = (Standard_CString) &aPtr[1];
+    if (XmlObjMgt::GetInteger (anIntPtr, myTShapeID) == Standard_False)
+      Standard_DomainError::Raise
+        ("XmlMNaming_Shape1; tshape value cannot be initialised by integer");
+  }
+}
+
+//=======================================================================
+//function : Element
+//purpose  : 
+//=======================================================================
+const XmlObjMgt_Element& XmlMNaming_Shape1::Element() const
+{
+  return myElement;
+}
+
+//=======================================================================
+//function : Element
+//purpose  : 
+//=======================================================================
+XmlObjMgt_Element& XmlMNaming_Shape1::Element()
+{
+  return myElement;
+}
+
+//=======================================================================
+//function : TShapeId
+//purpose  : 
+//=======================================================================
+Standard_Integer XmlMNaming_Shape1::TShapeId() const 
+{
+  return myTShapeID;
+}
+
+//=======================================================================
+//function : LocId
+//purpose  : 
+//=======================================================================
+Standard_Integer XmlMNaming_Shape1::LocId() const 
+{
+  return myLocID;
+}
+
+//=======================================================================
+//function : Orientation
+//purpose  : 
+//=======================================================================
+TopAbs_Orientation  XmlMNaming_Shape1::Orientation() const 
+{
+  return myOrientation;
+}
+
+//=======================================================================
+//function : SetShape
+//purpose  : 
+//=======================================================================
+void  XmlMNaming_Shape1::SetShape (const Standard_Integer       theID,
+                                   const Standard_Integer       theLocID,
+                                   const TopAbs_Orientation     theOrient)
+{
+  myTShapeID    = theID;
+  myLocID       = theLocID;
+  myOrientation = theOrient;
+
+  char aBuffer[16], anOr;
+  
+  switch (theOrient) {
+  case TopAbs_FORWARD   : anOr = '+'; break;
+  case TopAbs_REVERSED  : anOr = '-'; break;
+  case TopAbs_INTERNAL  : anOr = 'i'; break;
+  case TopAbs_EXTERNAL  : anOr = 'e'; break;
+  default               : anOr = '\0';
+  }
+  sprintf (aBuffer, "%c%i", anOr, theID);
+  Element().setAttribute (::TShapeString(), aBuffer);
+  if (theLocID > 0)
+    Element().setAttribute (::LocationString(), theLocID);
+}
+
+//=======================================================================
+//function : SetVertex
+//purpose  : 
+//=======================================================================
+void XmlMNaming_Shape1::SetVertex (const TopoDS_Shape& theVertex)
+{
+  TopoDS_Vertex aV = TopoDS::Vertex(theVertex);
+  gp_Pnt aPos = BRep_Tool::Pnt(aV);
+
+  char buf [16];
+  sprintf (buf, "%.8g", aPos.X());
+  Element().setAttribute (::XCoordString(), buf);
+
+  sprintf (buf, "%.8g", aPos.Y());
+  Element().setAttribute (::YCoordString(), buf);
+
+  sprintf (buf, "%.8g", aPos.Z());
+  Element().setAttribute (::ZCoordString(), buf);
+}