Return to ungetc.c CVS log

Up to [Research Unix] / researchv9 / libc / stdio

Annotation of researchv9/libc/stdio/ungetc.c, revision 1.1.1.1

1.1       root        1: /* @(#)ungetc.c        4.1 (Berkeley) 12/21/80 */
                      2: #include <stdio.h>
                      3: 
                      4: ungetc(c, iop)
                      5: register FILE *iop;
                      6: {
                      7:        if (c == EOF)
                      8:                return(-1);
                      9:        if ((iop->_flag&_IOREAD)==0 || iop->_ptr <= iop->_base)
                     10:                if (iop->_ptr == iop->_base && iop->_cnt==0)
                     11:                        iop->_ptr++;
                     12:                else
                     13:                        return(-1);
                     14:        iop->_cnt++;
                     15:        *--iop->_ptr = c;
                     16:        return(0);
                     17: }

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