// Copyright (C) 2007-2019 CEA/DEN, EDF R&D, OPEN CASCADE
//
// Copyright (C) 2003-2007 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
//
// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//
#include "MED_Wrapper.hxx"
#include "MED_TStructures.hxx"
#include "MED_Utilities.hxx"
#include <med.h>
#include <med_err.h>
#include <med_proto.h>
#include <boost/version.hpp>
#ifdef _DEBUG_
static int MYDEBUG = 0;
static int MYVALUEDEBUG = 0;
#else
static int MYDEBUG = 0;
static int MYVALUEDEBUG = 0;
#endif
namespace MED
{
//---------------------------------------------------------------
TLockProxy
::TLockProxy(TWrapper* theWrapper):
myWrapper(theWrapper)
{
#if BOOST_VERSION >= 103500
myWrapper->myMutex.lock();
#else
boost::detail::thread::lock_ops<TWrapper::TMutex>::lock(myWrapper->myMutex);
#endif
INITMSG(MYDEBUG, "TLockProxy() - this -"<<this<<"; myWrapper = "<<myWrapper<<std::endl);
}
TLockProxy
::~TLockProxy()
{
INITMSG(MYDEBUG, "~TLockProxy() - this -"<<this<<"; myWrapper = "<<myWrapper<<std::endl);
#if BOOST_VERSION >= 103500
myWrapper->myMutex.unlock();
#else
boost::detail::thread::lock_ops<TWrapper::TMutex>::unlock(myWrapper->myMutex);
#endif
}
TWrapper*
TLockProxy
::operator->() const // never throws
{
return myWrapper;
}
//---------------------------------------------------------------
class TFile
{
TFile();
TFile(const TFile&);
public:
TFile(const std::string& theFileName, TInt theMajor=-1, TInt theMinor=-1):
myCount(0),
myFid(0),
myFileName(theFileName),
myMajor(theMajor),
myMinor(theMinor)
{
if ((myMajor < 0) || (myMajor > MED_MAJOR_NUM)) myMajor = MED_MAJOR_NUM;
if ((myMinor < 0) || (myMajor == MED_MAJOR_NUM && myMinor > MED_MINOR_NUM)) myMinor = MED_MINOR_NUM;
}
~TFile()
{
Close();
}
void
Open(EModeAcces theMode,
TErr* theErr = NULL)
{
if (myCount++ == 0) {
const char* aFileName = myFileName.c_str();
myFid = MEDfileVersionOpen(aFileName,med_access_mode(theMode), myMajor, myMinor, MED_RELEASE_NUM);
}
if (theErr)
*theErr = TErr(myFid);
else if (myFid < 0)
EXCEPTION(std::runtime_error,"TFile - MEDfileVersionOpen('"<<myFileName<<"',"<<theMode<<"',"<< MED_MAJOR_NUM<<"',"<< myMinor<<"',"<< MED_RELEASE_NUM<<")");
}
const TIdt&
Id() const
{
if (myFid < 0)
EXCEPTION(std::runtime_error, "TFile - GetFid() < 0");
return myFid;
}
void
Close()
{
if (--myCount == 0)
MEDfileClose(myFid);
}
protected:
TInt myCount;
TIdt myFid;
std::string myFileName;
TInt myMajor;
TInt myMinor;
};
//---------------------------------------------------------------
class TFileWrapper
{
PFile myFile;
TInt myMinor;
public:
TFileWrapper(const PFile& theFile,
EModeAcces theMode,
TErr* theErr = NULL,
TInt theMinor=-1):
myFile(theFile),
myMinor(theMinor)
{
if (myMinor < 0) myMinor = MED_MINOR_NUM;
myFile->Open(theMode, theErr);
}
~TFileWrapper()
{
myFile->Close();
}
};
//----------------------------------------------------------------------------
template<class TimeStampValueType>
void
Print(SharedPtr<TimeStampValueType> theTimeStampValue)
{
INITMSG(MYDEBUG,"Print - TimeStampValue\n");
typename TimeStampValueType::TTGeom2Value& aGeom2Value = theTimeStampValue->myGeom2Value;
typename TimeStampValueType::TTGeom2Value::const_iterator anIter = aGeom2Value.begin();
for (; anIter != aGeom2Value.end(); anIter++) {
const EGeometrieElement& aGeom = anIter->first;
const typename TimeStampValueType::TTMeshValue& aMeshValue = anIter->second;
TInt aNbElem = aMeshValue.myNbElem;
TInt aNbGauss = aMeshValue.myNbGauss;
TInt aNbComp = aMeshValue.myNbComp;
INITMSG(MYDEBUG, "aGeom = "<<aGeom<<" - "<<aNbElem<<": ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
typename TimeStampValueType::TTMeshValue::TCValueSliceArr aValueSliceArr =
aMeshValue.GetGaussValueSliceArr(iElem);
ADDMSG(MYVALUEDEBUG, "{");
for (TInt iGauss = 0; iGauss < aNbGauss; iGauss++) {
const typename TimeStampValueType::TTMeshValue::TCValueSlice& aValueSlice =
aValueSliceArr[iGauss];
for (TInt iComp = 0; iComp < aNbComp; iComp++) {
ADDMSG(MYVALUEDEBUG, aValueSlice[iComp]<<" ");
}
ADDMSG(MYVALUEDEBUG, "| ");
}
ADDMSG(MYVALUEDEBUG, "} ");
}
ADDMSG(MYDEBUG, "\n");
}
}
//---------------------------------------------------------------
TWrapper
::TWrapper(const std::string& theFileName, bool write, TInt theMajor, TInt theMinor):
myFile(new TFile(theFileName, theMajor, theMinor)),
myMajor(theMajor),
myMinor(theMinor)
{
TErr aRet;
if ( write ) {
myFile->Open(eLECTURE_ECRITURE, &aRet);
if (aRet < 0) {
myFile->Close();
myFile->Open(eCREATION, &aRet);
}
}
else {
myFile->Open(eLECTURE, &aRet);
}
}
//----------------------------------------------------------------------------
TWrapper::
~TWrapper()
{
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbMeshes(TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
return MEDnMesh(myFile->Id());
}
//----------------------------------------------------------------------------
void
TWrapper
::GetMeshInfo(TInt theMeshId,
MED::TMeshInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TValueHolder<TString, char> aMeshName(theInfo.myName);
TValueHolder<TInt, med_int> aDim(theInfo.myDim);
TValueHolder<TInt, med_int> aSpaceDim(theInfo.mySpaceDim);
TValueHolder<EMaillage, med_mesh_type> aType(theInfo.myType);
char dtunit[MED_SNAME_SIZE+1];
med_sorting_type sorttype;
med_int nstep;
med_axis_type at;
int naxis = MEDmeshnAxis(myFile->Id(), theMeshId);
char *axisname = new char[naxis*MED_SNAME_SIZE+1];
char *axisunit = new char[naxis*MED_SNAME_SIZE+1];
TErr aRet = MEDmeshInfo(myFile->Id(),
theMeshId,
&aMeshName,
&aSpaceDim,
&aDim,
&aType,
&theInfo.myDesc[0],
dtunit,
&sorttype,
&nstep,
&at,
axisname,
axisunit);
delete [] axisname;
delete [] axisunit;
if (aRet < 0)
EXCEPTION(std::runtime_error, "GetMeshInfo - MEDmeshInfo(...)");
}
//----------------------------------------------------------------------------
void
TWrapper
::SetMeshInfo(const MED::TMeshInfo& theInfo,
TErr* theErr)
{
TErr aRet;
SetMeshInfo(theInfo, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetMeshInfo(theInfo, eLECTURE_AJOUT, &aRet);
if (aRet < 0)
SetMeshInfo(theInfo, eCREATION, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetMeshInfo(const MED::TMeshInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& anInfo = const_cast<MED::TMeshInfo&>(theInfo);
TValueHolder<TString, char> aMeshName(anInfo.myName);
TValueHolder<TInt, med_int> aDim(anInfo.myDim);
TValueHolder<TInt, med_int> aSpaceDim(anInfo.mySpaceDim);
TValueHolder<EMaillage, med_mesh_type> aType(anInfo.myType);
TValueHolder<TString, char> aDesc(anInfo.myDesc);
char *nam = new char[aSpaceDim*MED_SNAME_SIZE+1];
std::fill(nam, nam+aSpaceDim*MED_SNAME_SIZE+1, '\0');
char *unit = new char[aSpaceDim*MED_SNAME_SIZE+1];
std::fill(unit, unit+aSpaceDim*MED_SNAME_SIZE+1, '\0');
TErr aRet = MEDmeshCr(myFile->Id(),
&aMeshName,
aSpaceDim,
aDim,
aType,
&aDesc,
"",
MED_SORT_DTIT,
MED_CARTESIAN,
nam,
unit);
delete [] nam;
delete [] unit;
//if (aRet == 0)
// aRet = MEDunvCr(myFile->Id(),&aMeshName);
INITMSG(MYDEBUG, "TWrapper::SetMeshInfo - MED_MODE_ACCES = "<<theMode<<"; aRet = "<<aRet<<std::endl);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetMeshInfo - MEDmeshCr(...)");
}
//----------------------------------------------------------------------------
PMeshInfo
TWrapper
::CrMeshInfo(TInt theDim,
TInt theSpaceDim,
const std::string& theValue,
EMaillage theType,
const std::string& theDesc)
{
return PMeshInfo(new TTMeshInfo
(theDim,
theSpaceDim,
theValue,
theType,
theDesc));
}
//----------------------------------------------------------------------------
PMeshInfo
TWrapper
::CrMeshInfo(const PMeshInfo& theInfo)
{
return PMeshInfo(new TTMeshInfo(theInfo));
}
//----------------------------------------------------------------------------
PMeshInfo
TWrapper
::GetPMeshInfo(TInt theId,
TErr* theErr)
{
PMeshInfo anInfo = CrMeshInfo();
GetMeshInfo(theId, *anInfo, theErr);
return anInfo;
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbFamilies(const MED::TMeshInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
MED::TMeshInfo& anInfo = const_cast<MED::TMeshInfo&>(theInfo);
TValueHolder<TString, char> aName(anInfo.myName);
return MEDnFamily(myFile->Id(), &aName);
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbFamAttr(TInt theFamId,
const MED::TMeshInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
MED::TMeshInfo& anInfo = const_cast<MED::TMeshInfo&>(theInfo);
TValueHolder<TString, char> aName(anInfo.myName);
return MEDnFamily23Attribute(myFile->Id(), &aName, theFamId);
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbFamGroup(TInt theFamId,
const MED::TMeshInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
MED::TMeshInfo& anInfo = const_cast<MED::TMeshInfo&>(theInfo);
TValueHolder<TString, char> aName(anInfo.myName);
return MEDnFamilyGroup(myFile->Id(), &aName, theFamId);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetFamilyInfo(TInt theFamId,
MED::TFamilyInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TString, char> aFamilyName(theInfo.myName);
TValueHolder<TInt, med_int> aFamilyId(theInfo.myId);
TValueHolder<TFamAttr, med_int> anAttrId(theInfo.myAttrId);
TValueHolder<TFamAttr, med_int> anAttrVal(theInfo.myAttrVal);
TValueHolder<TString, char> anAttrDesc(theInfo.myAttrDesc);
TValueHolder<TString, char> aGroupNames(theInfo.myGroupNames);
TErr aRet = MEDfamily23Info(myFile->Id(),
&aMeshName,
theFamId,
&aFamilyName,
&anAttrId,
&anAttrVal,
&anAttrDesc,
&aFamilyId,
&aGroupNames);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetFamilyInfo - MEDfamily23Info(...) - "<<
" aMeshInfo.myName = '"<<&aMeshName<<
"'; theFamId = "<<theFamId<<
"; theInfo.myNbGroup = "<<theInfo.myNbGroup<<
"; theInfo.myNbAttr = "<<theInfo.myNbAttr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFamilyInfo(const MED::TFamilyInfo& theInfo,
TErr* theErr)
{
TErr aRet;
SetFamilyInfo(theInfo, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetFamilyInfo(theInfo, eLECTURE_AJOUT, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFamilyInfo(const MED::TFamilyInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TFamilyInfo& anInfo = const_cast<MED::TFamilyInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TString, char> aFamilyName(anInfo.myName);
TValueHolder<TInt, med_int> aFamilyId(anInfo.myId);
TValueHolder<TFamAttr, med_int> anAttrId(anInfo.myAttrId);
TValueHolder<TFamAttr, med_int> anAttrVal(anInfo.myAttrVal);
TValueHolder<TInt, med_int> aNbAttr(anInfo.myNbAttr);
TValueHolder<TString, char> anAttrDesc(anInfo.myAttrDesc);
TValueHolder<TInt, med_int> aNbGroup(anInfo.myNbGroup);
TValueHolder<TString, char> aGroupNames(anInfo.myGroupNames);
TErr aRet = MEDfamilyCr(myFile->Id(),
&aMeshName,
&aFamilyName,
aFamilyId,
aNbGroup,
&aGroupNames);
INITMSG(MYDEBUG, "TWrapper::SetFamilyInfo - MED_MODE_ACCES = "<<theMode<<"; aRet = "<<aRet<<std::endl);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetFamilyInfo - MEDfamilyCr(...)");
}
//----------------------------------------------------------------------------
PFamilyInfo
TWrapper
::CrFamilyInfo(const PMeshInfo& theMeshInfo,
TInt theNbGroup,
TInt theNbAttr,
TInt theId,
const std::string& theValue)
{
return PFamilyInfo(new TTFamilyInfo
(theMeshInfo,
theNbGroup,
theNbAttr,
theId,
theValue));
}
//----------------------------------------------------------------------------
PFamilyInfo
TWrapper
::CrFamilyInfo(const PMeshInfo& theMeshInfo,
const std::string& theValue,
TInt theId,
const MED::TStringSet& theGroupNames,
const MED::TStringVector& theAttrDescs,
const MED::TIntVector& theAttrIds,
const MED::TIntVector& theAttrVals)
{
return PFamilyInfo(new TTFamilyInfo
(theMeshInfo,
theValue,
theId,
theGroupNames,
theAttrDescs,
theAttrIds,
theAttrVals));
}
//----------------------------------------------------------------------------
PFamilyInfo
TWrapper
::CrFamilyInfo(const PMeshInfo& theMeshInfo,
const PFamilyInfo& theInfo)
{
return PFamilyInfo(new TTFamilyInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PFamilyInfo
TWrapper
::GetPFamilyInfo(const PMeshInfo& theMeshInfo,
TInt theId,
TErr* theErr)
{
// must be reimplemented in connection with mesh type eSTRUCTURE
// if (theMeshInfo->GetType() != eNON_STRUCTURE)
// return PFamilyInfo();
TInt aNbAttr = GetNbFamAttr(theId, *theMeshInfo);
TInt aNbGroup = GetNbFamGroup(theId, *theMeshInfo);
PFamilyInfo anInfo = CrFamilyInfo(theMeshInfo, aNbGroup, aNbAttr);
GetFamilyInfo(theId, *anInfo, theErr);
#ifdef _DEBUG_
std::string aName = anInfo->GetName();
INITMSG(MYDEBUG, "GetPFamilyInfo - aFamilyName = '"<<aName<<
"'; andId = "<<anInfo->GetId()<<
"; aNbAttr = "<<aNbAttr<<
"; aNbGroup = "<<aNbGroup<<"\n");
for (TInt iGroup = 0; iGroup < aNbGroup; iGroup++) {
aName = anInfo->GetGroupName(iGroup);
INITMSG(MYDEBUG, "aGroupName = '"<<aName<<"'\n");
}
#endif
return anInfo;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetNames(TElemInfo& theInfo,
TInt theNb,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName (aMeshInfo.myName);
TValueHolder<TString, char> anElemNames(theInfo.myElemNames);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
TErr aRet = MEDmeshEntityNameRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
&anElemNames);
theInfo.myIsElemNames = aRet != 0? eFAUX : eVRAI ;
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNames(const TElemInfo& theInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
SetNames(theInfo, eLECTURE_ECRITURE, theEntity, theGeom, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNames(const TElemInfo& theInfo,
EModeAcces theMode,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TElemInfo& anInfo = const_cast<MED::TElemInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TErr aRet = 0;
if (theInfo.myIsElemNames) {
TValueHolder<TString, char> aMeshName (aMeshInfo.myName);
TValueHolder<TString, char> anElemNames(anInfo.myElemNames);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
aRet = MEDmeshEntityNameWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
(TInt)anInfo.myElemNames->size(),
&anElemNames);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetNames - MEDmeshEntityNameWr(...)");
}
}
//----------------------------------------------------------------------------
void
TWrapper
::GetNumeration(TElemInfo& theInfo,
TInt theNb,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int> anElemNum(theInfo.myElemNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
TErr aRet = MEDmeshEntityNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
&anElemNum);
theInfo.myIsElemNum = aRet != 0? eFAUX : eVRAI;
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNumeration(const TElemInfo& theInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
SetNumeration(theInfo, eLECTURE_ECRITURE, theEntity, theGeom, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNumeration(const TElemInfo& theInfo,
EModeAcces theMode,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TElemInfo& anInfo = const_cast<MED::TElemInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TErr aRet = 0;
if (theInfo.myIsElemNum) {
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int> anElemNum(anInfo.myElemNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
aRet = MEDmeshEntityNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
(TInt)anInfo.myElemNum->size(),
&anElemNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetNumeration - MEDmeshEntityNumberWr(...)");
}
}
//----------------------------------------------------------------------------
void
TWrapper
::GetFamilies(TElemInfo& theInfo,
TInt theNb,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int> aFamNum (theInfo.myFamNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
TErr aRet = MEDmeshEntityFamilyNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
&aFamNum);
if (aRet < 0) {
// if (aRet == MED_ERR_DOESNTEXIST) // --- only valid with MED3.x files
{
int aSize = (int)theInfo.myFamNum->size();
theInfo.myFamNum->clear();
theInfo.myFamNum->resize(aSize,0);
aRet = 0;
}
// else
// EXCEPTION(std::runtime_error,"GetGrilleInfo - MEDmeshEntityFamilyNumberRd(...) of CELLS");
}
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFamilies(const TElemInfo& theInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
SetFamilies(theInfo, eLECTURE_ECRITURE, theEntity, theGeom, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFamilies(const TElemInfo& theInfo,
EModeAcces theMode,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
if (theGeom == eBALL)
theGeom = GetBallGeom(theInfo.myMeshInfo);
MED::TElemInfo& anInfo = const_cast<MED::TElemInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int> aFamNum (anInfo.myFamNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theGeom);
TErr aRet = MEDmeshEntityFamilyNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
(TInt)anInfo.myFamNum->size(),
&aFamNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetFamilies - MEDmeshEntityFamilyNumberWr(...)");
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbNodes(const MED::TMeshInfo& theMeshInfo,
TErr* theErr)
{
return GetNbNodes(theMeshInfo, eCOOR, theErr);
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbNodes(const MED::TMeshInfo& theMeshInfo,
ETable theTable,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<ETable, med_data_type > aTable(theTable);
med_bool chgt,trsf;
return MEDmeshnEntity(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
aTable,
MED_NO_CMODE,
&chgt,
&trsf);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetNodeInfo(MED::TNodeInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TInt, med_int> aDim(aMeshInfo.myDim);
TValueHolder<TNodeCoord, med_float> aCoord(theInfo.myCoord);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(theInfo.myModeSwitch);
TValueHolder<ERepere, med_axis_type> aSystem(theInfo.mySystem);
TValueHolder<TString, char> aCoordNames(theInfo.myCoordNames);
TValueHolder<TString, char> aCoordUnits(theInfo.myCoordUnits);
TValueHolder<TString, char> anElemNames(theInfo.myElemNames);
//TValueHolder<EBooleen, med_bool> anIsElemNames(theInfo.myIsElemNames);
TValueHolder<TElemNum, med_int> anElemNum(theInfo.myElemNum);
//TValueHolder<EBooleen, med_bool> anIsElemNum(theInfo.myIsElemNum);
TValueHolder<TElemNum, med_int> aFamNum(theInfo.myFamNum);
TValueHolder<TInt, med_int> aNbElem(theInfo.myNbElem);
TErr aRet = MEDmeshNodeCoordinateRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
aModeSwitch,
&aCoord);
TErr aRet2 =MEDmeshEntityFamilyNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
&aFamNum);
if (aRet2 < 0) {
// if (aRet2 == MED_ERR_DOESNTEXIST) // --- only valid with MED3.x files
{
int mySize = (int)theInfo.myFamNum->size();
theInfo.myFamNum->clear();
theInfo.myFamNum->resize(mySize,0);
}
// else
// EXCEPTION(std::runtime_error,"GetNodeInfo - MEDmeshEntityFamilyNumberRd(...)");
}
if (MEDmeshEntityNameRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
&anElemNames) < 0) theInfo.myIsElemNames=eFAUX;
if (MEDmeshEntityNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
&anElemNum) < 0) theInfo.myIsElemNum=eFAUX;
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetNodeInfo - MEDmeshNodeCoordinateRd(...)");
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNodeInfo(const MED::TNodeInfo& theInfo,
TErr* theErr)
{
TErr aRet;
SetNodeInfo(theInfo, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetNodeInfo(theInfo, eLECTURE_AJOUT, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetNodeInfo(const MED::TNodeInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TNodeInfo& anInfo = const_cast<MED::TNodeInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName (aMeshInfo.myName);
TValueHolder<TNodeCoord, med_float> aCoord (anInfo.myCoord);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch (anInfo.myModeSwitch);
TValueHolder<ERepere, med_axis_type> aSystem (anInfo.mySystem);
TValueHolder<TString, char> aCoordNames (anInfo.myCoordNames);
TValueHolder<TString, char> aCoordUnits (anInfo.myCoordUnits);
TValueHolder<TString, char> anElemNames (anInfo.myElemNames);
TValueHolder<EBooleen, med_bool> anIsElemNames(anInfo.myIsElemNames);
TValueHolder<TElemNum, med_int> anElemNum (anInfo.myElemNum);
TValueHolder<EBooleen, med_bool> anIsElemNum (anInfo.myIsElemNum);
TValueHolder<TElemNum, med_int> aFamNum (anInfo.myFamNum);
TValueHolder<TInt, med_int> aNbElem (anInfo.myNbElem);
TErr aRet = MEDmeshNodeCoordinateWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NO_DT,
aModeSwitch,
aNbElem,
&aCoord);
MEDmeshEntityFamilyNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
aNbElem,
&aFamNum);
if (anIsElemNames)
MEDmeshEntityNameWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
aNbElem,
&anElemNames);
if (anIsElemNum)
MEDmeshEntityNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
aNbElem,
&anElemNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetNodeInfo - MEDmeshNodeCoordinateWr(...)");
}
//----------------------------------------------------------------------------
PNodeInfo
TWrapper
::CrNodeInfo(const PMeshInfo& theMeshInfo,
TInt theNbElem,
EModeSwitch theMode,
ERepere theSystem,
EBooleen theIsElemNum,
EBooleen theIsElemNames)
{
return PNodeInfo(new TTNodeInfo
(theMeshInfo,
theNbElem,
theMode,
theSystem,
theIsElemNum,
theIsElemNames));
}
//----------------------------------------------------------------------------
PNodeInfo
TWrapper
::CrNodeInfo(const PMeshInfo& theMeshInfo,
const TFloatVector& theNodeCoords,
EModeSwitch theMode,
ERepere theSystem,
const TStringVector& theCoordNames,
const TStringVector& theCoordUnits,
const TIntVector& theFamilyNums,
const TIntVector& theElemNums,
const TStringVector& theElemNames)
{
return PNodeInfo(new TTNodeInfo
(theMeshInfo,
theNodeCoords,
theMode,
theSystem,
theCoordNames,
theCoordUnits,
theFamilyNums,
theElemNums,
theElemNames));
}
//----------------------------------------------------------------------------
PNodeInfo
TWrapper
::CrNodeInfo(const PMeshInfo& theMeshInfo,
const PNodeInfo& theInfo)
{
return PNodeInfo(new TTNodeInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PNodeInfo
TWrapper
::GetPNodeInfo(const PMeshInfo& theMeshInfo,
TErr* theErr)
{
TInt aNbElems = GetNbNodes(*theMeshInfo);
if (aNbElems == 0) {
return PNodeInfo();
}
PNodeInfo anInfo = CrNodeInfo(theMeshInfo, aNbElems);
GetNodeInfo(*anInfo, theErr);
#ifdef _DEBUG_
TInt aDim = theMeshInfo->myDim;
TInt aNbElem = anInfo->GetNbElem();
INITMSG(MYDEBUG, "GetPNodeInfo: ");
{
INITMSG(MYDEBUG, "aCoords: "<<aNbElem<<": ");
TNodeCoord& aCoord = anInfo->myCoord;
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
for (TInt iDim = 0, anId = iElem*aDim; iDim < aDim; iDim++, anId++) {
ADDMSG(MYVALUEDEBUG, aCoord[anId]<<",");
}
ADDMSG(MYVALUEDEBUG, " ");
}
ADDMSG(MYDEBUG, std::endl);
BEGMSG(MYVALUEDEBUG, "GetFamNum: ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetFamNum(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
if (anInfo->IsElemNum()) {
BEGMSG(MYVALUEDEBUG, "GetElemNum: ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetElemNum(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
}
}
ADDMSG(MYDEBUG, std::endl);
#endif
return anInfo;
}
//----------------------------------------------------------------------------
PElemInfo
TWrapper
::CrElemInfo(const PMeshInfo& theMeshInfo,
TInt theNbElem,
EBooleen theIsElemNum,
EBooleen theIsElemNames)
{
return PElemInfo(new TTElemInfo
(theMeshInfo,
theNbElem,
theIsElemNum,
theIsElemNames));
}
//----------------------------------------------------------------------------
PElemInfo
TWrapper
::CrElemInfo(const PMeshInfo& theMeshInfo,
TInt theNbElem,
const TIntVector& theFamNum,
const TIntVector& aElemNum,
const TStringVector& aElemNames)
{
return PElemInfo(new TTElemInfo
(theMeshInfo,
theNbElem,
theFamNum,
aElemNum,
aElemNames));
}
//----------------------------------------------------------------------------
PElemInfo
TWrapper
::GetPElemInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
EMaillage aType = theMeshInfo->GetType();
if (aType == eNON_STRUCTURE) {
switch (theGeom) {
case ePOINT1:
if (theEntity == eNOEUD)
return GetPNodeInfo(theMeshInfo, theErr);
return GetPCellInfo(theMeshInfo, theEntity, theGeom, theConnMode, theErr);
break;
case ePOLYGONE:
return GetPPolygoneInfo(theMeshInfo, theEntity, theGeom, theConnMode);
break;
case ePOLYEDRE:
return GetPPolyedreInfo(theMeshInfo, theEntity, theGeom, theConnMode);
break;
default:
return GetPCellInfo(theMeshInfo, theEntity, theGeom, theConnMode, theErr);
}
}
else {
PGrilleInfo aGrille = GetPGrilleInfo(theMeshInfo);
TInt nbElems;
EBooleen theIsElemNum = eFAUX;
// nodes
switch (theGeom) {
case ePOINT1:
nbElems = aGrille->GetNbNodes();
theIsElemNum = eVRAI;
break;
case eSEG2:
case eQUAD4:
case eHEXA8:
nbElems = aGrille->GetNbCells();
break;
default:
nbElems = 0;
}
TIntVector aFamNum;
TIntVector aElemNum;
TStringVector aElemNames;
PElemInfo aElemInfo;
if (theGeom == ePOINT1) {
aElemInfo = CrElemInfo(theMeshInfo,
nbElems,
theIsElemNum);
MED::TElemInfo &aTElemInfo = *aElemInfo;
// must be reimplemente in connection with mesh type eSTRUCTURE
// GetNumeration(aTElemInfo,
// nbElems,
// theEntity,
// theGeom,
// theErr);
GetFamilies(aTElemInfo,
nbElems,
theEntity,
theGeom,
theErr);
// must be reimplemente in connection with mesh type eSTRUCTURE
// GetNames(aTElemInfo,
// nbElems,
// theEntity,
// theGeom,
// theErr);
}
else {
aElemInfo = CrElemInfo(theMeshInfo,
nbElems,
aFamNum,
aElemNum,
aElemNames);
}
return aElemInfo;
}
return PElemInfo();
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbPolygones(const MED::TMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
return GetNbCells(theMeshInfo, theEntity, theGeom, theConnMode, theErr);
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetPolygoneConnSize(const MED::TMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return 0;
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
med_int aTaille = 0;
med_bool chgt,trsf;
aTaille=MEDmeshnEntity(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
med_entity_type(theEntity),
med_geometry_type(theGeom),
MED_CONNECTIVITY,
med_connectivity_mode(theConnMode),
&chgt,
&trsf);
if (aTaille < 0)
EXCEPTION(std::runtime_error, "GetPolygoneInfo - MEDmeshnEntity(...)");
return TInt(aTaille);
}
//-----------------------------------------------------------------
void
TWrapper
::GetPolygoneInfo(MED::TPolygoneInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char > aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int > anIndex (theInfo.myIndex);
TValueHolder<TElemNum, med_int > aConn (theInfo.myConn);
TValueHolder<EEntiteMaillage, med_entity_type > anEntity (theInfo.myEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theInfo.myGeom);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode(theInfo.myConnMode);
TInt aNbElem = (TInt)theInfo.myElemNum->size();
TErr aRet;
aRet = MEDmeshPolygon2Rd(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
anEntity, aGeom,
aConnMode, &anIndex, &aConn);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetPolygoneInfo - MEDmeshPolygonRd(...)");
if (theInfo.myIsElemNames) {
GetNames(theInfo, aNbElem, theInfo.myEntity, theInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
}
if (theInfo.myIsElemNum) {
GetNumeration(theInfo, aNbElem, theInfo.myEntity, theInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
}
GetFamilies(theInfo, aNbElem, theInfo.myEntity, theInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetPolygoneInfo(const MED::TPolygoneInfo& theInfo,
TErr* theErr)
{
SetPolygoneInfo(theInfo, eLECTURE_ECRITURE, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetPolygoneInfo(const MED::TPolygoneInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TPolygoneInfo& anInfo = const_cast<MED::TPolygoneInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char > aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int > anIndex (anInfo.myIndex);
TValueHolder<TElemNum, med_int > aConn (anInfo.myConn);
TValueHolder<EEntiteMaillage, med_entity_type > anEntity (anInfo.myEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (anInfo.myGeom);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode(anInfo.myConnMode);
TErr aRet = MEDmeshPolygon2Wr(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT, MED_UNDEF_DT,
anEntity, aGeom,
aConnMode, anInfo.myNbElem + 1,
&anIndex, &aConn);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetPolygoneInfo - MEDmeshPolygonWr(...)");
SetNames(anInfo, theInfo.myEntity, anInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
SetNumeration(anInfo, theInfo.myEntity, anInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
SetFamilies(anInfo, theInfo.myEntity, anInfo.myGeom, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
PPolygoneInfo
TWrapper
::CrPolygoneInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TInt theNbElem,
TInt theConnSize,
EConnectivite theConnMode,
EBooleen theIsElemNum,
EBooleen theIsElemNames)
{
return PPolygoneInfo(new TTPolygoneInfo
(theMeshInfo,
theEntity,
theGeom,
theNbElem,
theConnSize,
theConnMode,
theIsElemNum,
theIsElemNames));
}
//----------------------------------------------------------------------------
PPolygoneInfo
TWrapper
::CrPolygoneInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
const TIntVector& theIndexes,
const TIntVector& theConnectivities,
EConnectivite theConnMode,
const TIntVector& theFamilyNums,
const TIntVector& theElemNums,
const TStringVector& theElemNames)
{
return PPolygoneInfo(new TTPolygoneInfo
(theMeshInfo,
theEntity,
theGeom,
theIndexes,
theConnectivities,
theConnMode,
theFamilyNums,
theElemNums,
theElemNames));
}
//----------------------------------------------------------------------------
PPolygoneInfo
TWrapper
::CrPolygoneInfo(const PMeshInfo& theMeshInfo,
const PPolygoneInfo& theInfo)
{
return PPolygoneInfo(new TTPolygoneInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PPolygoneInfo
TWrapper
::GetPPolygoneInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode)
{
if (theMeshInfo->GetType() != eNON_STRUCTURE)
return PPolygoneInfo();
TInt aNbElem = GetNbPolygones(theMeshInfo, theEntity, theGeom, theConnMode);
TInt aConnSize = GetPolygoneConnSize(theMeshInfo, theEntity, theGeom, theConnMode);
PPolygoneInfo anInfo = CrPolygoneInfo(theMeshInfo, theEntity, theGeom, aNbElem, aConnSize, theConnMode);
GetPolygoneInfo(anInfo);
#ifdef _DEBUG_
INITMSG(MYDEBUG, "GetPPolygoneInfo"<<
" - theGeom = "<<theGeom<<
"; aNbElem = "<<aNbElem<<": ");
for (TInt iElem = 1; iElem < aNbElem; iElem++) {
TCConnSlice aConnSlice = anInfo->GetConnSlice(iElem);
TInt aConnDim = aConnSlice.size();
for (TInt iConn = 0; iConn < aConnDim; iConn++) {
ADDMSG(MYVALUEDEBUG, aConnSlice[iConn]<<",");
}
ADDMSG(MYDEBUG, " ");
}
ADDMSG(MYDEBUG, std::endl);
#endif
return anInfo;
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbPolyedres(const MED::TMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
return GetNbCells(theMeshInfo, theEntity, theGeom, theConnMode, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetPolyedreConnSize(const TMeshInfo& theMeshInfo,
TInt& theNbFaces,
TInt& theConnSize,
EConnectivite theConnMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
EXCEPTION(std::runtime_error, "GetPolyedreConnSize - (...)");
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode(theConnMode);
//TValueHolder<TInt, med_int> aNbFaces(theNbFaces);
//TValueHolder<TInt, med_int> aConnSize(theConnSize);
med_bool chgt, trsf;
theNbFaces = MEDmeshnEntity(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_CELL,
MED_POLYHEDRON,
MED_INDEX_NODE,
aConnMode,
&chgt,
&trsf);
theConnSize = MEDmeshnEntity(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_CELL,
MED_POLYHEDRON,
MED_CONNECTIVITY,
aConnMode,
&chgt,
&trsf);
if (theNbFaces < 0 || theConnSize<0)
EXCEPTION(std::runtime_error, "GetPolygoneInfo - MEDmeshnEntity(...)");
}
//-----------------------------------------------------------------
void
TWrapper
::GetPolyedreInfo(TPolyedreInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TInt aNbElem = (TInt)theInfo.myElemNum->size();
TValueHolder<TElemNum, med_int> anIndex(theInfo.myIndex);
TValueHolder<TElemNum, med_int> aFaces(theInfo.myFaces);
TValueHolder<TElemNum, med_int> aConn(theInfo.myConn);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode(theInfo.myConnMode);
TErr aRet;
aRet = MEDmeshPolyhedronRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_CELL,
aConnMode,
&anIndex,
&aFaces,
&aConn);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetPolygoneInfo - MEDmeshPolyhedronRd(...)");
if (theInfo.myIsElemNames) {
GetNames(theInfo, aNbElem, theInfo.myEntity, ePOLYEDRE, &aRet);
if (theErr)
*theErr = aRet;
}
if (theInfo.myIsElemNum) {
GetNumeration(theInfo, aNbElem, theInfo.myEntity, ePOLYEDRE, &aRet);
if (theErr)
*theErr = aRet;
}
GetFamilies(theInfo, aNbElem, theInfo.myEntity, ePOLYEDRE, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetPolyedreInfo(const TPolyedreInfo& theInfo,
TErr* theErr)
{
SetPolyedreInfo(theInfo, eLECTURE_ECRITURE, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetPolyedreInfo(const MED::TPolyedreInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TPolyedreInfo& anInfo = const_cast<MED::TPolyedreInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TElemNum, med_int> anIndex(anInfo.myIndex);
TValueHolder<TElemNum, med_int> aFaces(anInfo.myFaces);
TValueHolder<TElemNum, med_int> aConn(anInfo.myConn);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode(anInfo.myConnMode);
TErr aRet;
aRet = MEDmeshPolyhedronWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_UNDEF_DT,
MED_CELL,
aConnMode,
anInfo.myNbElem+1,
&anIndex,
(TInt)anInfo.myFaces->size(),
&aFaces,
&aConn);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetPolyedreInfo - MEDmeshPolyhedronWr(...)");
TValueHolder<EEntiteMaillage, med_entity_type> anEntity(anInfo.myEntity);
if (theInfo.myIsElemNames) {
TValueHolder<TString, char> anElemNames(anInfo.myElemNames);
aRet = MEDmeshEntityNameWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
MED_POLYHEDRON,
(TInt)anInfo.myElemNames->size(),
&anElemNames);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetPolyedreInfo - MEDmeshEntityNameWr(...)");
}
if (theInfo.myIsElemNum) {
TValueHolder<TElemNum, med_int> anElemNum(anInfo.myElemNum);
aRet = MEDmeshEntityNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
MED_POLYHEDRON,
(TInt)anInfo.myElemNum->size(),
&anElemNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetPolyedreInfo - MEDmeshEntityNumberWr(...)");
}
TValueHolder<TElemNum, med_int> aFamNum(anInfo.myFamNum);
aRet = MEDmeshEntityFamilyNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
MED_POLYHEDRON,
(TInt)anInfo.myFamNum->size(),
&aFamNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetPolyedreInfo - MEDmeshEntityFamilyNumberWr(...)");
}
//----------------------------------------------------------------------------
PPolyedreInfo
TWrapper
::CrPolyedreInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TInt theNbElem,
TInt theNbFaces,
TInt theConnSize,
EConnectivite theConnMode,
EBooleen theIsElemNum,
EBooleen theIsElemNames)
{
return PPolyedreInfo(new TTPolyedreInfo
(theMeshInfo,
theEntity,
theGeom,
theNbElem,
theNbFaces,
theConnSize,
theConnMode,
theIsElemNum,
theIsElemNames));
}
//----------------------------------------------------------------------------
PPolyedreInfo
TWrapper
::CrPolyedreInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
const TIntVector& theIndexes,
const TIntVector& theFaces,
const TIntVector& theConnectivities,
EConnectivite theConnMode,
const TIntVector& theFamilyNums,
const TIntVector& theElemNums,
const TStringVector& theElemNames)
{
return PPolyedreInfo(new TTPolyedreInfo
(theMeshInfo,
theEntity,
theGeom,
theIndexes,
theFaces,
theConnectivities,
theConnMode,
theFamilyNums,
theElemNums,
theElemNames));
}
//----------------------------------------------------------------------------
PPolyedreInfo
TWrapper
::CrPolyedreInfo(const PMeshInfo& theMeshInfo,
const PPolyedreInfo& theInfo)
{
return PPolyedreInfo(new TTPolyedreInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PPolyedreInfo
TWrapper
::GetPPolyedreInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode)
{
if (theMeshInfo->GetType() != eNON_STRUCTURE)
return PPolyedreInfo();
TInt aNbElem = GetNbPolyedres(theMeshInfo, theEntity, theGeom, theConnMode);
TInt aNbFaces, aConnSize;
GetPolyedreConnSize(theMeshInfo, aNbFaces, aConnSize, theConnMode);
PPolyedreInfo anInfo = CrPolyedreInfo(theMeshInfo, theEntity, theGeom, aNbElem, aNbFaces, aConnSize, theConnMode);
GetPolyedreInfo(anInfo);
#ifdef _DEBUG_
INITMSG(MYDEBUG, "GetPPolyedreInfo"<<
" - theGeom = "<<theGeom<<
"; aNbElem = "<<aNbElem<<": ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
TCConnSliceArr aConnSliceArr = anInfo->GetConnSliceArr(iElem);
TInt aNbFaces = aConnSliceArr.size();
ADDMSG(MYDEBUG, "{");
for (TInt iFace = 0; iFace < aNbFaces; iFace++) {
TCConnSlice aConnSlice = aConnSliceArr[iFace];
TInt aNbConn = aConnSlice.size();
ADDMSG(MYDEBUG, "[");
for (TInt iConn = 0; iConn < aNbConn; iConn++) {
ADDMSG(MYVALUEDEBUG, aConnSlice[iConn]<<",");
}
ADDMSG(MYDEBUG, "] ");
}
ADDMSG(MYDEBUG, "} ");
}
ADDMSG(MYDEBUG, std::endl);
#endif
return anInfo;
}
//-----------------------------------------------------------------
TEntityInfo
TWrapper
::GetEntityInfo(const MED::TMeshInfo& theMeshInfo,
EConnectivite theConnMode,
TErr* theErr)
{
TEntityInfo anInfo;
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return anInfo;
if (theMeshInfo.GetType() == eNON_STRUCTURE) {
TInt aNbElem = GetNbNodes(theMeshInfo);
if (aNbElem > 0) {
anInfo[eNOEUD][ePOINT1] = aNbElem;
const TEntity2GeomSet& anEntity2GeomSet = GetEntity2GeomSet();
TEntity2GeomSet::const_iterator anIter = anEntity2GeomSet.begin();
TEntity2GeomSet::const_iterator anIterEnd = anEntity2GeomSet.end();
for (; anIter != anIterEnd; anIter++) {
const EEntiteMaillage& anEntity = anIter->first;
const TGeomSet& aGeomSet = anIter->second;
TGeomSet::const_iterator anIter2 = aGeomSet.begin();
TGeomSet::const_iterator anIterEnd2 = aGeomSet.end();
for (; anIter2 != anIterEnd2; anIter2++) {
const EGeometrieElement& aGeom = *anIter2;
aNbElem = GetNbCells(theMeshInfo, anEntity, aGeom, theConnMode, theErr);
if (aNbElem > 0) {
if (anEntity == eSTRUCT_ELEMENT) {
const TInt nbStructTypes = aNbElem;
for (TInt structType = 0; structType < nbStructTypes; ++structType) {
// check type name to keep only "MED_BALL" structured element
TValueHolder<TString, char> aMeshName((TString&) theMeshInfo.myName);
char geotypename[ MED_NAME_SIZE + 1] = "";
med_geometry_type geotype;
MEDmeshEntityInfo(myFile->Id(), &aMeshName, MED_NO_DT, MED_NO_IT,
med_entity_type(anEntity), structType+1,
geotypename, &geotype);
if (strcmp(geotypename, MED_BALL_NAME) == 0) {
aNbElem = GetNbCells(theMeshInfo, anEntity, EGeometrieElement(geotype),
theConnMode, theErr);
if (aNbElem > 0)
anInfo[anEntity][EGeometrieElement(geotype)] = aNbElem;
}
}
}
else {
anInfo[anEntity][aGeom] = aNbElem;
}
}
}
}
}
}
else { // eSTRUCTURE
EGrilleType aGrilleType;
TInt aNbNodes = 1;
TInt aNbElem = 1;
TInt aNbSub = 0;
TInt aDim = theMeshInfo.GetDim();
EGeometrieElement aGeom, aSubGeom;
EEntiteMaillage aSubEntity = eMAILLE;
GetGrilleType(theMeshInfo, aGrilleType);
TIntVector aStruct(aDim);
if (aGrilleType == eGRILLE_STANDARD)
{
GetGrilleStruct(theMeshInfo, aStruct, theErr);
}
else
{ // eGRILLE_CARTESIENNE and eGRILLE_POLAIRE
ETable aTable[3] = { eCOOR_IND1, eCOOR_IND2, eCOOR_IND3 };
for (med_int anAxis = 0; anAxis < aDim; anAxis++)
aStruct[ anAxis ] = GetNbNodes(theMeshInfo, aTable[anAxis]);
}
for (med_int i = 0; i < aDim; i++) {
aNbNodes = aNbNodes * aStruct[i];
aNbElem = aNbElem * (aStruct[i] - 1);
}
switch (aDim) {
case 1:
aGeom = eSEG2;
break;
case 2:
aGeom = eQUAD4;
aSubGeom = eSEG2;
aSubEntity = eARETE;
aNbSub =
(aStruct[0]) * (aStruct[1]-1) +
(aStruct[0]-1) * (aStruct[1]);
break;
case 3:
aGeom = eHEXA8;
aSubGeom = eQUAD4;
aSubEntity = eFACE;
aNbSub =
(aStruct[0]) * (aStruct[1]-1) * (aStruct[2]-1) +
(aStruct[0]-1) * (aStruct[1]) * (aStruct[2]-1) +
(aStruct[0]-1) * (aStruct[1]-1) * (aStruct[2]);
break;
}
anInfo[eNOEUD][ePOINT1] = aNbNodes;
anInfo[eMAILLE][aGeom] = aNbElem;
if (aDim > 1)
anInfo[aSubEntity][aSubGeom] = aNbSub;
}
return anInfo;
}
//-----------------------------------------------------------------
TInt
TWrapper
::GetNbCells(const MED::TMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
med_bool chgt, trsf;
switch (theGeom)
{
case MED::ePOLYGONE:
case MED::ePOLYGON2:
{
return MEDmeshnEntity(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
med_entity_type(theEntity), med_geometry_type(theGeom),
MED_INDEX_NODE, med_connectivity_mode(theConnMode),
&chgt, &trsf)-1;
}
case MED::ePOLYEDRE:
{
return MEDmeshnEntity(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
med_entity_type(theEntity), MED_POLYHEDRON,
MED_INDEX_FACE, med_connectivity_mode(theConnMode),
&chgt, &trsf)-1;
}
case MED::eBALL:
{
return GetNbBalls(theMeshInfo);
}
default:
{
return MEDmeshnEntity(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
med_entity_type(theEntity), med_geometry_type(theGeom),
MED_CONNECTIVITY, med_connectivity_mode(theConnMode),
&chgt, &trsf);
}
}
return 0;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetCellInfo(MED::TCellInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName (aMeshInfo.myName);
TValueHolder<TElemNum, med_int> aConn (theInfo.myConn);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch (theInfo.myModeSwitch);
TValueHolder<TString, char> anElemNames (theInfo.myElemNames);
TValueHolder<EBooleen, med_bool> anIsElemNames(theInfo.myIsElemNames);
TValueHolder<TElemNum, med_int> anElemNum (theInfo.myElemNum);
TValueHolder<EBooleen, med_bool> anIsElemNum (theInfo.myIsElemNum);
TValueHolder<TElemNum, med_int> aFamNum (theInfo.myFamNum);
TValueHolder<EBooleen, med_bool> anIsFamNum (theInfo.myIsFamNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (theInfo.myEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theInfo.myGeom);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode (theInfo.myConnMode);
TErr aRet;
med_bool dummy;
aRet = MEDmeshnEntity(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
MED_NAME,
aConnMode,
&dummy, &dummy);
if ( aRet > 0 )
{
// names are present in the file, they will be read in spite of theInfo.myIsElemNames
theInfo.myIsElemNames = eVRAI;
theInfo.myElemNames.reset( new TString( theInfo.myNbElem * GetPNOMLength() + 1 ));
anElemNames.myRepresentation = & ((TString&) theInfo.myElemNames )[0];
}
aRet = MEDmeshElementRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
aConnMode,
aModeSwitch,
&aConn,
&anIsElemNames,
&anElemNames,
&anIsElemNum,
&anElemNum,
&anIsFamNum,
&aFamNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetCellInfo - MEDmeshElementRd(...)");
if (anIsFamNum == MED_FALSE)
{
int mySize = (int) theInfo.myFamNum->size();
theInfo.myFamNum->clear();
theInfo.myFamNum->resize(mySize, 0);
}
}
//----------------------------------------------------------------------------
void
TWrapper
::SetCellInfo(const MED::TCellInfo& theInfo,
TErr* theErr)
{
SetCellInfo(theInfo, eLECTURE_ECRITURE, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetCellInfo(const MED::TCellInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TCellInfo& anInfo = const_cast<MED::TCellInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName (aMeshInfo.myName);
TValueHolder<TElemNum, med_int> aConn (anInfo.myConn);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch (anInfo.myModeSwitch);
TValueHolder<TString, char> anElemNames (anInfo.myElemNames);
TValueHolder<EBooleen, med_bool> anIsElemNames(anInfo.myIsElemNames);
TValueHolder<TElemNum, med_int> anElemNum (anInfo.myElemNum);
TValueHolder<EBooleen, med_bool> anIsElemNum (anInfo.myIsElemNum);
TValueHolder<TElemNum, med_int> aFamNum (anInfo.myFamNum);
TValueHolder<EBooleen, med_bool> anIsFamNum (anInfo.myIsFamNum);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity (anInfo.myEntity);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (anInfo.myGeom);
TValueHolder<EConnectivite, med_connectivity_mode> aConnMode (anInfo.myConnMode);
TValueHolder<TInt, med_int> aNbElem (anInfo.myNbElem);
TErr aRet;
aRet = MEDmeshElementConnectivityWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_UNDEF_DT,
anEntity,
aGeom,
aConnMode,
aModeSwitch,
aNbElem,
&aConn);
MEDmeshEntityFamilyNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
aNbElem,
&aFamNum);
if (anIsElemNames)
MEDmeshEntityNameWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
aNbElem,
&anElemNames);
if (anIsElemNum)
MEDmeshEntityNumberWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
anEntity,
aGeom,
aNbElem,
&anElemNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetCellInfo - MEDmeshElementWr(...), ret="<< aRet);
}
//----------------------------------------------------------------------------
PCellInfo
TWrapper
::CrCellInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
TInt theNbElem,
EConnectivite theConnMode,
EBooleen theIsElemNum,
EBooleen theIsElemNames,
EModeSwitch theMode)
{
return PCellInfo(new TTCellInfo
(theMeshInfo,
theEntity,
theGeom,
theNbElem,
theConnMode,
theIsElemNum,
theIsElemNames,
theMode));
}
//----------------------------------------------------------------------------
PCellInfo
TWrapper
::CrCellInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
const TIntVector& theConnectivities,
EConnectivite theConnMode,
const TIntVector& theFamilyNums,
const TIntVector& theElemNums,
const TStringVector& theElemNames,
EModeSwitch theMode)
{
return PCellInfo(new TTCellInfo
(theMeshInfo,
theEntity,
theGeom,
theConnectivities,
theConnMode,
theFamilyNums,
theElemNums,
theElemNames,
theMode));
}
//----------------------------------------------------------------------------
PCellInfo
TWrapper
::CrCellInfo(const PMeshInfo& theMeshInfo,
const PCellInfo& theInfo)
{
return PCellInfo(new TTCellInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PCellInfo
TWrapper
::GetPCellInfo(const PMeshInfo& theMeshInfo,
EEntiteMaillage theEntity,
EGeometrieElement theGeom,
EConnectivite theConnMode,
TErr* theErr)
{
if (theMeshInfo->GetType() != eNON_STRUCTURE)
return PCellInfo();
TInt aNbElem = GetNbCells(theMeshInfo, theEntity, theGeom, theConnMode);
PCellInfo anInfo = CrCellInfo(theMeshInfo, theEntity, theGeom, aNbElem, theConnMode);
GetCellInfo(anInfo, theErr);
#ifdef _DEBUG_
TInt aConnDim = anInfo->GetConnDim();
INITMSG(MYDEBUG, "GetPCellInfo - theEntity = "<<theEntity<<"; theGeom = "<<theGeom<<"; aConnDim: "<<aConnDim<<"\n");
BEGMSG(MYDEBUG, "GetPCellInfo - aNbElem: "<<aNbElem<<": ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
TCConnSlice aConnSlice = anInfo->GetConnSlice(iElem);
for (TInt iConn = 0; iConn < aConnDim; iConn++) {
ADDMSG(MYVALUEDEBUG, aConnSlice[iConn]<<",");
}
ADDMSG(MYVALUEDEBUG, " ");
}
ADDMSG(MYDEBUG, std::endl);
BEGMSG(MYVALUEDEBUG, "GetPCellInfo - GetFamNum: ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetFamNum(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
if (anInfo->IsElemNum()) {
BEGMSG(MYVALUEDEBUG, "GetPCellInfo - GetElemNum: ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetElemNum(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
}
ADDMSG(MYDEBUG, std::endl);
#endif
return anInfo;
}
//----------------------------------------------------------------------------
EGeometrieElement
TWrapper
::GetBallGeom(const TMeshInfo& theMeshInfo)
{
TErr anError;
TFileWrapper aFileWrapper(myFile, eLECTURE, &anError, myMinor);
// read med_geometry_type of "MED_BALL" element
char geotypename[ MED_NAME_SIZE + 1] = MED_BALL_NAME;
return EGeometrieElement(MEDstructElementGeotype(myFile->Id(), geotypename));
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbBalls(const TMeshInfo& theMeshInfo)
{
TErr anError;
TFileWrapper aFileWrapper(myFile, eLECTURE, &anError, myMinor);
EGeometrieElement ballType = GetBallGeom(theMeshInfo);
if (ballType < 0)
return 0;
return GetNbCells(theMeshInfo, eSTRUCT_ELEMENT, ballType, eNOD);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetBallInfo(TBallInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
// check geometry of MED_BALL
if (theInfo.myGeom == eBALL)
{
theInfo.myGeom = GetBallGeom(*theInfo.myMeshInfo);
if (theInfo.myGeom < 0) {
if (!theErr)
EXCEPTION(std::runtime_error, "GetBallInfo - no balls in the mesh");
*theErr = theInfo.myGeom;
return;
}
}
// read nodes ids
GetCellInfo(theInfo);
// read diameters
TValueHolder<TString, char> aMeshName (theInfo.myMeshInfo->myName);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (theInfo.myGeom);
TValueHolder<TFloatVector, void> aDiam (theInfo.myDiameters);
char varattname[ MED_NAME_SIZE + 1] = MED_BALL_DIAMETER;
TErr aRet = MEDmeshStructElementVarAttRd(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
aGeom,
varattname,
&aDiam);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetBallInfo - pb at reading diameters");
}
//----------------------------------------------------------------------------
void
TWrapper
::SetBallInfo(const TBallInfo& theInfo,
TErr* theErr)
{
SetBallInfo(theInfo, eLECTURE_ECRITURE, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetBallInfo(const TBallInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
TErr ret;
char ballsupportname[MED_NAME_SIZE+1] = "BALL_SUPPORT_MESH";
EGeometrieElement ballGeom = GetBallGeom(*theInfo.myMeshInfo);
if (ballGeom < 0)
{
// no ball model in the file, create support mesh for it
char dummyname [MED_NAME_SIZE*3+1] = "";
if ((ret = MEDsupportMeshCr(myFile->Id(),
ballsupportname,
theInfo.myMeshInfo->GetSpaceDim(),
theInfo.myMeshInfo->GetDim(),
"Support mesh for a ball model",
MED_CARTESIAN,
/*axisname=*/dummyname,
/*unitname=*/dummyname)) < 0) {
if (!theErr)
EXCEPTION(std::runtime_error, "SetBallInfo - MEDsupportMeshCr");
*theErr = ret;
return;
}
// write coordinates of 1 node
med_float coord[3] = {0, 0, 0};
if ((ret = MEDmeshNodeCoordinateWr(myFile->Id(),
ballsupportname, MED_NO_DT, MED_NO_IT, 0.0,
MED_FULL_INTERLACE, /*nnode=*/1, coord)) < 0) {
if (!theErr)
EXCEPTION(std::runtime_error, "SetBallInfo - MEDmeshNodeCoordinateWr");
*theErr = ret;
return;
}
// ball model creation
char geotypename[ MED_NAME_SIZE + 1] = MED_BALL_NAME;
if ((ballGeom = (EGeometrieElement) MEDstructElementCr(myFile->Id(),
geotypename,
theInfo.myMeshInfo->GetSpaceDim(),
ballsupportname,
MED_NODE,MED_NONE)) < 0) {
if (!theErr)
EXCEPTION(std::runtime_error, "SetBallInfo - MEDstructElementCr");
*theErr = ret;
return;
}
// create diameter attribute
if ((ret = MEDstructElementVarAttCr(myFile->Id(),
geotypename, MED_BALL_DIAMETER,
MED_ATT_FLOAT64, /*ncomp=*/1)) < 0) {
if (!theErr)
EXCEPTION(std::runtime_error, "SetBallInfo - MEDstructElementVarAttCr");
*theErr = ret;
return;
}
} // ballGeom < 0
TBallInfo& aBallInfo = ((TBallInfo&) theInfo);
aBallInfo.myGeom = ballGeom;
// write node ids
SetCellInfo(theInfo, theMode, theErr);
if (theErr && theErr < 0)
return;
// write diameter
TValueHolder<TString, char> aMeshName (aBallInfo.myMeshInfo->myName);
TValueHolder<EGeometrieElement, med_geometry_type> aGeom (aBallInfo.myGeom);
TValueHolder<TFloatVector, void> aDiam (aBallInfo.myDiameters);
ret = MEDmeshStructElementVarAttWr(myFile->Id(), &aMeshName,
MED_NO_DT, MED_NO_IT,
aGeom, MED_BALL_DIAMETER,
theInfo.myNbElem, &aDiam);
if (theErr)
*theErr = ret;
else if (ret < 0)
EXCEPTION(std::runtime_error, "SetBallInfo - MEDmeshStructElementVarAttWr");
}
//----------------------------------------------------------------------------
PBallInfo
TWrapper
::CrBallInfo(const PMeshInfo& theMeshInfo,
TInt theNbBalls,
EBooleen theIsElemNum)
{
return PBallInfo(new TTBallInfo(theMeshInfo, theNbBalls, theIsElemNum));
}
//----------------------------------------------------------------------------
PBallInfo
TWrapper
::CrBallInfo(const PMeshInfo& theMeshInfo,
const TIntVector& theNodes,
TFloatVector& theDiameters,
const TIntVector& theFamilyNums,
const TIntVector& theElemNums)
{
return PBallInfo(new TTBallInfo(theMeshInfo, theNodes, theDiameters,
theFamilyNums, theElemNums));
}
//----------------------------------------------------------------------------
PBallInfo
TWrapper
::CrBallInfo(const PMeshInfo& theMeshInfo,
const PBallInfo& theInfo)
{
return PBallInfo(new TTBallInfo(theMeshInfo, theInfo));
}
//----------------------------------------------------------------------------
PBallInfo
TWrapper
::GetPBallInfo(const PMeshInfo& theMeshInfo)
{
TInt nbBalls = GetNbBalls(theMeshInfo);
if (nbBalls < 1) return PBallInfo();
PBallInfo anInfo = CrBallInfo(theMeshInfo, nbBalls);
GetBallInfo(anInfo);
return anInfo;
}
//-----------------------------------------------------------------
TInt
TWrapper
::GetNbFields(TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
return MEDnField(myFile->Id());
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbComp(TInt theFieldId,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
return MEDfieldnComponent(myFile->Id(), theFieldId);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetFieldInfo(TInt theFieldId,
MED::TFieldInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TString aFieldName(256); // Protect from memory problems with too long names
TValueHolder<ETypeChamp, med_field_type> aType(theInfo.myType);
TValueHolder<TString, char> aCompNames(theInfo.myCompNames);
TValueHolder<TString, char> anUnitNames(theInfo.myUnitNames);
MED::TMeshInfo& aMeshInfo = theInfo.myMeshInfo;
TErr aRet;
med_bool local;
char dtunit[MED_SNAME_SIZE+1];
char local_mesh_name[MED_NAME_SIZE+1]="";
med_int nbofstp;
theInfo.myNbComp = MEDfieldnComponent(myFile->Id(), theFieldId);
aRet = MEDfieldInfo(myFile->Id(),
theFieldId,
&aFieldName[0],
local_mesh_name,
&local,
&aType,
&aCompNames,
&anUnitNames,
dtunit,
&nbofstp);
if (strcmp(&aMeshInfo.myName[0], local_mesh_name) != 0) {
if (theErr)
*theErr = -1;
return;
}
theInfo.SetName(aFieldName);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetFieldInfo - MEDfieldInfo(...)");
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFieldInfo(const MED::TFieldInfo& theInfo,
TErr* theErr)
{
TErr aRet;
SetFieldInfo(theInfo, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetFieldInfo(theInfo, eLECTURE_AJOUT, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetFieldInfo(const MED::TFieldInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TFieldInfo& anInfo = const_cast<MED::TFieldInfo&>(theInfo);
TValueHolder<TString, char> aFieldName(anInfo.myName);
TValueHolder<ETypeChamp, med_field_type> aType(anInfo.myType);
TValueHolder<TString, char> aCompNames(anInfo.myCompNames);
TValueHolder<TString, char> anUnitNames(anInfo.myUnitNames);
MED::TMeshInfo& aMeshInfo = anInfo.myMeshInfo;
TErr aRet;
char dtunit[MED_SNAME_SIZE+1];
std::fill(dtunit, dtunit+MED_SNAME_SIZE+1, '\0');
aRet = MEDfieldCr(myFile->Id(),
&aFieldName,
aType,
anInfo.myNbComp,
&aCompNames,
&anUnitNames,
dtunit,
&aMeshInfo.myName[0]);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetFieldInfo - MEDfieldCr(...)");
}
//----------------------------------------------------------------------------
PFieldInfo
TWrapper
::CrFieldInfo(const PMeshInfo& theMeshInfo,
TInt theNbComp,
ETypeChamp theType,
const std::string& theValue,
EBooleen theIsLocal,
TInt theNbRef)
{
return PFieldInfo(new TTFieldInfo
(theMeshInfo,
theNbComp,
theType,
theValue,
theIsLocal,
theNbRef));
}
//----------------------------------------------------------------------------
PFieldInfo
TWrapper
::CrFieldInfo(const PMeshInfo& theMeshInfo,
const PFieldInfo& theInfo)
{
return PFieldInfo(new TTFieldInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PFieldInfo
TWrapper
::GetPFieldInfo(const PMeshInfo& theMeshInfo,
TInt theId,
TErr* theErr)
{
TInt aNbComp = GetNbComp(theId);
PFieldInfo anInfo = CrFieldInfo(theMeshInfo, aNbComp);
GetFieldInfo(theId, *anInfo, theErr);
#ifdef _DEBUG_
INITMSG(MYDEBUG,
"GetPFieldInfo "<<
"- aName = '"<<anInfo->GetName()<<"'"<<
"; aType = "<<anInfo->GetType()<<
"; aNbComp = "<<aNbComp<<
std::endl);
#endif
return anInfo;
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbGauss(TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
return MEDnLocalization(myFile->Id());
}
//----------------------------------------------------------------------------
TGaussInfo::TInfo
TWrapper
::GetGaussPreInfo(TInt theId,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return TGaussInfo::TInfo(TGaussInfo::TKey(ePOINT1, ""), 0);
med_int aNbGaussPoints = med_int();
TVector<char> aName(GetNOMLength()+1);
med_geometry_type aGeom = MED_NONE;
TErr aRet;
med_int dim;
char geointerpname[MED_NAME_SIZE+1] = "";
char ipointstructmeshname[MED_NAME_SIZE+1] = "";
med_int nsectionmeshcell;
med_geometry_type sectiongeotype;
aRet = MEDlocalizationInfo (myFile->Id(),
theId,
&aName[0],
&aGeom,
&dim,
&aNbGaussPoints,
geointerpname,
ipointstructmeshname,
&nsectionmeshcell,
§iongeotype);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGaussPreInfo - MEDlocalizationInfo(...)");
return TGaussInfo::TInfo(TGaussInfo::TKey(EGeometrieElement(aGeom), &aName[0]),
TInt(aNbGaussPoints));
}
//----------------------------------------------------------------------------
void
TWrapper
::GetGaussInfo(TInt theId,
TGaussInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TValueHolder<TNodeCoord, med_float> aRefCoord(theInfo.myRefCoord);
TValueHolder<TNodeCoord, med_float> aGaussCoord(theInfo.myGaussCoord);
TValueHolder<TWeight, med_float> aWeight(theInfo.myWeight);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(theInfo.myModeSwitch);
TValueHolder<TString, char> aGaussName(theInfo.myName);
TErr aRet;
aRet = MEDlocalizationRd(myFile->Id(),
&aGaussName,
aModeSwitch,
&aRefCoord,
&aGaussCoord,
&aWeight);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGaussInfo - MEDlocalizationRd(...)");
}
//----------------------------------------------------------------------------
PGaussInfo
TWrapper
::CrGaussInfo(const TGaussInfo::TInfo& theInfo,
EModeSwitch theMode)
{
return PGaussInfo(new TTGaussInfo
(theInfo,
theMode));
}
//-----------------------------------------------------------------
TInt
TWrapper
::GetNbTimeStamps(const MED::TFieldInfo& theInfo,
const MED::TEntityInfo& theEntityInfo,
EEntiteMaillage& theEntity,
TGeom2Size& theGeom2Size,
TErr* theErr)
{
theEntity = EEntiteMaillage(-1);
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr) {
if (theEntityInfo.empty())
*theErr = -1;
if (*theErr < 0)
return -1;
}
else if (theEntityInfo.empty())
EXCEPTION(std::runtime_error, "GetNbTimeStamps - There is no any Entity on the Mesh");
bool anIsPerformAdditionalCheck = GetNbMeshes() > 1;
theGeom2Size.clear();
TInt aNbTimeStamps = 0;
TIdt anId = myFile->Id();
MED::TFieldInfo& anInfo = const_cast<MED::TFieldInfo&>(theInfo);
TValueHolder<TString, char> aFieldName(anInfo.myName);
MED::TMeshInfo& aMeshInfo = anInfo.myMeshInfo;
// workaround for IPAL13676
MED::TEntityInfo localEntityInfo = theEntityInfo;
TEntityInfo::iterator anLocalIter = localEntityInfo.find(eMAILLE);
if (anLocalIter != localEntityInfo.end()) {
localEntityInfo[eNOEUD_ELEMENT] = anLocalIter->second;
}
TEntityInfo::const_iterator anIter = localEntityInfo.begin();
for (; anIter != localEntityInfo.end(); anIter++) {
med_entity_type anEntity = med_entity_type(anIter->first);
const TGeom2Size& aGeom2Size = anIter->second;
TGeom2Size::const_iterator anGeomIter = aGeom2Size.begin();
for (; anGeomIter != aGeom2Size.end(); anGeomIter++) {
med_geometry_type aGeom = med_geometry_type(anGeomIter->first);
char aMeshName[MED_NAME_SIZE+1];
med_bool islocal;
med_field_type ft;
char dtunit[MED_SNAME_SIZE+1];
med_int myNbComp = MEDfieldnComponentByName(anId, &aFieldName);
char *cname=new char[myNbComp*MED_SNAME_SIZE+1];
char *unitname=new char[myNbComp*MED_SNAME_SIZE+1];
TInt aNbStamps;
MEDfieldInfoByName(anId,
&aFieldName,
aMeshName,
&islocal,
&ft,
cname,
unitname,
dtunit,
&aNbStamps);
delete [] cname;
delete [] unitname;
med_int nval = 0;
med_int aNumDt;
med_int aNumOrd;
med_float aDt;
if (aNbStamps > 0)
{
MEDfieldComputingStepInfo(anId,
&aFieldName,
1,
&aNumDt,
&aNumOrd,
&aDt);
char profilename[MED_NAME_SIZE+1];
char locname[MED_NAME_SIZE+1];
med_int profilsize;
med_int aNbGauss;
// protection from crash (division by zero)
// inside MEDfieldnValueWithProfile function
// caused by the workaround for IPAL13676 (see above)
if (anEntity == MED_NODE_ELEMENT && aGeom % 100 == 0)
continue;
nval = MEDfieldnValueWithProfile(anId,
&aFieldName,
aNumDt,
aNumOrd,
anEntity,
med_geometry_type(aGeom),
1,
MED_COMPACT_STMODE,
profilename,
&profilsize,
locname,
&aNbGauss);
}
bool anIsSatisfied =(nval > 0);
if (anIsSatisfied) {
INITMSG(MYDEBUG,
"GetNbTimeStamps aNbTimeStamps = "<<aNbStamps<<
"; aGeom = "<<aGeom<<"; anEntity = "<<anEntity<<"\n");
if (anIsPerformAdditionalCheck) {
anIsSatisfied = !strcmp(&aMeshName[0], &aMeshInfo.myName[0]);
if (!anIsSatisfied) {
INITMSG(MYDEBUG,
"GetNbTimeStamps aMeshName = '"<<&aMeshName[0]<<"' != "<<
"; aMeshInfo.myName = '"<<&aMeshInfo.myName[0]<<"'\n");
}
}
}
if (anIsSatisfied) {
theGeom2Size[EGeometrieElement(aGeom)] = anGeomIter->second;
theEntity = EEntiteMaillage(anEntity);
aNbTimeStamps = aNbStamps;
}
}
if (!theGeom2Size.empty())
break;
}
return aNbTimeStamps;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetTimeStampInfo(TInt theTimeStampId,
MED::TTimeStampInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
const TGeom2Size& aGeom2Size = theInfo.myGeom2Size;
if (theErr) {
if (aGeom2Size.empty())
*theErr = -1;
if (*theErr < 0)
return;
}
else if (aGeom2Size.empty())
EXCEPTION(std::runtime_error, "GetTimeStampInfo - There is no any cell");
MED::TFieldInfo& aFieldInfo = *theInfo.myFieldInfo;
MED::TMeshInfo& aMeshInfo = *aFieldInfo.myMeshInfo;
TValueHolder<TString, char> aFieldName(aFieldInfo.myName);
TValueHolder<EEntiteMaillage, med_entity_type> anEntity(theInfo.myEntity);
TValueHolder<TInt, med_int> aNumDt(theInfo.myNumDt);
TValueHolder<TInt, med_int> aNumOrd(theInfo.myNumOrd);
TValueHolder<TString, char> anUnitDt(theInfo.myUnitDt);
TValueHolder<TFloat, med_float> aDt(theInfo.myDt);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<EBooleen, med_bool> anIsLocal(aFieldInfo.myIsLocal);
TValueHolder<TInt, med_int> aNbRef(aFieldInfo.myNbRef);
TGeom2NbGauss& aGeom2NbGauss = theInfo.myGeom2NbGauss;
// just to get a time stamp unit (anUnitDt)
med_field_type aFieldType;
med_int aNbComp = MEDfieldnComponentByName(myFile->Id(), &aFieldName);
char *aCompName = new char[aNbComp*MED_SNAME_SIZE+1];
char *aCompUnit = new char[aNbComp*MED_SNAME_SIZE+1];
TInt aNbStamps;
MEDfieldInfoByName(myFile->Id(),
&aFieldName,
&aMeshName,
&anIsLocal,
&aFieldType,
aCompName,
aCompUnit,
&anUnitDt,
&aNbStamps);
delete [] aCompName;
delete [] aCompUnit;
TGeom2Size::const_iterator anIter = aGeom2Size.begin();
for (; anIter != aGeom2Size.end(); anIter++) {
const EGeometrieElement& aGeom = anIter->first;
med_int aNbGauss = -1;
TErr aRet;
aRet = MEDfieldComputingStepInfo(myFile->Id(),
&aFieldName,
theTimeStampId,
&aNumDt,
&aNumOrd,
&aDt);
char profilename[MED_NAME_SIZE+1];
med_int profilsize;
char locname[MED_NAME_SIZE+1];
MEDfieldnValueWithProfile(myFile->Id(),
&aFieldName,
aNumDt,
aNumOrd,
anEntity,
med_geometry_type(aGeom),
1,
MED_COMPACT_STMODE,
profilename,
&profilsize,
locname,
&aNbGauss);
static TInt MAX_NB_GAUSS_POINTS = 32;
if (aNbGauss <= 0 || aNbGauss > MAX_NB_GAUSS_POINTS)
aNbGauss = 1;
aGeom2NbGauss[aGeom] = aNbGauss;
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetTimeStampInfo - MEDfieldnValueWithProfile(...)");
}
}
//----------------------------------------------------------------------------
PTimeStampInfo
TWrapper
::CrTimeStampInfo(const PFieldInfo& theFieldInfo,
EEntiteMaillage theEntity,
const TGeom2Size& theGeom2Size,
const TGeom2NbGauss& theGeom2NbGauss,
TInt theNumDt,
TInt theNumOrd,
TFloat theDt,
const std::string& theUnitDt,
const TGeom2Gauss& theGeom2Gauss)
{
return PTimeStampInfo(new TTTimeStampInfo
(theFieldInfo,
theEntity,
theGeom2Size,
theGeom2NbGauss,
theNumDt,
theNumOrd,
theDt,
theUnitDt,
theGeom2Gauss));
}
//----------------------------------------------------------------------------
PTimeStampInfo
TWrapper
::CrTimeStampInfo(const PFieldInfo& theFieldInfo,
const PTimeStampInfo& theInfo)
{
return PTimeStampInfo(new TTTimeStampInfo
(theFieldInfo,
theInfo));
}
//----------------------------------------------------------------------------
PTimeStampInfo
TWrapper
::GetPTimeStampInfo(const PFieldInfo& theFieldInfo,
EEntiteMaillage theEntity,
const TGeom2Size& theGeom2Size,
TInt theId,
TErr* theErr)
{
PTimeStampInfo anInfo = CrTimeStampInfo(theFieldInfo, theEntity, theGeom2Size);
GetTimeStampInfo(theId, *anInfo, theErr);
#ifdef _DEBUG_
INITMSG(MYDEBUG, "GetPTimeStampInfo - anEntity = "<<anInfo->GetEntity()<<"\n");
TGeom2NbGauss& aGeom2NbGauss = anInfo->myGeom2NbGauss;
TGeom2NbGauss::const_iterator anIter = aGeom2NbGauss.begin();
for (; anIter != aGeom2NbGauss.end(); anIter++) {
const EGeometrieElement& aGeom = anIter->first;
INITMSG(MYDEBUG, "aGeom = "<<aGeom<<" - "<<aGeom2NbGauss[aGeom]<<";\n");
}
#endif
return anInfo;
}
//----------------------------------------------------------------------------
TInt
TWrapper
::GetNbProfiles(TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return -1;
return MEDnProfile(myFile->Id());
}
//----------------------------------------------------------------------------
TProfileInfo::TInfo
TWrapper
::GetProfilePreInfo(TInt theId,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return TProfileInfo::TInfo();
med_int aSize = -1;
TVector<char> aName(GetNOMLength()+1);
TErr aRet;
aRet = MEDprofileInfo(myFile->Id(),
theId,
&aName[0],
&aSize);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetProfilePreInfo - MEDprofileInfo(...)");
return TProfileInfo::TInfo(&aName[0], aSize);
}
//----------------------------------------------------------------------------
void
TWrapper
::GetProfileInfo(TInt theId,
TProfileInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TProfileInfo& anInfo = const_cast<TProfileInfo&>(theInfo);
TValueHolder<TElemNum, med_int> anElemNum(anInfo.myElemNum);
TValueHolder<TString, char> aProfileName(anInfo.myName);
TErr aRet;
aRet = MEDprofileRd(myFile->Id(),
&aProfileName,
&anElemNum);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetProfileInfo - MEDprofileRd(...)");
}
//----------------------------------------------------------------------------
void
TWrapper
::SetProfileInfo(const TProfileInfo& theInfo,
TErr* theErr)
{
TErr aRet;
SetProfileInfo(theInfo, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetProfileInfo(theInfo, eLECTURE_AJOUT, &aRet);
if (aRet < 0)
SetProfileInfo(theInfo, eCREATION, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetProfileInfo(const TProfileInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TProfileInfo& anInfo = const_cast<TProfileInfo&>(theInfo);
TValueHolder<TElemNum, med_int> anElemNum(anInfo.myElemNum);
TValueHolder<TString, char> aProfileName(anInfo.myName);
TErr aRet;
aRet = MEDprofileWr(myFile->Id(), // descripteur du fichier.
&aProfileName, // tableau de valeurs du profil.
theInfo.GetSize(), // taille du profil.
&anElemNum); // nom profil.
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetProfileInfo - MEDprofileWr(...)");
}
//----------------------------------------------------------------------------
PProfileInfo
TWrapper
::CrProfileInfo(const TProfileInfo::TInfo& theInfo,
EModeProfil theMode)
{
return PProfileInfo(new TTProfileInfo
(theInfo,
theMode));
}
//----------------------------------------------------------------------------
PProfileInfo
TWrapper
::GetPProfileInfo(TInt theId,
EModeProfil theMode,
TErr* theErr)
{
TProfileInfo::TInfo aPreInfo = GetProfilePreInfo(theId);
PProfileInfo anInfo = CrProfileInfo(aPreInfo, theMode);
GetProfileInfo(theId, *anInfo, theErr);
return anInfo;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetTimeStampValue(const PTimeStampValueBase& theTimeStampValue,
const TMKey2Profile& theMKey2Profile,
const TKey2Gauss& theKey2Gauss,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TIdt anId = myFile->Id();
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(theTimeStampValue->myModeSwitch);
MED::TGeom2Profile& aGeom2Profile = theTimeStampValue->myGeom2Profile;
MED::PTimeStampInfo aTimeStampInfo = theTimeStampValue->myTimeStampInfo;
TValueHolder<EEntiteMaillage, med_entity_type> anEntity(aTimeStampInfo->myEntity);
TValueHolder<TInt, med_int> aNumDt(aTimeStampInfo->myNumDt);
TValueHolder<TInt, med_int> aNumOrd(aTimeStampInfo->myNumOrd);
MED::PFieldInfo aFieldInfo = aTimeStampInfo->myFieldInfo;
TValueHolder<TString, char> aFieldName(aFieldInfo->myName);
TValueHolder<EBooleen, med_bool> anIsLocal(aFieldInfo->myIsLocal);
MED::PMeshInfo aMeshInfo = aFieldInfo->myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo->myName);
TGeom2Gauss& aGeom2Gauss = aTimeStampInfo->myGeom2Gauss;
TVector<char> aGaussName(GetNOMLength()+1);
med_storage_mode aProfileMode = med_storage_mode(boost::get<0>(theMKey2Profile));
MED::TKey2Profile aKey2Profile = boost::get<1>(theMKey2Profile);
TVector<char> aProfileName(GetNOMLength()+1);
TGeom2Size& aGeom2Size = aTimeStampInfo->myGeom2Size;
TGeom2Size::iterator anIter = aGeom2Size.begin();
for (; anIter != aGeom2Size.end(); anIter++) {
EGeometrieElement aGeom = anIter->first;
TInt aNbElem = anIter->second;
med_int profilesize, aNbGauss;
TInt aNbVal = MEDfieldnValueWithProfile(anId,
&aFieldName,
aNumDt,
aNumOrd,
anEntity,
med_geometry_type(aGeom),
1,
aProfileMode,
&aProfileName[0],
&profilesize,
&aGaussName[0],
&aNbGauss);
if (aNbVal <= 0) {
if (theErr) {
*theErr = -1;
return;
}
EXCEPTION(std::runtime_error, "GetTimeStampValue - MEDfieldnValueWithProfile(...) - aNbVal == "<<aNbVal<<" <= 0");
}
TInt aNbComp = aFieldInfo->myNbComp;
TInt aNbValue = aNbVal;// / aNbGauss; rules in MED changed
theTimeStampValue->AllocateValue(aGeom,
aNbValue,
aNbGauss,
aNbComp);
TInt aValueSize = theTimeStampValue->GetValueSize(aGeom);
INITMSG(MYDEBUG,
"TWrapper::GetTimeStampValue - aGeom = "<<aGeom<<
"; aNbVal = "<<aNbVal<<
"; aNbValue = "<<aNbValue<<
"; aNbGauss = "<<aNbGauss<<
"; aNbComp = "<<aNbComp<<
std::endl);
TErr aRet = MEDfieldValueWithProfileRd(anId,
&aFieldName,
aNumDt,
aNumOrd,
anEntity,
med_geometry_type(aGeom),
aProfileMode,
&aProfileName[0],
aModeSwitch,
MED_ALL_CONSTITUENT,
theTimeStampValue->GetValuePtr(aGeom));
if (aRet < 0) {
if (theErr) {
*theErr = MED_FALSE;
return;
}
EXCEPTION(std::runtime_error, "GetTimeStampValue - MEDfieldValueWithProfileRd(...)");
}
MED::PGaussInfo aGaussInfo;
TGaussInfo::TKey aKey(aGeom, &aGaussName[0]);
if (strcmp(&aGaussName[0], "") != 0) {
MED::TKey2Gauss::const_iterator anIter = theKey2Gauss.find(aKey);
if (anIter != theKey2Gauss.end()) {
aGaussInfo = anIter->second;
aGeom2Gauss[aGeom] = aGaussInfo;
}
}
MED::PProfileInfo aProfileInfo;
if (strcmp(&aProfileName[0], MED_NO_PROFILE) != 0) {
MED::TKey2Profile::const_iterator anIter = aKey2Profile.find(&aProfileName[0]);
if (anIter != aKey2Profile.end()) {
aProfileInfo = anIter->second;
aGeom2Profile[aGeom] = aProfileInfo;
}
}
if (aGaussInfo && aNbGauss != aGaussInfo->GetNbGauss()) {
if (theErr) {
*theErr = MED_FALSE;
return;
}
EXCEPTION(std::runtime_error, "GetTimeStampValue - aNbGauss != aGaussInfo->GetNbGauss()");
}
if (aProfileInfo && aProfileInfo->IsPresent()) {
TInt aNbSubElem = aProfileInfo->GetSize();
TInt aProfileSize = aNbSubElem*aNbComp*aNbGauss;
if (aProfileSize != aValueSize) {
if (theErr) {
*theErr = -1;
return;
}
EXCEPTION(std::runtime_error,
"GetTimeStampValue - aProfileSize("<<aProfileSize<<
") != aValueSize("<<aValueSize<<
"); aNbVal = "<<aNbVal<<
"; anEntity = "<<anEntity<<
"; aGeom = "<<aGeom<<
"; aNbElem = "<<aNbElem<<
"; aNbSubElem = "<<aNbSubElem<<
"; aNbComp = "<<aNbComp<<
"; aNbGauss = "<<aNbGauss<<
"");
}
}
else{
if ((aProfileMode == MED_GLOBAL_STMODE) && (aNbElem != aNbValue)) {
if (theErr) {
*theErr = -1;
return;
}
EXCEPTION(std::runtime_error,
"GetTimeStampValue - aNbElem("<<aNbElem<<
") != aNbValue("<<aNbValue<<
"); aNbVal = "<<aNbVal<<
"; anEntity = "<<anEntity<<
"; aGeom = "<<aGeom<<
"; aNbElem = "<<aNbElem<<
"; aNbComp = "<<aNbComp<<
"; aNbGauss = "<<aNbGauss<<
"");
}
}
}
}
//----------------------------------------------------------------------------
void
TWrapper
::SetTimeStampValue(const PTimeStampValueBase& theTimeStampValue,
TErr* theErr)
{
TErr aRet;
SetTimeStampValue(theTimeStampValue, eLECTURE_ECRITURE, &aRet);
if (aRet < 0)
SetTimeStampValue(theTimeStampValue, eLECTURE_AJOUT, &aRet);
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetTimeStampValue(const MED::PTimeStampValueBase& theTimeStampValue,
EModeAcces theMode,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TErr aRet;
TIdt anId = myFile->Id();
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(theTimeStampValue->myModeSwitch);
MED::TGeom2Profile& aGeom2Profile = theTimeStampValue->myGeom2Profile;
MED::PTimeStampInfo aTimeStampInfo = theTimeStampValue->myTimeStampInfo;
TValueHolder<EEntiteMaillage, med_entity_type> anEntity(aTimeStampInfo->myEntity);
TValueHolder<TInt, med_int> aNumDt(aTimeStampInfo->myNumDt);
TValueHolder<TInt, med_int> aNumOrd(aTimeStampInfo->myNumOrd);
TValueHolder<TString, char> anUnitDt(aTimeStampInfo->myUnitDt);
TValueHolder<TFloat, med_float> aDt(aTimeStampInfo->myDt);
MED::TGeom2Gauss& aGeom2Gauss = aTimeStampInfo->myGeom2Gauss;
MED::PFieldInfo aFieldInfo = aTimeStampInfo->myFieldInfo;
TValueHolder<TString, char> aFieldName(aFieldInfo->myName);
MED::PMeshInfo aMeshInfo = aFieldInfo->myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo->myName);
const TGeomSet& aGeomSet = theTimeStampValue->myGeomSet;
TGeomSet::const_iterator anIter = aGeomSet.begin();
for (; anIter != aGeomSet.end(); anIter++) {
EGeometrieElement aGeom = *anIter;
TVector<char> aGaussName(GetNOMLength()+1);
MED::TGeom2Gauss::const_iterator aGaussIter = aGeom2Gauss.find(aGeom);
if (aGaussIter != aGeom2Gauss.end()) {
MED::PGaussInfo aGaussInfo = aGaussIter->second;
strcpy(&aGaussName[0], &aGaussInfo->myName[0]);
}
TVector<char> aProfileName(GetNOMLength()+1);
med_storage_mode aProfileMode = med_storage_mode(eNO_PFLMOD);
MED::TGeom2Profile::const_iterator aProfileIter = aGeom2Profile.find(aGeom);
if (aProfileIter != aGeom2Profile.end()) {
MED::PProfileInfo aProfileInfo = aProfileIter->second;
aProfileMode = med_storage_mode(aProfileInfo->myMode);
strcpy(&aProfileName[0], &aProfileInfo->myName[0]);
}
med_int aNbVal = theTimeStampValue->GetNbVal(aGeom);
aRet = MEDfieldValueWithProfileWr(anId,
&aFieldName,
aNumDt,
aNumOrd,
aDt,
anEntity,
med_geometry_type(aGeom),
aProfileMode,
&aProfileName[0],
&aGaussName[0],
aModeSwitch,
MED_ALL_CONSTITUENT,
aNbVal,
theTimeStampValue->GetValuePtr(aGeom));
if (aRet < 0) {
if (theErr) {
*theErr = MED_FALSE;
break;
}
EXCEPTION(std::runtime_error, "SetTimeStampValue - MEDfieldValueWithProfileWr(...)");
}
}
INITMSG(MYDEBUG, "TWrapper::SetTimeStampValue - MED_MODE_ACCES = "<<theMode<<"; aRet = "<<aRet<<std::endl);
}
//----------------------------------------------------------------------------
PTimeStampValueBase
TWrapper
::CrTimeStampValue(const PTimeStampInfo& theTimeStampInfo,
ETypeChamp theTypeChamp,
const TGeom2Profile& theGeom2Profile,
EModeSwitch theMode)
{
if (theTypeChamp == eFLOAT64)
return PTimeStampValueBase(new TTTimeStampValue<TFloatMeshValue>
(theTimeStampInfo,
theTypeChamp,
theGeom2Profile,
theMode));
return PTimeStampValueBase(new TTTimeStampValue<TIntMeshValue>
(theTimeStampInfo,
theTypeChamp,
theGeom2Profile,
theMode));
}
//----------------------------------------------------------------------------
PTimeStampValueBase
TWrapper
::CrTimeStampValue(const PTimeStampInfo& theTimeStampInfo,
const TGeom2Profile& theGeom2Profile,
EModeSwitch theMode)
{
PFieldInfo aFieldInfo = theTimeStampInfo->GetFieldInfo();
return CrTimeStampValue(theTimeStampInfo,
aFieldInfo->GetType(),
theGeom2Profile,
theMode);
}
//----------------------------------------------------------------------------
PTimeStampValueBase
TWrapper
::CrTimeStampValue(const PTimeStampInfo& theTimeStampInfo,
const PTimeStampValueBase& theInfo,
ETypeChamp theTypeChamp)
{
if (theTypeChamp == eFLOAT64)
return PTimeStampValueBase(new TTTimeStampValue<TFloatMeshValue>
(theTimeStampInfo,
theInfo,
theTypeChamp));
return PTimeStampValueBase(new TTTimeStampValue<TIntMeshValue>
(theTimeStampInfo,
theInfo,
theTypeChamp));
}
//----------------------------------------------------------------------------
PTimeStampValueBase
TWrapper
::CrTimeStampValue(const PTimeStampInfo& theTimeStampInfo,
const PTimeStampValueBase& theInfo)
{
PFieldInfo aFieldInfo = theTimeStampInfo->GetFieldInfo();
return CrTimeStampValue(theTimeStampInfo,
theInfo,
aFieldInfo->GetType());
}
//----------------------------------------------------------------------------
PTimeStampValueBase
TWrapper
::GetPTimeStampValue(const PTimeStampInfo& theTimeStampInfo,
const TMKey2Profile& theMKey2Profile,
const TKey2Gauss& theKey2Gauss,
TErr* theErr)
{
PFieldInfo aFieldInfo = theTimeStampInfo->GetFieldInfo();
PTimeStampValueBase anInfo = CrTimeStampValue(theTimeStampInfo,
aFieldInfo->GetType());
GetTimeStampValue(anInfo,
theMKey2Profile,
theKey2Gauss,
theErr);
#ifdef _DEBUG_
if (aFieldInfo->GetType() == eFLOAT64)
Print<TFloatTimeStampValue>(anInfo);
else
Print<TIntTimeStampValue>(anInfo);
#endif
return anInfo;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetTimeStampVal(const PTimeStampVal& theVal,
const TMKey2Profile& theMKey2Profile,
const TKey2Gauss& theKey2Gauss,
TErr* theErr)
{
PTimeStampInfo aTimeStampInfo = theVal->GetTimeStampInfo();
PFieldInfo aFieldInfo = aTimeStampInfo->GetFieldInfo();
if (aFieldInfo->GetType() == eFLOAT64)
GetTimeStampValue(theVal,
theMKey2Profile,
theKey2Gauss,
theErr);
else{
PTimeStampValueBase aVal = CrTimeStampValue(aTimeStampInfo,
theVal,
eINT);
GetTimeStampValue(aVal,
theMKey2Profile,
theKey2Gauss,
theErr);
CopyTimeStampValueBase(aVal, theVal);
}
}
//----------------------------------------------------------------------------
void
TWrapper
::SetTimeStamp(const PTimeStampVal& theVal,
TErr* theErr)
{
PTimeStampInfo aTimeStampInfo = theVal->GetTimeStampInfo();
PFieldInfo aFieldInfo = aTimeStampInfo->GetFieldInfo();
if (aFieldInfo->GetType() == eFLOAT64)
SetTimeStampValue(theVal, theErr);
else{
PTimeStampValueBase aVal = CrTimeStampValue(aTimeStampInfo,
eINT,
theVal->GetGeom2Profile(),
theVal->GetModeSwitch());
CopyTimeStampValueBase(theVal, aVal);
SetTimeStampValue(aVal, theErr);
}
}
//----------------------------------------------------------------------------
PTimeStampVal
TWrapper
::CrTimeStampVal(const PTimeStampInfo& theTimeStampInfo,
const TGeom2Profile& theGeom2Profile,
EModeSwitch theMode)
{
return CrTimeStampValue(theTimeStampInfo,
eFLOAT64,
theGeom2Profile,
theMode);
}
//----------------------------------------------------------------------------
PTimeStampVal
TWrapper
::CrTimeStampVal(const PTimeStampInfo& theTimeStampInfo,
const PTimeStampVal& theInfo)
{
return CrTimeStampValue(theTimeStampInfo,
theInfo,
eFLOAT64);
}
//----------------------------------------------------------------------------
PTimeStampVal
TWrapper
::GetPTimeStampVal(const PTimeStampInfo& theTimeStampInfo,
const TMKey2Profile& theMKey2Profile,
const TKey2Gauss& theKey2Gauss,
TErr* theErr)
{
PTimeStampVal anInfo = CrTimeStampVal(theTimeStampInfo);
GetTimeStampVal(anInfo,
theMKey2Profile,
theKey2Gauss,
theErr);
return anInfo;
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::GetPGrilleInfo(const PMeshInfo& theMeshInfo)
{
if (theMeshInfo->GetType() != eSTRUCTURE)
return PGrilleInfo();
EGrilleType type;
GetGrilleType(*theMeshInfo, type);
PGrilleInfo anInfo;
if (type == eGRILLE_STANDARD) {
const TInt nnoeuds = GetNbNodes(*theMeshInfo);
anInfo = CrGrilleInfo(theMeshInfo, type, nnoeuds);
}
else {
TIntVector aVec;
aVec.resize(theMeshInfo->GetDim());
for (int aAxe=0;aAxe<theMeshInfo->GetDim();aAxe++) {
ETable aATable = eCOOR_IND1;
switch (aAxe) {
case 0:
aATable = eCOOR_IND1;
break;
case 1:
aATable = eCOOR_IND2;
break;
case 2:
aATable = eCOOR_IND3;
break;
}
aVec[aAxe] = GetNbNodes(*theMeshInfo, aATable);
}
anInfo = CrGrilleInfo(theMeshInfo, type, aVec);
}
GetGrilleInfo(anInfo);
anInfo->SetGrilleType(type);
#ifdef _DEBUG_
INITMSG(MYDEBUG, "GetPGrilleInfo: ");
{
TInt aNbElem = anInfo->GetNbNodes();
BEGMSG(MYVALUEDEBUG, "GetFamNumNode: ");
for (TInt iElem = 0; iElem < aNbElem; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetFamNumNode(iElem)<<", ");
}
TInt aNbCells = anInfo->GetNbCells();
BEGMSG(MYVALUEDEBUG, "GetFamNum: ");
for (TInt iElem = 0; iElem < aNbCells; iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetFamNum(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
BEGMSG(MYVALUEDEBUG, "GetCoordName: ");
for (TInt iElem = 0; iElem < theMeshInfo->GetDim(); iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetCoordName(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
BEGMSG(MYVALUEDEBUG, "GetCoordUnit: ");
for (TInt iElem = 0; iElem < theMeshInfo->GetDim(); iElem++) {
ADDMSG(MYVALUEDEBUG, anInfo->GetCoordUnit(iElem)<<", ");
}
ADDMSG(MYVALUEDEBUG, std::endl);
}
#endif
return anInfo;
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::GetPGrilleInfo(const PMeshInfo& theMeshInfo,
const PGrilleInfo& theInfo)
{
PGrilleInfo anInfo = CrGrilleInfo(theMeshInfo, theInfo);
return anInfo;
}
//----------------------------------------------------------------------------
void
TWrapper
::GetGrilleInfo(TGrilleInfo& theInfo,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TMeshInfo& aMeshInfo = *theInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
EMaillage aMaillageType = aMeshInfo.myType;
GetGrilleType(aMeshInfo, theInfo.myGrilleType, theErr);
EGrilleType aGrilleType = theInfo.myGrilleType;
TErr aRet = 0;
if (aMaillageType == eSTRUCTURE && aGrilleType == eGRILLE_STANDARD) {
GetGrilleStruct(aMeshInfo, theInfo.myGrilleStructure, theErr);
TValueHolder<TNodeCoord, med_float> aCoord(theInfo.myCoord);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(theInfo.myModeSwitch);
TValueHolder<TString, char> aCoordNames(theInfo.myCoordNames);
TValueHolder<TString, char> aCoordUnits(theInfo.myCoordUnits);
//med_axis_type aRepere;
aRet = MEDmeshNodeCoordinateRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
aModeSwitch,
&aCoord);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - MEDmeshNodeCoordinateRd(...)");
//TInt aNbNodes = theInfo.GetNbNodes();//GetNbFamilies(aMeshInfo);
TValueHolder<TElemNum, med_int> aFamNumNode(theInfo.myFamNumNode);
aRet = MEDmeshEntityFamilyNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_NODE,
MED_NO_GEOTYPE,
&aFamNumNode);
if (aRet < 0) {
// if (aRet == MED_ERR_DOESNTEXIST) // --- only valid with MED3.x files
{
int mySize = (int)theInfo.myFamNumNode.size();
theInfo.myFamNumNode.clear();
theInfo.myFamNumNode.resize(mySize,0);
aRet = 0;
}
// else
// EXCEPTION(std::runtime_error, "GetGrilleInfo - MEDmeshEntityFamilyNumberRd(...)");
}
if (theErr)
*theErr = aRet;
//============================
}
if (aMaillageType == eSTRUCTURE && aGrilleType != eGRILLE_STANDARD) {
ETable aTable = eCOOR_IND1;
for (med_int anAxis = 1; anAxis <= aMeshInfo.myDim; anAxis++) {
switch (anAxis) {
case 1:
aTable = eCOOR_IND1;
break;
case 2:
aTable = eCOOR_IND2;
break;
case 3:
aTable = eCOOR_IND3;
break;
default:
aRet = -1;
}
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - anAxis number out of range(...)");
TInt aNbIndexes = GetNbNodes(aMeshInfo, aTable);
if (aNbIndexes < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - Erreur a la lecture de la taille de l'indice");
TValueHolder<TFloatVector, med_float> anIndexes(theInfo.GetIndexes(anAxis-1));
//TValueHolder<ETable, med_data_type > table(aTable);
//char aCompNames[MED_SNAME_SIZE+1];
//char anUnitNames[MED_SNAME_SIZE+1];
aRet=MEDmeshGridIndexCoordinateRd(myFile->Id(),
&aMeshName,
MED_NO_DT,MED_NO_IT,
anAxis,
&anIndexes);
//theInfo.SetCoordName(anAxis-1, aCompNames);
//theInfo.SetCoordUnit(anAxis-1, anUnitNames);
theInfo.SetGrilleStructure(anAxis-1, aNbIndexes);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - MEDindicesCoordLire(...)");
}
}
EGeometrieElement aGeom = theInfo.GetGeom();
EEntiteMaillage aEntity = theInfo.GetEntity();
TInt aNbCells = theInfo.GetNbCells();
theInfo.myFamNum.resize(aNbCells);
TValueHolder<TElemNum, med_int> aFamNum(theInfo.myFamNum);
aRet = MEDmeshEntityFamilyNumberRd(myFile->Id(),
&aMeshName, MED_NO_DT, MED_NO_IT, med_entity_type(aEntity),
med_geometry_type(aGeom), &aFamNum);
if (aMeshInfo.myDim == 3)
{
aGeom = theInfo.GetSubGeom();
aEntity = theInfo.GetSubEntity();
aNbCells = theInfo.GetNbSubCells();
theInfo.myFamSubNum.resize(aNbCells, 0);
TValueHolder<TElemNum, med_int> aFamNum(theInfo.myFamSubNum);
aRet = MEDmeshEntityFamilyNumberRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
med_entity_type(aEntity),
med_geometry_type(aGeom),
&aFamNum);
}
if (aRet < 0) {
// if (aRet == MED_ERR_DOESNTEXIST) // --- only valid with MED3.x files
{
int mySize = (int)theInfo.myFamNumNode.size();
theInfo.myFamNumNode.clear();
theInfo.myFamNumNode.resize(mySize, 0);
aRet = 0;
}
// else
// EXCEPTION(std::runtime_error,"GetGrilleInfo - MEDmeshEntityFamilyNumberRd(...)");
}
if (theErr)
*theErr = aRet;
}
//----------------------------------------------------------------------------
void
TWrapper
::SetGrilleInfo(const MED::TGrilleInfo& theInfo,
TErr* theErr)
{
SetGrilleInfo(theInfo, eLECTURE_ECRITURE, theErr);
}
//----------------------------------------------------------------------------
void
TWrapper
::SetGrilleInfo(const MED::TGrilleInfo& theInfo,
EModeAcces theMode,
TErr* theErr)
{
if (theInfo.myMeshInfo->myType != eSTRUCTURE)
return;
TFileWrapper aFileWrapper(myFile, theMode, theErr, myMinor);
if (theErr && *theErr < 0)
return;
MED::TGrilleInfo& anInfo = const_cast<MED::TGrilleInfo&>(theInfo);
MED::TMeshInfo& aMeshInfo = *anInfo.myMeshInfo;
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<EGrilleType, med_grid_type > aGrilleType(anInfo.myGrilleType);
TErr aRet = 0;
aRet = MEDmeshGridTypeRd(myFile->Id(),
&aMeshName,
&aGrilleType);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "SetGrilleInfo - MEDmeshGridTypeRd(...)");
if (anInfo.myGrilleType == eGRILLE_STANDARD) {
TValueHolder<TNodeCoord, med_float> aCoord(anInfo.myCoord);
TValueHolder<EModeSwitch, med_switch_mode> aModeSwitch(anInfo.myModeSwitch);
TValueHolder<TString, char> aCoordNames(anInfo.myCoordNames);
TValueHolder<TString, char> aCoordUnits(anInfo.myCoordUnits);
med_int aNbNoeuds = med_int(anInfo.myCoord.size() / aMeshInfo.myDim);
//med_axis_type aRepere = MED_CARTESIAN;
aRet = MEDmeshNodeCoordinateWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_UNDEF_DT,
aModeSwitch,
aNbNoeuds,
&aCoord);
if (aRet < 0)
EXCEPTION(std::runtime_error, "SetGrilleInfo - MEDmeshNodeCoordinateWr(...)");
TValueHolder<TIntVector, med_int> aGrilleStructure(anInfo.myGrilleStructure);
aRet = MEDmeshGridStructWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_UNDEF_DT,
&aGrilleStructure);
if (aRet < 0)
EXCEPTION(std::runtime_error, "SetGrilleInfo - MEDmeshGridStructWr(...)");
}
else {
for (med_int aAxis = 0; aAxis < aMeshInfo.myDim; aAxis++) {
aRet = MEDmeshGridIndexCoordinateWr(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
MED_UNDEF_DT,
aAxis+1,
anInfo.GetIndexes(aAxis).size(),
&anInfo.GetIndexes(aAxis)[0]);
if (aRet < 0)
EXCEPTION(std::runtime_error, "SetGrilleInfo - MEDmeshGridIndexCoordinateWr(...)");
}
}
return;
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::CrGrilleInfo(const PMeshInfo& theMeshInfo,
const PGrilleInfo& theInfo)
{
return PGrilleInfo(new TTGrilleInfo
(theMeshInfo,
theInfo));
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::CrGrilleInfo(const PMeshInfo& theMeshInfo)
{
return PGrilleInfo(); // not implemented????
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::CrGrilleInfo(const PMeshInfo& theMeshInfo,
const EGrilleType& type)
{
return PGrilleInfo(new TTGrilleInfo
(theMeshInfo,
type));
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::CrGrilleInfo(const PMeshInfo& theMeshInfo,
const EGrilleType& type,
const TInt& nbNodes)
{
return PGrilleInfo(new TTGrilleInfo
(theMeshInfo,
type,
nbNodes));
}
//----------------------------------------------------------------------------
PGrilleInfo
TWrapper
::CrGrilleInfo(const PMeshInfo& theMeshInfo,
const EGrilleType& type,
const MED::TIntVector& nbNodeVec)
{
return PGrilleInfo(new TTGrilleInfo
(theMeshInfo,
type,
nbNodeVec));
}
//----------------------------------------------------------------------------
void
TWrapper
::GetGrilleType(const MED::TMeshInfo& theMeshInfo,
EGrilleType& theGridType,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
EXCEPTION(std::runtime_error, " GetGrilleType - aFileWrapper (...)");
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
if (aMeshInfo.myType == eSTRUCTURE) {
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<EGrilleType, med_grid_type> aGridType(theGridType);
TErr aRet = MEDmeshGridTypeRd(myFile->Id(),
&aMeshName,
&aGridType);
if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - MEDmeshGridTypeRd(...)");
}
}
//----------------------------------------------------------------------------
void
TWrapper
::GetGrilleStruct(const MED::TMeshInfo& theMeshInfo,
TIntVector& theStruct,
TErr* theErr)
{
TFileWrapper aFileWrapper(myFile, eLECTURE, theErr, myMinor);
if (theErr && *theErr < 0)
return;
TErr aRet;
MED::TMeshInfo& aMeshInfo = const_cast<MED::TMeshInfo&>(theMeshInfo);
TValueHolder<TString, char> aMeshName(aMeshInfo.myName);
TValueHolder<TIntVector, med_int> aGridStructure(theStruct);
aRet = MEDmeshGridStructRd(myFile->Id(),
&aMeshName,
MED_NO_DT,
MED_NO_IT,
&aGridStructure);
if (theErr)
*theErr = aRet;
else if (aRet < 0)
EXCEPTION(std::runtime_error, "GetGrilleInfo - MEDmeshGridStructRd(...)");
}
}