Source

mpi3-fortran / ompi / mca / rte / pmi / rte_pmi_error.c

Full commit
/*
 * Copyright (c) 2013      Sandia National Laboratories. All rights reserved.
 *
 * $COPYRIGHT$
 * 
 * Additional copyrights may follow
 * 
 * $HEADER$
 *
 */

#include "ompi_config.h"

#include <stdio.h>
#include <stdarg.h>
#include <pmi.h>
#if WANT_CRAY_PMI2_EXT
#include <pmi2.h>
#endif

#include "opal/util/error.h"
#include "opal/util/output.h"
#include "opal/util/show_help.h"
#include "ompi/constants.h"
#include "ompi/mca/rte/rte.h"

#include "rte_pmi.h"


void
ompi_rte_abort(int error_code, char *fmt, ...)
{
    char *msg;
    int ret;
    va_list ap;

    va_start(ap, fmt);

    ret = vasprintf(&msg, fmt, ap);
    if (-1 == ret) msg = "";

    va_end(ap);

    PMI_Abort(error_code, msg);
}


int
ompi_rte_abort_peers(ompi_process_name_t *procs, size_t nprocs)
{
    PMI_Abort(1, "");
    return OMPI_SUCCESS;
}


int
ompi_rte_error_log(const char *file, int line, 
                   const char *func, int ret)
{
    opal_output(0, "%s:%d:%s: Error: %s\n", file, line, func, opal_strerror(ret));
    return OMPI_SUCCESS;
}


void
ompi_rte_set_fault_callback(void (*callback)(opal_pointer_array_t*))
{
    /* This is intentionally a no-op.  We don't get async errors from PMI. */
}


int
ompi_show_help(const char *filename, const char *topic, 
               bool want_error_header, ...)
{
    va_list ap;
    int ret;

    va_start(ap, want_error_header);
    ret = opal_show_vhelp(filename, topic, want_error_header, ap);
    va_end(ap);

    return ret;
}