Return to filbuf.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / lisp

Annotation of 41BSD/cmd/lisp/filbuf.c, revision 1.1

1.1     ! root        1: static char *sccsid = "@(#)filbuf.c    34.1 10/3/80";
        !             2: 
        !             3: #include       <stdio.h>
        !             4: char   *malloc();
        !             5: 
        !             6: _filbuf(iop)
        !             7: register FILE *iop;
        !             8: {
        !             9:        static char smallbuf[_NFILE];
        !            10: 
        !            11:        if ((iop->_flag&_IOREAD) == 0)
        !            12:                return(EOF);
        !            13:        if (iop->_flag&_IOSTRG)
        !            14:                return(EOF);
        !            15: tryagain:
        !            16:        if (iop->_base==NULL) {
        !            17:                if (iop->_flag&_IONBF) {
        !            18:                        iop->_base = &smallbuf[fileno(iop)];
        !            19:                        goto tryagain;
        !            20:                }
        !            21:                if ((iop->_base = malloc(BUFSIZ)) == NULL) {
        !            22:                        iop->_flag |= _IONBF;
        !            23:                        goto tryagain;
        !            24:                }
        !            25:                iop->_flag |= _IOMYBUF;
        !            26:        }
        !            27:        iop->_ptr = iop->_base;
        !            28:        if (iop == stdin && (stdout->_flag&_IOLBF))
        !            29:                fflush(stdout);
        !            30:        iop->_cnt = read(fileno(iop), iop->_ptr, iop->_flag&_IONBF?1:BUFSIZ);
        !            31:        iop->_ptr = iop->_base;
        !            32:        if (--iop->_cnt < 0) {
        !            33:                if (iop->_cnt == -1)
        !            34:                        iop->_flag |= _IOEOF;
        !            35:                else
        !            36:                        iop->_flag |= _IOERR;
        !            37:                iop->_cnt = 0;
        !            38:                return(-1);
        !            39:        }
        !            40:        return(*iop->_ptr++&0377);
        !            41: }

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