MPI_File_set_info, MPI_File_get_info, MPI_File_get_position

[simgrid.git] / src / smpi / mpi / smpi_file.cpp

diff --git a/src/smpi/mpi/smpi_file.cpp b/src/smpi/mpi/smpi_file.cpp
index a7cfe39..6006b4d 100644 (file)
--- a/src/smpi/mpi/smpi_file.cpp
+++ b/src/smpi/mpi/smpi_file.cpp
@@ -40,6 +40,11 @@ namespace smpi{
     return MPI_SUCCESS;\r
   }\r
 \r
+  int File::get_position(MPI_Offset* offset){\r
+    *offset=file_->tell();\r
+    return MPI_SUCCESS;\r
+  }\r
+\r
   int File::seek(MPI_Offset offset, int whence){\r
     switch(whence){\r
       case(MPI_SEEK_SET):\r
@@ -103,5 +108,18 @@ namespace smpi{
     //no idea\r
     return simgrid::smpi::Colls::barrier(comm_);\r
   }\r
+MPI_Info File::info(){\r
+  if(info_== MPI_INFO_NULL)\r
+    info_ = new Info();\r
+  info_->ref();\r
+  return info_;\r
+}\r
+\r
+void File::set_info(MPI_Info info){\r
+  if(info_!= MPI_INFO_NULL)\r
+    info->ref();\r
+  info_=info;\r
+}\r
+\r
 }\r
 }\r