-MPI_Errhandler SMPI_default_File_Errhandler = MPI_ERRORS_RETURN;
-
-namespace simgrid{
-namespace smpi{
-
- File::File(MPI_Comm comm, const char *filename, int amode, MPI_Info info): comm_(comm), flags_(amode), info_(info) {
- if (info_ != MPI_INFO_NULL)
- info_->ref();
- std::string fullname=filename;
- if (simgrid::s4u::Host::current()->get_disks().empty())
- xbt_die("SMPI/IO : Trying to open file on a diskless host ! Add one to your platform file");
-
- size_t found=fullname.find('/');
- //in case no fullpath is provided ... just pick the first mountpoint.
- if(found==std::string::npos || fullname.rfind("./", 1) != std::string::npos){
- auto disk = simgrid::s4u::Host::current()->get_disks().front();
- std::string mount;
- if (disk->get_host() != simgrid::s4u::Host::current())
- mount = disk->extension<simgrid::s4u::FileSystemDiskExt>()->get_mount_point(disk->get_host());
- else
- mount = disk->extension<simgrid::s4u::FileSystemDiskExt>()->get_mount_point();
- XBT_DEBUG("No absolute path given for file opening, use '%s'", mount.c_str());
- if(fullname.rfind("./",1) != std::string::npos)
- fullname.replace(fullname.begin(), fullname.begin() + 1, mount);
- else{
- mount.append("/");
- fullname.insert(0, mount);
- }
- }