/*@ MPI_File_get_position - Returns the current position of the individual file pointer in etype units relative to the current view Input Parameters: . fh - file handle (handle) Output Parameters: . offset - offset of individual file pointer (nonnegative integer) .N fortran @*/ int MPI_File_get_position(MPI_File fh, MPI_Offset *offset) { #ifndef PRINT_ERR_MSG int error_code; static char myname[] = "MPI_FILE_GET_POSITION"; #endif #ifdef PRINT_ERR_MSG if ((fh <= (MPI_File) 0) || (fh->cookie != ADIOI_FILE_COOKIE)) { FPRINTF(stderr, "MPI_File_get_position: Invalid file handle\n"); MPI_Abort(MPI_COMM_WORLD, 1); } #else ADIOI_TEST_FILE_HANDLE(fh, myname); #endif if (fh->access_mode & MPI_MODE_SEQUENTIAL) { #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_get_position: Can't use this function because file was opened with MPI_MODE_SEQUENTIAL\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_UNSUPPORTED_OPERATION, MPIR_ERR_AMODE_SEQ, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } ADIOI_Get_position(fh, offset); return MPI_SUCCESS; }
/*@ MPI_File_get_position - Returns the current position of the individual file pointer in etype units relative to the current view Input Parameters: . fh - file handle (handle) Output Parameters: . offset - offset of individual file pointer (nonnegative integer) .N fortran @*/ int MPI_File_get_position(MPI_File mpi_fh, MPI_Offset *offset) { int error_code; ADIO_File fh; static char myname[] = "MPI_FILE_GET_POSITION"; MPIR_Nest_incr(); fh = MPIO_File_resolve(mpi_fh); /* --BEGIN ERROR HANDLING-- */ MPIO_CHECK_FILE_HANDLE(fh, myname, error_code); MPIO_CHECK_NOT_SEQUENTIAL_MODE(fh, myname, error_code); /* --END ERROR HANDLING-- */ ADIOI_Get_position(fh, offset); fn_exit: MPIR_Nest_decr(); return MPI_SUCCESS; }
/*@ MPI_File_seek - Updates the individual file pointer Input Parameters: . fh - file handle (handle) . offset - file offset (integer) . whence - update mode (state) .N fortran @*/ int MPI_File_seek(MPI_File fh, MPI_Offset offset, int whence) { int error_code; ADIO_File adio_fh; static char myname[] = "MPI_FILE_SEEK"; MPI_Offset curr_offset, eof_offset; #ifdef MPI_hpux int fl_xmpi; HPMP_IO_START(fl_xmpi, BLKMPIFILESEEK, TRDTBLOCK, adio_fh, MPI_DATATYPE_NULL, -1); #endif /* MPI_hpux */ ROMIO_THREAD_CS_ENTER(); adio_fh = MPIO_File_resolve(fh); /* --BEGIN ERROR HANDLING-- */ MPIO_CHECK_FILE_HANDLE(adio_fh, myname, error_code); MPIO_CHECK_NOT_SEQUENTIAL_MODE(adio_fh, myname, error_code); /* --END ERROR HANDLING-- */ switch (whence) { case MPI_SEEK_SET: /* --BEGIN ERROR HANDLING-- */ if (offset < 0) { error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, myname, __LINE__, MPI_ERR_ARG, "**iobadoffset", 0); error_code = MPIO_Err_return_file(adio_fh, error_code); goto fn_exit; } /* --END ERROR HANDLING-- */ break; case MPI_SEEK_CUR: /* find offset corr. to current location of file pointer */ ADIOI_Get_position(adio_fh, &curr_offset); offset += curr_offset; /* --BEGIN ERROR HANDLING-- */ if (offset < 0) { error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, myname, __LINE__, MPI_ERR_ARG, "**ionegoffset", 0); error_code = MPIO_Err_return_file(adio_fh, error_code); goto fn_exit; } /* --END ERROR HANDLING-- */ break; case MPI_SEEK_END: /* we can in many cases do seeks w/o a file actually opened, but not in * the MPI_SEEK_END case */ ADIOI_TEST_DEFERRED(adio_fh, "MPI_File_seek", &error_code); /* find offset corr. to end of file */ ADIOI_Get_eof_offset(adio_fh, &eof_offset); offset += eof_offset; /* --BEGIN ERROR HANDLING-- */ if (offset < 0) { error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, myname, __LINE__, MPI_ERR_ARG, "**ionegoffset", 0); error_code = MPIO_Err_return_file(adio_fh, error_code); goto fn_exit; } /* --END ERROR HANDLING-- */ break; default: /* --BEGIN ERROR HANDLING-- */ error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, myname, __LINE__, MPI_ERR_ARG, "**iobadwhence", 0); error_code = MPIO_Err_return_file(adio_fh, error_code); goto fn_exit; /* --END ERROR HANDLING-- */ } ADIO_SeekIndividual(adio_fh, offset, ADIO_SEEK_SET, &error_code); /* TODO: what do we do with this error? */ /* --BEGIN ERROR HANDLING-- */ if (error_code != MPI_SUCCESS) error_code = MPIO_Err_return_file(adio_fh, error_code); /* --END ERROR HANDLING-- */ #ifdef MPI_hpux HPMP_IO_END(fl_xmpi, adio_fh, MPI_DATATYPE_NULL, -1); #endif /* MPI_hpux */ error_code = MPI_SUCCESS; fn_exit: ROMIO_THREAD_CS_EXIT(); return error_code; }
/*@ MPI_File_seek - Updates the individual file pointer Input Parameters: . fh - file handle (handle) . offset - file offset (integer) . whence - update mode (state) .N fortran @*/ int MPI_File_seek(MPI_File fh, MPI_Offset offset, int whence) { int error_code; #ifndef PRINT_ERR_MSG static char myname[] = "MPI_FILE_SEEK"; #endif MPI_Offset curr_offset, eof_offset; #ifdef MPI_hpux int fl_xmpi; HPMP_IO_START(fl_xmpi, BLKMPIFILESEEK, TRDTBLOCK, fh, MPI_DATATYPE_NULL, -1); #endif /* MPI_hpux */ #ifdef PRINT_ERR_MSG if ((fh <= (MPI_File) 0) || (fh->cookie != ADIOI_FILE_COOKIE)) { FPRINTF(stderr, "MPI_File_seek: Invalid file handle\n"); MPI_Abort(MPI_COMM_WORLD, 1); } #else ADIOI_TEST_FILE_HANDLE(fh, myname); #endif if (fh->access_mode & MPI_MODE_SEQUENTIAL) { #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_seek: Can't use this function because file was opened with MPI_MODE_SEQUENTIAL\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_UNSUPPORTED_OPERATION, MPIR_ERR_AMODE_SEQ, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } switch(whence) { case MPI_SEEK_SET: if (offset < 0) { #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_seek: Invalid offset argument\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_ARG, MPIR_ERR_OFFSET_ARG, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } break; case MPI_SEEK_CUR: /* find offset corr. to current location of file pointer */ ADIOI_Get_position(fh, &curr_offset); offset += curr_offset; if (offset < 0) { #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_seek: offset points to a negative location in the file\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_ARG, MPIR_ERR_OFFSET_ARG_NEG, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } break; case MPI_SEEK_END: /* find offset corr. to end of file */ ADIOI_Get_eof_offset(fh, &eof_offset); offset += eof_offset; if (offset < 0) { #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_seek: offset points to a negative location in the file\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_ARG, MPIR_ERR_OFFSET_ARG_NEG, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } break; default: #ifdef PRINT_ERR_MSG FPRINTF(stderr, "MPI_File_seek: Invalid whence argument\n"); MPI_Abort(MPI_COMM_WORLD, 1); #else error_code = MPIR_Err_setmsg(MPI_ERR_ARG, MPIR_ERR_WHENCE_ARG, myname, (char *) 0, (char *) 0); return ADIOI_Error(fh, error_code, myname); #endif } ADIO_SeekIndividual(fh, offset, ADIO_SEEK_SET, &error_code); #ifdef MPI_hpux HPMP_IO_END(fl_xmpi, fh, MPI_DATATYPE_NULL, -1); #endif /* MPI_hpux */ return error_code; }