ack/lang/cem/libcc/stdio/fdopen.c
1987-07-17 14:04:14 +00:00

41 lines
584 B
C

/* $Header$ */
#include <stdio.h>
FILE *fdopen(fd,mode)
char *mode;
{
register int i;
FILE *fp;
char *malloc();
int flags = 0;
if (fd < 0) return NULL;
for (i = 0; _io_table[i] != 0 ; i++)
if ( i >= _NFILES )
return(NULL);
switch(*mode) {
case 'r':
flags |= IO_READMODE;
break;
case 'a':
lseek(fd, 0L, 2);
case 'w':
flags |= IO_WRITEMODE;
break;
default:
return NULL;
}
if (( fp = (FILE *) malloc (sizeof( FILE))) == NULL ) {
return(NULL);
}
fp->_count = 0;
fp->_fd = fd;
fp->_flags = flags;
fp->_buf = 0;
_io_table[i] = fp;
return(fp);
}