-/**
- * $Id: $tag
- *
- * smpi_mpi_dt_private.h -- functions of smpi_mpi_dt.c that are exported to other SMPI modules.
- *
- **/
+/* smpi_mpi_dt_private.h -- functions of smpi_mpi_dt.c that are exported to other SMPI modules. */
+
+/* Copyright (c) 2009, 2010. 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. */
+
+#ifndef SMPI_DT_PRIVATE_H
+#define SMPI_DT_PRIVATE_H
+
#include "private.h"
-/* flags for the datatypes. */
#define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */
#define DT_FLAG_COMMITED 0x0002 /**< ready to be used for a send/recv operation */
#define DT_FLAG_CONTIGUOUS 0x0004 /**< contiguous datatype */
#define DT_FLAG_UNAVAILABLE 0x0400 /**< datatypes unavailable on the build (OS or compiler dependant) */
#define DT_FLAG_VECTOR 0x0800 /**< valid only for loops. The loop contain only one element
**< without extent. It correspond to the vector type. */
-/*
+/*
* We should make the difference here between the predefined contiguous and non contiguous
* datatypes. The DT_FLAG_BASIC is held by all predefined contiguous datatypes.
*/
#define DT_FLAG_BASIC (DT_FLAG_PREDEFINED | DT_FLAG_CONTIGUOUS | DT_FLAG_NO_GAPS | DT_FLAG_DATA | DT_FLAG_COMMITED)
+extern MPI_Datatype MPI_PTR;
+
+
+//*****************************************************************************************
+
+/*
+ These are the structures that handle complex data type information,
+ used for serialization/unserialization of messages
+*/
+
+typedef struct s_smpi_mpi_vector{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ size_t block_stride;
+ size_t block_length;
+ size_t block_count;
+} s_smpi_mpi_vector_t;
+
+typedef struct s_smpi_mpi_hvector{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ MPI_Aint block_stride;
+ size_t block_length;
+ size_t block_count;
+} s_smpi_mpi_hvector_t;
+
+typedef struct s_smpi_mpi_indexed{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ int* block_indices;
+ size_t block_count;
+} s_smpi_mpi_indexed_t;
+
+typedef struct s_smpi_mpi_hindexed{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ MPI_Aint* block_indices;
+ size_t block_count;
+} s_smpi_mpi_hindexed_t;
+
+typedef struct s_smpi_mpi_struct{
+ s_smpi_subtype_t base;
+ MPI_Datatype old_type;
+ size_t size_oldtype;
+ int* block_lengths;
+ MPI_Aint* block_indices;
+ size_t block_count;
+ MPI_Datatype* old_types;
+} s_smpi_mpi_struct_t;
+
+/*
+ Functions to handle serialization/unserialization of messages, 3 for each type of MPI_Type
+ One for creating the substructure to handle, one for serialization, one for unserialization
+*/
+
+void unserialize_vector( const void *contiguous_vector,
+ void *noncontiguous_vector,
+ size_t count,
+ void *type);
+
+void serialize_vector( const void *noncontiguous_vector,
+ void *contiguous_vector,
+ size_t count,
+ void *type);
+
+void free_vector(MPI_Datatype* type);
+
+s_smpi_mpi_vector_t* smpi_datatype_vector_create( int block_stride,
+ int block_length,
+ int block_count,
+ MPI_Datatype old_type,
+ int size_oldtype);
+
+void unserialize_hvector( const void *contiguous_vector,
+ void *noncontiguous_vector,
+ size_t count,
+ void *type);
+
+void serialize_hvector( const void *noncontiguous_vector,
+ void *contiguous_vector,
+ size_t count,
+ void *type);
+
+void free_hvector(MPI_Datatype* type);
+
+s_smpi_mpi_hvector_t* smpi_datatype_hvector_create( MPI_Aint block_stride,
+ int block_length,
+ int block_count,
+ MPI_Datatype old_type,
+ int size_oldtype);
+
+
+void unserialize_indexed( const void *contiguous_indexed,
+ void *noncontiguous_indexed,
+ size_t count,
+ void *type);
+
+void serialize_indexed( const void *noncontiguous_vector,
+ void *contiguous_vector,
+ size_t count,
+ void *type);
+
+void free_indexed(MPI_Datatype* type);
+
+s_smpi_mpi_indexed_t* smpi_datatype_indexed_create(int* block_lengths,
+ int* block_indices,
+ int block_count,
+ MPI_Datatype old_type,
+ int size_oldtype);
+
+void unserialize_hindexed( const void *contiguous_indexed,
+ void *noncontiguous_indexed,
+ size_t count,
+ void *type);
+
+void serialize_hindexed( const void *noncontiguous_vector,
+ void *contiguous_vector,
+ size_t count,
+ void *type);
+
+void free_hindexed(MPI_Datatype* type);
+
+s_smpi_mpi_hindexed_t* smpi_datatype_hindexed_create(int* block_lengths,
+ MPI_Aint* block_indices,
+ int block_count,
+ MPI_Datatype old_type,
+ int size_oldtype);
+
+void unserialize_struct( const void *contiguous_indexed,
+ void *noncontiguous_indexed,
+ size_t count,
+ void *type);
+void serialize_struct( const void *noncontiguous_vector,
+ void *contiguous_vector,
+ size_t count,
+ void *type);
-int smpi_mpi_type_get_extent(MPI_Datatype datatype, MPI_Aint *lb, MPI_Aint *extent);
+void free_struct(MPI_Datatype* type);
-/* Deprecated Functions.
- * The MPI-2 standard deprecated a number of routines because MPI-2 provides better versions.
- * This routine is one of those that was deprecated. The routine may continue to be used, but
- * new code should use the replacement routine. The replacement for this routine is MPI_Type_Get_extent.
- **/
-int SMPI_MPI_Type_ub( MPI_Datatype datatype, MPI_Aint *displacement);
-int SMPI_MPI_Type_lb( MPI_Datatype datatype, MPI_Aint *displacement);
+s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths,
+ MPI_Aint* block_indices,
+ int block_count,
+ MPI_Datatype* old_types);
+#endif
