1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include "ad_ime.h"
#include "ad_ime_common.h"
#include <assert.h>
void ADIOI_IME_Open(ADIO_File fd, int *error_code)
{
static char myname[] = "ADIOI_IME_OPEN";
struct ADIOI_IME_fs_s *ime_fs;
int perm;
int amode = 0;
int ret;
int rank = 0;
mode_t old_mask;
/* validate input args */
if (!fd) {
*error_code = MPI_ERR_FILE;
return;
}
if (!error_code) {
*error_code = MPI_ERR_FILE;
return;
}
/* setup file permissions */
if (fd->perm == ADIO_PERM_NULL) {
old_mask = umask(022);
umask(old_mask);
perm = old_mask ^ 0666;
} else
perm = fd->perm;
/* setup the file access mode */
if (fd->access_mode & ADIO_CREATE)
amode = amode | O_CREAT;
if (fd->access_mode & ADIO_RDONLY)
amode = amode | O_RDONLY;
if (fd->access_mode & ADIO_WRONLY)
amode = amode | O_WRONLY;
if (fd->access_mode & ADIO_RDWR)
amode = amode | O_RDWR;
if (fd->access_mode & ADIO_EXCL)
amode = amode | O_EXCL;
/* XXX no O_APPEND support */
assert((fd->access_mode & ADIO_APPEND) == 0);
/* init IME */
MPI_Comm_rank(fd->comm, &rank);
ADIOI_IME_Init(rank, error_code);
if (*error_code != MPI_SUCCESS)
return;
ime_fs = (ADIOI_IME_fs *) ADIOI_Malloc(sizeof(ADIOI_IME_fs));
/* --BEGIN ERROR HANDLING-- */
if (ime_fs == NULL) {
*error_code = MPIO_Err_create_code(MPI_SUCCESS,
MPIR_ERR_RECOVERABLE,
myname, __LINE__,
MPI_ERR_UNKNOWN, "Error allocating memory", 0);
return;
}
ime_fs->ime_filename = ADIOI_IME_Add_prefix(fd->filename);
/* all processes open the file */
ret = ime_native_open(ime_fs->ime_filename, amode, perm);
if (ret < 0) {
*error_code = MPI_ERR_FILE;
ADIOI_Free(ime_fs->ime_filename);
ADIOI_Free(ime_fs);
return;
}
fd->fd_sys = ret;
fd->fd_direct = -1;
fd->fs_ptr = ime_fs;
*error_code = MPI_SUCCESS;
return;
}
|
