blob: 3c071690bd3ea38b207950915978adf1eb0156a9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
/*
* pANS stdio -- ungetc
*/
#include "iolib.h"
int ungetc(int c, FILE *f){
if(c==EOF) return EOF;
switch(f->state){
default: /* WR */
f->state=ERR;
return EOF;
case CLOSED:
case ERR:
return EOF;
case OPEN:
_IO_setvbuf(f);
case RDWR:
case END:
f->wp=f->buf;
if(f->bufl==0)
f->wp += 1;
else
f->wp += f->bufl;
f->rp = f->wp;
f->state=RD;
case RD:
if(f->rp==f->buf) return EOF;
if(f->flags&STRING)
f->rp--;
else
*--f->rp=c;
return (char)c;
}
}
|
