blob: e37aec750341ca1109bd6dfb1f4fa1a152cebb87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#define import_stdio
#include <iraf.h>
/* C_FILBUF -- Fill the FIO file buffer. Called by the GETC macro to fill
** the file buffer when the end of the buffer is reached. The function
** value is either the first char in the refilled buffer or EOF. If the
** file is connected to a child process the filter PRFILBUF is called to
** handle the XMIT and XFER requests.
*/
int
c_filbuf (FILE *fp)
{
register int nchars;
XINT x_fd = fileno(fp);
XINT (*fillbuffer)();
XINT PRFILBUF(), FILBUF();
fillbuffer = ((fp->_fflags & _FIPC) ? PRFILBUF : FILBUF);
iferr (nchars = (int) (*fillbuffer)(&x_fd)) {
fp->_fflags |= _FERR;
return (EOF);
} else if (nchars == XEOF) {
fp->_fflags |= _FEOF;
return (EOF);
} else
return (Memc[fp->_iop++] & 0377);
}
|
