1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 *
4 * Copyright (C) 1997 University of Chicago.
5 * See COPYRIGHT notice in top-level directory.
6 */
7
8 #include "ad_ufs.h"
9
ADIOI_UFS_Open(ADIO_File fd,int * error_code)10 void ADIOI_UFS_Open(ADIO_File fd, int *error_code)
11 {
12 int perm, old_mask, amode;
13 static char myname[] = "ADIOI_UFS_OPEN";
14
15 if (fd->perm == ADIO_PERM_NULL) {
16 old_mask = umask(022);
17 umask(old_mask);
18 perm = old_mask ^ 0666;
19 }
20 else perm = fd->perm;
21
22 amode = 0;
23 if (fd->access_mode & ADIO_CREATE)
24 amode = amode | O_CREAT;
25 if (fd->access_mode & ADIO_RDONLY)
26 amode = amode | O_RDONLY;
27 if (fd->access_mode & ADIO_WRONLY)
28 amode = amode | O_WRONLY;
29 if (fd->access_mode & ADIO_RDWR)
30 amode = amode | O_RDWR;
31 if (fd->access_mode & ADIO_EXCL)
32 amode = amode | O_EXCL;
33
34
35 #ifdef ADIOI_MPE_LOGGING
36 MPE_Log_event( ADIOI_MPE_open_a, 0, NULL );
37 #endif
38 fd->fd_sys = open(fd->filename, amode, perm);
39 #ifdef ADIOI_MPE_LOGGING
40 MPE_Log_event( ADIOI_MPE_open_b, 0, NULL );
41 #endif
42 fd->fd_direct = -1;
43
44 if ((fd->fd_sys != -1) && (fd->access_mode & ADIO_APPEND)) {
45 #ifdef ADIOI_MPE_LOGGING
46 MPE_Log_event( ADIOI_MPE_lseek_a, 0, NULL );
47 #endif
48 fd->fp_ind = fd->fp_sys_posn = lseek(fd->fd_sys, 0, SEEK_END);
49 #ifdef ADIOI_MPE_LOGGING
50 MPE_Log_event( ADIOI_MPE_lseek_b, 0, NULL );
51 #endif
52 }
53
54 /* --BEGIN ERROR HANDLING-- */
55 if (fd->fd_sys == -1) {
56 if (errno == ENAMETOOLONG)
57 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
58 MPIR_ERR_RECOVERABLE, myname,
59 __LINE__, MPI_ERR_BAD_FILE,
60 "**filenamelong",
61 "**filenamelong %s %d",
62 fd->filename,
63 strlen(fd->filename));
64 else if (errno == ENOENT)
65 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
66 MPIR_ERR_RECOVERABLE, myname,
67 __LINE__, MPI_ERR_NO_SUCH_FILE,
68 "**filenoexist",
69 "**filenoexist %s",
70 fd->filename);
71 else if (errno == ENOTDIR || errno == ELOOP)
72 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
73 MPIR_ERR_RECOVERABLE,
74 myname, __LINE__,
75 MPI_ERR_BAD_FILE,
76 "**filenamedir",
77 "**filenamedir %s",
78 fd->filename);
79 else if (errno == EACCES) {
80 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
81 MPIR_ERR_RECOVERABLE, myname,
82 __LINE__, MPI_ERR_ACCESS,
83 "**fileaccess",
84 "**fileaccess %s",
85 fd->filename );
86 }
87 else if (errno == EROFS) {
88 /* Read only file or file system and write access requested */
89 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
90 MPIR_ERR_RECOVERABLE, myname,
91 __LINE__, MPI_ERR_READ_ONLY,
92 "**ioneedrd", 0 );
93 }
94 else {
95 *error_code = MPIO_Err_create_code(MPI_SUCCESS,
96 MPIR_ERR_RECOVERABLE, myname,
97 __LINE__, MPI_ERR_IO, "**io",
98 "**io %s", strerror(errno));
99 }
100 }
101 /* --END ERROR HANDLING-- */
102 else *error_code = MPI_SUCCESS;
103 }
104