diff options
Diffstat (limited to 'contrib/libio/genops.c')
| -rw-r--r-- | contrib/libio/genops.c | 946 | 
1 files changed, 0 insertions, 946 deletions
| diff --git a/contrib/libio/genops.c b/contrib/libio/genops.c deleted file mode 100644 index b899e150afab..000000000000 --- a/contrib/libio/genops.c +++ /dev/null @@ -1,946 +0,0 @@ -/* Copyright (C) 1993, 1995, 1997, 1998 Free Software Foundation, Inc. -   This file is part of the GNU IO Library. - -   This library is free software; you can redistribute it and/or -   modify it under the terms of the GNU General Public License as -   published by the Free Software Foundation; either version 2, or (at -   your option) any later version. - -   This library is distributed in the hope that it will be useful, but -   WITHOUT ANY WARRANTY; without even the implied warranty of -   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -   General Public License for more details. - -   You should have received a copy of the GNU General Public License -   along with this library; see the file COPYING.  If not, write to -   the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -   MA 02111-1307, USA. - -   As a special exception, if you link this library with files -   compiled with a GNU compiler to produce an executable, this does -   not cause the resulting executable to be covered by the GNU General -   Public License.  This exception does not however invalidate any -   other reasons why the executable file might be covered by the GNU -   General Public License.  */ - -/* Generic or default I/O operations. */ - -#include "libioP.h" -#ifdef __STDC__ -#include <stdlib.h> -#endif -#include <string.h> - -void -_IO_un_link (fp) -     _IO_FILE *fp; -{ -  if (fp->_flags & _IO_LINKED) -    { -      _IO_FILE **f; -      for (f = &_IO_list_all; *f != NULL; f = &(*f)->_chain) -	{ -	  if (*f == fp) -	    { -	      *f = fp->_chain; -	      break; -	    } -	} -      fp->_flags &= ~_IO_LINKED; -    } -} - -void -_IO_link_in (fp) -     _IO_FILE *fp; -{ -    if ((fp->_flags & _IO_LINKED) == 0) -      { -	fp->_flags |= _IO_LINKED; -	fp->_chain = _IO_list_all; -	_IO_list_all = fp; -      } -} - -/* Return minimum _pos markers -   Assumes the current get area is the main get area. */ -static _IO_size_t _IO_least_marker __P ((_IO_FILE *fp)); - -static _IO_size_t -_IO_least_marker (fp) -     _IO_FILE *fp; -{ -  _IO_ssize_t least_so_far = fp->_IO_read_end - fp->_IO_read_base; -  struct _IO_marker *mark; -  for (mark = fp->_markers; mark != NULL; mark = mark->_next) -    if (mark->_pos < least_so_far) -      least_so_far = mark->_pos; -  return least_so_far; -} - -/* Switch current get area from backup buffer to (start of) main get area. */ - -void -_IO_switch_to_main_get_area (fp) -     _IO_FILE *fp; -{ -  char *tmp; -  fp->_flags &= ~_IO_IN_BACKUP; -  /* Swap _IO_read_end and _IO_save_end. */ -  tmp = fp->_IO_read_end; -  fp->_IO_read_end = fp->_IO_save_end; -  fp->_IO_save_end= tmp; -  /* Swap _IO_read_base and _IO_save_base. */ -  tmp = fp->_IO_read_base; -  fp->_IO_read_base = fp->_IO_save_base; -  fp->_IO_save_base = tmp; - -  fp->_IO_read_ptr = fp->_IO_read_base; -} - -/* Switch current get area from main get area to (end of) backup area. */ - -void -_IO_switch_to_backup_area (fp) -     _IO_FILE *fp; -{ -  char *tmp; -  fp->_flags |= _IO_IN_BACKUP; -  /* Swap _IO_read_end and _IO_save_end. */ -  tmp = fp->_IO_read_end; -  fp->_IO_read_end = fp->_IO_save_end; -  fp->_IO_save_end = tmp; -  /* Swap _gbase and _IO_save_base. */ -  tmp = fp->_IO_read_base; -  fp->_IO_read_base = fp->_IO_save_base; -  fp->_IO_save_base = tmp; - -  fp->_IO_read_ptr = fp->_IO_read_end; -} - -int -_IO_switch_to_get_mode (fp) -     _IO_FILE *fp; -{ -  if (fp->_IO_write_ptr > fp->_IO_write_base) -    if (_IO_OVERFLOW (fp, EOF) == EOF) -      return EOF; -  if (_IO_in_backup (fp)) -    fp->_IO_read_base = fp->_IO_backup_base; -  else -    { -      fp->_IO_read_base = fp->_IO_buf_base; -      if (fp->_IO_write_ptr > fp->_IO_read_end) -	fp->_IO_read_end = fp->_IO_write_ptr; -    } -  fp->_IO_read_ptr = fp->_IO_write_ptr; - -  fp->_IO_write_base = fp->_IO_write_ptr = fp->_IO_write_end = fp->_IO_read_ptr; - -  fp->_flags &= ~_IO_CURRENTLY_PUTTING; -  return 0; -} - -void -_IO_free_backup_area (fp) -     _IO_FILE *fp; -{ -  if (_IO_in_backup (fp)) -    _IO_switch_to_main_get_area (fp);  /* Just in case. */ -  free (fp->_IO_save_base); -  fp->_IO_save_base = NULL; -  fp->_IO_save_end = NULL; -  fp->_IO_backup_base = NULL; -} - -#if 0 -int -_IO_switch_to_put_mode (fp) -     _IO_FILE *fp; -{ -  fp->_IO_write_base = fp->_IO_read_ptr; -  fp->_IO_write_ptr = fp->_IO_read_ptr; -  /* Following is wrong if line- or un-buffered? */ -  fp->_IO_write_end = (fp->_flags & _IO_IN_BACKUP -		       ? fp->_IO_read_end : fp->_IO_buf_end); - -  fp->_IO_read_ptr = fp->_IO_read_end; -  fp->_IO_read_base = fp->_IO_read_end; - -  fp->_flags |= _IO_CURRENTLY_PUTTING; -  return 0; -} -#endif - -int -__overflow (f, ch) -     _IO_FILE *f; -     int ch; -{ -  return _IO_OVERFLOW (f, ch); -} - -static int save_for_backup __P ((_IO_FILE *fp)); - -     static int -save_for_backup (fp) -     _IO_FILE *fp; -{ -  /* Append [_IO_read_base.._IO_read_end] to backup area. */ -  int least_mark = _IO_least_marker (fp); -  /* needed_size is how much space we need in the backup area. */ -  int needed_size = (fp->_IO_read_end - fp->_IO_read_base) - least_mark; -  int current_Bsize = fp->_IO_save_end - fp->_IO_save_base; -  int avail; /* Extra space available for future expansion. */ -  int delta; -  struct _IO_marker *mark; -  if (needed_size > current_Bsize) -    { -      char *new_buffer; -      avail = 100; -      new_buffer = (char *) malloc (avail + needed_size); -      if (new_buffer == NULL) -	return EOF;		/* FIXME */ -      if (least_mark < 0) -	{ -	  memcpy (new_buffer + avail, -		  fp->_IO_save_end + least_mark, -		  -least_mark); -	  memcpy (new_buffer + avail - least_mark, -		  fp->_IO_read_base, -		  fp->_IO_read_end - fp->_IO_read_base); -	} -      else -	memcpy (new_buffer + avail, -		fp->_IO_read_base + least_mark, -		needed_size); -      if (fp->_IO_save_base) -	free (fp->_IO_save_base); -      fp->_IO_save_base = new_buffer; -      fp->_IO_save_end = new_buffer + avail + needed_size; -    } -  else -    { -      avail = current_Bsize - needed_size; -      if (least_mark < 0) -	{ -	  memmove (fp->_IO_save_base + avail, -		   fp->_IO_save_end + least_mark, -		   -least_mark); -	  memcpy (fp->_IO_save_base + avail - least_mark, -		  fp->_IO_read_base, -		  fp->_IO_read_end - fp->_IO_read_base); -	} -      else if (needed_size > 0) -	memcpy (fp->_IO_save_base + avail, -		fp->_IO_read_base + least_mark, -		needed_size); -    } -  /* FIXME: Dubious arithmetic if pointers are NULL */ -  fp->_IO_backup_base = fp->_IO_save_base + avail; -  /* Adjust all the streammarkers. */ -  delta = fp->_IO_read_end - fp->_IO_read_base; -  for (mark = fp->_markers; mark != NULL; mark = mark->_next) -    mark->_pos -= delta; -  return 0; -} - -int -__underflow (fp) -     _IO_FILE *fp; -{ -  if (_IO_in_put_mode (fp)) -    if (_IO_switch_to_get_mode (fp) == EOF) -      return EOF; -  if (fp->_IO_read_ptr < fp->_IO_read_end) -    return *(unsigned char *) fp->_IO_read_ptr; -  if (_IO_in_backup (fp)) -    { -      _IO_switch_to_main_get_area (fp); -      if (fp->_IO_read_ptr < fp->_IO_read_end) -	return *(unsigned char *) fp->_IO_read_ptr; -    } -  if (_IO_have_markers (fp)) -    { -      if (save_for_backup (fp)) -	return EOF; -    } -  else if (_IO_have_backup (fp)) -    _IO_free_backup_area (fp); -  return _IO_UNDERFLOW (fp); -} - -int -__uflow (fp) -     _IO_FILE *fp; -{ -  if (_IO_in_put_mode (fp)) -    if (_IO_switch_to_get_mode (fp) == EOF) -      return EOF; -  if (fp->_IO_read_ptr < fp->_IO_read_end) -    return *(unsigned char *) fp->_IO_read_ptr++; -  if (_IO_in_backup (fp)) -    { -      _IO_switch_to_main_get_area (fp); -      if (fp->_IO_read_ptr < fp->_IO_read_end) -	return *(unsigned char *) fp->_IO_read_ptr++; -    } -  if (_IO_have_markers (fp)) -    { -      if (save_for_backup (fp)) -	return EOF; -    } -  else if (_IO_have_backup (fp)) -    _IO_free_backup_area (fp); -  return _IO_UFLOW (fp); -} - -void -_IO_setb (f, b, eb, a) -     _IO_FILE *f; -      char *b; -     char *eb; -     int a; -{ -  if (f->_IO_buf_base && !(f->_flags & _IO_USER_BUF)) -    FREE_BUF (f->_IO_buf_base, _IO_blen (f)); -  f->_IO_buf_base = b; -  f->_IO_buf_end = eb; -  if (a) -    f->_flags &= ~_IO_USER_BUF; -  else -    f->_flags |= _IO_USER_BUF; -} - -void -_IO_doallocbuf (fp) -     _IO_FILE *fp; -{ -  if (fp->_IO_buf_base) -    return; -  if (!(fp->_flags & _IO_UNBUFFERED)) -    if (_IO_DOALLOCATE (fp) != EOF) -      return; -  _IO_setb (fp, fp->_shortbuf, fp->_shortbuf+1, 0); -} - -int -_IO_default_underflow (fp) -     _IO_FILE *fp; -{ -  return EOF; -} - -int -_IO_default_uflow (fp) -     _IO_FILE *fp; -{ -  int ch = _IO_UNDERFLOW (fp); -  if (ch == EOF) -    return EOF; -  return *(unsigned char *) fp->_IO_read_ptr++; -} - -_IO_size_t -_IO_default_xsputn (f, data, n) -     _IO_FILE *f; -     const void *data; -     _IO_size_t n; -{ -  const char *s = (char *) data; -  _IO_size_t more = n; -  if (more <= 0) -    return 0; -  for (;;) -    { -      /* Space available. */ -      _IO_ssize_t count = f->_IO_write_end - f->_IO_write_ptr; -      if (count > 0) -	{ -	  if ((_IO_size_t) count > more) -	    count = more; -	  if (count > 20) -	    { -	      memcpy (f->_IO_write_ptr, s, count); -	      s += count; -	      f->_IO_write_ptr += count; -            } -	  else if (count <= 0) -	    count = 0; -	  else -	    { -	      char *p = f->_IO_write_ptr; -	      _IO_ssize_t i; -	      for (i = count; --i >= 0; ) -		*p++ = *s++; -	      f->_IO_write_ptr = p; -            } -	  more -= count; -        } -      if (more == 0 || __overflow (f, (unsigned char) *s++) == EOF) -	break; -      more--; -    } -  return n - more; -} - -_IO_size_t -_IO_sgetn (fp, data, n) -     _IO_FILE *fp; -     void *data; -     _IO_size_t n; -{ -  /* FIXME handle putback buffer here! */ -  return _IO_XSGETN (fp, data, n); -} - -_IO_size_t -_IO_default_xsgetn (fp, data, n) -     _IO_FILE *fp; -     void *data; -     _IO_size_t n; -{ -  _IO_size_t more = n; -  char *s = (char*) data; -  for (;;) -    { -      /* Data available. */ -      _IO_ssize_t count = fp->_IO_read_end - fp->_IO_read_ptr; -      if (count > 0) -	{ -	  if ((_IO_size_t) count > more) -	    count = more; -	  if (count > 20) -	    { -	      memcpy (s, fp->_IO_read_ptr, count); -	      s += count; -	      fp->_IO_read_ptr += count; -	    } -	  else if (count <= 0) -	    count = 0; -	  else -	    { -	      char *p = fp->_IO_read_ptr; -	      int i = (int) count; -	      while (--i >= 0) -		*s++ = *p++; -	      fp->_IO_read_ptr = p; -            } -            more -= count; -        } -      if (more == 0 || __underflow (fp) == EOF) -	break; -    } -  return n - more; -} - -#if 0 -/* Seems not to be needed. --drepper */ -int -_IO_sync (fp) -     _IO_FILE *fp; -{ -  return 0; -} -#endif - -_IO_FILE * -_IO_default_setbuf (fp, p, len) -     _IO_FILE *fp; -     char *p; -     _IO_ssize_t len; -{ -    if (_IO_SYNC (fp) == EOF) -	return NULL; -    if (p == NULL || len == 0) -      { -	fp->_flags |= _IO_UNBUFFERED; -	_IO_setb (fp, fp->_shortbuf, fp->_shortbuf+1, 0); -      } -    else -      { -	fp->_flags &= ~_IO_UNBUFFERED; -	_IO_setb (fp, p, p+len, 0); -      } -    fp->_IO_write_base = fp->_IO_write_ptr = fp->_IO_write_end = 0; -    fp->_IO_read_base = fp->_IO_read_ptr = fp->_IO_read_end = 0; -    return fp; -} - -_IO_pos_t -_IO_default_seekpos (fp, pos, mode) -     _IO_FILE *fp; -     _IO_pos_t pos; -     int mode; -{ -  return _IO_SEEKOFF (fp, _IO_pos_as_off (pos), 0, mode); -} - -int -_IO_default_doallocate (fp) -     _IO_FILE *fp; -{ -  char *buf; - -  ALLOC_BUF (buf, _IO_BUFSIZ, EOF); -  _IO_setb (fp, buf, buf+_IO_BUFSIZ, 1); -  return 1; -} - -void -_IO_init (fp, flags) -     _IO_FILE *fp; -     int flags; -{ -  fp->_flags = _IO_MAGIC|flags; -  fp->_IO_buf_base = NULL; -  fp->_IO_buf_end = NULL; -  fp->_IO_read_base = NULL; -  fp->_IO_read_ptr = NULL; -  fp->_IO_read_end = NULL; -  fp->_IO_write_base = NULL; -  fp->_IO_write_ptr = NULL; -  fp->_IO_write_end = NULL; -  fp->_chain = NULL; /* Not necessary. */ - -  fp->_IO_save_base = NULL; -  fp->_IO_backup_base = NULL; -  fp->_IO_save_end = NULL; -  fp->_markers = NULL; -  fp->_cur_column = 0; -#ifdef _IO_MTSAFE_IO -  _IO_lock_init (*fp->_lock); -#endif -} - -int -_IO_default_sync (fp) -     _IO_FILE *fp; -{ -  return 0; -} - -/* The way the C++ classes are mapped into the C functions in the -   current implementation, this function can get called twice! */ - -void -_IO_default_finish (fp, dummy) -     _IO_FILE *fp; -     int dummy; -{ -  struct _IO_marker *mark; -  if (fp->_IO_buf_base && !(fp->_flags & _IO_USER_BUF)) -    { -      FREE_BUF (fp->_IO_buf_base, _IO_blen (fp)); -      fp->_IO_buf_base = fp->_IO_buf_end = NULL; -    } - -  for (mark = fp->_markers; mark != NULL; mark = mark->_next) -    mark->_sbuf = NULL; - -  if (fp->_IO_save_base) -    { -      free (fp->_IO_save_base); -      fp->_IO_save_base = NULL; -    } - -#ifdef _IO_MTSAFE_IO -  _IO_lock_fini (*fp->_lock); -#endif - -  _IO_un_link (fp); -} - -_IO_pos_t -_IO_default_seekoff (fp, offset, dir, mode) -     _IO_FILE *fp; -     _IO_off_t offset; -     int dir; -     int mode; -{ -    return _IO_pos_BAD; -} - -int -_IO_sputbackc (fp, c) -     _IO_FILE *fp; -     int c; -{ -  int result; - -  if (fp->_IO_read_ptr > fp->_IO_read_base -      && (unsigned char)fp->_IO_read_ptr[-1] == (unsigned char)c) -    { -      fp->_IO_read_ptr--; -      result = (unsigned char) c; -    } -  else -    result = _IO_PBACKFAIL (fp, c); - -  if (result != EOF) -    fp->_flags &= ~_IO_EOF_SEEN; - -  return result; -} - -int -_IO_sungetc (fp) -     _IO_FILE *fp; -{ -  int result; - -  if (fp->_IO_read_ptr > fp->_IO_read_base) -    { -      fp->_IO_read_ptr--; -      result = (unsigned char) *fp->_IO_read_ptr; -    } -  else -    result = _IO_PBACKFAIL (fp, EOF); - -  if (result != EOF) -    fp->_flags &= ~_IO_EOF_SEEN; - -  return result; -} - -#if 0 /* Work in progress */ -/* Seems not to be needed.  */ -#if 0 -void -_IO_set_column (fp, c) -     _IO_FILE *fp; -     int c; -{ -  if (c == -1) -    fp->_column = -1; -  else -    fp->_column = c - (fp->_IO_write_ptr - fp->_IO_write_base); -} -#else -int -_IO_set_column (fp, i) -     _IO_FILE *fp; -     int i; -{ -  fp->_cur_column = i + 1; -  return 0; -} -#endif -#endif - - -unsigned -_IO_adjust_column (start, line, count) -     unsigned start; -     const char *line; -     int count; -{ -  const char *ptr = line + count; -  while (ptr > line) -    if (*--ptr == '\n') -      return line + count - ptr - 1; -  return start + count; -} - -#if 0 -/* Seems not to be needed. --drepper */ -int -_IO_get_column (fp) -     _IO_FILE *fp; -{ -  if (fp->_cur_column) -    return _IO_adjust_column (fp->_cur_column - 1, -			      fp->_IO_write_base, -			      fp->_IO_write_ptr - fp->_IO_write_base); -  return -1; -} -#endif - -int -_IO_flush_all () -{ -  int result = 0; -  _IO_FILE *fp; -  for (fp = _IO_list_all; fp != NULL; fp = fp->_chain) -    if (fp->_IO_write_ptr > fp->_IO_write_base -	&& _IO_OVERFLOW (fp, EOF) == EOF) -      result = EOF; -  return result; -} - -void -_IO_flush_all_linebuffered () -{ -  _IO_FILE *fp; -  for (fp = _IO_list_all; fp != NULL; fp = fp->_chain) -    if ((fp->_flags & _IO_NO_WRITES) == 0 && fp->_flags & _IO_LINE_BUF) -      _IO_OVERFLOW (fp, EOF); -} - -static void _IO_unbuffer_all __P ((void)); - -static void -_IO_unbuffer_all () -{ -  _IO_FILE *fp; -  for (fp = _IO_list_all; fp != NULL; fp = fp->_chain) -    if (! (fp->_flags & _IO_UNBUFFERED)) -      _IO_SETBUF (fp, NULL, 0); -} - -void -_IO_cleanup () -{ -  _IO_flush_all (); - -  /* We currently don't have a reliable mechanism for making sure that -     C++ static destructors are executed in the correct order. -     So it is possible that other static destructors might want to -     write to cout - and they're supposed to be able to do so. - -     The following will make the standard streambufs be unbuffered, -     which forces any output from late destructors to be written out. */ -  _IO_unbuffer_all (); -} - -void -_IO_init_marker (marker, fp) -     struct _IO_marker *marker; -     _IO_FILE *fp; -{ -  marker->_sbuf = fp; -  if (_IO_in_put_mode (fp)) -    _IO_switch_to_get_mode (fp); -  if (_IO_in_backup (fp)) -    marker->_pos = fp->_IO_read_ptr - fp->_IO_read_end; -  else -    marker->_pos = fp->_IO_read_ptr - fp->_IO_read_base; - -  /* Should perhaps sort the chain? */ -  marker->_next = fp->_markers; -  fp->_markers = marker; -} - -void -_IO_remove_marker (marker) -     struct _IO_marker *marker; -{ -  /* Unlink from sb's chain. */ -  struct _IO_marker **ptr = &marker->_sbuf->_markers; -  for (; ; ptr = &(*ptr)->_next) -    { -      if (*ptr == NULL) -	break; -      else if (*ptr == marker) -	{ -	  *ptr = marker->_next; -	  return; -	} -    } -#if 0 -    if _sbuf has a backup area that is no longer needed, should we delete -    it now, or wait until the next underflow? -#endif -} - -#define BAD_DELTA EOF - -int -_IO_marker_difference (mark1, mark2) -     struct _IO_marker *mark1; -     struct _IO_marker *mark2; -{ -  return mark1->_pos - mark2->_pos; -} - -/* Return difference between MARK and current position of MARK's stream. */ -int -_IO_marker_delta (mark) -     struct _IO_marker *mark; -{ -  int cur_pos; -  if (mark->_sbuf == NULL) -    return BAD_DELTA; -  if (_IO_in_backup (mark->_sbuf)) -    cur_pos = mark->_sbuf->_IO_read_ptr - mark->_sbuf->_IO_read_end; -  else -    cur_pos = mark->_sbuf->_IO_read_ptr - mark->_sbuf->_IO_read_base; -  return mark->_pos - cur_pos; -} - -int -_IO_seekmark (fp, mark, delta) -     _IO_FILE *fp; -     struct _IO_marker *mark; -     int delta; -{ -  if (mark->_sbuf != fp) -    return EOF; - if (mark->_pos >= 0) -    { -      if (_IO_in_backup (fp)) -	_IO_switch_to_main_get_area (fp); -      fp->_IO_read_ptr = fp->_IO_read_base + mark->_pos; -    } -  else -    { -      if (!_IO_in_backup (fp)) -	_IO_switch_to_backup_area (fp); -      fp->_IO_read_ptr = fp->_IO_read_end + mark->_pos; -    } -  return 0; -} - -void -_IO_unsave_markers (fp) -     _IO_FILE *fp; -{ -  struct _IO_marker *mark = fp->_markers; -  if (mark) -    { -#ifdef TODO -      streampos offset = seekoff (0, ios::cur, ios::in); -      if (offset != EOF) -	{ -	  offset += eGptr () - Gbase (); -	  for ( ; mark != NULL; mark = mark->_next) -	    mark->set_streampos (mark->_pos + offset); -	} -    else -      { -	for ( ; mark != NULL; mark = mark->_next) -	  mark->set_streampos (EOF); -      } -#endif -      fp->_markers = 0; -    } - -  if (_IO_have_backup (fp)) -    _IO_free_backup_area (fp); -} - -#if 0 -/* Seems not to be needed. --drepper */ -int -_IO_nobackup_pbackfail (fp, c) -     _IO_FILE *fp; -     int c; -{ -  if (fp->_IO_read_ptr > fp->_IO_read_base) -	fp->_IO_read_ptr--; -  if (c != EOF && *fp->_IO_read_ptr != c) -      *fp->_IO_read_ptr = c; -  return (unsigned char) c; -} -#endif - -int -_IO_default_pbackfail (fp, c) -     _IO_FILE *fp; -     int c; -{ -  if (fp->_IO_read_ptr <= fp->_IO_read_base) -    { -      /* Need to handle a filebuf in write mode (switch to read mode). FIXME!*/ -      if (_IO_have_backup (fp) && !_IO_in_backup (fp)) -	_IO_switch_to_backup_area (fp); - -      if (!_IO_have_backup (fp)) -	{ -	  /* No backup buffer: allocate one. */ -	  /* Use nshort buffer, if unused? (probably not)  FIXME */ -	  int backup_size = 128; -	  char *bbuf = (char *) malloc (backup_size); -	  if (bbuf == NULL) -	    return EOF; -	  fp->_IO_save_base = bbuf; -	  fp->_IO_save_end = fp->_IO_save_base + backup_size; -	  fp->_IO_backup_base = fp->_IO_save_end; -	  _IO_switch_to_backup_area (fp); -	} -      else if (fp->_IO_read_ptr <= fp->_IO_read_base) -	{ -	  /* Increase size of existing backup buffer. */ -	  _IO_size_t new_size; -	  _IO_size_t old_size = fp->_IO_read_end - fp->_IO_read_base; -	  char *new_buf; -	  new_size = 2 * old_size; -	  new_buf = (char *) malloc (new_size); -	  if (new_buf == NULL) -	    return EOF; -	  memcpy (new_buf + (new_size - old_size), fp->_IO_read_base, -		  old_size); -	  free (fp->_IO_read_base); -	  _IO_setg (fp, new_buf, new_buf + (new_size - old_size), -		    new_buf + new_size); -	  fp->_IO_backup_base = fp->_IO_read_ptr; -	} -    } -  --fp->_IO_read_ptr; -  if (c != EOF && *fp->_IO_read_ptr != c) -    *fp->_IO_read_ptr = c; -  return (unsigned char) *fp->_IO_read_ptr; -} - -_IO_pos_t -_IO_default_seek (fp, offset, dir) -     _IO_FILE *fp; -     _IO_off_t offset; -     int dir; -{ -  return _IO_pos_BAD; -} - -int -_IO_default_stat (fp, st) -     _IO_FILE *fp; -     void* st; -{ -  return EOF; -} - -_IO_ssize_t -_IO_default_read (fp, data, n) -     _IO_FILE* fp; -     void *data; -     _IO_ssize_t n; -{ -  return -1; -} - -_IO_ssize_t -_IO_default_write (fp, data, n) -     _IO_FILE *fp; -     const void *data; -     _IO_ssize_t n; -{ -  return 0; -} - - -#ifdef TODO -#if defined(linux) -#define IO_CLEANUP ; -#endif - -#ifdef IO_CLEANUP -  IO_CLEANUP -#else -struct __io_defs { -    __io_defs() { } -    ~__io_defs() { _IO_cleanup (); } -}; -__io_defs io_defs__; -#endif - -#endif /* TODO */ - -#ifdef weak_alias -weak_alias (_IO_cleanup, _cleanup) -#elif defined(_G_STDIO_USES_LIBIO) && defined(_G_HAVE_WEAK_SYMBOL) -void _cleanup () __attribute__ ((weak, alias ("_IO_cleanup"))); -#endif - -#ifdef text_set_element -text_set_element(__libc_atexit, _cleanup); -#endif | 
