2004-01-16 02:57:16 +03:00
|
|
|
/*
|
|
|
|
* $HEADER$
|
|
|
|
*/
|
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#ifndef OMPI_FILE_H
|
|
|
|
#define OMPI_FILE_H
|
2004-01-16 02:57:16 +03:00
|
|
|
|
|
|
|
#include "mpi.h"
|
2004-03-19 03:00:09 +03:00
|
|
|
#include "errhandler/errhandler.h"
|
2004-03-17 21:45:16 +03:00
|
|
|
#include "mca/io/io.h"
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-01-17 00:59:05 +03:00
|
|
|
typedef enum {
|
2004-06-07 19:33:53 +04:00
|
|
|
OMPI_IO_1_0_0,
|
|
|
|
OMPI_IO_2_0_0
|
|
|
|
} ompi_io_version_t;
|
2004-01-17 00:59:05 +03:00
|
|
|
|
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
struct ompi_file_t {
|
2004-03-19 03:00:09 +03:00
|
|
|
char f_name[MPI_MAX_OBJECT_NAME];
|
2004-06-07 19:33:53 +04:00
|
|
|
ompi_io_version_t ompi_io_version;
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
/* Hooks for io modules to hang things */
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
union {
|
2004-08-02 04:24:22 +04:00
|
|
|
mca_io_base_module_1_0_0_t f_io;
|
2004-03-19 03:00:09 +03:00
|
|
|
} mca_io_functions;
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-03-19 03:00:09 +03:00
|
|
|
/* index in Fortran <-> C translation array */
|
|
|
|
|
|
|
|
int f_f_to_c_index;
|
|
|
|
|
2004-03-19 09:12:43 +03:00
|
|
|
/* Error handling. This field does not have the "f_" prefix so that
|
2004-06-07 19:33:53 +04:00
|
|
|
the OMPI_ERRHDL_* macros can find it, regardless of whether it's a
|
2004-03-19 09:12:43 +03:00
|
|
|
comm, window, or file. */
|
2004-03-19 03:00:09 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
ompi_errhandler_t *error_handler;
|
2004-01-16 02:57:16 +03:00
|
|
|
};
|
2004-06-07 19:33:53 +04:00
|
|
|
typedef struct ompi_file_t ompi_file_t;
|
2004-01-16 02:57:16 +03:00
|
|
|
|
2004-06-07 19:33:53 +04:00
|
|
|
#endif /* OMPI_FILE_H */
|