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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* open for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. */
#include <fcntl.h>
#include <_ansi.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "sys/syscall.h"
#include <errno.h>
/* Let's keep the filehandle array here, since this is a primary
initializer of it. */
unsigned char _MMIX_allocated_filehandle[32] =
{
1,
1,
1,
0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0
};
int
_open (const char *path,
int flags, ...)
{
long fileno;
unsigned char mode;
long fffile = 0;
long ret;
for (fileno = 0;
fileno < (sizeof (_MMIX_allocated_filehandle) /
sizeof (_MMIX_allocated_filehandle[0]));
fileno++)
if (_MMIX_allocated_filehandle[fileno] == 0)
break;
if (fileno == (sizeof (_MMIX_allocated_filehandle) /
sizeof (_MMIX_allocated_filehandle[0])))
{
errno = EMFILE;
return -1;
}
/* We map this to a fopen call. The flags parameter is stymied because
we don't support more other than these flags. */
if (flags & ~(O_RDONLY | O_WRONLY | O_RDWR | O_CREAT | O_APPEND | O_TRUNC))
{
UNIMPLEMENTED (("path: %s, flags: %d", path, flags));
errno = ENOSYS;
return -1;
}
if ((flags & O_ACCMODE) == O_RDONLY)
mode = BinaryRead;
else if ((flags & (O_WRONLY | O_APPEND)) == (O_WRONLY | O_APPEND))
{
mode = BinaryReadWrite;
fffile = 1;
}
else if ((flags & (O_RDWR | O_APPEND)) == (O_RDWR | O_APPEND))
{
mode = BinaryReadWrite;
fffile = 1;
}
else if ((flags & (O_WRONLY | O_CREAT)) == (O_WRONLY | O_CREAT)
|| (flags & (O_WRONLY | O_TRUNC)) == (O_WRONLY | O_TRUNC))
mode = BinaryWrite;
else if ((flags & (O_RDWR | O_CREAT)) == (O_RDWR | O_CREAT))
mode = BinaryReadWrite;
else if (flags & O_RDWR)
mode = BinaryReadWrite;
else
{
errno = EINVAL;
return -1;
}
ret = TRAP3f (SYS_Fopen, fileno, path, mode);
if (ret < 0)
{
/* It's totally unknown what the error was. We'll just take our
chances and assume ENOENT. */
errno = ENOENT;
return -1;
}
_MMIX_allocated_filehandle[fileno] = 1;
if (fffile)
{
TRAP2f (SYS_Fseek, fileno, -1);
}
return fileno;
}
|
