Integration of OCCT 6.5.0 from SVN

src/TObj/TObj_Persistence.cxx

@@ -0,0 +1,71 @@
+// File:        TObj_Persistence.cxx
+// Created:     Tue Nov 23 11:36:45 2004
+// Author:      Andrey BETENEV
+// Copyright:   Open CASCADE  2007
+// The original implementation Copyright: (C) RINA S.p.A
+
+#include <TObj_Persistence.hxx>
+#include <TObj_Object.hxx>
+
+//=======================================================================
+//function : getMapOfTypes
+//purpose  : Returns the map of types
+//=======================================================================
+
+TObj_DataMapOfStringPointer& TObj_Persistence::getMapOfTypes ()
+{
+  static TObj_DataMapOfStringPointer myMapOfTypes;
+  return myMapOfTypes;
+}
+
+//=======================================================================
+//function : Constructor
+//purpose  : Register the type for persistence
+//=======================================================================
+
+TObj_Persistence::TObj_Persistence (const Standard_CString theType)
+{
+  myType = theType;
+  getMapOfTypes().Bind ( theType, this );
+}
+
+//=======================================================================
+//function : Destructor
+//purpose  : Unregister the type
+//=======================================================================
+
+TObj_Persistence::~TObj_Persistence ()
+{
+  getMapOfTypes().UnBind ( myType );
+}
+
+//=======================================================================
+//function : CreateNewObject
+//purpose  :
+//=======================================================================
+
+Handle(TObj_Object) TObj_Persistence::CreateNewObject (const Standard_CString theType,
+                                                               const TDF_Label& theLabel)
+{
+  if ( getMapOfTypes().IsBound ( theType ) )
+  {
+    TObj_Persistence *tool =
+      (TObj_Persistence*) getMapOfTypes().Find ( theType );
+    if ( tool ) return tool->New (theLabel);
+  }
+  return 0;
+}
+
+//=======================================================================
+//function : DumpTypes
+//purpose  :
+//=======================================================================
+
+void TObj_Persistence::DumpTypes (Standard_OStream &theOs)
+{
+  TObj_DataMapOfStringPointer::Iterator it ( getMapOfTypes() );
+  for ( ; it.More(); it.Next() )
+  {
+    theOs << it.Key() << endl;
+  }
+}