1#include "shgetc.h"
2#include "floatscan.h"
3#include "stdio_impl.h"
4#include <wchar.h>
5#include <wctype.h>
6
7/* This read function heavily cheats. It knows:
8 * (1) len will always be 1
9 * (2) non-ascii characters don't matter */
10
11static size_t do_read(FILE *f, unsigned char *buf, size_t len)
12{
13 size_t i;
14 const wchar_t *wcs = f->cookie;
15
16 if (!wcs[0]) wcs=L"@";
17 for (i=0; i<f->buf_size && wcs[i]; i++)
18 f->buf[i] = wcs[i] < 128 ? wcs[i] : '@';
19 f->rpos = f->buf;
20 f->rend = f->buf + i;
21 f->cookie = (void *)(wcs+i);
22
23 if (i && len) {
24 *buf = *f->rpos++;
25 return 1;
26 }
27 return 0;
28}
29
30static long double wcstox(const wchar_t *s, wchar_t **p, int prec)
31{
32 wchar_t *t = (wchar_t *)s;
33 unsigned char buf[64];
34 FILE f = {0};
35 f.flags = 0;
36 f.rpos = f.rend = f.buf = buf + 4;
37 f.buf_size = sizeof buf - 4;
38 f.lock = -1;
39 f.read = do_read;
40 while (iswspace(*t)) t++;
41 f.cookie = (void *)t;
42 shlim(&f, 0);
43 long double y = __floatscan(&f, prec, 1);
44 if (p) {
45 size_t cnt = shcnt(&f);
46 *p = cnt ? t + cnt : (wchar_t *)s;
47 }
48 return y;
49}
50
51float wcstof(const wchar_t *restrict s, wchar_t **restrict p)
52{
53 return wcstox(s, p, 0);
54}
55
56double wcstod(const wchar_t *restrict s, wchar_t **restrict p)
57{
58 return wcstox(s, p, 1);
59}
60
61long double wcstold(const wchar_t *restrict s, wchar_t **restrict p)
62{
63 return wcstox(s, p, 2);
64}