Big move of all SMPI files in subfolders because it was a mess.

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

diff --git a/src/smpi/mpi/smpi_keyvals.cpp b/src/smpi/mpi/smpi_keyvals.cpp
new file mode 100644 (file)
index 0000000..559ef5c
--- /dev/null
+++ b/src/smpi/mpi/smpi_keyvals.cpp
@@ -0,0 +1,46 @@
+/* Copyright (c) 2007-2017. The SimGrid Team.
+ * All rights reserved.                                                     */
+
+/* This program is free software; you can redistribute it and/or modify it
+ * under the terms of the license (GNU LGPL) which comes with this package. */
+
+//#include "private.h"
+#include "smpi_keyvals.hpp"
+
+namespace simgrid{
+namespace smpi{
+
+std::unordered_map<int, void*>* Keyval::attributes(){
+  return &attributes_;
+};
+
+
+template <> int Keyval::call_deleter<Comm>(Comm* obj, smpi_key_elem elem, int keyval, void * value, int* flag){
+  if(elem->delete_fn.comm_delete_fn!=MPI_NULL_DELETE_FN){
+    int ret = elem->delete_fn.comm_delete_fn(obj, keyval, value, flag);
+    if(ret!=MPI_SUCCESS)
+      return ret;
+  }
+  return MPI_SUCCESS;
+}
+
+template <> int Keyval::call_deleter<Win>(Win* obj, smpi_key_elem elem, int keyval, void * value, int* flag){
+  if(elem->delete_fn.win_delete_fn!=MPI_NULL_DELETE_FN){
+    int ret = elem->delete_fn.win_delete_fn(obj, keyval, value, flag);
+    if(ret!=MPI_SUCCESS)
+      return ret;
+  }
+  return MPI_SUCCESS;
+}
+
+template <> int Keyval::call_deleter<Datatype>(Datatype* obj, smpi_key_elem elem, int keyval, void * value, int* flag){
+  if(elem->delete_fn.type_delete_fn!=MPI_NULL_DELETE_FN){
+    int ret = elem->delete_fn.type_delete_fn(obj, keyval, value, flag);
+    if(ret!=MPI_SUCCESS)
+      return ret;
+  }
+  return MPI_SUCCESS;
+}
+
+}
+}