1/* Copyright (C) 1993-2016 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <http://www.gnu.org/licenses/>.
17
18 As a special exception, if you link the code in this file with
19 files compiled with a GNU compiler to produce an executable,
20 that does not cause the resulting executable to be covered by
21 the GNU Lesser General Public License. This exception does not
22 however invalidate any other reasons why the executable file
23 might be covered by the GNU Lesser General Public License.
24 This exception applies to code released by its copyright holders
25 in files containing the exception. */
26
27/* NOTE: libio is now exclusively used only by glibc since libstdc++ has its
28 own implementation. As a result, functions that were implemented for C++
29 (like *sputn) may no longer have C++ semantics. This is of course only
30 relevant for internal callers of these functions since these functions are
31 not intended for external use otherwise.
32
33 FIXME: All of the C++ cruft eventually needs to go away. */
34
35#include <stddef.h>
36
37#include <errno.h>
38#ifndef __set_errno
39# define __set_errno(Val) errno = (Val)
40#endif
41#if defined __GLIBC__ && __GLIBC__ >= 2
42# include <libc-lock.h>
43#else
44/*# include <comthread.h>*/
45#endif
46
47#include <math_ldbl_opt.h>
48
49#include "iolibio.h"
50
51/* Control of exported symbols. Used in glibc. By default we don't
52 do anything. */
53#ifndef libc_hidden_proto
54# define libc_hidden_proto(name)
55#endif
56#ifndef libc_hidden_def
57# define libc_hidden_def(name)
58#endif
59#ifndef libc_hidden_weak
60# define libc_hidden_weak(name)
61#endif
62
63#ifdef __cplusplus
64extern "C" {
65#endif
66
67#define _IO_seek_set 0
68#define _IO_seek_cur 1
69#define _IO_seek_end 2
70
71/* THE JUMPTABLE FUNCTIONS.
72
73 * The _IO_FILE type is used to implement the FILE type in GNU libc,
74 * as well as the streambuf class in GNU iostreams for C++.
75 * These are all the same, just used differently.
76 * An _IO_FILE (or FILE) object is allows followed by a pointer to
77 * a jump table (of pointers to functions). The pointer is accessed
78 * with the _IO_JUMPS macro. The jump table has an eccentric format,
79 * so as to be compatible with the layout of a C++ virtual function table.
80 * (as implemented by g++). When a pointer to a streambuf object is
81 * coerced to an (_IO_FILE*), then _IO_JUMPS on the result just
82 * happens to point to the virtual function table of the streambuf.
83 * Thus the _IO_JUMPS function table used for C stdio/libio does
84 * double duty as the virtual function table for C++ streambuf.
85 *
86 * The entries in the _IO_JUMPS function table (and hence also the
87 * virtual functions of a streambuf) are described below.
88 * The first parameter of each function entry is the _IO_FILE/streambuf
89 * object being acted on (i.e. the 'this' parameter).
90 */
91
92#ifdef _LIBC
93# include <shlib-compat.h>
94# if !SHLIB_COMPAT (libc, GLIBC_2_0, GLIBC_2_1)
95 /* Setting this macro disables the use of the _vtable_offset
96 bias in _IO_JUMPS_FUNCS, below. That is only needed if we
97 want to support old binaries (see oldfileops.c). */
98# define _G_IO_NO_BACKWARD_COMPAT 1
99# endif
100#endif
101
102#if (!defined _IO_USE_OLD_IO_FILE \
103 && (!defined _G_IO_NO_BACKWARD_COMPAT || _G_IO_NO_BACKWARD_COMPAT == 0))
104# define _IO_JUMPS_OFFSET 1
105#else
106# define _IO_JUMPS_OFFSET 0
107#endif
108
109/* Type of MEMBER in struct type TYPE. */
110#define _IO_MEMBER_TYPE(TYPE, MEMBER) __typeof__ (((TYPE){}).MEMBER)
111
112/* Essentially ((TYPE *) THIS)->MEMBER, but avoiding the aliasing
113 violation in case THIS has a different pointer type. */
114#define _IO_CAST_FIELD_ACCESS(THIS, TYPE, MEMBER) \
115 (*(_IO_MEMBER_TYPE (TYPE, MEMBER) *)(((char *) (THIS)) \
116 + offsetof(TYPE, MEMBER)))
117
118#define _IO_JUMPS(THIS) (THIS)->vtable
119#define _IO_JUMPS_FILE_plus(THIS) \
120 _IO_CAST_FIELD_ACCESS ((THIS), struct _IO_FILE_plus, vtable)
121#define _IO_WIDE_JUMPS(THIS) \
122 _IO_CAST_FIELD_ACCESS ((THIS), struct _IO_FILE, _wide_data)->_wide_vtable
123#define _IO_CHECK_WIDE(THIS) \
124 (_IO_CAST_FIELD_ACCESS ((THIS), struct _IO_FILE, _wide_data) != NULL)
125
126#if _IO_JUMPS_OFFSET
127# define _IO_JUMPS_FUNC(THIS) \
128 (IO_validate_vtable \
129 (*(struct _IO_jump_t **) ((void *) &_IO_JUMPS_FILE_plus (THIS) \
130 + (THIS)->_vtable_offset)))
131# define _IO_vtable_offset(THIS) (THIS)->_vtable_offset
132#else
133# define _IO_JUMPS_FUNC(THIS) (IO_validate_vtable (_IO_JUMPS_FILE_plus (THIS)))
134# define _IO_vtable_offset(THIS) 0
135#endif
136#define _IO_WIDE_JUMPS_FUNC(THIS) _IO_WIDE_JUMPS(THIS)
137#define JUMP_FIELD(TYPE, NAME) TYPE NAME
138#define JUMP0(FUNC, THIS) (_IO_JUMPS_FUNC(THIS)->FUNC) (THIS)
139#define JUMP1(FUNC, THIS, X1) (_IO_JUMPS_FUNC(THIS)->FUNC) (THIS, X1)
140#define JUMP2(FUNC, THIS, X1, X2) (_IO_JUMPS_FUNC(THIS)->FUNC) (THIS, X1, X2)
141#define JUMP3(FUNC, THIS, X1,X2,X3) (_IO_JUMPS_FUNC(THIS)->FUNC) (THIS, X1,X2, X3)
142#define JUMP_INIT(NAME, VALUE) VALUE
143#define JUMP_INIT_DUMMY JUMP_INIT(dummy, 0), JUMP_INIT (dummy2, 0)
144
145#define WJUMP0(FUNC, THIS) (_IO_WIDE_JUMPS_FUNC(THIS)->FUNC) (THIS)
146#define WJUMP1(FUNC, THIS, X1) (_IO_WIDE_JUMPS_FUNC(THIS)->FUNC) (THIS, X1)
147#define WJUMP2(FUNC, THIS, X1, X2) (_IO_WIDE_JUMPS_FUNC(THIS)->FUNC) (THIS, X1, X2)
148#define WJUMP3(FUNC, THIS, X1,X2,X3) (_IO_WIDE_JUMPS_FUNC(THIS)->FUNC) (THIS, X1,X2, X3)
149
150/* The 'finish' function does any final cleaning up of an _IO_FILE object.
151 It does not delete (free) it, but does everything else to finalize it.
152 It matches the streambuf::~streambuf virtual destructor. */
153typedef void (*_IO_finish_t) (_IO_FILE *, int); /* finalize */
154#define _IO_FINISH(FP) JUMP1 (__finish, FP, 0)
155#define _IO_WFINISH(FP) WJUMP1 (__finish, FP, 0)
156
157/* The 'overflow' hook flushes the buffer.
158 The second argument is a character, or EOF.
159 It matches the streambuf::overflow virtual function. */
160typedef int (*_IO_overflow_t) (_IO_FILE *, int);
161#define _IO_OVERFLOW(FP, CH) JUMP1 (__overflow, FP, CH)
162#define _IO_WOVERFLOW(FP, CH) WJUMP1 (__overflow, FP, CH)
163
164/* The 'underflow' hook tries to fills the get buffer.
165 It returns the next character (as an unsigned char) or EOF. The next
166 character remains in the get buffer, and the get position is not changed.
167 It matches the streambuf::underflow virtual function. */
168typedef int (*_IO_underflow_t) (_IO_FILE *);
169#define _IO_UNDERFLOW(FP) JUMP0 (__underflow, FP)
170#define _IO_WUNDERFLOW(FP) WJUMP0 (__underflow, FP)
171
172/* The 'uflow' hook returns the next character in the input stream
173 (cast to unsigned char), and increments the read position;
174 EOF is returned on failure.
175 It matches the streambuf::uflow virtual function, which is not in the
176 cfront implementation, but was added to C++ by the ANSI/ISO committee. */
177#define _IO_UFLOW(FP) JUMP0 (__uflow, FP)
178#define _IO_WUFLOW(FP) WJUMP0 (__uflow, FP)
179
180/* The 'pbackfail' hook handles backing up.
181 It matches the streambuf::pbackfail virtual function. */
182typedef int (*_IO_pbackfail_t) (_IO_FILE *, int);
183#define _IO_PBACKFAIL(FP, CH) JUMP1 (__pbackfail, FP, CH)
184#define _IO_WPBACKFAIL(FP, CH) WJUMP1 (__pbackfail, FP, CH)
185
186/* The 'xsputn' hook writes upto N characters from buffer DATA.
187 Returns EOF or the number of character actually written.
188 It matches the streambuf::xsputn virtual function. */
189typedef _IO_size_t (*_IO_xsputn_t) (_IO_FILE *FP, const void *DATA,
190 _IO_size_t N);
191#define _IO_XSPUTN(FP, DATA, N) JUMP2 (__xsputn, FP, DATA, N)
192#define _IO_WXSPUTN(FP, DATA, N) WJUMP2 (__xsputn, FP, DATA, N)
193
194/* The 'xsgetn' hook reads upto N characters into buffer DATA.
195 Returns the number of character actually read.
196 It matches the streambuf::xsgetn virtual function. */
197typedef _IO_size_t (*_IO_xsgetn_t) (_IO_FILE *FP, void *DATA, _IO_size_t N);
198#define _IO_XSGETN(FP, DATA, N) JUMP2 (__xsgetn, FP, DATA, N)
199#define _IO_WXSGETN(FP, DATA, N) WJUMP2 (__xsgetn, FP, DATA, N)
200
201/* The 'seekoff' hook moves the stream position to a new position
202 relative to the start of the file (if DIR==0), the current position
203 (MODE==1), or the end of the file (MODE==2).
204 It matches the streambuf::seekoff virtual function.
205 It is also used for the ANSI fseek function. */
206typedef _IO_off64_t (*_IO_seekoff_t) (_IO_FILE *FP, _IO_off64_t OFF, int DIR,
207 int MODE);
208#define _IO_SEEKOFF(FP, OFF, DIR, MODE) JUMP3 (__seekoff, FP, OFF, DIR, MODE)
209#define _IO_WSEEKOFF(FP, OFF, DIR, MODE) WJUMP3 (__seekoff, FP, OFF, DIR, MODE)
210
211/* The 'seekpos' hook also moves the stream position,
212 but to an absolute position given by a fpos64_t (seekpos).
213 It matches the streambuf::seekpos virtual function.
214 It is also used for the ANSI fgetpos and fsetpos functions. */
215/* The _IO_seek_cur and _IO_seek_end options are not allowed. */
216typedef _IO_off64_t (*_IO_seekpos_t) (_IO_FILE *, _IO_off64_t, int);
217#define _IO_SEEKPOS(FP, POS, FLAGS) JUMP2 (__seekpos, FP, POS, FLAGS)
218#define _IO_WSEEKPOS(FP, POS, FLAGS) WJUMP2 (__seekpos, FP, POS, FLAGS)
219
220/* The 'setbuf' hook gives a buffer to the file.
221 It matches the streambuf::setbuf virtual function. */
222typedef _IO_FILE* (*_IO_setbuf_t) (_IO_FILE *, char *, _IO_ssize_t);
223#define _IO_SETBUF(FP, BUFFER, LENGTH) JUMP2 (__setbuf, FP, BUFFER, LENGTH)
224#define _IO_WSETBUF(FP, BUFFER, LENGTH) WJUMP2 (__setbuf, FP, BUFFER, LENGTH)
225
226/* The 'sync' hook attempts to synchronize the internal data structures
227 of the file with the external state.
228 It matches the streambuf::sync virtual function. */
229typedef int (*_IO_sync_t) (_IO_FILE *);
230#define _IO_SYNC(FP) JUMP0 (__sync, FP)
231#define _IO_WSYNC(FP) WJUMP0 (__sync, FP)
232
233/* The 'doallocate' hook is used to tell the file to allocate a buffer.
234 It matches the streambuf::doallocate virtual function, which is not
235 in the ANSI/ISO C++ standard, but is part traditional implementations. */
236typedef int (*_IO_doallocate_t) (_IO_FILE *);
237#define _IO_DOALLOCATE(FP) JUMP0 (__doallocate, FP)
238#define _IO_WDOALLOCATE(FP) WJUMP0 (__doallocate, FP)
239
240/* The following four hooks (sysread, syswrite, sysclose, sysseek, and
241 sysstat) are low-level hooks specific to this implementation.
242 There is no correspondence in the ANSI/ISO C++ standard library.
243 The hooks basically correspond to the Unix system functions
244 (read, write, close, lseek, and stat) except that a _IO_FILE*
245 parameter is used instead of an integer file descriptor; the default
246 implementation used for normal files just calls those functions.
247 The advantage of overriding these functions instead of the higher-level
248 ones (underflow, overflow etc) is that you can leave all the buffering
249 higher-level functions. */
250
251/* The 'sysread' hook is used to read data from the external file into
252 an existing buffer. It generalizes the Unix read(2) function.
253 It matches the streambuf::sys_read virtual function, which is
254 specific to this implementation. */
255typedef _IO_ssize_t (*_IO_read_t) (_IO_FILE *, void *, _IO_ssize_t);
256#define _IO_SYSREAD(FP, DATA, LEN) JUMP2 (__read, FP, DATA, LEN)
257#define _IO_WSYSREAD(FP, DATA, LEN) WJUMP2 (__read, FP, DATA, LEN)
258
259/* The 'syswrite' hook is used to write data from an existing buffer
260 to an external file. It generalizes the Unix write(2) function.
261 It matches the streambuf::sys_write virtual function, which is
262 specific to this implementation. */
263typedef _IO_ssize_t (*_IO_write_t) (_IO_FILE *, const void *, _IO_ssize_t);
264#define _IO_SYSWRITE(FP, DATA, LEN) JUMP2 (__write, FP, DATA, LEN)
265#define _IO_WSYSWRITE(FP, DATA, LEN) WJUMP2 (__write, FP, DATA, LEN)
266
267/* The 'sysseek' hook is used to re-position an external file.
268 It generalizes the Unix lseek(2) function.
269 It matches the streambuf::sys_seek virtual function, which is
270 specific to this implementation. */
271typedef _IO_off64_t (*_IO_seek_t) (_IO_FILE *, _IO_off64_t, int);
272#define _IO_SYSSEEK(FP, OFFSET, MODE) JUMP2 (__seek, FP, OFFSET, MODE)
273#define _IO_WSYSSEEK(FP, OFFSET, MODE) WJUMP2 (__seek, FP, OFFSET, MODE)
274
275/* The 'sysclose' hook is used to finalize (close, finish up) an
276 external file. It generalizes the Unix close(2) function.
277 It matches the streambuf::sys_close virtual function, which is
278 specific to this implementation. */
279typedef int (*_IO_close_t) (_IO_FILE *); /* finalize */
280#define _IO_SYSCLOSE(FP) JUMP0 (__close, FP)
281#define _IO_WSYSCLOSE(FP) WJUMP0 (__close, FP)
282
283/* The 'sysstat' hook is used to get information about an external file
284 into a struct stat buffer. It generalizes the Unix fstat(2) call.
285 It matches the streambuf::sys_stat virtual function, which is
286 specific to this implementation. */
287typedef int (*_IO_stat_t) (_IO_FILE *, void *);
288#define _IO_SYSSTAT(FP, BUF) JUMP1 (__stat, FP, BUF)
289#define _IO_WSYSSTAT(FP, BUF) WJUMP1 (__stat, FP, BUF)
290
291/* The 'showmany' hook can be used to get an image how much input is
292 available. In many cases the answer will be 0 which means unknown
293 but some cases one can provide real information. */
294typedef int (*_IO_showmanyc_t) (_IO_FILE *);
295#define _IO_SHOWMANYC(FP) JUMP0 (__showmanyc, FP)
296#define _IO_WSHOWMANYC(FP) WJUMP0 (__showmanyc, FP)
297
298/* The 'imbue' hook is used to get information about the currently
299 installed locales. */
300typedef void (*_IO_imbue_t) (_IO_FILE *, void *);
301#define _IO_IMBUE(FP, LOCALE) JUMP1 (__imbue, FP, LOCALE)
302#define _IO_WIMBUE(FP, LOCALE) WJUMP1 (__imbue, FP, LOCALE)
303
304
305#define _IO_CHAR_TYPE char /* unsigned char ? */
306#define _IO_INT_TYPE int
307
308struct _IO_jump_t
309{
310 JUMP_FIELD(size_t, __dummy);
311 JUMP_FIELD(size_t, __dummy2);
312 JUMP_FIELD(_IO_finish_t, __finish);
313 JUMP_FIELD(_IO_overflow_t, __overflow);
314 JUMP_FIELD(_IO_underflow_t, __underflow);
315 JUMP_FIELD(_IO_underflow_t, __uflow);
316 JUMP_FIELD(_IO_pbackfail_t, __pbackfail);
317 /* showmany */
318 JUMP_FIELD(_IO_xsputn_t, __xsputn);
319 JUMP_FIELD(_IO_xsgetn_t, __xsgetn);
320 JUMP_FIELD(_IO_seekoff_t, __seekoff);
321 JUMP_FIELD(_IO_seekpos_t, __seekpos);
322 JUMP_FIELD(_IO_setbuf_t, __setbuf);
323 JUMP_FIELD(_IO_sync_t, __sync);
324 JUMP_FIELD(_IO_doallocate_t, __doallocate);
325 JUMP_FIELD(_IO_read_t, __read);
326 JUMP_FIELD(_IO_write_t, __write);
327 JUMP_FIELD(_IO_seek_t, __seek);
328 JUMP_FIELD(_IO_close_t, __close);
329 JUMP_FIELD(_IO_stat_t, __stat);
330 JUMP_FIELD(_IO_showmanyc_t, __showmanyc);
331 JUMP_FIELD(_IO_imbue_t, __imbue);
332#if 0
333 get_column;
334 set_column;
335#endif
336};
337
338/* We always allocate an extra word following an _IO_FILE.
339 This contains a pointer to the function jump table used.
340 This is for compatibility with C++ streambuf; the word can
341 be used to smash to a pointer to a virtual function table. */
342
343struct _IO_FILE_plus
344{
345 _IO_FILE file;
346 const struct _IO_jump_t *vtable;
347};
348
349#ifdef _IO_USE_OLD_IO_FILE
350/* This structure is used by the compatibility code as if it were an
351 _IO_FILE_plus, but has enough space to initialize the _mode argument
352 of an _IO_FILE_complete. */
353struct _IO_FILE_complete_plus
354{
355 struct _IO_FILE_complete file;
356 const struct _IO_jump_t *vtable;
357};
358#endif
359
360/* Special file type for fopencookie function. */
361struct _IO_cookie_file
362{
363 struct _IO_FILE_plus __fp;
364 void *__cookie;
365 _IO_cookie_io_functions_t __io_functions;
366};
367
368_IO_FILE *_IO_fopencookie (void *cookie, const char *mode,
369 _IO_cookie_io_functions_t io_functions);
370
371
372/* Iterator type for walking global linked list of _IO_FILE objects. */
373
374typedef struct _IO_FILE *_IO_ITER;
375
376/* Generic functions */
377
378extern void _IO_switch_to_main_get_area (_IO_FILE *) __THROW;
379extern void _IO_switch_to_backup_area (_IO_FILE *) __THROW;
380extern int _IO_switch_to_get_mode (_IO_FILE *);
381libc_hidden_proto (_IO_switch_to_get_mode)
382extern void _IO_init_internal (_IO_FILE *, int) attribute_hidden;
383extern int _IO_sputbackc (_IO_FILE *, int) __THROW;
384libc_hidden_proto (_IO_sputbackc)
385extern int _IO_sungetc (_IO_FILE *) __THROW;
386extern void _IO_un_link (struct _IO_FILE_plus *) __THROW;
387libc_hidden_proto (_IO_un_link)
388extern void _IO_link_in (struct _IO_FILE_plus *) __THROW;
389libc_hidden_proto (_IO_link_in)
390extern void _IO_doallocbuf (_IO_FILE *) __THROW;
391libc_hidden_proto (_IO_doallocbuf)
392extern void _IO_unsave_markers (_IO_FILE *) __THROW;
393libc_hidden_proto (_IO_unsave_markers)
394extern void _IO_setb (_IO_FILE *, char *, char *, int) __THROW;
395libc_hidden_proto (_IO_setb)
396extern unsigned _IO_adjust_column (unsigned, const char *, int) __THROW;
397libc_hidden_proto (_IO_adjust_column)
398#define _IO_sputn(__fp, __s, __n) _IO_XSPUTN (__fp, __s, __n)
399
400_IO_ssize_t _IO_least_wmarker (_IO_FILE *, wchar_t *) __THROW;
401libc_hidden_proto (_IO_least_wmarker)
402extern void _IO_switch_to_main_wget_area (_IO_FILE *) __THROW;
403libc_hidden_proto (_IO_switch_to_main_wget_area)
404extern void _IO_switch_to_wbackup_area (_IO_FILE *) __THROW;
405libc_hidden_proto (_IO_switch_to_wbackup_area)
406extern int _IO_switch_to_wget_mode (_IO_FILE *);
407libc_hidden_proto (_IO_switch_to_wget_mode)
408extern void _IO_wsetb (_IO_FILE *, wchar_t *, wchar_t *, int) __THROW;
409libc_hidden_proto (_IO_wsetb)
410extern wint_t _IO_sputbackwc (_IO_FILE *, wint_t) __THROW;
411libc_hidden_proto (_IO_sputbackwc)
412extern wint_t _IO_sungetwc (_IO_FILE *) __THROW;
413extern void _IO_wdoallocbuf (_IO_FILE *) __THROW;
414libc_hidden_proto (_IO_wdoallocbuf)
415extern void _IO_unsave_wmarkers (_IO_FILE *) __THROW;
416extern unsigned _IO_adjust_wcolumn (unsigned, const wchar_t *, int) __THROW;
417extern _IO_off64_t get_file_offset (_IO_FILE *fp);
418
419/* Marker-related function. */
420
421extern void _IO_init_marker (struct _IO_marker *, _IO_FILE *);
422extern void _IO_init_wmarker (struct _IO_marker *, _IO_FILE *);
423extern void _IO_remove_marker (struct _IO_marker *) __THROW;
424extern int _IO_marker_difference (struct _IO_marker *, struct _IO_marker *)
425 __THROW;
426extern int _IO_marker_delta (struct _IO_marker *) __THROW;
427extern int _IO_wmarker_delta (struct _IO_marker *) __THROW;
428extern int _IO_seekmark (_IO_FILE *, struct _IO_marker *, int) __THROW;
429extern int _IO_seekwmark (_IO_FILE *, struct _IO_marker *, int) __THROW;
430
431/* Functions for iterating global list and dealing with its lock */
432
433extern _IO_ITER _IO_iter_begin (void) __THROW;
434libc_hidden_proto (_IO_iter_begin)
435extern _IO_ITER _IO_iter_end (void) __THROW;
436libc_hidden_proto (_IO_iter_end)
437extern _IO_ITER _IO_iter_next (_IO_ITER) __THROW;
438libc_hidden_proto (_IO_iter_next)
439extern _IO_FILE *_IO_iter_file (_IO_ITER) __THROW;
440libc_hidden_proto (_IO_iter_file)
441extern void _IO_list_lock (void) __THROW;
442libc_hidden_proto (_IO_list_lock)
443extern void _IO_list_unlock (void) __THROW;
444libc_hidden_proto (_IO_list_unlock)
445extern void _IO_list_resetlock (void) __THROW;
446libc_hidden_proto (_IO_list_resetlock)
447
448/* Default jumptable functions. */
449
450extern int _IO_default_underflow (_IO_FILE *) __THROW;
451extern int _IO_default_uflow (_IO_FILE *);
452libc_hidden_proto (_IO_default_uflow)
453extern wint_t _IO_wdefault_uflow (_IO_FILE *);
454libc_hidden_proto (_IO_wdefault_uflow)
455extern int _IO_default_doallocate (_IO_FILE *) __THROW;
456libc_hidden_proto (_IO_default_doallocate)
457extern int _IO_wdefault_doallocate (_IO_FILE *) __THROW;
458libc_hidden_proto (_IO_wdefault_doallocate)
459extern void _IO_default_finish (_IO_FILE *, int) __THROW;
460libc_hidden_proto (_IO_default_finish)
461extern void _IO_wdefault_finish (_IO_FILE *, int) __THROW;
462libc_hidden_proto (_IO_wdefault_finish)
463extern int _IO_default_pbackfail (_IO_FILE *, int) __THROW;
464libc_hidden_proto (_IO_default_pbackfail)
465extern wint_t _IO_wdefault_pbackfail (_IO_FILE *, wint_t) __THROW;
466libc_hidden_proto (_IO_wdefault_pbackfail)
467extern _IO_FILE* _IO_default_setbuf (_IO_FILE *, char *, _IO_ssize_t);
468extern _IO_size_t _IO_default_xsputn (_IO_FILE *, const void *, _IO_size_t);
469libc_hidden_proto (_IO_default_xsputn)
470extern _IO_size_t _IO_wdefault_xsputn (_IO_FILE *, const void *, _IO_size_t);
471libc_hidden_proto (_IO_wdefault_xsputn)
472extern _IO_size_t _IO_default_xsgetn (_IO_FILE *, void *, _IO_size_t);
473libc_hidden_proto (_IO_default_xsgetn)
474extern _IO_size_t _IO_wdefault_xsgetn (_IO_FILE *, void *, _IO_size_t);
475libc_hidden_proto (_IO_wdefault_xsgetn)
476extern _IO_off64_t _IO_default_seekoff (_IO_FILE *, _IO_off64_t, int, int)
477 __THROW;
478extern _IO_off64_t _IO_default_seekpos (_IO_FILE *, _IO_off64_t, int);
479extern _IO_ssize_t _IO_default_write (_IO_FILE *, const void *, _IO_ssize_t);
480extern _IO_ssize_t _IO_default_read (_IO_FILE *, void *, _IO_ssize_t);
481extern int _IO_default_stat (_IO_FILE *, void *) __THROW;
482extern _IO_off64_t _IO_default_seek (_IO_FILE *, _IO_off64_t, int) __THROW;
483extern int _IO_default_sync (_IO_FILE *) __THROW;
484#define _IO_default_close ((_IO_close_t) _IO_default_sync)
485extern int _IO_default_showmanyc (_IO_FILE *) __THROW;
486extern void _IO_default_imbue (_IO_FILE *, void *) __THROW;
487
488extern const struct _IO_jump_t _IO_file_jumps;
489libc_hidden_proto (_IO_file_jumps)
490extern const struct _IO_jump_t _IO_file_jumps_mmap attribute_hidden;
491extern const struct _IO_jump_t _IO_file_jumps_maybe_mmap attribute_hidden;
492extern const struct _IO_jump_t _IO_wfile_jumps;
493libc_hidden_proto (_IO_wfile_jumps)
494extern const struct _IO_jump_t _IO_wfile_jumps_mmap attribute_hidden;
495extern const struct _IO_jump_t _IO_wfile_jumps_maybe_mmap attribute_hidden;
496extern const struct _IO_jump_t _IO_old_file_jumps attribute_hidden;
497extern const struct _IO_jump_t _IO_streambuf_jumps;
498extern const struct _IO_jump_t _IO_old_proc_jumps attribute_hidden;
499extern const struct _IO_jump_t _IO_str_jumps attribute_hidden;
500extern const struct _IO_jump_t _IO_wstr_jumps attribute_hidden;
501extern const struct _IO_codecvt __libio_codecvt attribute_hidden;
502extern int _IO_do_write (_IO_FILE *, const char *, _IO_size_t);
503libc_hidden_proto (_IO_do_write)
504extern int _IO_new_do_write (_IO_FILE *, const char *, _IO_size_t);
505extern int _IO_old_do_write (_IO_FILE *, const char *, _IO_size_t);
506extern int _IO_wdo_write (_IO_FILE *, const wchar_t *, _IO_size_t);
507libc_hidden_proto (_IO_wdo_write)
508extern int _IO_flush_all_lockp (int);
509extern int _IO_flush_all (void);
510libc_hidden_proto (_IO_flush_all)
511extern int _IO_cleanup (void);
512extern void _IO_flush_all_linebuffered (void);
513libc_hidden_proto (_IO_flush_all_linebuffered)
514extern int _IO_new_fgetpos (_IO_FILE *, _IO_fpos_t *);
515extern int _IO_old_fgetpos (_IO_FILE *, _IO_fpos_t *);
516extern int _IO_new_fsetpos (_IO_FILE *, const _IO_fpos_t *);
517extern int _IO_old_fsetpos (_IO_FILE *, const _IO_fpos_t *);
518extern int _IO_new_fgetpos64 (_IO_FILE *, _IO_fpos64_t *);
519extern int _IO_old_fgetpos64 (_IO_FILE *, _IO_fpos64_t *);
520extern int _IO_new_fsetpos64 (_IO_FILE *, const _IO_fpos64_t *);
521extern int _IO_old_fsetpos64 (_IO_FILE *, const _IO_fpos64_t *);
522extern void _IO_old_init (_IO_FILE *fp, int flags) __THROW;
523
524
525#if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
526# define _IO_do_flush(_f) \
527 ((_f)->_mode <= 0 \
528 ? _IO_do_write(_f, (_f)->_IO_write_base, \
529 (_f)->_IO_write_ptr-(_f)->_IO_write_base) \
530 : _IO_wdo_write(_f, (_f)->_wide_data->_IO_write_base, \
531 ((_f)->_wide_data->_IO_write_ptr \
532 - (_f)->_wide_data->_IO_write_base)))
533#else
534# define _IO_do_flush(_f) \
535 _IO_do_write(_f, (_f)->_IO_write_base, \
536 (_f)->_IO_write_ptr-(_f)->_IO_write_base)
537#endif
538#define _IO_old_do_flush(_f) \
539 _IO_old_do_write(_f, (_f)->_IO_write_base, \
540 (_f)->_IO_write_ptr-(_f)->_IO_write_base)
541#define _IO_in_put_mode(_fp) ((_fp)->_flags & _IO_CURRENTLY_PUTTING)
542#define _IO_mask_flags(fp, f, mask) \
543 ((fp)->_flags = ((fp)->_flags & ~(mask)) | ((f) & (mask)))
544#define _IO_setg(fp, eb, g, eg) ((fp)->_IO_read_base = (eb),\
545 (fp)->_IO_read_ptr = (g), (fp)->_IO_read_end = (eg))
546#define _IO_wsetg(fp, eb, g, eg) ((fp)->_wide_data->_IO_read_base = (eb),\
547 (fp)->_wide_data->_IO_read_ptr = (g), \
548 (fp)->_wide_data->_IO_read_end = (eg))
549#define _IO_setp(__fp, __p, __ep) \
550 ((__fp)->_IO_write_base = (__fp)->_IO_write_ptr \
551 = __p, (__fp)->_IO_write_end = (__ep))
552#define _IO_wsetp(__fp, __p, __ep) \
553 ((__fp)->_wide_data->_IO_write_base \
554 = (__fp)->_wide_data->_IO_write_ptr = __p, \
555 (__fp)->_wide_data->_IO_write_end = (__ep))
556#define _IO_have_backup(fp) ((fp)->_IO_save_base != NULL)
557#define _IO_have_wbackup(fp) ((fp)->_wide_data->_IO_save_base != NULL)
558#define _IO_in_backup(fp) ((fp)->_flags & _IO_IN_BACKUP)
559#define _IO_have_markers(fp) ((fp)->_markers != NULL)
560#define _IO_blen(fp) ((fp)->_IO_buf_end - (fp)->_IO_buf_base)
561#define _IO_wblen(fp) ((fp)->_wide_data->_IO_buf_end \
562 - (fp)->_wide_data->_IO_buf_base)
563
564/* Jumptable functions for files. */
565
566extern int _IO_file_doallocate (_IO_FILE *) __THROW;
567libc_hidden_proto (_IO_file_doallocate)
568extern _IO_FILE* _IO_file_setbuf (_IO_FILE *, char *, _IO_ssize_t);
569libc_hidden_proto (_IO_file_setbuf)
570extern _IO_off64_t _IO_file_seekoff (_IO_FILE *, _IO_off64_t, int, int);
571libc_hidden_proto (_IO_file_seekoff)
572extern _IO_off64_t _IO_file_seekoff_mmap (_IO_FILE *, _IO_off64_t, int, int)
573 __THROW;
574extern _IO_size_t _IO_file_xsputn (_IO_FILE *, const void *, _IO_size_t);
575libc_hidden_proto (_IO_file_xsputn)
576extern _IO_size_t _IO_file_xsgetn (_IO_FILE *, void *, _IO_size_t);
577libc_hidden_proto (_IO_file_xsgetn)
578extern int _IO_file_stat (_IO_FILE *, void *) __THROW;
579libc_hidden_proto (_IO_file_stat)
580extern int _IO_file_close (_IO_FILE *) __THROW;
581libc_hidden_proto (_IO_file_close)
582extern int _IO_file_close_mmap (_IO_FILE *) __THROW;
583extern int _IO_file_underflow (_IO_FILE *);
584libc_hidden_proto (_IO_file_underflow)
585extern int _IO_file_underflow_mmap (_IO_FILE *);
586extern int _IO_file_underflow_maybe_mmap (_IO_FILE *);
587extern int _IO_file_overflow (_IO_FILE *, int);
588libc_hidden_proto (_IO_file_overflow)
589#define _IO_file_is_open(__fp) ((__fp)->_fileno != -1)
590extern _IO_FILE* _IO_file_attach (_IO_FILE *, int);
591libc_hidden_proto (_IO_file_attach)
592extern _IO_FILE* _IO_file_open (_IO_FILE *, const char *, int, int, int, int);
593libc_hidden_proto (_IO_file_open)
594extern _IO_FILE* _IO_file_fopen (_IO_FILE *, const char *, const char *, int);
595libc_hidden_proto (_IO_file_fopen)
596extern _IO_ssize_t _IO_file_write (_IO_FILE *, const void *, _IO_ssize_t);
597extern _IO_ssize_t _IO_file_read (_IO_FILE *, void *, _IO_ssize_t);
598libc_hidden_proto (_IO_file_read)
599extern int _IO_file_sync (_IO_FILE *);
600libc_hidden_proto (_IO_file_sync)
601extern int _IO_file_close_it (_IO_FILE *);
602libc_hidden_proto (_IO_file_close_it)
603extern _IO_off64_t _IO_file_seek (_IO_FILE *, _IO_off64_t, int) __THROW;
604libc_hidden_proto (_IO_file_seek)
605extern void _IO_file_finish (_IO_FILE *, int);
606libc_hidden_proto (_IO_file_finish)
607
608extern _IO_FILE* _IO_new_file_attach (_IO_FILE *, int);
609extern int _IO_new_file_close_it (_IO_FILE *);
610extern void _IO_new_file_finish (_IO_FILE *, int);
611extern _IO_FILE* _IO_new_file_fopen (_IO_FILE *, const char *, const char *,
612 int);
613extern void _IO_no_init (_IO_FILE *, int, int, struct _IO_wide_data *,
614 const struct _IO_jump_t *) __THROW;
615extern void _IO_new_file_init_internal (struct _IO_FILE_plus *)
616 __THROW attribute_hidden;
617extern _IO_FILE* _IO_new_file_setbuf (_IO_FILE *, char *, _IO_ssize_t);
618extern _IO_FILE* _IO_file_setbuf_mmap (_IO_FILE *, char *, _IO_ssize_t);
619extern int _IO_new_file_sync (_IO_FILE *);
620extern int _IO_new_file_underflow (_IO_FILE *);
621extern int _IO_new_file_overflow (_IO_FILE *, int);
622extern _IO_off64_t _IO_new_file_seekoff (_IO_FILE *, _IO_off64_t, int, int);
623extern _IO_ssize_t _IO_new_file_write (_IO_FILE *, const void *, _IO_ssize_t);
624extern _IO_size_t _IO_new_file_xsputn (_IO_FILE *, const void *, _IO_size_t);
625
626extern _IO_FILE* _IO_old_file_setbuf (_IO_FILE *, char *, _IO_ssize_t);
627extern _IO_off64_t _IO_old_file_seekoff (_IO_FILE *, _IO_off64_t, int, int);
628extern _IO_size_t _IO_old_file_xsputn (_IO_FILE *, const void *, _IO_size_t);
629extern int _IO_old_file_underflow (_IO_FILE *);
630extern int _IO_old_file_overflow (_IO_FILE *, int);
631extern void _IO_old_file_init_internal (struct _IO_FILE_plus *)
632 __THROW attribute_hidden;
633extern _IO_FILE* _IO_old_file_attach (_IO_FILE *, int);
634extern _IO_FILE* _IO_old_file_fopen (_IO_FILE *, const char *, const char *);
635extern _IO_ssize_t _IO_old_file_write (_IO_FILE *, const void *, _IO_ssize_t);
636extern int _IO_old_file_sync (_IO_FILE *);
637extern int _IO_old_file_close_it (_IO_FILE *);
638extern void _IO_old_file_finish (_IO_FILE *, int);
639
640extern int _IO_wfile_doallocate (_IO_FILE *) __THROW;
641extern _IO_size_t _IO_wfile_xsputn (_IO_FILE *, const void *, _IO_size_t);
642libc_hidden_proto (_IO_wfile_xsputn)
643extern _IO_FILE* _IO_wfile_setbuf (_IO_FILE *, wchar_t *, _IO_ssize_t);
644extern wint_t _IO_wfile_sync (_IO_FILE *);
645libc_hidden_proto (_IO_wfile_sync)
646extern wint_t _IO_wfile_underflow (_IO_FILE *);
647libc_hidden_proto (_IO_wfile_underflow)
648extern wint_t _IO_wfile_overflow (_IO_FILE *, wint_t);
649libc_hidden_proto (_IO_wfile_overflow)
650extern _IO_off64_t _IO_wfile_seekoff (_IO_FILE *, _IO_off64_t, int, int);
651libc_hidden_proto (_IO_wfile_seekoff)
652
653/* Jumptable functions for proc_files. */
654extern _IO_FILE* _IO_proc_open (_IO_FILE *, const char *, const char *)
655 __THROW;
656extern _IO_FILE* _IO_new_proc_open (_IO_FILE *, const char *, const char *)
657 __THROW;
658extern _IO_FILE* _IO_old_proc_open (_IO_FILE *, const char *, const char *);
659extern int _IO_proc_close (_IO_FILE *) __THROW;
660extern int _IO_new_proc_close (_IO_FILE *) __THROW;
661extern int _IO_old_proc_close (_IO_FILE *);
662
663/* Jumptable functions for strfiles. */
664extern int _IO_str_underflow (_IO_FILE *) __THROW;
665libc_hidden_proto (_IO_str_underflow)
666extern int _IO_str_overflow (_IO_FILE *, int) __THROW;
667libc_hidden_proto (_IO_str_overflow)
668extern int _IO_str_pbackfail (_IO_FILE *, int) __THROW;
669libc_hidden_proto (_IO_str_pbackfail)
670extern _IO_off64_t _IO_str_seekoff (_IO_FILE *, _IO_off64_t, int, int) __THROW;
671libc_hidden_proto (_IO_str_seekoff)
672extern void _IO_str_finish (_IO_FILE *, int) __THROW;
673
674/* Other strfile functions */
675struct _IO_strfile_;
676extern _IO_ssize_t _IO_str_count (_IO_FILE *) __THROW;
677
678/* And the wide character versions. */
679extern void _IO_wstr_init_static (_IO_FILE *, wchar_t *, _IO_size_t, wchar_t *)
680 __THROW;
681extern _IO_ssize_t _IO_wstr_count (_IO_FILE *) __THROW;
682extern _IO_wint_t _IO_wstr_overflow (_IO_FILE *, _IO_wint_t) __THROW;
683extern _IO_wint_t _IO_wstr_underflow (_IO_FILE *) __THROW;
684extern _IO_off64_t _IO_wstr_seekoff (_IO_FILE *, _IO_off64_t, int, int)
685 __THROW;
686extern _IO_wint_t _IO_wstr_pbackfail (_IO_FILE *, _IO_wint_t) __THROW;
687extern void _IO_wstr_finish (_IO_FILE *, int) __THROW;
688
689extern int _IO_vasprintf (char **result_ptr, const char *format,
690 _IO_va_list args) __THROW;
691extern int _IO_vdprintf (int d, const char *format, _IO_va_list arg);
692extern int _IO_vsnprintf (char *string, _IO_size_t maxlen,
693 const char *format, _IO_va_list args) __THROW;
694
695
696extern _IO_size_t _IO_getline (_IO_FILE *,char *, _IO_size_t, int, int);
697libc_hidden_proto (_IO_getline)
698extern _IO_size_t _IO_getline_info (_IO_FILE *,char *, _IO_size_t,
699 int, int, int *);
700libc_hidden_proto (_IO_getline_info)
701extern _IO_ssize_t _IO_getdelim (char **, _IO_size_t *, int, _IO_FILE *);
702extern _IO_size_t _IO_getwline (_IO_FILE *,wchar_t *, _IO_size_t, wint_t, int);
703extern _IO_size_t _IO_getwline_info (_IO_FILE *,wchar_t *, _IO_size_t,
704 wint_t, int, wint_t *);
705
706extern struct _IO_FILE_plus *_IO_list_all;
707libc_hidden_proto (_IO_list_all)
708extern void (*_IO_cleanup_registration_needed) (void);
709
710extern void _IO_str_init_static_internal (struct _IO_strfile_ *, char *,
711 _IO_size_t, char *) __THROW;
712extern _IO_off64_t _IO_seekoff_unlocked (_IO_FILE *, _IO_off64_t, int, int)
713 attribute_hidden;
714extern _IO_off64_t _IO_seekpos_unlocked (_IO_FILE *, _IO_off64_t, int)
715 attribute_hidden;
716
717#ifndef EOF
718# define EOF (-1)
719#endif
720#ifndef NULL
721# if defined __GNUG__ && \
722 (__GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 8))
723# define NULL (__null)
724# else
725# if !defined(__cplusplus)
726# define NULL ((void*)0)
727# else
728# define NULL (0)
729# endif
730# endif
731#endif
732
733#if _G_HAVE_MMAP
734
735# include <unistd.h>
736# include <fcntl.h>
737# include <sys/mman.h>
738# include <sys/param.h>
739
740# if !defined(MAP_ANONYMOUS) && defined(MAP_ANON)
741# define MAP_ANONYMOUS MAP_ANON
742# endif
743
744# if !defined(MAP_ANONYMOUS) || !defined(EXEC_PAGESIZE)
745# undef _G_HAVE_MMAP
746# define _G_HAVE_MMAP 0
747# endif
748
749#endif /* _G_HAVE_MMAP */
750
751#if _G_HAVE_MMAP
752
753# ifdef _LIBC
754/* When using this code in the GNU libc we must not pollute the name space. */
755# define mmap __mmap
756# define munmap __munmap
757# define ftruncate __ftruncate
758# endif
759#endif /* _G_HAVE_MMAP */
760
761#ifndef OS_FSTAT
762# define OS_FSTAT fstat
763#endif
764extern int _IO_vscanf (const char *, _IO_va_list) __THROW;
765
766/* _IO_pos_BAD is an _IO_off64_t value indicating error, unknown, or EOF. */
767#ifndef _IO_pos_BAD
768# define _IO_pos_BAD ((_IO_off64_t) -1)
769#endif
770/* _IO_pos_adjust adjust an _IO_off64_t by some number of bytes. */
771#ifndef _IO_pos_adjust
772# define _IO_pos_adjust(pos, delta) ((pos) += (delta))
773#endif
774/* _IO_pos_0 is an _IO_off64_t value indicating beginning of file. */
775#ifndef _IO_pos_0
776# define _IO_pos_0 ((_IO_off64_t) 0)
777#endif
778
779#ifdef __cplusplus
780}
781#endif
782
783#ifdef _IO_MTSAFE_IO
784/* check following! */
785# ifdef _IO_USE_OLD_IO_FILE
786# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
787 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
788 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
789 0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock }
790# else
791# if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
792# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
793 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
794 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
795 0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock, _IO_pos_BAD,\
796 NULL, WDP, 0 }
797# else
798# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
799 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
800 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
801 0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock, _IO_pos_BAD,\
802 0 }
803# endif
804# endif
805#else
806# ifdef _IO_USE_OLD_IO_FILE
807# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
808 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
809 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
810 0, _IO_pos_BAD }
811# else
812# if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
813# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
814 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
815 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
816 0, _IO_pos_BAD, 0, 0, { 0 }, 0, _IO_pos_BAD, \
817 NULL, WDP, 0 }
818# else
819# define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
820 { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
821 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
822 0, _IO_pos_BAD, 0, 0, { 0 }, 0, _IO_pos_BAD, \
823 0 }
824# endif
825# endif
826#endif
827
828#define _IO_va_start(args, last) va_start(args, last)
829
830extern struct _IO_fake_stdiobuf _IO_stdin_buf, _IO_stdout_buf, _IO_stderr_buf;
831
832#if 1
833# define COERCE_FILE(FILE) /* Nothing */
834#else
835/* This is part of the kludge for binary compatibility with old stdio. */
836# define COERCE_FILE(FILE) \
837 (((FILE)->_IO_file_flags & _IO_MAGIC_MASK) == _OLD_MAGIC_MASK \
838 && (FILE) = *(FILE**)&((int*)fp)[1])
839#endif
840
841#ifdef EINVAL
842# define MAYBE_SET_EINVAL __set_errno (EINVAL)
843#else
844# define MAYBE_SET_EINVAL /* nothing */
845#endif
846
847#ifdef IO_DEBUG
848# define CHECK_FILE(FILE, RET) \
849 if ((FILE) == NULL) { MAYBE_SET_EINVAL; return RET; } \
850 else { COERCE_FILE(FILE); \
851 if (((FILE)->_IO_file_flags & _IO_MAGIC_MASK) != _IO_MAGIC) \
852 { MAYBE_SET_EINVAL; return RET; }}
853#else
854# define CHECK_FILE(FILE, RET) COERCE_FILE (FILE)
855#endif
856
857static inline void
858__attribute__ ((__always_inline__))
859_IO_acquire_lock_fct (_IO_FILE **p)
860{
861 _IO_FILE *fp = *p;
862 if ((fp->_flags & _IO_USER_LOCK) == 0)
863 _IO_funlockfile (fp);
864}
865
866static inline void
867__attribute__ ((__always_inline__))
868_IO_acquire_lock_clear_flags2_fct (_IO_FILE **p)
869{
870 _IO_FILE *fp = *p;
871 fp->_flags2 &= ~(_IO_FLAGS2_FORTIFY | _IO_FLAGS2_SCANF_STD);
872 if ((fp->_flags & _IO_USER_LOCK) == 0)
873 _IO_funlockfile (fp);
874}
875
876#if !defined _IO_MTSAFE_IO && IS_IN (libc)
877# define _IO_acquire_lock(_fp) \
878 do { \
879 _IO_FILE *_IO_acquire_lock_file = NULL
880# define _IO_acquire_lock_clear_flags2(_fp) \
881 do { \
882 _IO_FILE *_IO_acquire_lock_file = (_fp)
883# define _IO_release_lock(_fp) \
884 if (_IO_acquire_lock_file != NULL) \
885 _IO_acquire_lock_file->_flags2 &= ~(_IO_FLAGS2_FORTIFY \
886 | _IO_FLAGS2_SCANF_STD); \
887 } while (0)
888#endif
889
890/* Collect all vtables in a special section for vtable verification.
891 These symbols cover the extent of this section. */
892symbol_set_declare (__libc_IO_vtables)
893
894/* libio vtables need to carry this attribute so that they pass
895 validation. */
896#define libio_vtable __attribute__ ((section ("__libc_IO_vtables")))
897
898#ifdef SHARED
899/* If equal to &_IO_vtable_check (with pointer guard protection),
900 unknown vtable pointers are valid. This function pointer is solely
901 used as a flag. */
902extern void (*IO_accept_foreign_vtables) (void) attribute_hidden;
903
904/* Assigns the passed function pointer (either NULL or
905 &_IO_vtable_check) to IO_accept_foreign_vtables. */
906static inline void
907IO_set_accept_foreign_vtables (void (*flag) (void))
908{
909#ifdef PTR_MANGLE
910 PTR_MANGLE (flag);
911#endif
912 atomic_store_relaxed (&IO_accept_foreign_vtables, flag);
913}
914
915#else /* !SHARED */
916
917/* The statically-linked version does nothing. */
918static inline void
919IO_set_accept_foreign_vtables (void (*flag) (void))
920{
921}
922
923#endif
924
925/* Check if unknown vtable pointers are permitted; otherwise,
926 terminate the process. */
927void _IO_vtable_check (void) attribute_hidden;
928
929/* Perform vtable pointer validation. If validation fails, terminate
930 the process. */
931static inline const struct _IO_jump_t *
932IO_validate_vtable (const struct _IO_jump_t *vtable)
933{
934 /* Fast path: The vtable pointer is within the __libc_IO_vtables
935 section. */
936 uintptr_t section_length = __stop___libc_IO_vtables - __start___libc_IO_vtables;
937 const char *ptr = (const char *) vtable;
938 uintptr_t offset = ptr - __start___libc_IO_vtables;
939 if (__glibc_unlikely (offset >= section_length))
940 /* The vtable pointer is not in the expected section. Use the
941 slow path, which will terminate the process if necessary. */
942 _IO_vtable_check ();
943 return vtable;
944}
945