blob: c9e2bc9ff947c94f4f610397305d51863a10b622 (
plain) (
blame)
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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_stdio
#define import_fset
#include <iraf.h>
extern int c_fstati();
/* FDOPEN -- Reopen a file for i/o with the STDIO package, after the file
** as already been opened by FIO. It is an error if the access modes are
** incompatible.
*/
FILE *
fdopen (
XINT fd, /* FIO file descriptor */
char *mode /* STDIO access mode */
)
{
register int fio_mode = c_fstati (fd, F_MODE);
register int fio_type = c_fstati (fd, F_TYPE);
/* Verify file access mode. No mode checking is performed for the
* special file types.
*/
if (fio_type == TEXT_FILE || fio_type == BINARY_FILE)
switch (mode[0]) {
case 'r':
if (fio_mode != READ_ONLY && fio_mode != READ_WRITE)
return (NULL);
break;
case 'w':
switch (fio_mode) {
case NEW_FILE:
case READ_WRITE:
case WRITE_ONLY:
break;
default:
return (NULL);
}
break;
case 'a':
if (fio_mode != APPEND && fio_mode != NEW_FILE)
return (NULL);
break;
default:
return (NULL);
}
/* Verify file type. No checking is performed if no type is given.
*/
switch (mode[1]) {
case EOS:
break;
case 't':
if (fio_type != TEXT_FILE)
return (NULL);
break;
case 'b':
if (fio_type != BINARY_FILE)
return (NULL);
break;
default:
return (NULL);
}
return (FDTOFP(fd));
}
|
