Return to filbuf.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / notused

Annotation of researchv10dc/libI77/notused/filbuf.c, revision 1.1.1.1

1.1       root        1: /*     @(#)filbuf.c    2.1     */
                      2: /*     3.0 SID #       1.2     */
                      3: /*LINTLIBRARY*/
                      4: #include <stdio.h>
                      5: 
                      6: extern _findbuf();
                      7: extern int read();
                      8: extern int fflush();
                      9: extern FILE *_lastbuf;
                     10: 
                     11: int
                     12: _filbuf(iop)
                     13: register FILE *iop;
                     14: {
                     15:        register FILE *diop;
                     16: 
                     17:        if (iop->_base == NULL)  /* get buffer if we don't have one */
                     18:                _findbuf(iop);
                     19: 
                     20:        if ( !(iop->_flag & _IOREAD) )
                     21:                if (iop->_flag & _IORW)
                     22:                        iop->_flag |= _IOREAD;
                     23:                else
                     24:                        return(EOF);
                     25: 
                     26:        /* if this device is a terminal (line-buffered) or unbuffered, then */
                     27:        /* flush buffers of all line-buffered devices currently writing */
                     28: 
                     29:        if (iop->_flag & (_IOLBF | _IONBF))
                     30:                for (diop = _iob; diop < _lastbuf; diop++ )
                     31:                        if (diop->_flag & _IOLBF)
                     32:                                (void) fflush(diop);
                     33: 
                     34:        iop->_ptr = iop->_base;
                     35:        iop->_cnt = read(fileno(iop), (char *)iop->_base,
                     36:            (unsigned)((iop->_flag & _IONBF) ? 1 : _bufsiz(iop) ));
                     37:        if (--iop->_cnt >= 0)           /* success */
                     38:                return (*iop->_ptr++);
                     39:        if (iop->_cnt != -1)            /* error */
                     40:                iop->_flag |= _IOERR;
                     41:        else {                          /* end-of-file */
                     42:                iop->_flag |= _IOEOF;
                     43:                if (iop->_flag & _IORW)
                     44:                        iop->_flag &= ~_IOREAD;
                     45:        }
                     46:        iop->_cnt = 0;
                     47:        return (EOF);
                     48: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.