Subversion Repositories planix.SVN

/*
 * pANS stdio -- fclose
 */
#include "iolib.h"
int fclose(FILE *f){
        int error=0;
        if(f->state==CLOSED) return EOF;
        if(fflush(f)==EOF) error=EOF;
        if(f->flags&BALLOC) free(f->buf);
        if(!(f->flags&STRING) && close(f->fd)<0) error=EOF;
        f->state=CLOSED;
        f->flags=0;
        return error;
}