blob: f3e181c8a1fcddba60fcfce92c02e5524b51735a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
/* Copyright (C) 2004 Manuel Novoa III <mjn3@codepoet.org>
*
* GNU Library General Public License (LGPL) version 2 or later.
*
* Dedicated to Toni. See uClibc/DEDICATION.mjn3 for details.
*/
#include "_stdio.h"
libc_hidden_proto(fclose)
libc_hidden_proto(close)
libc_hidden_proto(fflush_unlocked)
int fclose(register FILE *stream)
{
int rv = 0;
__STDIO_AUTO_THREADLOCK_VAR;
#ifdef __UCLIBC_MJN3_ONLY__
#warning REMINDER: dead code... but may want to simply check and not remove
#endif
/* #ifdef __STDIO_HAS_OPENLIST */
/* #if !defined(__UCLIBC_HAS_THREADS__) || !defined(__STDIO_BUFFERS) */
/* /\* First, remove the file from the open file list. *\/ */
/* { */
/* register FILE *ptr; */
/* __STDIO_THREADLOCK_OPENLIST; */
/* if ((ptr = _stdio_openlist) == stream) { */
/* #warning does a mod!!! */
/* _stdio_openlist = stream->__nextopen; */
/* } else { */
/* while (ptr) { */
/* if (ptr->__nextopen == stream) { */
/* ptr->__nextopen = stream->__nextopen; */
/* break; */
/* } */
/* ptr = ptr->__nextopen; */
/* } */
/* } */
/* __STDIO_THREADUNLOCK_OPENLIST; */
/* if (!ptr) { /\* Did not find stream in the open file list! *\/ */
/* return EOF; */
/* } */
/* } */
/* #endif */
/* #endif */
__STDIO_AUTO_THREADLOCK(stream);
__STDIO_STREAM_VALIDATE(stream);
#ifdef __STDIO_BUFFERS
/* Write any pending buffered chars. */
if (__STDIO_STREAM_IS_WRITING(stream)) {
rv = fflush_unlocked(stream);
}
#endif
if (__CLOSE(stream) < 0) { /* Must close even if fflush failed. */
rv = EOF;
}
stream->__filedes = -1;
/* We need a way for freopen to know that a file has been closed.
* Since a file can't be both readonly and writeonly, that makes
* an effective signal. It also has the benefit of disabling
* transitions to either reading or writing. */
#if defined(__UCLIBC_HAS_THREADS__) && defined(__STDIO_BUFFERS)
/* Before we mark the file as closed, make sure we increment the openlist use count
* so it isn't freed under us while still cleaning up. */
__STDIO_OPENLIST_INC_USE;
#endif
stream->__modeflags &= (__FLAG_FREEBUF|__FLAG_FREEFILE);
stream->__modeflags |= (__FLAG_READONLY|__FLAG_WRITEONLY);
#ifndef NDEBUG
__STDIO_STREAM_RESET_GCS(stream);
/* Reinitialize everything (including putc since fflush could fail). */
__STDIO_STREAM_DISABLE_GETC(stream);
__STDIO_STREAM_DISABLE_PUTC(stream);
__STDIO_STREAM_INIT_BUFREAD_BUFPOS(stream);
# ifdef __UCLIBC_HAS_WCHAR__
stream->__ungot_width[0] = 0;
# endif
# ifdef __STDIO_MBSTATE
__INIT_MBSTATE(&(stream->__state));
# endif
#endif
__STDIO_AUTO_THREADUNLOCK(stream);
__STDIO_STREAM_FREE_BUFFER(stream);
#ifdef __UCLIBC_MJN3_ONLY__
#warning REMINDER: inefficient - locks and unlocks twice and walks whole list
#endif
#if defined(__UCLIBC_HAS_THREADS__) && defined(__STDIO_BUFFERS)
/* inefficient - locks/unlocks twice and walks whole list */
__STDIO_OPENLIST_INC_DEL_CNT;
__STDIO_OPENLIST_DEC_USE; /* This with free the file if necessary. */
#else
__STDIO_STREAM_FREE_FILE(stream);
#endif
return rv;
}
libc_hidden_def(fclose)
|
