X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/70ed180f3ce3495678d048e9e396ef5eb65a6a99..f7bfc7f9646c3f1c3b350a78b2fae5a35ea939f7:/src/smpi/smpi_mpi_dt_private.h diff --git a/src/smpi/smpi_mpi_dt_private.h b/src/smpi/smpi_mpi_dt_private.h index cb548a9993..23af198871 100644 --- a/src/smpi/smpi_mpi_dt_private.h +++ b/src/smpi/smpi_mpi_dt_private.h @@ -1,9 +1,14 @@ -/** - * $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" #define DT_FLAG_DESTROYED 0x0001 /**< user destroyed but some other layers still have a reference */ @@ -19,8 +24,185 @@ #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_contiguous{ + s_smpi_subtype_t base; + MPI_Datatype old_type; + MPI_Aint lb; + size_t size_oldtype; + size_t block_count; +} s_smpi_mpi_contiguous_t; + +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_contiguous( const void *contiguous_vector, + void *noncontiguous_vector, + size_t count, + void *type); + +void serialize_contiguous( const void *noncontiguous_vector, + void *contiguous_vector, + size_t count, + void *type); + +void free_contiguous(MPI_Datatype* type); + +s_smpi_mpi_contiguous_t* smpi_datatype_contiguous_create( MPI_Aint lb, + int block_count, + MPI_Datatype old_type, + int size_oldtype); + +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); + +void free_struct(MPI_Datatype* type); + +s_smpi_mpi_struct_t* smpi_datatype_struct_create(int* block_lengths, + MPI_Aint* block_indices, + int block_count, + MPI_Datatype* old_types); + +#endif