source: asp3_tinet_ecnl_arm/trunk/musl-1.1.18/src/stdio/fclose.c@ 352

#include "stdio_impl.h"
#include "libc.h"

#ifndef __c2__
static void dummy(FILE *f) { }
weak_alias(dummy, __unlist_locked_file);
#else
extern void __unlist_locked_file(FILE *f);
#endif

int fclose(FILE *f)
{
        int r;
        int perm;
        
        FLOCK(f);

        __unlist_locked_file(f);

        if (!(perm = f->flags & F_PERM)) {
                FILE **head = __ofl_lock();
                if (f->prev) f->prev->next = f->next;
                if (f->next) f->next->prev = f->prev;
                if (*head == f) *head = f->next;
                __ofl_unlock();
        }

        r = fflush(f);
        r |= f->close(f);

        if (f->getln_buf) free(f->getln_buf);
        if (!perm) free(f);
        else FUNLOCK(f);

        return r;
}