Return to ungetc.c CVS log

Up to [MW Coherent from dump] / coherent / d / lib / libc / stdio

Annotation of coherent/d/lib/libc/stdio/ungetc.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Standard I/O Library
                      3:  * Unget char for next getc
                      4:  */
                      5: 
                      6: #include <stdio.h>
                      7: 
                      8: int
                      9: ungetc(c, fp)
                     10: int    c;
                     11: register FILE  *fp;
                     12: {
                     13:        extern  int     _fginit();
                     14:        extern  int     _fgetb();
                     15:        extern  int     _fgetc();
                     16:        extern  int     _fgeteof();
                     17:        int     _fungoti();
                     18:        int     _fungotb();
                     19:        int     _fungotc();
                     20:        int     _fungote();
                     21:        int     _funungc();
                     22: 
                     23:        if (c == EOF)                   /* ANSI 4.9.7.11 (22) */
                     24:                return(EOF);            /* Leave input stream unchanged */
                     25:        if (fp->_gt==&_fginit)
                     26:                fp->_gt = &_fungoti;
                     27:        else if (fp->_gt==&_fgetb)
                     28:                fp->_gt = &_fungotb;
                     29:        else if (fp->_gt==&_fgetc)
                     30:                fp->_gt = &_fungotc;
                     31:        else if (fp->_gt==&_fgeteof)
                     32:                fp->_gt = &_fungote;
                     33:        else
                     34:                return (EOF);
                     35:        fp->_pt = &_funungc;
                     36:        fp->_cc = 0;
                     37:        fp->_ff |= _FUNGOT;
                     38:        fp->_ff &= ~_FEOF;              /* ANSI 4.9.7.11 (24) */
                     39:        fp->_uc = c;
                     40:        return (c);
                     41: }
                     42: 
                     43: 
                     44: /*
                     45:  * uninitialized fp unget
                     46:  */
                     47: 
                     48: static
                     49: int
                     50: _fungoti(fp)
                     51: register FILE  *fp;
                     52: {
                     53:        extern  int     _fginit();
                     54:        extern  int     _fpinit();
                     55: 
                     56:        fp->_gt = &_fginit;
                     57:        fp->_pt = &_fpinit;
                     58:        fp->_cc = 0;
                     59:        fp->_ff &= ~_FUNGOT;
                     60:        return (fp->_uc);
                     61: }
                     62: 
                     63: 
                     64: /*
                     65:  * buffered unget
                     66:  */
                     67: 
                     68: static
                     69: int
                     70: _fungotb(fp)
                     71: register FILE  *fp;
                     72: {
                     73:        extern  int     _fgetb();
                     74:        extern  int     _fputb();
                     75: 
                     76:        fp->_gt = &_fgetb;
                     77:        fp->_pt = &_fputb;
                     78:        if ((fp->_cc = fp->_cp - fp->_dp) > 0)
                     79:                fp->_cc = _ep(fp) - fp->_cp;
                     80:        fp->_ff &= ~_FUNGOT;
                     81:        return (fp->_uc);
                     82: }
                     83: 
                     84: 
                     85: /*
                     86:  * unbuffered unget
                     87:  */
                     88: 
                     89: static
                     90: int
                     91: _fungotc(fp)
                     92: register FILE  *fp;
                     93: {
                     94:        extern  int     _fgetc();
                     95:        extern  int     _fputc();
                     96: 
                     97:        fp->_gt = &_fgetc;
                     98:        fp->_pt = &_fputc;
                     99:        fp->_cc = 0;
                    100:        fp->_ff &= ~_FUNGOT;
                    101:        return (fp->_uc);
                    102: }
                    103: 
                    104: 
                    105: /*
                    106:  * string unget (for sscanf)
                    107:  */
                    108: 
                    109: static
                    110: int
                    111: _fungote(fp)
                    112: register FILE  *fp;
                    113: {
                    114:        extern int      _fgeteof();
                    115: 
                    116:        fp->_gt = &_fgeteof;
                    117:        fp->_cc = -strlen(fp->_cp);
                    118:        return (fp->_uc);
                    119: }
                    120: 
                    121: 
                    122: /*
                    123:  * un unget; occurs if put done before get after unget
                    124:  */
                    125: 
                    126: static
                    127: int
                    128: _funungc(c, fp)
                    129: register char  c;
                    130: register FILE  *fp;
                    131: {
                    132:        (*fp->_gt)(fp);
                    133:        return (putc(c, fp));
                    134: }

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