1 // Copyright (C) 2007-2023 CEA, EDF
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License, or (at your option) any later version.
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 // Lesser General Public License for more details.
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
19 // Author : Anthony Geay (CEA/DEN)
21 #include "MEDFileUtilities.hxx"
22 #include "MEDFileSafeCaller.txx"
23 #include "MEDLoaderBase.hxx"
24 #include "MEDLoader.hxx"
25 #include "MEDFileBasis.hxx"
27 #include "InterpKernelAutoPtr.hxx"
32 const char MEDCoupling::MEDFileWritableStandAlone::DFT_FILENAME_IN_MEM[]="DftFileNameInMemory";
34 med_access_mode MEDFileUtilities::TraduceWriteMode(int medloaderwritemode)
36 switch(medloaderwritemode)
45 throw INTERP_KERNEL::Exception("Invalid write mode specified ! must be 0(write with no question), 1(append) or 2(creation)");
49 const char *MEDFileUtilities::GetReadableMEDFieldType(med_field_type ft)
51 static const char medFloat64[]="MED_FLOAT64";
52 static const char medFloat32[]="MED_FLOAT32";
53 static const char medInt32[]="MED_INT32";
54 static const char medInt64[]="MED_INT64";
66 throw INTERP_KERNEL::Exception("Non supported field type ! Should be FLOAT64, FLOAT32, INT32 or INT64 !");
70 void MEDFileUtilities::CheckMEDCode(int code, med_idt fid, const std::string& msg)
74 std::ostringstream oss;
75 oss << "MEDFile has returned an error code (" << code <<") : " << msg;
76 throw INTERP_KERNEL::Exception(oss.str().c_str());
80 void MEDFileUtilities::CheckFileForRead(const std::string& fileName)
82 int status=MEDLoaderBase::getStatusOfFile(fileName);
83 std::ostringstream oss;
84 oss << " File : \"" << fileName << "\"";
87 case MEDLoaderBase::DIR_LOCKED:
89 oss << " has been detected as unreadable : impossible to read anything !";
90 throw INTERP_KERNEL::Exception(oss.str().c_str());
92 case MEDLoaderBase::NOT_EXIST:
94 oss << " has been detected as NOT EXISTING : impossible to read anything !";
95 throw INTERP_KERNEL::Exception(oss.str().c_str());
97 case MEDLoaderBase::EXIST_WRONLY:
99 oss << " has been detected as WRITE ONLY : impossible to read anything !";
100 throw INTERP_KERNEL::Exception(oss.str().c_str());
103 AutoFid fid=MEDfileOpen(fileName.c_str(),MED_ACC_RDONLY);
106 oss << " has been detected as unreadable by MED file : impossible to read anything !";
107 throw INTERP_KERNEL::Exception(oss.str().c_str());
109 oss << " has been detected readable but ";
110 med_int major,minor,release;
111 MEDfileNumVersionRd(fid,&major,&minor,&release);
112 if(major<2 || (major==2 && minor<2))
114 oss << "version of MED file is < 2.2 : impossible to read anything !";
115 throw INTERP_KERNEL::Exception(oss.str().c_str());
119 MEDFileUtilities::AutoFid::AutoFid(med_idt fid):_fid(fid)
123 MEDFileUtilities::AutoFid::~AutoFid()
128 MEDCoupling::MEDFileWritable::MEDFileWritable():_too_long_str(0),_zipconn_pol(2)
132 void MEDCoupling::MEDFileWritable::copyOptionsFrom(const MEDFileWritable& other) const
134 _too_long_str=other._too_long_str;
135 _zipconn_pol=other._zipconn_pol;
138 int MEDCoupling::MEDFileWritable::getTooLongStrPolicy() const
140 return _too_long_str;
143 void MEDCoupling::MEDFileWritable::setTooLongStrPolicy(int newVal)
145 if(newVal!=2 && newVal!=1 && newVal!=0)
146 throw INTERP_KERNEL::Exception("MEDFileWritable::setTooLongStrPolicy : invalid policy should be in 0,1 or 2 !");
147 _too_long_str=newVal;
150 int MEDCoupling::MEDFileWritable::getZipConnPolicy()
155 void MEDCoupling::MEDFileWritable::setZipConnPolicy(int newVal)
160 std::string MEDCoupling::MEDFileWritable::FileNameFromFID(med_idt fid)
162 med_int lgth(MEDfileName(fid,0,0));
164 return std::string();
165 INTERP_KERNEL::AutoPtr<char> tmp(new char[lgth+1]);
166 if(MEDfileName(fid,tmp,lgth)<0)
167 throw INTERP_KERNEL::Exception("MEDFileWritable::FileNameFromFID : Return code of MEDFile call \"MEDfileName\" is not >=0 as expected !");
168 return std::string(tmp);
171 MEDFileUtilities::AutoFid MEDCoupling::OpenMEDFileForRead(const std::string& fileName)
173 MEDFileUtilities::CheckFileForRead(fileName);
174 return MEDFileUtilities::AutoFid(MEDfileOpen(fileName.c_str(),MED_ACC_RDONLY));
178 * Writes \a this mesh into a MED file specified by its name.
179 * \param [in] fileName - the MED file name.
180 * \param [in] mode - the writing mode. For more on \a mode, see \ref AdvMEDLoaderBasics.
181 * - 2 - erase; an existing file is removed.
182 * - 1 - append; same data should not be present in an existing file.
183 * - 0 - overwrite; same data present in an existing file is overwritten.
184 * \throw If the mesh name is not set.
185 * \throw If \a mode == 1 and the same data is present in an existing file.
187 void MEDCoupling::MEDFileWritableStandAlone::write(const std::string& fileName, int mode) const
189 med_access_mode medmod(MEDFileUtilities::TraduceWriteMode(mode));
190 MEDFileUtilities::AutoFid fid(MEDfileOpen(fileName.c_str(),medmod));
191 std::ostringstream oss; oss << "MEDFileWritableStandAlone : error on attempt to write in file : \"" << fileName << "\"";
192 MEDFileUtilities::CheckMEDCode((int)fid,fid,oss.str());
196 void MEDCoupling::MEDFileWritableStandAlone::write33(const std::string& fileName, int mode) const
198 this->writeXX(fileName,mode,3,3,1);
201 void MEDCoupling::MEDFileWritableStandAlone::write30(const std::string& fileName, int mode) const
203 this->writeXX(fileName,mode,3,0,6);
206 void MEDCoupling::MEDFileWritableStandAlone::write40(const std::string& fileName, int mode) const
208 this->writeXX(fileName,mode,4,0,1);
211 void MEDCoupling::MEDFileWritableStandAlone::writeXX(const std::string& fileName, int mode, med_int maj, med_int min, med_int rel) const
213 #if ( MED_NUM_MAJEUR>4 || ( MED_NUM_MAJEUR==4 && MED_NUM_MINEUR>=1 ) )
214 med_access_mode medmod(MEDFileUtilities::TraduceWriteMode(mode));
215 MEDFileUtilities::AutoFid fid(MEDfileVersionOpen(fileName.c_str(),medmod,maj,min,rel));
218 std::ostringstream oss; oss << "MEDFileWritableStandAlone::write" << maj << min << " : the MED version used to compile medcoupling is " << MEDFileVersionStr() << " ! If you need this feature please use version >= 4.1.";
219 throw INTERP_KERNEL::Exception(oss.str());
223 MEDCoupling::MCAuto<MEDCoupling::DataArrayByte> MEDCoupling::MEDFileWritableStandAlone::serialize() const
225 med_memfile memfile=MED_MEMFILE_INIT;
226 memfile.app_image_ptr=0;
227 memfile.app_image_size=0;
229 std::string dftFileName(GenerateUniqueDftFileNameInMem());
230 {// very important to let this braces ! The AutoFid destructor must be called, to have a "clean" memfile.app_image_ptr pointer embedded in the returned object.
231 MEDFileUtilities::AutoFid fid(MEDmemFileOpen(dftFileName.c_str(),&memfile,MED_FALSE,MED_ACC_CREAT));
235 MEDCoupling::MCAuto<MEDCoupling::DataArrayByte> ret(MEDCoupling::DataArrayByte::New());
236 ret->useArray(reinterpret_cast<char *>(memfile.app_image_ptr),true,DeallocType::C_DEALLOC,memfile.app_image_size,1);
240 std::string MEDCoupling::MEDFileWritableStandAlone::GenerateUniqueDftFileNameInMem()
243 std::ostringstream oss; oss << DFT_FILENAME_IN_MEM << "_" << ii++;
247 MEDCoupling::MEDFileCapability::MEDFileCapability(med_idt fid)
249 MEDFILESAFECALLERRD0(MEDfileNumVersionRd,(fid,&_maj,&_min,&_rel));