Return to _fgetb.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / XSTDIO

Annotation of coherent/b/lib/libc/XSTDIO/_fgetb.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * libc/stdio/_fgetb.c
        !             3:  * ANSI-compliant C standard i/o library internals.
        !             4:  * _fgetb(), _fgetba()
        !             5:  * Read character, buffered.
        !             6:  */
        !             7: 
        !             8: #include <stdio.h>
        !             9: #if    COHERENT || GEMDOS
        !            10: #include <errno.h>
        !            11: #endif
        !            12: 
        !            13: int
        !            14: _fgetb(fp) register FILE *fp;
        !            15: {
        !            16:        register _FILE2 *f2p;
        !            17: 
        !            18:        if (--fp->_cc < 0) {
        !            19:                if (fflush(fp))
        !            20:                        return EOF;
        !            21: 
        !            22:                /* Special kludge: fflush stdout if line buffered. */
        !            23:                if ((stdout->_ff1 & _IOLBF) != 0)
        !            24:                        fflush(stdout);
        !            25: 
        !            26:                f2p = fp->_f2p;
        !            27:                if ((fp->_cc = read(fileno(fp), f2p->_dp, (int)(f2p->_ep - f2p->_dp))) == 1) {
        !            28: #if    COHERENT || GEMDOS
        !            29:                        if (errno == EINTR)
        !            30:                                errno = 0;
        !            31:                        else
        !            32: #endif
        !            33:                        fp->_ff1 |= _FERR;
        !            34:                        fp->_cc = 0;
        !            35:                        return EOF;
        !            36:                } else if (fp->_cc == 0) {
        !            37:                        fp->_ff1 |= _FEOF;
        !            38:                        return EOF;
        !            39:                }
        !            40:                f2p->_dp += fp->_cc--;
        !            41:        }
        !            42:        return (*fp->_cp++);
        !            43: }
        !            44: 
        !            45: #if    _ASCII
        !            46: 
        !            47: /* ASCII: ignore '\r', map _EOFCHAR to EOF. */
        !            48: int
        !            49: _fgetba(fp) register FILE *fp;
        !            50: {
        !            51:        register int c;
        !            52: 
        !            53:        while ((c = _bingetb(fp)) == '\r')
        !            54:                ;
        !            55:        if (c == _EOFCHAR) {
        !            56:                fp->_ff |= _FEOF;
        !            57:                return EOF;
        !            58:        }
        !            59:        return c;
        !            60: }
        !            61: 
        !            62: #endif
        !            63: 
        !            64: /* end of libc/stdio/_fgetb.c */

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