| /programs/develop/libraries/menuetlibc/src/libc/ansi/stdio/fclose.c |
|---|
| 0,0 → 1,39 |
| /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */ |
| #include <libc/stubs.h> |
| #include <stdio.h> |
| #include <sys/types.h> |
| #include <sys/stat.h> |
| #include <stdlib.h> |
| #include <unistd.h> |
| #include <libc/file.h> |
| int fclose(FILE *f) |
| { |
| int r; |
| r = EOF; |
| if (!f) |
| return r; |
| if (f->_flag & (_IOREAD|_IOWRT|_IORW) |
| && !(f->_flag&_IOSTRG)) |
| { |
| r = fflush(f); |
| if (close(fileno(f)) < 0) |
| r = EOF; |
| if (f->_flag&_IOMYBUF) |
| free(f->_base); |
| } |
| if (f->_flag & _IORMONCL && f->_name_to_remove) |
| { |
| remove(f->_name_to_remove); |
| free(f->_name_to_remove); |
| f->_name_to_remove = 0; |
| } |
| f->_cnt = 0; |
| f->_base = 0; |
| f->_ptr = 0; |
| f->_bufsiz = 0; |
| f->_flag = 0; |
| f->_file = -1; |
| return r; |
| } |