OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [stdio/] [refill.c] - Blame information for rev 207

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
/*
2
 * Copyright (c) 1990 The Regents of the University of California.
3
 * All rights reserved.
4
 *
5
 * Redistribution and use in source and binary forms are permitted
6
 * provided that the above copyright notice and this paragraph are
7
 * duplicated in all such forms and that any documentation,
8
 * advertising materials, and other materials related to such
9
 * distribution and use acknowledge that the software was developed
10
 * by the University of California, Berkeley.  The name of the
11
 * University may not be used to endorse or promote products derived
12
 * from this software without specific prior written permission.
13
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16
 */
17
/* No user fns here.  Pesch 15apr92. */
18
 
19
#include <_ansi.h>
20
#include <stdio.h>
21
#include <stdlib.h>
22
#include <errno.h>
23
#include "local.h"
24
 
25
static int
26
_DEFUN(lflush, (fp),
27
       FILE *fp)
28
{
29
  if ((fp->_flags & (__SLBF | __SWR)) == (__SLBF | __SWR))
30
    return fflush (fp);
31
  return 0;
32
}
33
 
34
/*
35
 * Refill a stdio buffer.
36
 * Return EOF on eof or error, 0 otherwise.
37
 */
38
 
39
int
40
_DEFUN(__srefill_r, (ptr, fp),
41
       struct _reent * ptr _AND
42
       register FILE * fp)
43
{
44
  /* make sure stdio is set up */
45
 
46
  CHECK_INIT (ptr, fp);
47
 
48
  ORIENT (fp, -1);
49
 
50
  fp->_r = 0;                    /* largely a convenience for callers */
51
 
52
#ifndef __CYGWIN__
53
  /* SysV does not make this test; take it out for compatibility */
54
  if (fp->_flags & __SEOF)
55
    return EOF;
56
#endif
57
 
58
  /* if not already reading, have to be reading and writing */
59
  if ((fp->_flags & __SRD) == 0)
60
    {
61
      if ((fp->_flags & __SRW) == 0)
62
        {
63
          ptr->_errno = EBADF;
64
          fp->_flags |= __SERR;
65
          return EOF;
66
        }
67
      /* switch to reading */
68
      if (fp->_flags & __SWR)
69
        {
70
          if (_fflush_r (ptr, fp))
71
            return EOF;
72
          fp->_flags &= ~__SWR;
73
          fp->_w = 0;
74
          fp->_lbfsize = 0;
75
        }
76
      fp->_flags |= __SRD;
77
    }
78
  else
79
    {
80
      /*
81
       * We were reading.  If there is an ungetc buffer,
82
       * we must have been reading from that.  Drop it,
83
       * restoring the previous buffer (if any).  If there
84
       * is anything in that buffer, return.
85
       */
86
      if (HASUB (fp))
87
        {
88
          FREEUB (ptr, fp);
89
          if ((fp->_r = fp->_ur) != 0)
90
            {
91
              fp->_p = fp->_up;
92
              return 0;
93
            }
94
        }
95
    }
96
 
97
  if (fp->_bf._base == NULL)
98
    __smakebuf_r (ptr, fp);
99
 
100
  /*
101
   * Before reading from a line buffered or unbuffered file,
102
   * flush all line buffered output files, per the ANSI C
103
   * standard.
104
   */
105
 
106
  if (fp->_flags & (__SLBF | __SNBF))
107
    _CAST_VOID _fwalk (_GLOBAL_REENT, lflush);
108
  fp->_p = fp->_bf._base;
109
  fp->_r = fp->_read (ptr, fp->_cookie, (char *) fp->_p, fp->_bf._size);
110
#ifndef __CYGWIN__
111
  if (fp->_r <= 0)
112
#else
113
  if (fp->_r > 0)
114
    fp->_flags &= ~__SEOF;
115
  else
116
#endif
117
    {
118
      if (fp->_r == 0)
119
        fp->_flags |= __SEOF;
120
      else
121
        {
122
          fp->_r = 0;
123
          fp->_flags |= __SERR;
124
        }
125
      return EOF;
126
    }
127
  return 0;
128
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.