initial check-in, version 0.5.0
[musl] / src / stdio / vfwscanf.c
1 #include <stdio.h>
2 #include <string.h>
3 #include <errno.h>
4 #include <wchar.h>
5 #include <wctype.h>
6
7 #include "stdio_impl.h"
8 #include "__scanf.h"
9
10 static void f_read(rctx_t *r)
11 {
12         FILE *f = r->opaque;
13         if ((r->c = fgetwc(f)) >= 0) r->l++;
14 }
15
16 int vfwscanf(FILE *f, const wchar_t *fmt, va_list ap)
17 {
18         rctx_t r = { f_read, (void *)f, 1, iswspace };
19         int result;
20
21         result = __scanf(&r, fmt, ap);
22
23         if (r.u && r.c >= 0) {
24                 ungetwc(r.c, f);
25         }
26
27         return result;
28 }