1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-30 01:29:37 +00:00
cc65/libsrc/common/fclose.c
cuz 6e37905b18 Completed _scanf.c, added vsscanf.c, rewrote sscanf.c.
Added an assembler include _file.inc and changed asm code that uses struct
FILE to be independent of its size.
Fixed return codes in several files to use EOF instead of -1.


git-svn-id: svn://svn.cc65.org/cc65/trunk@1205 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-03-24 13:26:18 +00:00

28 lines
366 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 EOF;
}
/* Reset the flags and close the file */
f->f_flags = _FCLOSED;
return close (f->f_fd);
}