mirror of
https://github.com/cc65/cc65.git
synced 2024-11-03 10:07:02 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
33 lines
450 B
C
33 lines
450 B
C
/*
|
|
* fopen.c
|
|
*
|
|
* Ullrich von Bassewitz, 17.06.1998
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include "_file.h"
|
|
|
|
|
|
|
|
FILE* fopen (const char* name, const char* mode)
|
|
{
|
|
FILE* f;
|
|
|
|
/* Find a free file slot */
|
|
if (!(f = _fdesc ())) {
|
|
/* No slots */
|
|
_errno = EMFILE; /* Too many files */
|
|
return 0;
|
|
}
|
|
|
|
/* Open the file and return the descriptor */
|
|
return _fopen (name, mode, f);
|
|
}
|
|
|
|
|
|
|