shithub: scc

ref: 8604fd05150d98be7c9503ec9a97b63f05371ff7
dir: /src/libc/stdio/fclose.c/

#include <stdlib.h>
#include <stdio.h>

#include "../libc.h"
#include "../syscall.h"

#undef fclose

int
fclose(FILE *fp)
{
	int r = EOF;

	if ((fp->flags & _IOSTRG) == 0 &&
	    fp->flags & (_IOWRITE | _IOREAD | _IORW)) {
		r = 0;
		if (_flsbuf(fp) == EOF)
			r = EOF;
		if (_close(fp->fd) < 0)
			r = EOF;
	}

	if (fp->flags & _IOALLOC) {
		free(fp->buf);
		fp->rp = fp->wp = fp->lp = fp->buf = NULL;
	}

	fp->flags &= ~(_IOWRITE | _IOREAD | _IORW |
	               _IOERR | _IOEOF |
	               _IOALLOC |
	               _IOTXT |
	               _IOSTRG);

	return r;
}