libio/libioP.h

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