e25a6e7ef19d80839193ea02881b169016366ccf
[kopensolaris-gnu/glibc.git] / libio / libioP.h
1 /* Copyright (C) 1993, 1997-2001, 2002 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, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.
18
19    As a special exception, if you link the code in this file with
20    files compiled with a GNU compiler to produce an executable,
21    that does not cause the resulting executable to be covered by
22    the GNU Lesser General Public License.  This exception does not
23    however invalidate any other reasons why the executable file
24    might be covered by the GNU Lesser General Public License.
25    This exception applies to code released by its copyright holders
26    in files containing the exception.  */
27
28 #include <errno.h>
29 #ifndef __set_errno
30 # define __set_errno(Val) errno = (Val)
31 #endif
32 #if defined __GLIBC__ && __GLIBC__ >= 2
33 # include <bits/libc-lock.h>
34 #else
35 /*# include <comthread.h>*/
36 #endif
37
38 #include "iolibio.h"
39
40 #ifdef __cplusplus
41 extern "C" {
42 #endif
43
44 #define _IO_seek_set 0
45 #define _IO_seek_cur 1
46 #define _IO_seek_end 2
47
48 /* THE JUMPTABLE FUNCTIONS.
49
50  * The _IO_FILE type is used to implement the FILE type in GNU libc,
51  * as well as the streambuf class in GNU iostreams for C++.
52  * These are all the same, just used differently.
53  * An _IO_FILE (or FILE) object is allows followed by a pointer to
54  * a jump table (of pointers to functions).  The pointer is accessed
55  * with the _IO_JUMPS macro.  The jump table has a eccentric format,
56  * so as to be compatible with the layout of a C++ virtual function table.
57  * (as implemented by g++).  When a pointer to a streambuf object is
58  * coerced to an (_IO_FILE*), then _IO_JUMPS on the result just
59  * happens to point to the virtual function table of the streambuf.
60  * Thus the _IO_JUMPS function table used for C stdio/libio does
61  * double duty as the virtual function table for C++ streambuf.
62  *
63  * The entries in the _IO_JUMPS function table (and hence also the
64  * virtual functions of a streambuf) are described below.
65  * The first parameter of each function entry is the _IO_FILE/streambuf
66  * object being acted on (i.e. the 'this' parameter).
67  */
68
69 #if (!defined _IO_USE_OLD_IO_FILE \
70      && (!defined _G_IO_NO_BACKWARD_COMPAT || _G_IO_NO_BACKWARD_COMPAT == 0))
71 # define _IO_JUMPS_OFFSET 1
72 #endif
73
74 #define _IO_JUMPS(THIS) (THIS)->vtable
75 #define _IO_WIDE_JUMPS(THIS) ((struct _IO_FILE *) (THIS))->_wide_data->_wide_vtable
76 #define _IO_CHECK_WIDE(THIS) (((struct _IO_FILE *) (THIS))->_wide_data != NULL)
77
78 #if _IO_JUMPS_OFFSET
79 # define _IO_JUMPS_FUNC(THIS) \
80  (*(struct _IO_jump_t **) ((void *) &_IO_JUMPS ((struct _IO_FILE_plus *) (THIS)) \
81                            + (THIS)->_vtable_offset))
82 #else
83 # define _IO_JUMPS_FUNC(THIS) _IO_JUMPS ((struct _IO_FILE_plus *) (THIS))
84 #endif
85 #define _IO_WIDE_JUMPS_FUNC(THIS) _IO_WIDE_JUMPS(THIS)
86 #ifdef _G_USING_THUNKS
87 # define JUMP_FIELD(TYPE, NAME) TYPE NAME
88 # define JUMP0(FUNC, THIS) _IO_JUMPS_FUNC(THIS)->FUNC (THIS)
89 # define JUMP1(FUNC, THIS, X1) _IO_JUMPS_FUNC(THIS)->FUNC (THIS, X1)
90 # define JUMP2(FUNC, THIS, X1, X2) _IO_JUMPS_FUNC(THIS)->FUNC (THIS, X1, X2)
91 # define JUMP3(FUNC, THIS, X1,X2,X3) _IO_JUMPS_FUNC(THIS)->FUNC (THIS, X1,X2, X3)
92 # define JUMP_INIT(NAME, VALUE) VALUE
93 # define JUMP_INIT_DUMMY JUMP_INIT(dummy, 0), JUMP_INIT (dummy2, 0)
94
95 # define WJUMP0(FUNC, THIS) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC (THIS)
96 # define WJUMP1(FUNC, THIS, X1) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC (THIS, X1)
97 # define WJUMP2(FUNC, THIS, X1, X2) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC (THIS, X1, X2)
98 # define WJUMP3(FUNC, THIS, X1,X2,X3) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC (THIS, X1,X2, X3)
99 #else
100 /* These macros will change when we re-implement vtables to use "thunks"! */
101 # define JUMP_FIELD(TYPE, NAME) struct { short delta1, delta2; TYPE pfn; } NAME
102 # define JUMP0(FUNC, THIS) _IO_JUMPS_FUNC(THIS)->FUNC.pfn (THIS)
103 # define JUMP1(FUNC, THIS, X1) _IO_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1)
104 # define JUMP2(FUNC, THIS, X1, X2) _IO_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1, X2)
105 # define JUMP3(FUNC, THIS, X1,X2,X3) _IO_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1,X2,X3)
106 # define JUMP_INIT(NAME, VALUE) {0, 0, VALUE}
107 # define JUMP_INIT_DUMMY JUMP_INIT(dummy, 0)
108
109 # define WJUMP0(FUNC, THIS) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC.pfn (THIS)
110 # define WJUMP1(FUNC, THIS, X1) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1)
111 # define WJUMP2(FUNC, THIS, X1, X2) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1, X2)
112 # define WJUMP3(FUNC, THIS, X1,X2,X3) _IO_WIDE_JUMPS_FUNC(THIS)->FUNC.pfn (THIS, X1,X2,X3)
113 #endif
114
115 /* The 'finish' function does any final cleaning up of an _IO_FILE object.
116    It does not delete (free) it, but does everything else to finalize it.
117    It matches the streambuf::~streambuf virtual destructor.  */
118 typedef void (*_IO_finish_t) __PMT ((_IO_FILE *, int)); /* finalize */
119 #define _IO_FINISH(FP) JUMP1 (__finish, FP, 0)
120 #define _IO_WFINISH(FP) WJUMP1 (__finish, FP, 0)
121
122 /* The 'overflow' hook flushes the buffer.
123    The second argument is a character, or EOF.
124    It matches the streambuf::overflow virtual function. */
125 typedef int (*_IO_overflow_t) __PMT ((_IO_FILE *, int));
126 #define _IO_OVERFLOW(FP, CH) JUMP1 (__overflow, FP, CH)
127 #define _IO_WOVERFLOW(FP, CH) WJUMP1 (__overflow, FP, CH)
128
129 /* The 'underflow' hook tries to fills the get buffer.
130    It returns the next character (as an unsigned char) or EOF.  The next
131    character remains in the get buffer, and the get position is not changed.
132    It matches the streambuf::underflow virtual function. */
133 typedef int (*_IO_underflow_t) __PMT ((_IO_FILE *));
134 #define _IO_UNDERFLOW(FP) JUMP0 (__underflow, FP)
135 #define _IO_WUNDERFLOW(FP) WJUMP0 (__underflow, FP)
136
137 /* The 'uflow' hook returns the next character in the input stream
138    (cast to unsigned char), and increments the read position;
139    EOF is returned on failure.
140    It matches the streambuf::uflow virtual function, which is not in the
141    cfront implementation, but was added to C++ by the ANSI/ISO committee. */
142 #define _IO_UFLOW(FP) JUMP0 (__uflow, FP)
143 #define _IO_WUFLOW(FP) WJUMP0 (__uflow, FP)
144
145 /* The 'pbackfail' hook handles backing up.
146    It matches the streambuf::pbackfail virtual function. */
147 typedef int (*_IO_pbackfail_t) __PMT ((_IO_FILE *, int));
148 #define _IO_PBACKFAIL(FP, CH) JUMP1 (__pbackfail, FP, CH)
149 #define _IO_WPBACKFAIL(FP, CH) WJUMP1 (__pbackfail, FP, CH)
150
151 /* The 'xsputn' hook writes upto N characters from buffer DATA.
152    Returns the number of character actually written.
153    It matches the streambuf::xsputn virtual function. */
154 typedef _IO_size_t (*_IO_xsputn_t) __PMT ((_IO_FILE *FP, const void *DATA,
155                                            _IO_size_t N));
156 #define _IO_XSPUTN(FP, DATA, N) JUMP2 (__xsputn, FP, DATA, N)
157 #define _IO_WXSPUTN(FP, DATA, N) WJUMP2 (__xsputn, FP, DATA, N)
158
159 /* The 'xsgetn' hook reads upto N characters into buffer DATA.
160    Returns the number of character actually read.
161    It matches the streambuf::xsgetn virtual function. */
162 typedef _IO_size_t (*_IO_xsgetn_t) __PMT ((_IO_FILE *FP, void *DATA,
163                                            _IO_size_t N));
164 #define _IO_XSGETN(FP, DATA, N) JUMP2 (__xsgetn, FP, DATA, N)
165 #define _IO_WXSGETN(FP, DATA, N) WJUMP2 (__xsgetn, FP, DATA, N)
166
167 /* The 'seekoff' hook moves the stream position to a new position
168    relative to the start of the file (if DIR==0), the current position
169    (MODE==1), or the end of the file (MODE==2).
170    It matches the streambuf::seekoff virtual function.
171    It is also used for the ANSI fseek function. */
172 typedef _IO_off64_t (*_IO_seekoff_t) __PMT ((_IO_FILE *FP, _IO_off64_t OFF,
173                                              int DIR, int MODE));
174 #define _IO_SEEKOFF(FP, OFF, DIR, MODE) JUMP3 (__seekoff, FP, OFF, DIR, MODE)
175 #define _IO_WSEEKOFF(FP, OFF, DIR, MODE) WJUMP3 (__seekoff, FP, OFF, DIR, MODE)
176
177 /* The 'seekpos' hook also moves the stream position,
178    but to an absolute position given by a fpos64_t (seekpos).
179    It matches the streambuf::seekpos virtual function.
180    It is also used for the ANSI fgetpos and fsetpos functions.  */
181 /* The _IO_seek_cur and _IO_seek_end options are not allowed. */
182 typedef _IO_off64_t (*_IO_seekpos_t) __PMT ((_IO_FILE *, _IO_off64_t, int));
183 #define _IO_SEEKPOS(FP, POS, FLAGS) JUMP2 (__seekpos, FP, POS, FLAGS)
184 #define _IO_WSEEKPOS(FP, POS, FLAGS) WJUMP2 (__seekpos, FP, POS, FLAGS)
185
186 /* The 'setbuf' hook gives a buffer to the file.
187    It matches the streambuf::setbuf virtual function. */
188 typedef _IO_FILE* (*_IO_setbuf_t) __PMT ((_IO_FILE *, char *, _IO_ssize_t));
189 #define _IO_SETBUF(FP, BUFFER, LENGTH) JUMP2 (__setbuf, FP, BUFFER, LENGTH)
190 #define _IO_WSETBUF(FP, BUFFER, LENGTH) WJUMP2 (__setbuf, FP, BUFFER, LENGTH)
191
192 /* The 'sync' hook attempts to synchronize the internal data structures
193    of the file with the external state.
194    It matches the streambuf::sync virtual function. */
195 typedef int (*_IO_sync_t) __PMT ((_IO_FILE *));
196 #define _IO_SYNC(FP) JUMP0 (__sync, FP)
197 #define _IO_WSYNC(FP) WJUMP0 (__sync, FP)
198
199 /* The 'doallocate' hook is used to tell the file to allocate a buffer.
200    It matches the streambuf::doallocate virtual function, which is not
201    in the ANSI/ISO C++ standard, but is part traditional implementations. */
202 typedef int (*_IO_doallocate_t) __PMT ((_IO_FILE *));
203 #define _IO_DOALLOCATE(FP) JUMP0 (__doallocate, FP)
204 #define _IO_WDOALLOCATE(FP) WJUMP0 (__doallocate, FP)
205
206 /* The following four hooks (sysread, syswrite, sysclose, sysseek, and
207    sysstat) are low-level hooks specific to this implementation.
208    There is no correspondence in the ANSI/ISO C++ standard library.
209    The hooks basically correspond to the Unix system functions
210    (read, write, close, lseek, and stat) except that a _IO_FILE*
211    parameter is used instead of a integer file descriptor;  the default
212    implementation used for normal files just calls those functions.
213    The advantage of overriding these functions instead of the higher-level
214    ones (underflow, overflow etc) is that you can leave all the buffering
215    higher-level functions.  */
216
217 /* The 'sysread' hook is used to read data from the external file into
218    an existing buffer.  It generalizes the Unix read(2) function.
219    It matches the streambuf::sys_read virtual function, which is
220    specific to this implementation. */
221 typedef _IO_ssize_t (*_IO_read_t) __PMT ((_IO_FILE *, void *, _IO_ssize_t));
222 #define _IO_SYSREAD(FP, DATA, LEN) JUMP2 (__read, FP, DATA, LEN)
223 #define _IO_WSYSREAD(FP, DATA, LEN) WJUMP2 (__read, FP, DATA, LEN)
224
225 /* The 'syswrite' hook is used to write data from an existing buffer
226    to an external file.  It generalizes the Unix write(2) function.
227    It matches the streambuf::sys_write virtual function, which is
228    specific to this implementation. */
229 typedef _IO_ssize_t (*_IO_write_t) __PMT ((_IO_FILE *, const void *,
230                                            _IO_ssize_t));
231 #define _IO_SYSWRITE(FP, DATA, LEN) JUMP2 (__write, FP, DATA, LEN)
232 #define _IO_WSYSWRITE(FP, DATA, LEN) WJUMP2 (__write, FP, DATA, LEN)
233
234 /* The 'sysseek' hook is used to re-position an external file.
235    It generalizes the Unix lseek(2) function.
236    It matches the streambuf::sys_seek virtual function, which is
237    specific to this implementation. */
238 typedef _IO_off64_t (*_IO_seek_t) __PMT ((_IO_FILE *, _IO_off64_t, int));
239 #define _IO_SYSSEEK(FP, OFFSET, MODE) JUMP2 (__seek, FP, OFFSET, MODE)
240 #define _IO_WSYSSEEK(FP, OFFSET, MODE) WJUMP2 (__seek, FP, OFFSET, MODE)
241
242 /* The 'sysclose' hook is used to finalize (close, finish up) an
243    external file.  It generalizes the Unix close(2) function.
244    It matches the streambuf::sys_close virtual function, which is
245    specific to this implementation. */
246 typedef int (*_IO_close_t) __PMT ((_IO_FILE *)); /* finalize */
247 #define _IO_SYSCLOSE(FP) JUMP0 (__close, FP)
248 #define _IO_WSYSCLOSE(FP) WJUMP0 (__close, FP)
249
250 /* The 'sysstat' hook is used to get information about an external file
251    into a struct stat buffer.  It generalizes the Unix fstat(2) call.
252    It matches the streambuf::sys_stat virtual function, which is
253    specific to this implementation. */
254 typedef int (*_IO_stat_t) __PMT ((_IO_FILE *, void *));
255 #define _IO_SYSSTAT(FP, BUF) JUMP1 (__stat, FP, BUF)
256 #define _IO_WSYSSTAT(FP, BUF) WJUMP1 (__stat, FP, BUF)
257
258 /* The 'showmany' hook can be used to get an image how much input is
259    available.  In many cases the answer will be 0 which means unknown
260    but some cases one can provide real information.  */
261 typedef int (*_IO_showmanyc_t) __PMT ((_IO_FILE *));
262 #define _IO_SHOWMANYC(FP) JUMP0 (__showmanyc, FP)
263 #define _IO_WSHOWMANYC(FP) WJUMP0 (__showmanyc, FP)
264
265 /* The 'imbue' hook is used to get information about the currently
266    installed locales.  */
267 typedef void (*_IO_imbue_t) __PMT ((_IO_FILE *, void *));
268 #define _IO_IMBUE(FP, LOCALE) JUMP1 (__imbue, FP, LOCALE)
269 #define _IO_WIMBUE(FP, LOCALE) WJUMP1 (__imbue, FP, LOCALE)
270
271
272 #define _IO_CHAR_TYPE char /* unsigned char ? */
273 #define _IO_INT_TYPE int
274
275 struct _IO_jump_t
276 {
277     JUMP_FIELD(_G_size_t, __dummy);
278 #ifdef _G_USING_THUNKS
279     JUMP_FIELD(_G_size_t, __dummy2);
280 #endif
281     JUMP_FIELD(_IO_finish_t, __finish);
282     JUMP_FIELD(_IO_overflow_t, __overflow);
283     JUMP_FIELD(_IO_underflow_t, __underflow);
284     JUMP_FIELD(_IO_underflow_t, __uflow);
285     JUMP_FIELD(_IO_pbackfail_t, __pbackfail);
286     /* showmany */
287     JUMP_FIELD(_IO_xsputn_t, __xsputn);
288     JUMP_FIELD(_IO_xsgetn_t, __xsgetn);
289     JUMP_FIELD(_IO_seekoff_t, __seekoff);
290     JUMP_FIELD(_IO_seekpos_t, __seekpos);
291     JUMP_FIELD(_IO_setbuf_t, __setbuf);
292     JUMP_FIELD(_IO_sync_t, __sync);
293     JUMP_FIELD(_IO_doallocate_t, __doallocate);
294     JUMP_FIELD(_IO_read_t, __read);
295     JUMP_FIELD(_IO_write_t, __write);
296     JUMP_FIELD(_IO_seek_t, __seek);
297     JUMP_FIELD(_IO_close_t, __close);
298     JUMP_FIELD(_IO_stat_t, __stat);
299     JUMP_FIELD(_IO_showmanyc_t, __showmanyc);
300     JUMP_FIELD(_IO_imbue_t, __imbue);
301 #if 0
302     get_column;
303     set_column;
304 #endif
305 };
306
307 /* We always allocate an extra word following an _IO_FILE.
308    This contains a pointer to the function jump table used.
309    This is for compatibility with C++ streambuf; the word can
310    be used to smash to a pointer to a virtual function table. */
311
312 struct _IO_FILE_plus
313 {
314   _IO_FILE file;
315   const struct _IO_jump_t *vtable;
316 };
317
318 /* Special file type for fopencookie function.  */
319 struct _IO_cookie_file
320 {
321   struct _IO_FILE_plus __fp;
322   void *__cookie;
323   _IO_cookie_io_functions_t __io_functions;
324 };
325
326 _IO_FILE *_IO_fopencookie (void *cookie, const char *mode,
327                            _IO_cookie_io_functions_t io_functions);
328
329
330 /* Iterator type for walking global linked list of _IO_FILE objects. */
331
332 typedef struct _IO_FILE *_IO_ITER;
333
334 /* Generic functions */
335
336 extern void _IO_switch_to_main_get_area __P ((_IO_FILE *));
337 extern void _IO_switch_to_backup_area __P ((_IO_FILE *));
338 extern int _IO_switch_to_get_mode __P ((_IO_FILE *));
339 extern void _IO_init __P ((_IO_FILE *, int));
340 extern int _IO_sputbackc __P ((_IO_FILE *, int));
341 extern int _IO_sungetc __P ((_IO_FILE *));
342 extern void _IO_un_link __P ((struct _IO_FILE_plus *));
343 extern void _IO_link_in __P ((struct _IO_FILE_plus *));
344 extern void _IO_doallocbuf __P ((_IO_FILE *));
345 extern void _IO_unsave_markers __P ((_IO_FILE *));
346 extern void _IO_setb __P ((_IO_FILE *, char *, char *, int));
347 extern unsigned _IO_adjust_column __P ((unsigned, const char *, int));
348 #define _IO_sputn(__fp, __s, __n) _IO_XSPUTN (__fp, __s, __n)
349
350 extern void _IO_switch_to_main_wget_area __P ((_IO_FILE *));
351 extern void _IO_switch_to_wbackup_area __P ((_IO_FILE *));
352 extern int _IO_switch_to_wget_mode __P ((_IO_FILE *));
353 extern void _IO_wsetb __P ((_IO_FILE *, wchar_t *, wchar_t *, int));
354 extern wint_t _IO_sputbackwc __P ((_IO_FILE *, wint_t));
355 extern wint_t _IO_sungetwc __P ((_IO_FILE *));
356 extern void _IO_wdoallocbuf __P ((_IO_FILE *));
357 extern void _IO_unsave_wmarkers __P ((_IO_FILE *));
358 extern unsigned _IO_adjust_wcolumn __P ((unsigned, const wchar_t *, int));
359
360 /* Marker-related function. */
361
362 extern void _IO_init_marker __P ((struct _IO_marker *, _IO_FILE *));
363 extern void _IO_init_wmarker __P ((struct _IO_marker *, _IO_FILE *));
364 extern void _IO_remove_marker __P ((struct _IO_marker *));
365 extern int _IO_marker_difference __P ((struct _IO_marker *,
366                                        struct _IO_marker *));
367 extern int _IO_marker_delta __P ((struct _IO_marker *));
368 extern int _IO_wmarker_delta __P ((struct _IO_marker *));
369 extern int _IO_seekmark __P ((_IO_FILE *, struct _IO_marker *, int));
370 extern int _IO_seekwmark __P ((_IO_FILE *, struct _IO_marker *, int));
371
372 /* Functions for iterating global list and dealing with
373    its lock */
374
375 extern _IO_ITER _IO_iter_begin __P ((void));
376 extern _IO_ITER _IO_iter_end __P ((void));
377 extern _IO_ITER _IO_iter_next __P ((_IO_ITER));
378 extern _IO_FILE *_IO_iter_file __P ((_IO_ITER));
379 extern void _IO_list_lock __P ((void));
380 extern void _IO_list_unlock __P ((void));
381 extern void _IO_list_resetlock __P ((void));
382
383 /* Default jumptable functions. */
384
385 extern int _IO_default_underflow __P ((_IO_FILE *));
386 extern int _IO_default_uflow __P ((_IO_FILE *));
387 extern wint_t _IO_wdefault_uflow __P ((_IO_FILE *));
388 extern int _IO_default_doallocate __P ((_IO_FILE *));
389 extern int _IO_wdefault_doallocate __P ((_IO_FILE *));
390 extern void _IO_default_finish __P ((_IO_FILE *, int));
391 extern void _IO_wdefault_finish __P ((_IO_FILE *, int));
392 extern int _IO_default_pbackfail __P ((_IO_FILE *, int));
393 extern wint_t _IO_wdefault_pbackfail __P ((_IO_FILE *, wint_t));
394 extern _IO_FILE* _IO_default_setbuf __P ((_IO_FILE *, char *, _IO_ssize_t));
395 extern _IO_FILE* _IO_wdefault_setbuf __P ((_IO_FILE *, wchar_t *,
396                                            _IO_ssize_t));
397 extern _IO_size_t _IO_default_xsputn __P ((_IO_FILE *, const void *,
398                                            _IO_size_t));
399 extern _IO_size_t _IO_wdefault_xsputn __P ((_IO_FILE *, const void *,
400                                             _IO_size_t));
401 extern _IO_size_t _IO_default_xsgetn __P ((_IO_FILE *, void *, _IO_size_t));
402 extern _IO_size_t _IO_wdefault_xsgetn __P ((_IO_FILE *, void *, _IO_size_t));
403 extern _IO_off64_t _IO_default_seekoff __P ((_IO_FILE *,
404                                              _IO_off64_t, int, int));
405 extern _IO_off64_t _IO_default_seekpos __P ((_IO_FILE *, _IO_off64_t, int));
406 extern _IO_ssize_t _IO_default_write __P ((_IO_FILE *, const void *,
407                                            _IO_ssize_t));
408 extern _IO_ssize_t _IO_default_read __P ((_IO_FILE *, void *, _IO_ssize_t));
409 extern int _IO_default_stat __P ((_IO_FILE *, void *));
410 extern _IO_off64_t _IO_default_seek __P ((_IO_FILE *, _IO_off64_t, int));
411 extern int _IO_default_sync __P ((_IO_FILE *));
412 #define _IO_default_close ((_IO_close_t) _IO_default_sync)
413 extern int _IO_default_showmanyc __P ((_IO_FILE *));
414 extern void _IO_default_imbue __P ((_IO_FILE *, void *));
415
416 extern struct _IO_jump_t _IO_file_jumps;
417 extern struct _IO_jump_t _IO_file_jumps_mmap;
418 extern struct _IO_jump_t _IO_wfile_jumps;
419 extern struct _IO_jump_t _IO_wfile_jumps_mmap;
420 extern struct _IO_jump_t _IO_old_file_jumps;
421 extern struct _IO_jump_t _IO_streambuf_jumps;
422 extern struct _IO_jump_t _IO_proc_jumps;
423 extern struct _IO_jump_t _IO_old_proc_jumps;
424 extern struct _IO_jump_t _IO_str_jumps;
425 extern struct _IO_jump_t _IO_wstr_jumps;
426 extern struct _IO_codecvt __libio_codecvt;
427 extern int _IO_do_write __P ((_IO_FILE *, const char *, _IO_size_t));
428 extern int _IO_new_do_write __P ((_IO_FILE *, const char *, _IO_size_t));
429 extern int _IO_old_do_write __P ((_IO_FILE *, const char *, _IO_size_t));
430 extern int _IO_wdo_write __P ((_IO_FILE *, const wchar_t *, _IO_size_t));
431 extern int _IO_flush_all_lockp __P ((int));
432 extern int _IO_flush_all __P ((void));
433 extern int _IO_cleanup __P ((void));
434 extern void _IO_flush_all_linebuffered __P ((void));
435 extern int _IO_new_fgetpos __P ((_IO_FILE *, _IO_fpos_t *));
436 extern int _IO_old_fgetpos __P ((_IO_FILE *, _IO_fpos_t *));
437 extern int _IO_new_fsetpos __P ((_IO_FILE *, const _IO_fpos_t *));
438 extern int _IO_old_fsetpos __P ((_IO_FILE *, const _IO_fpos_t *));
439 extern int _IO_new_fgetpos64 __P ((_IO_FILE *, _IO_fpos64_t *));
440 extern int _IO_old_fgetpos64 __P ((_IO_FILE *, _IO_fpos64_t *));
441 extern int _IO_new_fsetpos64 __P ((_IO_FILE *, const _IO_fpos64_t *));
442 extern int _IO_old_fsetpos64 __P ((_IO_FILE *, const _IO_fpos64_t *));
443
444
445 #if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
446 # define _IO_do_flush(_f) \
447   ((_f)->_mode <= 0                                                           \
448    ? _IO_do_write(_f, (_f)->_IO_write_base,                                   \
449                   (_f)->_IO_write_ptr-(_f)->_IO_write_base)                   \
450    : _IO_wdo_write(_f, (_f)->_wide_data->_IO_write_base,                      \
451                    ((_f)->_wide_data->_IO_write_ptr                           \
452                     - (_f)->_wide_data->_IO_write_base)))
453 #else
454 # define _IO_do_flush(_f) \
455    _IO_do_write(_f, (_f)->_IO_write_base,                                     \
456                 (_f)->_IO_write_ptr-(_f)->_IO_write_base)
457 #endif
458 #define _IO_old_do_flush(_f) \
459   _IO_old_do_write(_f, (_f)->_IO_write_base, \
460                    (_f)->_IO_write_ptr-(_f)->_IO_write_base)
461 #define _IO_in_put_mode(_fp) ((_fp)->_flags & _IO_CURRENTLY_PUTTING)
462 #define _IO_mask_flags(fp, f, mask) \
463        ((fp)->_flags = ((fp)->_flags & ~(mask)) | ((f) & (mask)))
464 #define _IO_setg(fp, eb, g, eg)  ((fp)->_IO_read_base = (eb),\
465         (fp)->_IO_read_ptr = (g), (fp)->_IO_read_end = (eg))
466 #define _IO_wsetg(fp, eb, g, eg)  ((fp)->_wide_data->_IO_read_base = (eb),\
467         (fp)->_wide_data->_IO_read_ptr = (g), \
468         (fp)->_wide_data->_IO_read_end = (eg))
469 #define _IO_setp(__fp, __p, __ep) \
470        ((__fp)->_IO_write_base = (__fp)->_IO_write_ptr \
471         = __p, (__fp)->_IO_write_end = (__ep))
472 #define _IO_wsetp(__fp, __p, __ep) \
473        ((__fp)->_wide_data->_IO_write_base \
474         = (__fp)->_wide_data->_IO_write_ptr = __p, \
475         (__fp)->_wide_data->_IO_write_end = (__ep))
476 #define _IO_have_backup(fp) ((fp)->_IO_save_base != NULL)
477 #define _IO_have_wbackup(fp) ((fp)->_wide_data->_IO_save_base != NULL)
478 #define _IO_in_backup(fp) ((fp)->_flags & _IO_IN_BACKUP)
479 #define _IO_have_markers(fp) ((fp)->_markers != NULL)
480 #define _IO_blen(fp) ((fp)->_IO_buf_end - (fp)->_IO_buf_base)
481 #define _IO_wblen(fp) ((fp)->_wide_data->_IO_buf_end \
482                        - (fp)->_wide_data->_IO_buf_base)
483
484 /* Jumptable functions for files. */
485
486 extern int _IO_file_doallocate __P ((_IO_FILE *));
487 extern _IO_FILE* _IO_file_setbuf __P ((_IO_FILE *, char *, _IO_ssize_t));
488 extern _IO_off64_t _IO_file_seekoff __P ((_IO_FILE *, _IO_off64_t, int, int));
489 extern _IO_off64_t _IO_file_seekoff_mmap __P ((_IO_FILE *, _IO_off64_t, int,
490                                                int));
491 extern _IO_size_t _IO_file_xsputn __P ((_IO_FILE *, const void *, _IO_size_t));
492 extern _IO_size_t _IO_file_xsgetn __P ((_IO_FILE *, void *, _IO_size_t));
493 extern int _IO_file_stat __P ((_IO_FILE *, void *));
494 extern int _IO_file_close __P ((_IO_FILE *));
495 extern int _IO_file_close_mmap __P ((_IO_FILE *));
496 extern int _IO_file_underflow __P ((_IO_FILE *));
497 extern int _IO_file_underflow_mmap __P ((_IO_FILE *));
498 extern int _IO_file_overflow __P ((_IO_FILE *, int));
499 #define _IO_file_is_open(__fp) ((__fp)->_fileno != -1)
500 extern void _IO_file_init __P ((struct _IO_FILE_plus *));
501 extern _IO_FILE* _IO_file_attach __P ((_IO_FILE *, int));
502 extern _IO_FILE* _IO_file_open __P ((_IO_FILE *, const char *, int, int,
503                                      int, int));
504 extern _IO_FILE* _IO_file_fopen __P ((_IO_FILE *, const char *, const char *,
505                                       int));
506 extern _IO_ssize_t _IO_file_write __P ((_IO_FILE *, const void *,
507                                         _IO_ssize_t));
508 extern _IO_ssize_t _IO_file_read __P ((_IO_FILE *, void *, _IO_ssize_t));
509 extern int _IO_file_sync __P ((_IO_FILE *));
510 extern int _IO_file_close_it __P ((_IO_FILE *));
511 extern _IO_off64_t _IO_file_seek __P ((_IO_FILE *, _IO_off64_t, int));
512 extern void _IO_file_finish __P ((_IO_FILE *, int));
513
514 extern _IO_FILE* _IO_new_file_attach __P ((_IO_FILE *, int));
515 extern int _IO_new_file_close_it __P ((_IO_FILE *));
516 extern void _IO_new_file_finish __P ((_IO_FILE *, int));
517 extern _IO_FILE* _IO_new_file_fopen __P ((_IO_FILE *, const char *, const char *,
518                                           int));
519 extern void _IO_no_init __P ((_IO_FILE *, int, int, struct _IO_wide_data *,
520                               struct _IO_jump_t *));
521 extern void _IO_new_file_init __P ((struct _IO_FILE_plus *));
522 extern _IO_FILE* _IO_new_file_setbuf __P ((_IO_FILE *, char *, _IO_ssize_t));
523 extern int _IO_new_file_sync __P ((_IO_FILE *));
524 extern int _IO_new_file_underflow __P ((_IO_FILE *));
525 extern int _IO_new_file_overflow __P ((_IO_FILE *, int));
526 extern _IO_off64_t _IO_new_file_seekoff __P ((_IO_FILE *, _IO_off64_t, int, int));
527 extern _IO_ssize_t _IO_new_file_write __P ((_IO_FILE *, const void *,
528                                             _IO_ssize_t));
529 extern _IO_size_t _IO_new_file_xsputn __P ((_IO_FILE *, const void *, _IO_size_t));
530
531 extern _IO_FILE* _IO_old_file_setbuf __P ((_IO_FILE *, char *, _IO_ssize_t));
532 extern _IO_off64_t _IO_old_file_seekoff __P ((_IO_FILE *, _IO_off64_t, int,
533                                               int));
534 extern _IO_size_t _IO_old_file_xsputn __P ((_IO_FILE *, const void *,
535                                             _IO_size_t));
536 extern int _IO_old_file_underflow __P ((_IO_FILE *));
537 extern int _IO_old_file_overflow __P ((_IO_FILE *, int));
538 extern void _IO_old_file_init __P ((struct _IO_FILE_plus *));
539 extern _IO_FILE* _IO_old_file_attach __P ((_IO_FILE *, int));
540 extern _IO_FILE* _IO_old_file_fopen __P ((_IO_FILE *, const char *,
541                                           const char *));
542 extern _IO_ssize_t _IO_old_file_write __P ((_IO_FILE *, const void *,
543                                             _IO_ssize_t));
544 extern int _IO_old_file_sync __P ((_IO_FILE *));
545 extern int _IO_old_file_close_it __P ((_IO_FILE *));
546 extern void _IO_old_file_finish __P ((_IO_FILE *, int));
547
548 extern int _IO_wfile_doallocate __P ((_IO_FILE *));
549 extern _IO_size_t _IO_wfile_xsputn __P ((_IO_FILE *, const void *,
550                                          _IO_size_t));
551 extern _IO_FILE* _IO_wfile_setbuf __P ((_IO_FILE *, wchar_t *, _IO_ssize_t));
552 extern wint_t _IO_wfile_sync __P ((_IO_FILE *));
553 extern wint_t _IO_wfile_underflow __P ((_IO_FILE *));
554 extern wint_t _IO_wfile_overflow __P ((_IO_FILE *, wint_t));
555 extern _IO_off64_t _IO_wfile_seekoff __P ((_IO_FILE *, _IO_off64_t, int, int));
556
557 /* Jumptable functions for proc_files. */
558 extern _IO_FILE* _IO_proc_open __P ((_IO_FILE *, const char *, const char *));
559 extern _IO_FILE* _IO_new_proc_open __P ((_IO_FILE *, const char *, const char *));
560 extern _IO_FILE* _IO_old_proc_open __P ((_IO_FILE *, const char *, const char *));
561 extern int _IO_proc_close __P ((_IO_FILE *));
562 extern int _IO_new_proc_close __P ((_IO_FILE *));
563 extern int _IO_old_proc_close __P ((_IO_FILE *));
564
565 /* Jumptable functions for strfiles. */
566 extern int _IO_str_underflow __P ((_IO_FILE *));
567 extern int _IO_str_overflow __P ((_IO_FILE *, int));
568 extern int _IO_str_pbackfail __P ((_IO_FILE *, int));
569 extern _IO_off64_t _IO_str_seekoff __P ((_IO_FILE *, _IO_off64_t, int, int));
570 extern void _IO_str_finish __P ((_IO_FILE *, int));
571
572 /* Other strfile functions */
573 struct _IO_strfile_;
574 extern void _IO_str_init_static __P ((struct _IO_strfile_ *, char *, int, char *));
575 extern void _IO_str_init_readonly __P ((struct _IO_strfile_ *, const char *, int));
576 extern _IO_ssize_t _IO_str_count __P ((_IO_FILE *));
577
578 /* And the wide character versions.  */
579 extern void _IO_wstr_init_static __P ((_IO_FILE *, wchar_t *, int, wchar_t *));
580 extern void _IO_wstr_init_readonly __P ((_IO_FILE *, const char *, int));
581 extern _IO_ssize_t _IO_wstr_count __P ((_IO_FILE *));
582 extern _IO_wint_t _IO_wstr_overflow __P ((_IO_FILE *, _IO_wint_t));
583 extern _IO_wint_t _IO_wstr_underflow __P ((_IO_FILE *));
584 extern _IO_off64_t _IO_wstr_seekoff __P ((_IO_FILE *, _IO_off64_t, int, int));
585 extern _IO_wint_t _IO_wstr_pbackfail __P ((_IO_FILE *, _IO_wint_t));
586 extern void _IO_wstr_finish __P ((_IO_FILE *, int));
587
588 extern int _IO_vasprintf __P ((char **result_ptr, __const char *format,
589                                _IO_va_list args));
590 extern int _IO_vdprintf __P ((int d, __const char *format, _IO_va_list arg));
591 extern int _IO_vsnprintf __P ((char *string, _IO_size_t maxlen,
592                                __const char *format, _IO_va_list args));
593
594
595 extern _IO_size_t _IO_getline __P ((_IO_FILE *,char *, _IO_size_t, int, int));
596 extern _IO_size_t _IO_getline_info __P ((_IO_FILE *,char *, _IO_size_t,
597                                          int, int, int *));
598 extern _IO_ssize_t _IO_getdelim __P ((char **, _IO_size_t *, int, _IO_FILE *));
599 extern _IO_size_t _IO_getwline __P ((_IO_FILE *,wchar_t *, _IO_size_t, wint_t,
600                                      int));
601 extern _IO_size_t _IO_getwline_info __P ((_IO_FILE *,wchar_t *, _IO_size_t,
602                                           wint_t, int, wint_t *));
603 extern double _IO_strtod __P ((const char *, char **));
604 extern char *_IO_dtoa __P ((double __d, int __mode, int __ndigits,
605                             int *__decpt, int *__sign, char **__rve));
606 extern int _IO_outfloat __P ((double __value, _IO_FILE *__sb, int __type,
607                               int __width, int __precision, int __flags,
608                               int __sign_mode, int __fill));
609
610 extern struct _IO_FILE_plus *_IO_list_all;
611 extern void (*_IO_cleanup_registration_needed) __PMT ((void));
612
613 #ifndef EOF
614 # define EOF (-1)
615 #endif
616 #ifndef NULL
617 # if defined __GNUG__ && \
618     (__GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 8))
619 #  define NULL (__null)
620 # else
621 #  if !defined(__cplusplus)
622 #   define NULL ((void*)0)
623 #  else
624 #   define NULL (0)
625 #  endif
626 # endif
627 #endif
628
629 #if _G_HAVE_MMAP
630
631 # include <unistd.h>
632 # include <fcntl.h>
633 # include <sys/mman.h>
634 # include <sys/param.h>
635
636 # if !defined(MAP_ANONYMOUS) && defined(MAP_ANON)
637 #  define MAP_ANONYMOUS MAP_ANON
638 # endif
639
640 # if !defined(MAP_ANONYMOUS) || !defined(EXEC_PAGESIZE)
641 #  undef _G_HAVE_MMAP
642 #  define _G_HAVE_MMAP 0
643 # endif
644
645 #endif /* _G_HAVE_MMAP */
646
647 #if _G_HAVE_MMAP
648
649 # ifdef _LIBC
650 /* When using this code in the GNU libc we must not pollute the name space.  */
651 #  define mmap __mmap
652 #  define munmap __munmap
653 #  define ftruncate __ftruncate
654 # endif
655
656 # define ROUND_TO_PAGE(_S) \
657        (((_S) + EXEC_PAGESIZE - 1) & ~(EXEC_PAGESIZE - 1))
658
659 # define FREE_BUF(_B, _S) \
660        munmap ((_B), ROUND_TO_PAGE (_S))
661 # define ALLOC_BUF(_B, _S, _R) \
662        do {                                                                   \
663           (_B) = (char *) mmap (0, ROUND_TO_PAGE (_S),                        \
664                                 PROT_READ | PROT_WRITE,                       \
665                                 MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);          \
666           if ((_B) == (char *) MAP_FAILED)                                    \
667             return (_R);                                                      \
668        } while (0)
669 # define ALLOC_WBUF(_B, _S, _R) \
670        do {                                                                   \
671           (_B) = (wchar_t *) mmap (0, ROUND_TO_PAGE (_S),                     \
672                                    PROT_READ | PROT_WRITE,                    \
673                                    MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);       \
674           if ((_B) == (wchar_t *) MAP_FAILED)                                 \
675             return (_R);                                                      \
676        } while (0)
677
678 #else /* _G_HAVE_MMAP */
679
680 # define FREE_BUF(_B, _S) \
681        free(_B)
682 # define ALLOC_BUF(_B, _S, _R) \
683        do {                                                                   \
684           (_B) = (char*)malloc(_S);                                           \
685           if ((_B) == NULL)                                                   \
686             return (_R);                                                      \
687        } while (0)
688 # define ALLOC_WBUF(_B, _S, _R) \
689        do {                                                                   \
690           (_B) = (wchar_t *)malloc(_S);                                       \
691           if ((_B) == NULL)                                                   \
692             return (_R);                                                      \
693        } while (0)
694
695 #endif /* _G_HAVE_MMAP */
696
697 #ifndef OS_FSTAT
698 # define OS_FSTAT fstat
699 #endif
700 struct stat;
701 extern _IO_ssize_t _IO_read __P ((int, void *, _IO_size_t));
702 extern _IO_ssize_t _IO_write __P ((int, const void *, _IO_size_t));
703 extern _IO_off64_t _IO_lseek __P ((int, _IO_off64_t, int));
704 extern int _IO_close __P ((int));
705 extern int _IO_fstat __P ((int, struct stat *));
706 extern int _IO_vscanf __P ((const char *, _IO_va_list));
707
708 /* _IO_pos_BAD is an _IO_off64_t value indicating error, unknown, or EOF. */
709 #ifndef _IO_pos_BAD
710 # define _IO_pos_BAD ((_IO_off64_t) -1)
711 #endif
712 /* _IO_pos_adjust adjust an _IO_off64_t by some number of bytes. */
713 #ifndef _IO_pos_adjust
714 # define _IO_pos_adjust(pos, delta) ((pos) += (delta))
715 #endif
716 /* _IO_pos_0 is an _IO_off64_t value indicating beginning of file. */
717 #ifndef _IO_pos_0
718 # define _IO_pos_0 ((_IO_off64_t) 0)
719 #endif
720
721 #ifdef __cplusplus
722 }
723 #endif
724
725 #ifdef _IO_MTSAFE_IO
726 /* check following! */
727 # ifdef _IO_USE_OLD_IO_FILE
728 #  define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
729        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
730          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
731          0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock }
732 # else
733 #  if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
734 #   define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
735        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
736          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
737          0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock, _IO_pos_BAD,\
738          NULL, WDP, 0 }
739 #  else
740 #   define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
741        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
742          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
743          0, _IO_pos_BAD, 0, 0, { 0 }, &_IO_stdfile_##FD##_lock, _IO_pos_BAD,\
744          0 }
745 #  endif
746 # endif
747 #else
748 # ifdef _IO_USE_OLD_IO_FILE
749 #  define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
750        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
751          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
752          0, _IO_pos_BAD }
753 # else
754 #  if defined _LIBC || defined _GLIBCPP_USE_WCHAR_T
755 #   define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
756        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
757          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
758          0, _IO_pos_BAD, 0, 0, { 0 }, 0, _IO_pos_BAD, \
759          NULL, WDP, 0 }
760 #  else
761 #   define FILEBUF_LITERAL(CHAIN, FLAGS, FD, WDP) \
762        { _IO_MAGIC+_IO_LINKED+_IO_IS_FILEBUF+FLAGS, \
763          0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, (_IO_FILE *) CHAIN, FD, \
764          0, _IO_pos_BAD, 0, 0, { 0 }, 0, _IO_pos_BAD, \
765          0 }
766 #  endif
767 # endif
768 #endif
769
770 /* VTABLE_LABEL defines NAME as of the CLASS class.
771    CNLENGTH is strlen(#CLASS).  */
772 #ifdef __GNUC__
773 # if _G_VTABLE_LABEL_HAS_LENGTH
774 #  define VTABLE_LABEL(NAME, CLASS, CNLENGTH) \
775   extern char NAME[] asm (_G_VTABLE_LABEL_PREFIX #CNLENGTH #CLASS);
776 # else
777 #  define VTABLE_LABEL(NAME, CLASS, CNLENGTH) \
778   extern char NAME[] asm (_G_VTABLE_LABEL_PREFIX #CLASS);
779 # endif
780 #endif /* __GNUC__ */
781
782 #if !defined(builtinbuf_vtable) && defined(__cplusplus)
783 # ifdef __GNUC__
784 VTABLE_LABEL(builtinbuf_vtable, builtinbuf, 10)
785 # else
786 #  if _G_VTABLE_LABEL_HAS_LENGTH
787 #   define builtinbuf_vtable _G_VTABLE_LABEL_PREFIX_ID##10builtinbuf
788 #  else
789 #   define builtinbuf_vtable _G_VTABLE_LABEL_PREFIX_ID##builtinbuf
790 #  endif
791 # endif
792 #endif /* !defined(builtinbuf_vtable) && defined(__cplusplus) */
793
794 #if defined(__STDC__) || defined(__cplusplus)
795 # define _IO_va_start(args, last) va_start(args, last)
796 #else
797 # define _IO_va_start(args, last) va_start(args)
798 #endif
799
800 extern struct _IO_fake_stdiobuf _IO_stdin_buf, _IO_stdout_buf, _IO_stderr_buf;
801
802 #if 1
803 # define COERCE_FILE(FILE) /* Nothing */
804 #else
805 /* This is part of the kludge for binary compatibility with old stdio. */
806 # define COERCE_FILE(FILE) \
807   (((FILE)->_IO_file_flags & _IO_MAGIC_MASK) == _OLD_MAGIC_MASK \
808     && (FILE) = *(FILE**)&((int*)fp)[1])
809 #endif
810
811 #ifdef EINVAL
812 # define MAYBE_SET_EINVAL __set_errno (EINVAL)
813 #else
814 # define MAYBE_SET_EINVAL /* nothing */
815 #endif
816
817 #ifdef IO_DEBUG
818 # define CHECK_FILE(FILE, RET) \
819         if ((FILE) == NULL) { MAYBE_SET_EINVAL; return RET; } \
820         else { COERCE_FILE(FILE); \
821                if (((FILE)->_IO_file_flags & _IO_MAGIC_MASK) != _IO_MAGIC) \
822           { MAYBE_SET_EINVAL; return RET; }}
823 #else
824 # define CHECK_FILE(FILE, RET) COERCE_FILE (FILE)
825 #endif