openmpi/src/mpi/c/abort.c

/*
 * Copyright (c) 2004-2005 The Trustees of Indiana University.
 *                         All rights reserved.
 * Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
 *                         All rights reserved.
 * $COPYRIGHT$
 * 
 * Additional copyrights may follow
 * 
 * $HEADER$
 */
#include "ompi_config.h"

#include "mpi.h"
#include "mpi/c/bindings.h"
#include "mpi/runtime/mpiruntime.h"
#include "errhandler/errhandler.h"

#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES
#pragma weak MPI_Abort = PMPI_Abort
#endif

#if OMPI_PROFILING_DEFINES
#include "mpi/c/profile/defines.h"
#endif

static const char FUNC_NAME[] = "MPI_Abort";


int MPI_Abort(MPI_Comm comm, int errorcode) 
{
    /* Don't even bother checking comm and errorcode values for
       errors */

    if (MPI_PARAM_CHECK) {
        OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
    }

    return ompi_mpi_abort(comm, errorcode, true);
}
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00			`/*`
First cut at copyrights: IU, UTK, and some OSU. LANL and HLRS still pending. This commit was SVN r3655. 2004-11-22 04:38:40 +03:00			`* Copyright (c) 2004-2005 The Trustees of Indiana University.`
			`* All rights reserved.`
			`* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.`
			`* All rights reserved.`
			`* $COPYRIGHT$`
			`*`
			`* Additional copyrights may follow`
			`*`
Fix $HEADERS$ -> $HEADER$ -- will make for easier replacement later This commit was SVN r3173. 2004-10-15 23:31:47 +04:00			`* $HEADER$`
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00			`*/`
First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#include "ompi_config.h"`
First cut of MPI_ABORT. We might make it better someday (i.e., try to honor killing only the procs in the comm, do something with the errorcode, etc.). This commit was SVN r2690. 2004-09-16 00:53:40 +04:00
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00			`#include "mpi.h"`
Updating header file names after the great directory reorganization. This commit was SVN r877. 2004-03-17 21:45:16 +03:00			`#include "mpi/c/bindings.h"`
* start of abort() and cntl-c support. - register non-blocking recv for process starter whenever a new spawn occurs. - send kill message when rte_kill_job or kill_proc is called - pcm does its mojo to result in the death of the processes This commit was SVN r3458. 2004-11-01 19:05:31 +03:00			`#include "mpi/runtime/mpiruntime.h"`
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00			`#include "errhandler/errhandler.h"`
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00
First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILING_DEFINES`
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00			`#pragma weak MPI_Abort = PMPI_Abort`
			`#endif`

First pass of lam -> ompi conversion This commit was SVN r1191. 2004-06-07 19:33:53 +04:00			`#if OMPI_PROFILING_DEFINES`
Changing the bindings files to have the #define of MPI_ functions to PMPI_ functions after the #pragma weak statement This commit was SVN r1055. 2004-04-20 22:50:43 +04:00			`#include "mpi/c/profile/defines.h"`
			`#endif`

Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00			`static const char FUNC_NAME[] = "MPI_Abort";`


			`int MPI_Abort(MPI_Comm comm, int errorcode)`
			`{`
First cut of MPI_ABORT. We might make it better someday (i.e., try to honor killing only the procs in the comm, do something with the errorcode, etc.). This commit was SVN r2690. 2004-09-16 00:53:40 +04:00			`/* Don't even bother checking comm and errorcode values for`
			`errors */`

			`if (MPI_PARAM_CHECK) {`
			`OMPI_ERR_INIT_FINALIZE(FUNC_NAME);`
			`}`
Make a pass through all top-level MPI functions - Mark those who are still not yet implemented: - return an error - have a grep-able string indicating that they are not yet implemented - ensure every function checks for init/finalize - add more error checking to a bunch of functions - unify the error checking -- it reflected about 3 different [previous] error checking styles and MPI exception invocation styles This commit was SVN r1817. 2004-07-30 06:58:53 +04:00
* start of abort() and cntl-c support. - register non-blocking recv for process starter whenever a new spawn occurs. - send kill message when rte_kill_job or kill_proc is called - pcm does its mojo to result in the death of the processes This commit was SVN r3458. 2004-11-01 19:05:31 +03:00			`return ompi_mpi_abort(comm, errorcode, true);`
Adding these MPI shells. Someday, someone has to actually write the functions This commit was SVN r491. 2004-01-20 09:12:28 +03:00			`}`