2000-05-28 13:40:48 +00:00
|
|
|
/*
|
|
|
|
* _fopen.c
|
|
|
|
*
|
|
|
|
* Ullrich von bassewitz, 17.06.1997
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include <fcntl.h>
|
|
|
|
#include <errno.h>
|
|
|
|
#include "_file.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static unsigned char amode_to_bmode (const char* mode)
|
|
|
|
/* Convert ASCII mode (like for fopen) to binary mode (for open) */
|
|
|
|
{
|
|
|
|
char c;
|
|
|
|
char flag = 0;
|
|
|
|
unsigned char binmode = 0;
|
|
|
|
|
2002-05-16 15:25:48 +00:00
|
|
|
c = *mode++;
|
|
|
|
switch(c) {
|
|
|
|
case 'w':
|
|
|
|
binmode = O_WRONLY;
|
|
|
|
break;
|
|
|
|
case 'r':
|
|
|
|
binmode = O_RDONLY;
|
|
|
|
break;
|
|
|
|
case 'a':
|
|
|
|
binmode = O_WRONLY | O_APPEND;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return 0; /* invalid char */
|
|
|
|
}
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
while (c = *mode++) {
|
|
|
|
switch(c) {
|
|
|
|
case '+':
|
2002-05-16 15:25:48 +00:00
|
|
|
binmode = (binmode & ~15) | O_RDWR;
|
2000-05-28 13:40:48 +00:00
|
|
|
break;
|
2002-05-16 15:25:48 +00:00
|
|
|
case 'b':
|
|
|
|
/* currently ignored */
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return 0; /* invalid char */
|
2000-05-28 13:40:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return binmode;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
FILE* _fopen (const char* name, const char* mode, FILE* f)
|
|
|
|
/* Open the specified file and fill the descriptor values into f */
|
|
|
|
{
|
|
|
|
int fd;
|
|
|
|
unsigned char binmode;
|
|
|
|
|
|
|
|
|
|
|
|
/* Convert ASCII mode to binary mode */
|
|
|
|
if ((binmode = amode_to_bmode (mode)) == 0) {
|
2002-05-16 15:25:48 +00:00
|
|
|
/* Invalid mode */
|
|
|
|
_errno = EINVAL;
|
2000-05-28 13:40:48 +00:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Open the file */
|
|
|
|
fd = open (name, binmode);
|
|
|
|
if (fd == -1) {
|
|
|
|
/* Error - _oserror is set */
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Remember fd, mark the file as opened */
|
|
|
|
f->f_fd = fd;
|
|
|
|
f->f_flags = _FOPEN;
|
|
|
|
|
|
|
|
/* Return the file descriptor */
|
|
|
|
return f;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|