mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-18 07:57:31 +08:00
91322f44fd
Added DRAW command dlocale to set and query current locale of the C subsystem Equivalents of C functions working with conversions of strings to/from reals added in Standard_CString, providing locale-independent behavior (using always "C" locale) In DRAW packages, calls to atof() and atoi() are replaced by direct calls to Draw::Atof() and Draw::Atoi(), respectively, instead of substituting by #define Use of atof(), strtod(), and *scanf() involving floating point conversions in OCCT code replaced by locale-independent Atof() and Strtod() Calls to sprintf() involving floating point in OCCT code are replaced by call to locale-independent Sprintf(), except a few places where converted strings are used immediately for display in the 3d viewer Changes of global locale are eliminated throughout OCCT code Proposed correction for GNU libC where v*printf_l functions are absent Added test case (bugs xde bug22898) for data exchange operations with non-standard locale Use xlocale on Mac OS X and within glibc Corrected strtod_l wrapper Generate error rather than warning Introduce Standard_CLocaleSentry replacement for removed OSD_Localizer Standard_CLocaleSentry - copy locale string Standard_CLocaleSentry - use _configthreadlocale on Windows Standard_CLocaleSentry::GetCLocale() - return locale_t rather than void* Corrected misprint in ~Standard_CLocaleSentry() Use French locale in bug22898 test case Mark test case as skipped if locale is unavailable on tested system. Use fr_FR locale for tests on Mac OS X
245 lines
8.4 KiB
C++
Executable File
245 lines
8.4 KiB
C++
Executable File
// Created on: 1997-08-07
|
|
// Created by: Jean-Louis Frenkel
|
|
// Copyright (c) 1997-1999 Matra Datavision
|
|
// Copyright (c) 1999-2012 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.
|
|
//
|
|
// 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.
|
|
//
|
|
// 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.
|
|
|
|
|
|
|
|
#include <PCDM_RetrievalDriver.ixx>
|
|
#include <PCDM_BaseDriverPointer.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_ReadWriter.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) {
|
|
|
|
return PCDM_ReadWriter::Reader(aFileName)->ReadDocumentVersion(aFileName, theMsgDriver);
|
|
}
|
|
Standard_Integer PCDM_RetrievalDriver::ReferenceCounter(const TCollection_ExtendedString& aFileName, const Handle(CDM_MessageDriver)& theMsgDriver) {
|
|
|
|
return PCDM_ReadWriter::Reader(aFileName)->ReadReferenceCounter(aFileName, theMsgDriver);
|
|
}
|
|
void PCDM_RetrievalDriver::LoadExtensions(const Handle(Storage_Schema)& , const TColStd_SequenceOfExtendedString& , const Handle(CDM_MessageDriver)&) {}
|
|
|
|
|
|
//=======================================================================
|
|
//function : Format
|
|
//purpose :
|
|
//=======================================================================
|
|
|
|
void PCDM_RetrievalDriver::SetFormat (const TCollection_ExtendedString& aformat)
|
|
{
|
|
myFormat = aformat;
|
|
}
|
|
|
|
|
|
//=======================================================================
|
|
//function : Format
|
|
//purpose :
|
|
//=======================================================================
|
|
|
|
TCollection_ExtendedString PCDM_RetrievalDriver::GetFormat () const
|
|
{
|
|
return myFormat;
|
|
}
|