84 lines
1.2 KiB
C
84 lines
1.2 KiB
C
|
/*
|
||
|
|
* fopen.c - open a stream
|
||
|
|
*/
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <sys/file.h>
|
||
|
|
#include "loc_incl.h"
|
||
|
|
|
||
|
|
#define PMODE 0666
|
||
|
|
|
||
|
|
int open(const char *path, int flags, int mode);
|
||
|
|
int close(int d);
|
||
|
|
|
||
|
|
FILE *
|
||
|
|
fopen(const char *name, const char *mode)
|
||
|
|
{
|
||
|
|
register int i;
|
||
|
|
int rwmode = 0, rwflags = 0;
|
||
|
|
FILE *stream;
|
||
|
|
int fd, flags = 0;
|
||
|
|
|
||
|
|
for (i = 0; _iotable[i] != 0 ; i++)
|
||
|
|
if ( i >= FOPEN_MAX )
|
||
|
|
return (FILE *)NULL;
|
||
|
|
|
||
|
|
switch(*mode++) {
|
||
|
|
|
||
|
|
case 'r':
|
||
|
|
flags |= _IOREAD;
|
||
|
|
rwmode = O_RDONLY;
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'w':
|
||
|
|
flags |= _IOWRITE;
|
||
|
|
rwmode = O_WRONLY;
|
||
|
|
rwflags = O_CREAT | O_TRUNC;
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'a':
|
||
|
|
flags |= _IOWRITE;
|
||
|
|
rwmode = O_WRONLY;
|
||
|
|
rwflags |= O_APPEND | O_CREAT;
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
return (FILE *)NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
while (*mode) {
|
||
|
|
switch(*mode++) {
|
||
|
|
|
||
|
|
case 'b':
|
||
|
|
break;
|
||
|
|
|
||
|
|
case '+':
|
||
|
|
rwmode = O_RDWR;
|
||
|
|
flags |= _IOREAD | _IOWRITE;
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
return (FILE *)NULL;
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
fd = open(name, rwmode | rwflags, PMODE);
|
||
|
|
|
||
|
|
if (fd < 0) return (FILE *)NULL;
|
||
|
|
|
||
|
|
if (( stream = (FILE *) malloc(sizeof(FILE))) == NULL ) {
|
||
|
|
close(fd);
|
||
|
|
return (FILE *)NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
stream->_count = 0;
|
||
|
|
stream->_fd = fd;
|
||
|
|
stream->_flags = flags;
|
||
|
|
stream->_buf = 0;
|
||
|
|
_iotable[i] = stream;
|
||
|
|
return stream;
|
||
|
|
}
|