openmpi/src/errhandler/errhandler.c

/*
 * $HEADER$
 */

#include "lam_config.h"

#include "communicator/communicator.h"
#include "win/win.h"
#include "file/file.h"
#include "errhandler/errhandler.h"
#include "errhandler/errhandler_predefined.h"


/* define class information */

static void lam_errhandler_construct(lam_errhandler_t *eh);
static void lam_errhandler_destruct(lam_errhandler_t *eh);


lam_class_t lam_errhandler_t_class = {
    "lam_errhandler_t",
    OBJ_CLASS(lam_object_t),
    (lam_construct_t) lam_errhandler_construct,
    (lam_destruct_t) lam_errhandler_destruct
};


/*
 * Table for Fortran <-> C errhandler handle conversion
 */
lam_pointer_array_t *lam_errhandler_f_to_c_table;


/*
 * MPI_ERRHANDLER_NULL
 */
lam_errhandler_t lam_mpi_errhandler_null = {
    { NULL, 0 },

    "MPI_ERRHANDLER_NULL",
    false,
    LAM_ERRHANDLER_COMM,
    { NULL }
};


/*
 * MPI_ERRORS_ARE_FATAL
 */
lam_errhandler_t lam_mpi_errors_are_fatal = {
    { NULL, 0 },

    "MPI_ERRORS_ARE_FATAL",
    false,
    LAM_ERRHANDLER_COMM,
    { lam_mpi_errors_are_fatal_handler },
    -1
};


/*
 * MPI_ERRORS_RETURN
 */
lam_errhandler_t lam_mpi_errors_return = {
    { NULL, 0 },

    "MPI_ERRORS_ARE_RETURN",
    false,
    LAM_ERRHANDLER_COMM,
    { lam_mpi_errors_return_handler },
    -1
};


/**
 * Errhandler constructor
 */
static void lam_errhandler_construct(lam_errhandler_t *new_errhandler)
{
  int ret_val;

  /* assign entry in fortran <-> c translation array */

  ret_val = lam_pointer_array_add(lam_errhandler_f_to_c_table, 
                                  new_errhandler);
  new_errhandler->eh_f_to_c_index = ret_val;
}


/**
 * Errhandler destructor
 */
static void lam_errhandler_destruct(lam_errhandler_t *errhandler)
{
  /* reset the lam_errhandler_f_to_c_table entry - make sure that the
     entry is in the table */

  if (NULL!= lam_pointer_array_get_item(lam_errhandler_f_to_c_table,
                                        errhandler->eh_f_to_c_index)) {
    lam_pointer_array_set_item(lam_errhandler_f_to_c_table,
                               errhandler->eh_f_to_c_index, NULL);
  }
}


/*
 * Initialize LAM errhandler infrastructure
 */
int lam_errhandler_init(void)
{
  int ret_val;

  /* initialize lam_errhandler_f_to_c_table */

  lam_errhandler_f_to_c_table = OBJ_NEW(lam_pointer_array_t);
  if (NULL == lam_errhandler_f_to_c_table){
    return LAM_ERROR;
  }

  /* Add MPI_ERRHANDLER_NULL to table */

  ret_val = lam_pointer_array_add(lam_errhandler_f_to_c_table,
                                  &lam_mpi_errhandler_null);
  if (-1 == ret_val){
    return LAM_ERROR;
  }

  /* Make sure that MPI_ERRHANDLER_NULL is in location in the table */

  if (LAM_ERRHANDLER_NULL_FORTRAN != ret_val) {
    return LAM_ERROR;
  };
  lam_mpi_errhandler_null.eh_f_to_c_index = ret_val;
  
  /* Add MPI_ERRORS_ARE_FATAL to table */

  ret_val = lam_pointer_array_add(lam_errhandler_f_to_c_table,
                                  &lam_mpi_errors_are_fatal);
  if (-1 == ret_val){
    return LAM_ERROR;
  }

  /* Make sure that MPI_ERRORS_ARE_FATAL is in location in the
     table */

  if (LAM_ERRORS_ARE_FATAL_FORTRAN != ret_val) {
    return LAM_ERROR;
  };
  lam_mpi_errors_are_fatal.eh_f_to_c_index = ret_val;
  
  /* Add MPI_ERRORS_RETURN to table */

  ret_val = lam_pointer_array_add(lam_errhandler_f_to_c_table,
                                  &lam_mpi_errors_return);
  if (-1 == ret_val){
    return LAM_ERROR;
  }

  /* Make sure that MPI_ERRORS_RETURN is in location in the table */

  if (LAM_ERRORS_RETURN_FORTRAN != ret_val) {
    return LAM_ERROR;
  };
  lam_mpi_errors_return.eh_f_to_c_index = ret_val;
  
  /* All done */

  return LAM_SUCCESS;
}


/*
 * Clean up the errorhandler resources
 */
int lam_errhandler_finalize(void)
{
  /* Remove errhandler F2C table */
  
  OBJ_RELEASE(lam_errhandler_f_to_c_table);
  
  /* All done */

  return LAM_SUCCESS;
};