// Created on: 1997-08-07
// Created by: Jean-Louis Frenkel
// Copyright (c) 1997-1999 Matra Datavision
-// Copyright (c) 1999-2012 OPEN CASCADE SAS
+// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
-// The content of this file is subject to the Open CASCADE Technology Public
-// License Version 6.5 (the "License"). You may not use the content of this file
-// except in compliance with the License. Please obtain a copy of the License
-// at http://www.opencascade.org and read it completely before using this file.
+// This file is part of Open CASCADE Technology software library.
//
-// The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-// main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+// This library is free software; you can redistribute it and/or modify it under
+// the terms of the GNU Lesser General Public License version 2.1 as published
+// by the Free Software Foundation, with special exception defined in the file
+// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+// distribution for complete text of the license and disclaimer of any warranty.
//
-// The Original Code and all software distributed under the License is
-// distributed on an "AS IS" basis, without warranty of any kind, and the
-// Initial Developer hereby disclaims all such warranties, including without
-// limitation, any warranties of merchantability, fitness for a particular
-// purpose or non-infringement. Please see the License for the specific terms
-// and conditions governing the rights and limitations under the License.
+// Alternatively, this file may be used under the terms of Open CASCADE
+// commercial license or contractual agreement.
-
-#include <PCDM_RetrievalDriver.ixx>
-#include <PCDM_BaseDriverPointer.hxx>
+#include <CDM_Application.hxx>
+#include <CDM_Document.hxx>
+#include <Message_Messenger.hxx>
+#include <CDM_MetaData.hxx>
#include <PCDM.hxx>
-#include <PCDM_TypeOfFileDriver.hxx>
-#include <Storage_Data.hxx>
-#include <Storage_HeaderData.hxx>
-#include <Storage_Schema.hxx>
-#include <Storage_Root.hxx>
-#include <TCollection_AsciiString.hxx>
-
-#include <TColStd_SequenceOfAsciiString.hxx>
-#include <Standard_TypeMismatch.hxx>
-
+#include <PCDM_BaseDriverPointer.hxx>
+#include <PCDM_Document.hxx>
+#include <PCDM_DriverError.hxx>
#include <PCDM_ReadWriter.hxx>
+#include <PCDM_RetrievalDriver.hxx>
+#include <PCDM_TypeOfFileDriver.hxx>
#include <Resource_Manager.hxx>
#include <Standard_ErrorHandler.hxx>
-#include <UTL.hxx>
-#include <PCDM.hxx>
-#include <Storage_HSeqOfRoot.hxx>
-#include <locale.h>
-
-void PCDM_RetrievalDriver::RaiseIfUnknownTypes(const Handle(Storage_Schema)& aSchema, const TCollection_ExtendedString& aFileName) {
-
- PCDM_BaseDriverPointer theFileDriver;
- if(PCDM::FileDriverType(TCollection_AsciiString(UTL::CString(aFileName)), theFileDriver) == PCDM_TOFD_Unknown) return;
-
- PCDM_ReadWriter::Open(*theFileDriver,aFileName,Storage_VSRead);
-
- TColStd_SequenceOfAsciiString theUnknownTypes;
- Standard_Boolean unknowns = aSchema->HasUnknownType(*theFileDriver,theUnknownTypes);
-
- theFileDriver->Close();
- delete theFileDriver;
-
- if(unknowns) {
- Standard_SStream aMsg; aMsg << "cannot read: `" << aFileName << "', because the following types: ";
- for (Standard_Integer i=1; i <= theUnknownTypes.Length(); i++) {
- aMsg << theUnknownTypes(i);
- if(i< theUnknownTypes.Length()) aMsg <<",";
- }
- aMsg << " have been found in it but not in the available Schema: " << aSchema->Name() << (char)0;
- Standard_TypeMismatch::Raise(aMsg);
- }
-}
-
-//=======================================================================
-//function : Read
-//purpose :
-//=======================================================================
-
-void PCDM_RetrievalDriver::Read(const TCollection_ExtendedString& theFileName,
- const Handle(CDM_Document)& aNewDocument,
- const Handle(CDM_Application)& theApplication)
-{
- Standard_SStream aMsg;
- Standard_Boolean Failure=Standard_False;
- Handle(Storage_Schema) aSchema;
- TColStd_SequenceOfExtendedString theExtensions;
- myReaderStatus = PCDM_RS_OK;
- {
- try {
- OCC_CATCH_SIGNALS
- aSchema=PCDM::Schema(SchemaName(),theApplication);
- Extensions(theFileName, theExtensions, theApplication->MessageDriver());
- LoadExtensions(aSchema,theExtensions, theApplication->MessageDriver());
- }
- catch (Standard_NoSuchObject) {
- aMsg << Standard_NoSuchObject::Caught() << endl;
- myReaderStatus = PCDM_RS_NoSchema;
- Failure=Standard_True;
- }
- catch (Standard_Failure) {
- aMsg << Standard_Failure::Caught() << endl;
- myReaderStatus = PCDM_RS_ExtensionFailure;
- Failure=Standard_True;
- }
- if(Failure) Standard_Failure::Raise(aMsg);
- }
-
- PCDM_BaseDriverPointer theFileDriver;
- if(PCDM::FileDriverType(TCollection_AsciiString(UTL::CString(theFileName)), theFileDriver) == PCDM_TOFD_Unknown) {
- myReaderStatus = PCDM_RS_UnknownFileDriver;
- return;
- }
- {
- try {
- OCC_CATCH_SIGNALS
- RaiseIfUnknownTypes(aSchema, theFileName);
- PCDM_ReadWriter::Open(*theFileDriver,theFileName,Storage_VSRead);
- }
- catch (Standard_TypeMismatch) {
- aMsg << Standard_TypeMismatch::Caught() << endl;
- myReaderStatus = PCDM_RS_TypeNotFoundInSchema;
- Failure=Standard_True;
- }
- catch (Standard_Failure) {
- aMsg << Standard_Failure::Caught() << endl;
- myReaderStatus = PCDM_RS_OpenError;
- Failure=Standard_True;
- }
- if(Failure) Standard_Failure::Raise(aMsg);
- }
-
- Handle(Storage_Data) theData = aSchema->Read(*theFileDriver);
- Storage_Error aStatus = theData->ErrorStatus();
- if(aStatus != Storage_VSOk) {
- switch (aStatus) {
- case Storage_VSOpenError:
- case Storage_VSNotOpen:
- case Storage_VSAlreadyOpen:
- myReaderStatus = PCDM_RS_OpenError;
- aMsg << "Stream Open Error" << endl;
- break;
- case Storage_VSModeError:
- myReaderStatus = PCDM_RS_WrongStreamMode;
- aMsg << "Stream is opened with a wrong mode for operation" << endl;
- break;
- case Storage_VSSectionNotFound:
- aMsg << "Section is not found" << endl;
- myReaderStatus = PCDM_RS_FormatFailure;
- break;
- case Storage_VSFormatError:
- myReaderStatus = PCDM_RS_FormatFailure;
- aMsg << "Wrong format error" << endl;
- break;
- case Storage_VSUnknownType:
- myReaderStatus = PCDM_RS_TypeFailure;
- aMsg << "Try to read an unknown type" << endl;
- break;
- case Storage_VSTypeMismatch:
- myReaderStatus = PCDM_RS_TypeFailure;
- aMsg << "Try to read a wrong primitive type" << endl;
- break;
- default:
- myReaderStatus = PCDM_RS_DriverFailure;
- aMsg << "Retrieval Driver Failure" << endl;
- }
- Standard_Failure::Raise(aMsg);
- }
-
- theFileDriver->Close();
- delete theFileDriver;
-
- Handle(Storage_HSeqOfRoot) theDocuments=theData->Roots();
-
- Handle(Storage_Root) theDocument;
- for(Standard_Integer i=1; i<=theDocuments->Length() && theDocument.IsNull(); i++) {
- theDocument=theDocuments->Value(i);
- }
-
- if(theDocument.IsNull()) {
- Standard_SStream aMsg;
- aMsg << "could not find any document in this file" << (char) 0;
- myReaderStatus = PCDM_RS_NoDocument;
- Standard_Failure::Raise(aMsg);
- }
- Handle(Standard_Persistent) theObject=theDocument->Object();
- Handle(PCDM_Document) thePDocument = *((Handle(PCDM_Document)*)&theObject);
-
-
- {
- try {
- OCC_CATCH_SIGNALS
- Make(thePDocument,aNewDocument);
- }
- catch (Standard_Failure) {
- aMsg << "Error during Make: ";
- aMsg << Standard_Failure::Caught() << (char)0;
- myReaderStatus = PCDM_RS_MakeFailure;
- Failure=Standard_True;
- }
- }
-
-// read comments
- aNewDocument->SetComments(theData->Comments());
-
- PCDM_DriverError_Raise_if(Failure,aMsg);
-}
-
-void PCDM_RetrievalDriver::References(const TCollection_ExtendedString& aFileName, PCDM_SequenceOfReference& theReferences, const Handle(CDM_MessageDriver)& theMsgDriver) {
-
- PCDM_ReadWriter::Reader(aFileName)->ReadReferences(aFileName, theReferences, theMsgDriver);
-}
-
-void PCDM_RetrievalDriver::Extensions(const TCollection_ExtendedString& aFileName, TColStd_SequenceOfExtendedString& theExtensions, const Handle(CDM_MessageDriver)& theMsgDriver) {
-
- PCDM_ReadWriter::Reader(aFileName)->ReadExtensions(aFileName,theExtensions, theMsgDriver);
-}
-
-
-
-Standard_Integer PCDM_RetrievalDriver::DocumentVersion(const TCollection_ExtendedString& aFileName, const Handle(CDM_MessageDriver)& theMsgDriver) {
+#include <Standard_NoSuchObject.hxx>
+#include <Standard_Type.hxx>
+#include <Standard_TypeMismatch.hxx>
+#include <TCollection_AsciiString.hxx>
+#include <TCollection_ExtendedString.hxx>
+#include <TColStd_SequenceOfAsciiString.hxx>
- return PCDM_ReadWriter::Reader(aFileName)->ReadDocumentVersion(aFileName, theMsgDriver);
-}
-Standard_Integer PCDM_RetrievalDriver::ReferenceCounter(const TCollection_ExtendedString& aFileName, const Handle(CDM_MessageDriver)& theMsgDriver) {
+IMPLEMENT_STANDARD_RTTIEXT(PCDM_RetrievalDriver,PCDM_Reader)
- return PCDM_ReadWriter::Reader(aFileName)->ReadReferenceCounter(aFileName, theMsgDriver);
-}
-void PCDM_RetrievalDriver::LoadExtensions(const Handle(Storage_Schema)& , const TColStd_SequenceOfExtendedString& , const Handle(CDM_MessageDriver)&) {}
+void PCDM_RetrievalDriver::References(const TCollection_ExtendedString& aFileName, PCDM_SequenceOfReference& theReferences, const Handle(Message_Messenger)& theMsgDriver)
+ { PCDM_ReadWriter::Reader(aFileName)->ReadReferences(aFileName, theReferences, theMsgDriver);}
+Standard_Integer PCDM_RetrievalDriver::DocumentVersion(const TCollection_ExtendedString& aFileName, const Handle(Message_Messenger)& theMsgDriver)
+ { return PCDM_ReadWriter::Reader(aFileName)->ReadDocumentVersion(aFileName, theMsgDriver); }
-//=======================================================================
-//function : Format
-//purpose :
-//=======================================================================
+Standard_Integer PCDM_RetrievalDriver::ReferenceCounter(const TCollection_ExtendedString& aFileName, const Handle(Message_Messenger)& theMsgDriver)
+ { return PCDM_ReadWriter::Reader(aFileName)->ReadReferenceCounter(aFileName, theMsgDriver); }
void PCDM_RetrievalDriver::SetFormat (const TCollection_ExtendedString& aformat)
-{
- myFormat = aformat;
-}
-
-
-//=======================================================================
-//function : Format
-//purpose :
-//=======================================================================
+ { myFormat = aformat; }
TCollection_ExtendedString PCDM_RetrievalDriver::GetFormat () const
-{
- return myFormat;
-}
+ { return myFormat; }