home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / gnu / libg++-2.6-fsf.lha / libg++-2.6 / libio / genops.c < prev    next >
C/C++ Source or Header  |  1994-06-24  |  20KB  |  868 lines
  1. /* 
  2. Copyright (C) 1993 Free Software Foundation
  3.  
  4. This file is part of the GNU IO Library.  This library is free
  5. software; you can redistribute it and/or modify it under the
  6. terms of the GNU General Public License as published by the
  7. Free Software Foundation; either version 2, or (at your option)
  8. any later version.
  9.  
  10. This library is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. GNU General Public License for more details.
  14.  
  15. You should have received a copy of the GNU General Public License
  16. along with GNU CC; see the file COPYING.  If not, write to
  17. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, 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 not cause
  21. the resulting executable to be covered by the GNU General Public License.
  22. This exception does not however invalidate any other reasons why
  23. the executable file might be covered by the GNU General Public License. */
  24.  
  25. /* Generic or default I/O operations. */
  26.  
  27. #include "libioP.h"
  28. #ifdef __STDC__
  29. #include <stdlib.h>
  30. #endif
  31. #include <string.h>
  32.  
  33. void _IO_un_link(fp)
  34.      _IO_FILE *fp;
  35. {
  36.   if (fp->_flags & _IO_LINKED) {
  37.     _IO_FILE **f;
  38.     for (f = &_IO_list_all; *f != NULL; f = &(*f)->_chain) {
  39.       if (*f == fp) {
  40.     *f = fp->_chain;
  41.     break;
  42.       }
  43.     }
  44.     fp->_flags &= ~_IO_LINKED;
  45.   }
  46. }
  47.  
  48. void _IO_link_in(fp)
  49.      _IO_FILE *fp;
  50. {
  51.     if ((fp->_flags & _IO_LINKED) == 0) {
  52.     fp->_flags |= _IO_LINKED;
  53.     fp->_chain = _IO_list_all;
  54.     _IO_list_all = fp;
  55.     }
  56. }
  57.  
  58. /* Return minimum _pos markers
  59.    Assumes the current get area is the main get area. */
  60.  
  61. _IO_size_t
  62. _IO_least_marker(fp)
  63.      register _IO_FILE *fp;
  64. {
  65.   _IO_ssize_t least_so_far = fp->_IO_read_end - fp->_IO_read_base;
  66.   register struct _IO_marker *mark;
  67.   for (mark = fp->_markers; mark != NULL; mark = mark->_next)
  68.     if (mark->_pos < least_so_far)
  69.       least_so_far = mark->_pos;
  70.   return least_so_far;
  71. }
  72.  
  73. /* Switch current get area from backup buffer to (start of) main get area. */
  74.  
  75. void
  76. _IO_switch_to_main_get_area(fp)
  77.      _IO_FILE *fp;
  78. {
  79.   char *tmp;
  80.   fp->_flags &= ~_IO_IN_BACKUP;
  81.   /* Swap _IO_read_end and _IO_save_end. */
  82.   tmp = fp->_IO_read_end; fp->_IO_read_end= fp->_IO_save_end; fp->_IO_save_end= tmp;
  83.   /* Swap _IO_read_base and _IO_save_base. */
  84.   tmp = fp->_IO_read_base; fp->_IO_read_base = fp->_IO_save_base; fp->_IO_save_base = tmp;
  85.   fp->_IO_read_ptr = fp->_IO_read_base;
  86. }
  87.  
  88. /* Switch current get area from main get area to (end of) backup area. */
  89.  
  90. void
  91. _IO_switch_to_backup_area(fp)
  92.      register _IO_FILE *fp;
  93. {
  94.   char *tmp;
  95.   fp->_flags |= _IO_IN_BACKUP;
  96.   /* Swap _IO_read_end and _IO_save_end. */
  97.   tmp = fp->_IO_read_end; fp->_IO_read_end = fp->_IO_save_end; fp->_IO_save_end = tmp;
  98.   /* Swap _gbase and _IO_save_base. */
  99.   tmp = fp->_IO_read_base; fp->_IO_read_base = fp->_IO_save_base; fp->_IO_save_base = tmp;
  100.   fp->_IO_read_ptr = fp->_IO_read_end;
  101. }
  102.  
  103. int
  104. _IO_switch_to_get_mode(fp)
  105.      register _IO_FILE *fp;
  106. {
  107.   if (fp->_IO_write_ptr > fp->_IO_write_base)
  108.     if (fp->_jumps->__overflow(fp, EOF) == EOF)
  109.       return EOF;
  110.   if (_IO_in_backup(fp))
  111.     fp->_IO_read_base = fp->_IO_backup_base;
  112.   else
  113.     {
  114.       fp->_IO_read_base = fp->_IO_buf_base;
  115.       if (fp->_IO_write_ptr > fp->_IO_read_end)
  116.     fp->_IO_read_end = fp->_IO_write_ptr;
  117.     }
  118.   fp->_IO_read_ptr = fp->_IO_write_ptr;
  119.  
  120.   fp->_IO_write_base = fp->_IO_write_ptr = fp->_IO_write_end = fp->_IO_read_ptr;
  121.  
  122.   fp->_flags &= ~_IO_CURRENTLY_PUTTING;
  123.   return 0;
  124. }
  125.  
  126. void
  127. _IO_free_backup_area(fp)
  128.      register _IO_FILE *fp;
  129. {
  130.   if (_IO_in_backup (fp))
  131.     _IO_switch_to_main_get_area(fp);  /* Just in case. */
  132.   free (fp->_IO_save_base);
  133.   fp->_IO_save_base = NULL;
  134.   fp->_IO_save_end = NULL;
  135.   fp->_IO_backup_base = NULL;
  136. }
  137.  
  138. #if 0
  139. int
  140. _IO_switch_to_put_mode(fp)
  141.      register _IO_FILE *fp;
  142. {
  143.   fp->_IO_write_base = fp->_IO_read_ptr;
  144.   fp->_IO_write_ptr = fp->_IO_read_ptr;
  145.   /* Following is wrong if line- or un-buffered? */
  146.   fp->_IO_write_end = fp->_flags & _IO_IN_BACKUP ? fp->_IO_read_end : fp->_IO_buf_end;
  147.  
  148.   fp->_IO_read_ptr = fp->_IO_read_end;
  149.   fp->_IO_read_base = fp->_IO_read_end;
  150.  
  151.   fp->_flags |= _IO_CURRENTLY_PUTTING;
  152.   return 0;
  153. }
  154. #endif
  155.  
  156. int  __overflow(f, ch)
  157.      _IO_FILE *f;
  158.      int ch;
  159. {
  160.   return f->_jumps->__overflow(f, ch);
  161. }
  162.  
  163. static int
  164. save_for_backup (fp)
  165.      _IO_FILE *fp;
  166. {
  167.   /* Append [_IO_read_base.._IO_read_end] to backup area. */
  168.   int least_mark = _IO_least_marker(fp);
  169.   /* needed_size is how much space we need in the backup area. */
  170.   int needed_size = (fp->_IO_read_end - fp->_IO_read_base) - least_mark;
  171.   int current_Bsize = fp->_IO_save_end - fp->_IO_save_base;
  172.   int avail; /* Extra space available for future expansion. */
  173.   int delta;
  174.   struct _IO_marker *mark;
  175.   if (needed_size > current_Bsize)
  176.     {
  177.       char *new_buffer;
  178.       avail = 100;
  179.       new_buffer = (char*)malloc(avail+needed_size);
  180.       if (new_buffer == NULL)
  181.     return EOF;        /* FIXME */
  182.       if (least_mark < 0)
  183.     {
  184.       memcpy(new_buffer + avail,
  185.          fp->_IO_save_end + least_mark,
  186.          -least_mark);
  187.       memcpy(new_buffer +avail - least_mark,
  188.          fp->_IO_read_base,
  189.          fp->_IO_read_end - fp->_IO_read_base);
  190.     }
  191.       else
  192.     memcpy(new_buffer + avail,
  193.            fp->_IO_read_base + least_mark,
  194.            needed_size);
  195.       if (fp->_IO_save_base)
  196.     free (fp->_IO_save_base);
  197.       fp->_IO_save_base = new_buffer;
  198.       fp->_IO_save_end = new_buffer + avail + needed_size;
  199.     }
  200.   else
  201.     {
  202.       avail = current_Bsize - needed_size;
  203.       if (least_mark < 0)
  204.     {
  205.       memmove(fp->_IO_save_base + avail,
  206.           fp->_IO_save_end + least_mark,
  207.           -least_mark);
  208.       memcpy(fp->_IO_save_base + avail - least_mark,
  209.          fp->_IO_read_base,
  210.          fp->_IO_read_end - fp->_IO_read_base);
  211.     }
  212.       else if (needed_size > 0)
  213.     memcpy(fp->_IO_save_base + avail,
  214.            fp->_IO_read_base + least_mark,
  215.            needed_size);
  216.     }
  217.   /* FIXME: Dubious arithmetic if pointers are NULL */
  218.   fp->_IO_backup_base = fp->_IO_save_base + avail;
  219.   /* Adjust all the streammarkers. */
  220.   delta = fp->_IO_read_end - fp->_IO_read_base;
  221.   for (mark = fp->_markers; mark != NULL; mark = mark->_next)
  222.     mark->_pos -= delta;
  223.   return 0;
  224. }
  225.  
  226. int
  227. __underflow(fp)
  228.      _IO_FILE *fp;
  229. {
  230.   if (_IO_in_put_mode(fp))
  231.     if (_IO_switch_to_get_mode(fp) == EOF) return EOF;
  232.   if (fp->_IO_read_ptr < fp->_IO_read_end)
  233.     return *(unsigned char*)fp->_IO_read_ptr;
  234.   if (_IO_in_backup(fp))
  235.     {
  236.       _IO_switch_to_main_get_area(fp);
  237.       if (fp->_IO_read_ptr < fp->_IO_read_end)
  238.     return *fp->_IO_read_ptr;
  239.     }
  240.   if (_IO_have_markers(fp))
  241.     {
  242.       if (save_for_backup (fp))
  243.     return EOF;
  244.     }
  245.   else if (_IO_have_backup(fp))
  246.     _IO_free_backup_area(fp);
  247.   return fp->_jumps->__underflow(fp);
  248. }
  249.  
  250. int
  251. __uflow(fp)
  252.      _IO_FILE *fp;
  253. {
  254.   if (_IO_in_put_mode(fp))
  255.     if (_IO_switch_to_get_mode(fp) == EOF) return EOF;
  256.   if (fp->_IO_read_ptr < fp->_IO_read_end)
  257.     return *(unsigned char*)fp->_IO_read_ptr++;
  258.   if (_IO_in_backup(fp))
  259.     {
  260.       _IO_switch_to_main_get_area(fp);
  261.       if (fp->_IO_read_ptr < fp->_IO_read_end)
  262.     return *fp->_IO_read_ptr++;
  263.     }
  264.   if (_IO_have_markers(fp))
  265.     {
  266.       if (save_for_backup (fp))
  267.     return EOF;
  268.     }
  269.   else if (_IO_have_backup(fp))
  270.     _IO_free_backup_area(fp);
  271.   return fp->_jumps->__uflow(fp);
  272. }
  273.  
  274. void
  275. _IO_setb(f, b, eb, a)
  276.      _IO_FILE *f;
  277.      char *b;
  278.      char *eb;
  279.      int a;
  280. {
  281.   if (f->_IO_buf_base && !(f->_flags & _IO_USER_BUF))
  282.     FREE_BUF(f->_IO_buf_base);
  283.   f->_IO_buf_base = b;
  284.   f->_IO_buf_end = eb;
  285.   if (a)
  286.     f->_flags &= ~_IO_USER_BUF;
  287.   else
  288.     f->_flags |= _IO_USER_BUF;
  289. }
  290.  
  291. void
  292. _IO_doallocbuf(fp)
  293.      register _IO_FILE *fp;
  294. {
  295.   if (fp->_IO_buf_base)
  296.     return;
  297.   if (!(fp->_flags & _IO_UNBUFFERED))
  298.     if (fp->_jumps->__doallocate(fp) != EOF)
  299.       return;
  300.   _IO_setb(fp, fp->_shortbuf, fp->_shortbuf+1, 0);
  301. }
  302.  
  303. int
  304. _IO_default_underflow (fp)
  305.      _IO_FILE *fp;
  306. {
  307.   return EOF;
  308. }
  309.  
  310. int
  311. _IO_default_uflow (fp)
  312.      _IO_FILE *fp;
  313. {
  314.   int ch = fp->_jumps->__underflow(fp);
  315.   if (ch == EOF)
  316.     return EOF;
  317.   return *(unsigned char*)fp->_IO_read_ptr++;
  318. }
  319.  
  320. _IO_size_t
  321. _IO_default_xsputn(f, data, n)
  322.      register _IO_FILE *f;
  323.