1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 *
4 * Copyright (C) 2004 University of Chicago.
5 * See COPYRIGHT notice in top-level directory.
6 */
7
8 #include <stdarg.h>
9 #include <stdio.h>
10
11 #include "mpioimpl.h"
12 #include "adio_extern.h"
13
14 /* MPICH1 error handling implementation */
15
MPIO_Err_create_code(int lastcode,int fatal,const char fcname[],int line,int error_class,const char generic_msg[],const char specific_msg[],...)16 int MPIO_Err_create_code(int lastcode, int fatal, const char fcname[],
17 int line, int error_class, const char generic_msg[],
18 const char specific_msg[], ... )
19 {
20 va_list Argp;
21 int error_code;
22
23 va_start(Argp, specific_msg);
24
25 error_code = MPIR_Err_setmsg(error_class, 0, fcname, generic_msg,
26 specific_msg, Argp);
27
28 vfprintf(stderr, specific_msg, Argp);
29
30 va_end(Argp);
31
32 return error_code;
33 }
34
MPIO_Err_return_file(MPI_File mpi_fh,int error_code)35 int MPIO_Err_return_file(MPI_File mpi_fh, int error_code)
36 {
37 char buf[MPI_MAX_ERROR_STRING];
38 int myrank, result_len;
39 MPI_Errhandler err_handler;
40
41 if (mpi_fh == MPI_FILE_NULL) err_handler = ADIOI_DFLT_ERR_HANDLER;
42 else {
43 ADIO_File fh;
44 fh = MPIO_File_resolve(mpi_fh);
45 err_handler = fh->err_handler;
46 }
47
48 MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
49 if (err_handler == MPI_ERRORS_ARE_FATAL) {
50 MPI_Error_string(error_code, buf, &result_len);
51 FPRINTF(stderr, "[%d] %s\n", myrank, buf);
52 MPI_Abort(MPI_COMM_WORLD, 1);
53 }
54 else if (err_handler != MPI_ERRORS_RETURN) {
55 FPRINTF(stderr, "Only MPI_ERRORS_RETURN and MPI_ERRORS_ARE_FATAL are currently supported as error handlers for files\n");
56 MPI_Abort(MPI_COMM_WORLD, 1);
57 }
58
59 return error_code;
60 }
61
MPIO_Err_return_comm(MPI_Comm mpi_comm,int error_code)62 int MPIO_Err_return_comm(MPI_Comm mpi_comm, int error_code)
63 {
64 return MPIO_Err_return_file(MPI_FILE_NULL, error_code);
65 }
66