394f92ac9cba89474f74c00137a13cd53210e4b8
[musl] / src / stdio / ungetwc.c
1 #include "stdio_impl.h"
2 #include <wchar.h>
3 #include <limits.h>
4 #include <ctype.h>
5 #include <string.h>
6
7 wint_t ungetwc(wint_t c, FILE *f)
8 {
9         unsigned char mbc[MB_LEN_MAX];
10         int l=1;
11
12         FLOCK(f);
13
14         f->mode |= f->mode+1;
15
16         if (!f->rpos) __toread(f);
17         if (!f->rpos || f->rpos < f->buf - UNGET + l || c == WEOF ||
18             (!isascii(c) && (l = wctomb((void *)mbc, c)) < 0)) {
19                 FUNLOCK(f);
20                 return WEOF;
21         }
22
23         if (isascii(c)) *--f->rpos = c;
24         else memcpy(f->rpos -= l, mbc, l);
25
26         f->flags &= ~F_EOF;
27
28         FUNLOCK(f);
29         return c;
30 }