/* * Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana * University Research and Technology * Corporation. All rights reserved. * Copyright (c) 2004-2006 The University of Tennessee and The University * of Tennessee Research Foundation. All rights * reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, * University of Stuttgart. All rights reserved. * Copyright (c) 2004-2005 The Regents of the University of California. * All rights reserved. * $COPYRIGHT$ * * Additional copyrights may follow * * $HEADER$ */ #ifndef OMPI_FILE_H #define OMPI_FILE_H #include "mpi.h" #include "opal/class/opal_list.h" #include "ompi/errhandler/errhandler.h" #include "opal/threads/mutex.h" #include "ompi/mca/io/io.h" /* * Flags */ #define OMPI_FILE_ISCLOSED 0x00000001 #define OMPI_FILE_HIDDEN 0x00000002 #if defined(c_plusplus) || defined(__cplusplus) extern "C" { #endif /** * Back-end structure for MPI_File */ struct ompi_file_t { /** Base of OBJ_* interface */ opal_object_t super; /** Communicator that this file was created with */ struct ompi_communicator_t *f_comm; /** Filename that this file was created with */ char *f_filename; /** Amode that this file was created with */ int f_amode; /** MPI_Info that this file was created with. Note that this is *NOT* what should be returned from OMPI_FILE_GET_INFO! */ struct ompi_info_t *f_info; /** Bit flags */ int32_t f_flags; /** Index in Fortran <-> C translation array */ int f_f_to_c_index; /** Error handler. This field does not have the "f_" prefix so that the OMPI_ERRHDL_* macros can find it, regardless of whether it's a comm, window, or file. */ struct ompi_errhandler_t *error_handler; /** Type of the error handler. This field does not have the "f_" prefix for the same reason as the field error_handler. */ ompi_errhandler_type_t errhandler_type; /** Indicate what version of the IO component we're using (this indicates what member to look at in the union, below) */ mca_io_base_version_t f_io_version; /** The selected component (note that this is a union) -- we need this to add and remove the component from the list of components currently in use by the io framework for progression porpoises. */ mca_io_base_components_t f_io_selected_component; /** The selected module (note that this is a union) */ mca_io_base_modules_t f_io_selected_module; /** Allow the selected module to cache data on the file */ struct mca_io_base_file_t *f_io_selected_data; /** Per-module io request freelist */ opal_list_t f_io_requests; /** Lock for the per-module io request freelist */ opal_mutex_t f_io_requests_lock; }; /** * Convenience typedef */ typedef struct ompi_file_t ompi_file_t; /** * Back-end instances for MPI_FILE_NULL */ OMPI_DECLSPEC extern ompi_file_t ompi_mpi_file_null; /** * Fortran to C conversion table */ extern ompi_pointer_array_t ompi_file_f_to_c_table; /** * Initialize MPI_File handling. * * @retval OMPI_SUCCESS Always. * * Invoked during ompi_mpi_init(). */ int ompi_file_init(void); /** * Back-end to MPI_FILE_OPEN: create a file handle, select an io * component to use, and have that componet open the file. * * @param comm Communicator * @param filename String filename * @param amode Mode flags * @param info Info * @param fh Output file handle * * @retval OMPI_SUCCESS Upon success * @retval OMPI_ERR* Upon error * * Create a file handle and select an io module to be paired with * it. There is a corresponding ompi_file_close() function; it * mainly calls OBJ_RELEASE() but also does some other error * handling as well. */ int ompi_file_open(struct ompi_communicator_t *comm, char *filename, int amode, struct ompi_info_t *info, ompi_file_t **fh); /** * Atomicly set a name on a file handle. * * @param file MPI_File handle to set the name on * @param name NULL-terminated string to use * * @returns OMPI_SUCCESS Always. * * At most (MPI_MAX_OBJECT_NAME-1) characters will be copied over to * the file name's name. This function is performed atomically -- a * lock is used to ensure that there are not multiple writers to the * name to ensure that we don't end up with an erroneous name (e.g., * a name without a \0 at the end). After invoking this function, * ompi_file_is_name_set() will return true. */ int ompi_file_set_name(ompi_file_t *file, char *name); /** * Back-end to MPI_FILE_CLOSE: destroy an ompi_file_t handle and * close the file. * * @param file Pointer to ompi_file_t * * @returns OMPI_SUCCESS Always. * * This is the preferred mechanism for freeing an ompi_file_t. * Although the main action that it performs is OBJ_RELEASE(), it * also does some additional handling for error checking, etc. */ int ompi_file_close(ompi_file_t **file); /** * Tear down MPI_File handling. * * @retval OMPI_SUCCESS Always. * * Invoked during ompi_mpi_finalize(). */ int ompi_file_finalize(void); /** * Check to see if an MPI_File handle is valid. * * @param file The MPI file handle * * @retval true If the file handle is not valid * @retval false If the file handle is valid * * This is a convenience function, mainly for error checking in * top-level MPI API functions. */ static inline bool ompi_file_invalid(ompi_file_t *file) { return (NULL == file || &ompi_mpi_file_null == file || 0 != (file->f_flags & OMPI_FILE_ISCLOSED)); } #if defined(c_plusplus) || defined(__cplusplus) } #endif #endif /* OMPI_FILE_H */