mirror of
https://github.com/cc65/cc65.git
synced 2024-08-31 07:29:23 +00:00
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
28 lines
365 B
C
28 lines
365 B
C
/*
|
|
* int fclose (FILE* f);
|
|
*/
|
|
|
|
|
|
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
#include "_file.h"
|
|
|
|
|
|
|
|
int fclose (FILE* f)
|
|
{
|
|
if ((f->f_flags & _FOPEN) == 0) {
|
|
/* File is not open */
|
|
_errno = EINVAL; /* File not input */
|
|
return -1;
|
|
}
|
|
|
|
/* Reset the flags and close the file */
|
|
f->f_flags = _FCLOSED;
|
|
return close (f->f_fd);
|
|
}
|
|
|
|
|
|
|