/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
 *
 *  (C) 2001 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */

/* style: allow:fprintf:10 sig:0 */
#include <stdio.h>
#include "mpi.h"
#include "../../include/mpitestconf.h"
#include <string.h>

/*
   Name mapping.  All routines are created with names that are lower case
   with a single trailing underscore.  This matches many compilers.
   We use #define to change the name for Fortran compilers that do
   not use the lowercase/underscore pattern
*/

#ifdef F77_NAME_UPPER
#define chkcomm2inc_ CHKCOMM2INC
#define chkckeyvals_ CHKCKEYVALS

#elif defined(F77_NAME_LOWER) || defined(F77_NAME_MIXED)
/* Mixed is ok because we use lowercase in all uses */
#define chkcomm2inc_ chkcomm2inc
#define chkckeyvals_ chkckeyvals

#elif defined(F77_NAME_LOWER_2USCORE) || defined(F77_NAME_LOWER_USCORE) || \
      defined(F77_NAME_MIXED_USCORE)
/* Else leave name alone (routines have no underscore, so both
   of these map to a lowercase, single underscore) */
#else
#error 'Unrecognized Fortran name mapping'
#endif


int chkcomm2inc_(int *keyval, const int *expected, int *ierr);
int chkcomm2inc_(int *keyval, const int *expected, int *ierr)
{
    int flag;
    MPI_Aint *val;

    /* See Example 16.19 in MPI 2.2, part B.  The use of MPI_Aint *val
     * and the address of val in the get_attr call is correct, as is
     * the use of *val to access the value. */
    MPI_Comm_get_attr(MPI_COMM_WORLD, *keyval, &val, &flag);
    if (!flag) {
        *ierr = 1;
    }
    else {
        if (*val != *expected) {
            /* In some cases, using printf from a c routine linked
             * with a Fortran routine can cause linking difficulties.
             * To avoid problems in running the tests, this print
             * is commented out */
            /* printf("Val = %x, expected = %d\n", val, *expected); */
            *ierr = *ierr + 1;
        }
    }
    return 0;
}

/* Attribute delete and copy functions for each type */
int myCommCopyfn(MPI_Comm comm, int keyval, void *extra_state,
                 void *attr_val_in, void *attr_val_out, int *flag);
int myCommCopyfn(MPI_Comm comm, int keyval, void *extra_state,
                 void *attr_val_in, void *attr_val_out, int *flag)
{
    *(void **) attr_val_out = (char *) attr_val_in + 2;
    *flag = 1;
    return MPI_SUCCESS;
}

int myCommDelfn(MPI_Comm comm, int keyval, void *attr_val, void *extra_state);
int myCommDelfn(MPI_Comm comm, int keyval, void *attr_val, void *extra_state)
{
    return MPI_SUCCESS;
}

int myTypeCopyfn(MPI_Datatype dtype, int keyval, void *extra_state,
                 void *attr_val_in, void *attr_val_out, int *flag);
int myTypeCopyfn(MPI_Datatype dtype, int keyval, void *extra_state,
                 void *attr_val_in, void *attr_val_out, int *flag)
{
    *(void **) attr_val_out = (char *) attr_val_in + 2;
    *flag = 1;
    return MPI_SUCCESS;
}

int myTypeDelfn(MPI_Datatype dtype, int keyval, void *attr_val, void *extra_state);
int myTypeDelfn(MPI_Datatype dtype, int keyval, void *attr_val, void *extra_state)
{
    return MPI_SUCCESS;
}

int myWinCopyfn(MPI_Win win, int keyval, void *extra_state,
                void *attr_val_in, void *attr_val_out, int *flag);
int myWinCopyfn(MPI_Win win, int keyval, void *extra_state,
                void *attr_val_in, void *attr_val_out, int *flag)
{
    *(void **) attr_val_out = (char *) attr_val_in + 2;
    *flag = 1;
    return MPI_SUCCESS;
}

int myWinDelfn(MPI_Win win, int keyval, void *attr_val, void *extra_state);
int myWinDelfn(MPI_Win win, int keyval, void *attr_val, void *extra_state)
{
    return MPI_SUCCESS;
}

int chkckeyvals_(int *comm_keyval, int *type_keyval, int *win_keyval);
int chkckeyvals_(int *comm_keyval, int *type_keyval, int *win_keyval)
{
    MPI_Comm_create_keyval(myCommCopyfn, myCommDelfn, comm_keyval, 0);
    MPI_Type_create_keyval(myTypeCopyfn, myTypeDelfn, type_keyval, 0);
    MPI_Win_create_keyval(myWinCopyfn, myWinDelfn, win_keyval, 0);
    return 0;
}
