Return to unbget.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / common

Annotation of coherent/b/bin/c/common/unbget.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Standard stream library for the
                      3:  * C compiler and other compilers that use
                      4:  * C compiler factilities.
                      5:  * Unget a byte.
                      6:  */
                      7: #include <stdio.h>
                      8: #ifdef   vax
                      9: #include "INC$LIB:mch.h"
                     10: #include "INC$LIB:stream.h"
                     11: #else
                     12: #include "mch.h"
                     13: #include "stream.h"
                     14: #endif
                     15: 
                     16: extern FILE    *ifp;
                     17: 
                     18: unbget(b)
                     19: {
                     20: #if    TEMPBUF
                     21:        if (ifp == NULL) {
                     22:                if (inbuf == inbufp)
                     23:                        return(EOF);
                     24:                *--inbufp = b;
                     25:                return(b);
                     26:        }
                     27: #endif
                     28:        ungetc(b, ifp);
                     29: }

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