From 25ea73e3e3ae28a299d2c4562c3e4b09c85ddb39 Mon Sep 17 00:00:00 2001
From: skv <skv@opencascade.com>
Date: Fri, 29 Jul 2016 11:30:51 +0300
Subject: [PATCH] Porting on OCCT7.0.1: persistence

---
 src/GEOM/CMakeLists.txt       |  4 ++++
 src/GEOM/GEOM_Application.cxx |  2 ++
 src/GEOM/GEOM_Application.hxx |  2 ++
 src/GEOM/GEOM_Engine.cxx      | 11 +++++++++++
 4 files changed, 19 insertions(+)

diff --git a/src/GEOM/CMakeLists.txt b/src/GEOM/CMakeLists.txt
index e9d57c263..2c0c7605c 100755
--- a/src/GEOM/CMakeLists.txt
+++ b/src/GEOM/CMakeLists.txt
@@ -44,6 +44,10 @@ SET(_link_LIBRARIES
   GEOMSketcher
   )
 
+IF(CAS_VERSION_STR VERSION_GREATER "7.0.0")
+  LIST(APPEND _link_LIBRARIES ${CAS_TKStd} ${CAS_TKBin})
+ENDIF()
+
 # --- headers ---
 
 SET(GEOM_HEADERS
diff --git a/src/GEOM/GEOM_Application.cxx b/src/GEOM/GEOM_Application.cxx
index cdda8af45..f9e1f941c 100644
--- a/src/GEOM/GEOM_Application.cxx
+++ b/src/GEOM/GEOM_Application.cxx
@@ -42,6 +42,7 @@ GEOM_Application::~GEOM_Application()
 {
 }
 
+#if OCC_VERSION_LARGE <= 0x07000000
 //=======================================================================
 //function : Formats
 //purpose  : 
@@ -54,6 +55,7 @@ void GEOM_Application::Formats(TColStd_SequenceOfExtendedString& Formats)
   Formats.Append(TCollection_ExtendedString ("BinOcaf"));
 #endif
 }
+#endif
 
 
 //=======================================================================
diff --git a/src/GEOM/GEOM_Application.hxx b/src/GEOM/GEOM_Application.hxx
index 639765548..3cf3085e8 100644
--- a/src/GEOM/GEOM_Application.hxx
+++ b/src/GEOM/GEOM_Application.hxx
@@ -36,7 +36,9 @@ public:
   Standard_EXPORT GEOM_Application();
   Standard_EXPORT ~GEOM_Application();
 
+#if OCC_VERSION_LARGE <= 0x07000000
   Standard_EXPORT virtual void Formats(TColStd_SequenceOfExtendedString& Formats);
+#endif
   Standard_EXPORT Standard_CString ResourcesName();
 
 public:
diff --git a/src/GEOM/GEOM_Engine.cxx b/src/GEOM/GEOM_Engine.cxx
index ac1216f5a..bfd101415 100644
--- a/src/GEOM/GEOM_Engine.cxx
+++ b/src/GEOM/GEOM_Engine.cxx
@@ -66,6 +66,12 @@
 
 #include <Resource_DataMapIteratorOfDataMapOfAsciiStringAsciiString.hxx>
 
+#if OCC_VERSION_LARGE > 0x07000000
+#include <BinDrivers.hxx>
+#include <StdDrivers_DocumentRetrievalDriver.hxx>
+#include <PCDM_StorageDriver.hxx>
+#endif
+
 #include <set>
 
 #include <Standard_Failure.hxx>
@@ -225,6 +231,11 @@ GEOM_Engine::GEOM_Engine()
   TFunction_DriverTable::Get()->AddDriver(GEOM_Object::GetSubShapeID(), new GEOM_SubShapeDriver());
   
   _OCAFApp = new GEOM_Application();
+#if OCC_VERSION_LARGE > 0x07000000
+  _OCAFApp->DefineFormat("SALOME_GEOM", "GEOM Document Version 1.0", "sgd",
+                         new StdDrivers_DocumentRetrievalDriver, 0);
+  BinDrivers::DefineFormat(_OCAFApp);
+#endif
   _UndoLimit = 0;
 }