| Index: fusl/src/stdio/vfwscanf.c
|
| diff --git a/fusl/src/stdio/vfwscanf.c b/fusl/src/stdio/vfwscanf.c
|
| index 223aad4f351c96bb2a2ca9f9e3e75b798546ac75..014d9db0a2ddc5ac887ec31dc1a90a3ffd9b3741 100644
|
| --- a/fusl/src/stdio/vfwscanf.c
|
| +++ b/fusl/src/stdio/vfwscanf.c
|
| @@ -14,315 +14,372 @@
|
| #include "libc.h"
|
|
|
| #define SIZE_hh -2
|
| -#define SIZE_h -1
|
| +#define SIZE_h -1
|
| #define SIZE_def 0
|
| -#define SIZE_l 1
|
| -#define SIZE_L 2
|
| -#define SIZE_ll 3
|
| +#define SIZE_l 1
|
| +#define SIZE_L 2
|
| +#define SIZE_ll 3
|
|
|
| -static void store_int(void *dest, int size, unsigned long long i)
|
| -{
|
| - if (!dest) return;
|
| - switch (size) {
|
| - case SIZE_hh:
|
| - *(char *)dest = i;
|
| - break;
|
| - case SIZE_h:
|
| - *(short *)dest = i;
|
| - break;
|
| - case SIZE_def:
|
| - *(int *)dest = i;
|
| - break;
|
| - case SIZE_l:
|
| - *(long *)dest = i;
|
| - break;
|
| - case SIZE_ll:
|
| - *(long long *)dest = i;
|
| - break;
|
| - }
|
| +static void store_int(void* dest, int size, unsigned long long i) {
|
| + if (!dest)
|
| + return;
|
| + switch (size) {
|
| + case SIZE_hh:
|
| + *(char*)dest = i;
|
| + break;
|
| + case SIZE_h:
|
| + *(short*)dest = i;
|
| + break;
|
| + case SIZE_def:
|
| + *(int*)dest = i;
|
| + break;
|
| + case SIZE_l:
|
| + *(long*)dest = i;
|
| + break;
|
| + case SIZE_ll:
|
| + *(long long*)dest = i;
|
| + break;
|
| + }
|
| }
|
|
|
| -static void *arg_n(va_list ap, unsigned int n)
|
| -{
|
| - void *p;
|
| - unsigned int i;
|
| - va_list ap2;
|
| - va_copy(ap2, ap);
|
| - for (i=n; i>1; i--) va_arg(ap2, void *);
|
| - p = va_arg(ap2, void *);
|
| - va_end(ap2);
|
| - return p;
|
| +static void* arg_n(va_list ap, unsigned int n) {
|
| + void* p;
|
| + unsigned int i;
|
| + va_list ap2;
|
| + va_copy(ap2, ap);
|
| + for (i = n; i > 1; i--)
|
| + va_arg(ap2, void*);
|
| + p = va_arg(ap2, void*);
|
| + va_end(ap2);
|
| + return p;
|
| }
|
|
|
| -static int in_set(const wchar_t *set, int c)
|
| -{
|
| - int j;
|
| - const wchar_t *p = set;
|
| - if (*p == '-') {
|
| - if (c=='-') return 1;
|
| - p++;
|
| - } else if (*p == ']') {
|
| - if (c==']') return 1;
|
| - p++;
|
| - }
|
| - for (; *p && *p != ']'; p++) {
|
| - if (*p=='-' && p[1] && p[1] != ']')
|
| - for (j=p++[-1]; j<*p; j++)
|
| - if (c==j) return 1;
|
| - if (c==*p) return 1;
|
| - }
|
| - return 0;
|
| +static int in_set(const wchar_t* set, int c) {
|
| + int j;
|
| + const wchar_t* p = set;
|
| + if (*p == '-') {
|
| + if (c == '-')
|
| + return 1;
|
| + p++;
|
| + } else if (*p == ']') {
|
| + if (c == ']')
|
| + return 1;
|
| + p++;
|
| + }
|
| + for (; *p && *p != ']'; p++) {
|
| + if (*p == '-' && p[1] && p[1] != ']')
|
| + for (j = p++ [-1]; j < *p; j++)
|
| + if (c == j)
|
| + return 1;
|
| + if (c == *p)
|
| + return 1;
|
| + }
|
| + return 0;
|
| }
|
|
|
| #if 1
|
| #undef getwc
|
| #define getwc(f) \
|
| - ((f)->rpos < (f)->rend && *(f)->rpos < 128 ? *(f)->rpos++ : (getwc)(f))
|
| + ((f)->rpos < (f)->rend && *(f)->rpos < 128 ? *(f)->rpos++ : (getwc)(f))
|
|
|
| #undef ungetwc
|
| -#define ungetwc(c,f) \
|
| - ((f)->rend && (c)<128U ? *--(f)->rpos : ungetwc((c),(f)))
|
| +#define ungetwc(c, f) \
|
| + ((f)->rend && (c) < 128U ? *--(f)->rpos : ungetwc((c), (f)))
|
| #endif
|
|
|
| -int vfwscanf(FILE *restrict f, const wchar_t *restrict fmt, va_list ap)
|
| -{
|
| - int width;
|
| - int size;
|
| - int alloc;
|
| - const wchar_t *p;
|
| - int c, t;
|
| - char *s;
|
| - wchar_t *wcs;
|
| - void *dest=NULL;
|
| - int invert;
|
| - int matches=0;
|
| - off_t pos = 0, cnt;
|
| - static const char size_pfx[][3] = { "hh", "h", "", "l", "L", "ll" };
|
| - char tmp[3*sizeof(int)+10];
|
| - const wchar_t *set;
|
| - size_t i, k;
|
| +int vfwscanf(FILE* restrict f, const wchar_t* restrict fmt, va_list ap) {
|
| + int width;
|
| + int size;
|
| + int alloc;
|
| + const wchar_t* p;
|
| + int c, t;
|
| + char* s;
|
| + wchar_t* wcs;
|
| + void* dest = NULL;
|
| + int invert;
|
| + int matches = 0;
|
| + off_t pos = 0, cnt;
|
| + static const char size_pfx[][3] = {"hh", "h", "", "l", "L", "ll"};
|
| + char tmp[3 * sizeof(int) + 10];
|
| + const wchar_t* set;
|
| + size_t i, k;
|
|
|
| - FLOCK(f);
|
| + FLOCK(f);
|
|
|
| - fwide(f, 1);
|
| + fwide(f, 1);
|
|
|
| - for (p=fmt; *p; p++) {
|
| + for (p = fmt; *p; p++) {
|
| + alloc = 0;
|
|
|
| - alloc = 0;
|
| + if (iswspace(*p)) {
|
| + while (iswspace(p[1]))
|
| + p++;
|
| + while (iswspace((c = getwc(f))))
|
| + pos++;
|
| + ungetwc(c, f);
|
| + continue;
|
| + }
|
| + if (*p != '%' || p[1] == '%') {
|
| + p += *p == '%';
|
| + c = getwc(f);
|
| + if (c != *p) {
|
| + ungetwc(c, f);
|
| + if (c < 0)
|
| + goto input_fail;
|
| + goto match_fail;
|
| + }
|
| + pos++;
|
| + continue;
|
| + }
|
|
|
| - if (iswspace(*p)) {
|
| - while (iswspace(p[1])) p++;
|
| - while (iswspace((c=getwc(f)))) pos++;
|
| - ungetwc(c, f);
|
| - continue;
|
| - }
|
| - if (*p != '%' || p[1] == '%') {
|
| - p += *p=='%';
|
| - c = getwc(f);
|
| - if (c!=*p) {
|
| - ungetwc(c, f);
|
| - if (c<0) goto input_fail;
|
| - goto match_fail;
|
| - }
|
| - pos++;
|
| - continue;
|
| - }
|
| + p++;
|
| + if (*p == '*') {
|
| + dest = 0;
|
| + p++;
|
| + } else if (iswdigit(*p) && p[1] == '$') {
|
| + dest = arg_n(ap, *p - '0');
|
| + p += 2;
|
| + } else {
|
| + dest = va_arg(ap, void*);
|
| + }
|
|
|
| - p++;
|
| - if (*p=='*') {
|
| - dest = 0; p++;
|
| - } else if (iswdigit(*p) && p[1]=='$') {
|
| - dest = arg_n(ap, *p-'0'); p+=2;
|
| - } else {
|
| - dest = va_arg(ap, void *);
|
| - }
|
| + for (width = 0; iswdigit(*p); p++) {
|
| + width = 10 * width + *p - '0';
|
| + }
|
|
|
| - for (width=0; iswdigit(*p); p++) {
|
| - width = 10*width + *p - '0';
|
| - }
|
| + if (*p == 'm') {
|
| + wcs = 0;
|
| + s = 0;
|
| + alloc = !!dest;
|
| + p++;
|
| + } else {
|
| + alloc = 0;
|
| + }
|
|
|
| - if (*p=='m') {
|
| - wcs = 0;
|
| - s = 0;
|
| - alloc = !!dest;
|
| - p++;
|
| - } else {
|
| - alloc = 0;
|
| - }
|
| + size = SIZE_def;
|
| + switch (*p++) {
|
| + case 'h':
|
| + if (*p == 'h')
|
| + p++, size = SIZE_hh;
|
| + else
|
| + size = SIZE_h;
|
| + break;
|
| + case 'l':
|
| + if (*p == 'l')
|
| + p++, size = SIZE_ll;
|
| + else
|
| + size = SIZE_l;
|
| + break;
|
| + case 'j':
|
| + size = SIZE_ll;
|
| + break;
|
| + case 'z':
|
| + case 't':
|
| + size = SIZE_l;
|
| + break;
|
| + case 'L':
|
| + size = SIZE_L;
|
| + break;
|
| + case 'd':
|
| + case 'i':
|
| + case 'o':
|
| + case 'u':
|
| + case 'x':
|
| + case 'a':
|
| + case 'e':
|
| + case 'f':
|
| + case 'g':
|
| + case 'A':
|
| + case 'E':
|
| + case 'F':
|
| + case 'G':
|
| + case 'X':
|
| + case 's':
|
| + case 'c':
|
| + case '[':
|
| + case 'S':
|
| + case 'C':
|
| + case 'p':
|
| + case 'n':
|
| + p--;
|
| + break;
|
| + default:
|
| + goto fmt_fail;
|
| + }
|
|
|
| - size = SIZE_def;
|
| - switch (*p++) {
|
| - case 'h':
|
| - if (*p == 'h') p++, size = SIZE_hh;
|
| - else size = SIZE_h;
|
| - break;
|
| - case 'l':
|
| - if (*p == 'l') p++, size = SIZE_ll;
|
| - else size = SIZE_l;
|
| - break;
|
| - case 'j':
|
| - size = SIZE_ll;
|
| - break;
|
| - case 'z':
|
| - case 't':
|
| - size = SIZE_l;
|
| - break;
|
| - case 'L':
|
| - size = SIZE_L;
|
| - break;
|
| - case 'd': case 'i': case 'o': case 'u': case 'x':
|
| - case 'a': case 'e': case 'f': case 'g':
|
| - case 'A': case 'E': case 'F': case 'G': case 'X':
|
| - case 's': case 'c': case '[':
|
| - case 'S': case 'C':
|
| - case 'p': case 'n':
|
| - p--;
|
| - break;
|
| - default:
|
| - goto fmt_fail;
|
| - }
|
| + t = *p;
|
|
|
| - t = *p;
|
| + /* Transform S,C -> ls,lc */
|
| + if ((t & 0x2f) == 3) {
|
| + size = SIZE_l;
|
| + t |= 32;
|
| + }
|
|
|
| - /* Transform S,C -> ls,lc */
|
| - if ((t&0x2f)==3) {
|
| - size = SIZE_l;
|
| - t |= 32;
|
| - }
|
| + if (t != 'n') {
|
| + if (t != '[' && (t | 32) != 'c')
|
| + while (iswspace((c = getwc(f))))
|
| + pos++;
|
| + else
|
| + c = getwc(f);
|
| + if (c < 0)
|
| + goto input_fail;
|
| + ungetwc(c, f);
|
| + }
|
|
|
| - if (t != 'n') {
|
| - if (t != '[' && (t|32) != 'c')
|
| - while (iswspace((c=getwc(f)))) pos++;
|
| - else
|
| - c=getwc(f);
|
| - if (c < 0) goto input_fail;
|
| - ungetwc(c, f);
|
| - }
|
| + switch (t) {
|
| + case 'n':
|
| + store_int(dest, size, pos);
|
| + /* do not increment match count, etc! */
|
| + continue;
|
|
|
| - switch (t) {
|
| - case 'n':
|
| - store_int(dest, size, pos);
|
| - /* do not increment match count, etc! */
|
| - continue;
|
| + case 's':
|
| + case 'c':
|
| + case '[':
|
| + if (t == 'c') {
|
| + if (width < 1)
|
| + width = 1;
|
| + invert = 1;
|
| + set = L"";
|
| + } else if (t == 's') {
|
| + invert = 1;
|
| + set = (const wchar_t[]){
|
| + ' ', '\t', '\n', '\r', 11, 12, 0x0085, 0x2000,
|
| + 0x2001, 0x2002, 0x2003, 0x2004, 0x2005, 0x2006, 0x2008, 0x2009,
|
| + 0x200a, 0x2028, 0x2029, 0x205f, 0x3000, 0};
|
| + } else {
|
| + if (*++p == '^')
|
| + p++, invert = 1;
|
| + else
|
| + invert = 0;
|
| + set = p;
|
| + if (*p == ']')
|
| + p++;
|
| + while (*p != ']') {
|
| + if (!*p)
|
| + goto fmt_fail;
|
| + p++;
|
| + }
|
| + }
|
|
|
| - case 's':
|
| - case 'c':
|
| - case '[':
|
| - if (t == 'c') {
|
| - if (width<1) width = 1;
|
| - invert = 1;
|
| - set = L"";
|
| - } else if (t == 's') {
|
| - invert = 1;
|
| - set = (const wchar_t[]){
|
| - ' ', '\t', '\n', '\r', 11, 12, 0x0085,
|
| - 0x2000, 0x2001, 0x2002, 0x2003, 0x2004, 0x2005,
|
| - 0x2006, 0x2008, 0x2009, 0x200a,
|
| - 0x2028, 0x2029, 0x205f, 0x3000, 0 };
|
| - } else {
|
| - if (*++p == '^') p++, invert = 1;
|
| - else invert = 0;
|
| - set = p;
|
| - if (*p==']') p++;
|
| - while (*p!=']') {
|
| - if (!*p) goto fmt_fail;
|
| - p++;
|
| - }
|
| - }
|
| + s = (size == SIZE_def) ? dest : 0;
|
| + wcs = (size == SIZE_l) ? dest : 0;
|
|
|
| - s = (size == SIZE_def) ? dest : 0;
|
| - wcs = (size == SIZE_l) ? dest : 0;
|
| + int gotmatch = 0;
|
|
|
| - int gotmatch = 0;
|
| + if (width < 1)
|
| + width = -1;
|
|
|
| - if (width < 1) width = -1;
|
| + i = 0;
|
| + if (alloc) {
|
| + k = t == 'c' ? width + 1U : 31;
|
| + if (size == SIZE_l) {
|
| + wcs = malloc(k * sizeof(wchar_t));
|
| + if (!wcs)
|
| + goto alloc_fail;
|
| + } else {
|
| + s = malloc(k);
|
| + if (!s)
|
| + goto alloc_fail;
|
| + }
|
| + }
|
| + while (width) {
|
| + if ((c = getwc(f)) < 0)
|
| + break;
|
| + if (in_set(set, c) == invert)
|
| + break;
|
| + if (wcs) {
|
| + wcs[i++] = c;
|
| + if (alloc && i == k) {
|
| + k += k + 1;
|
| + wchar_t* tmp = realloc(wcs, k * sizeof(wchar_t));
|
| + if (!tmp)
|
| + goto alloc_fail;
|
| + wcs = tmp;
|
| + }
|
| + } else if (size != SIZE_l) {
|
| + int l = wctomb(s ? s + i : tmp, c);
|
| + if (l < 0)
|
| + goto input_fail;
|
| + i += l;
|
| + if (alloc && i > k - 4) {
|
| + k += k + 1;
|
| + char* tmp = realloc(s, k);
|
| + if (!tmp)
|
| + goto alloc_fail;
|
| + s = tmp;
|
| + }
|
| + }
|
| + pos++;
|
| + width -= (width > 0);
|
| + gotmatch = 1;
|
| + }
|
| + if (width) {
|
| + ungetwc(c, f);
|
| + if (t == 'c' || !gotmatch)
|
| + goto match_fail;
|
| + }
|
|
|
| - i = 0;
|
| - if (alloc) {
|
| - k = t=='c' ? width+1U : 31;
|
| - if (size == SIZE_l) {
|
| - wcs = malloc(k*sizeof(wchar_t));
|
| - if (!wcs) goto alloc_fail;
|
| - } else {
|
| - s = malloc(k);
|
| - if (!s) goto alloc_fail;
|
| - }
|
| - }
|
| - while (width) {
|
| - if ((c=getwc(f))<0) break;
|
| - if (in_set(set, c) == invert)
|
| - break;
|
| - if (wcs) {
|
| - wcs[i++] = c;
|
| - if (alloc && i==k) {
|
| - k += k+1;
|
| - wchar_t *tmp = realloc(wcs, k*sizeof(wchar_t));
|
| - if (!tmp) goto alloc_fail;
|
| - wcs = tmp;
|
| - }
|
| - } else if (size != SIZE_l) {
|
| - int l = wctomb(s?s+i:tmp, c);
|
| - if (l<0) goto input_fail;
|
| - i += l;
|
| - if (alloc && i > k-4) {
|
| - k += k+1;
|
| - char *tmp = realloc(s, k);
|
| - if (!tmp) goto alloc_fail;
|
| - s = tmp;
|
| - }
|
| - }
|
| - pos++;
|
| - width-=(width>0);
|
| - gotmatch=1;
|
| - }
|
| - if (width) {
|
| - ungetwc(c, f);
|
| - if (t == 'c' || !gotmatch) goto match_fail;
|
| - }
|
| + if (alloc) {
|
| + if (size == SIZE_l)
|
| + *(wchar_t**)dest = wcs;
|
| + else
|
| + *(char**)dest = s;
|
| + }
|
| + if (t != 'c') {
|
| + if (wcs)
|
| + wcs[i] = 0;
|
| + if (s)
|
| + s[i] = 0;
|
| + }
|
| + break;
|
|
|
| - if (alloc) {
|
| - if (size == SIZE_l) *(wchar_t **)dest = wcs;
|
| - else *(char **)dest = s;
|
| - }
|
| - if (t != 'c') {
|
| - if (wcs) wcs[i] = 0;
|
| - if (s) s[i] = 0;
|
| - }
|
| - break;
|
| + case 'd':
|
| + case 'i':
|
| + case 'o':
|
| + case 'u':
|
| + case 'x':
|
| + case 'a':
|
| + case 'e':
|
| + case 'f':
|
| + case 'g':
|
| + case 'A':
|
| + case 'E':
|
| + case 'F':
|
| + case 'G':
|
| + case 'X':
|
| + case 'p':
|
| + if (width < 1)
|
| + width = 0;
|
| + snprintf(tmp, sizeof tmp, "%.*s%.0d%s%c%%lln", 1 + !dest, "%*", width,
|
| + size_pfx[size + 2], t);
|
| + cnt = 0;
|
| + if (fscanf(f, tmp, dest ? dest : &cnt, &cnt) == -1)
|
| + goto input_fail;
|
| + else if (!cnt)
|
| + goto match_fail;
|
| + pos += cnt;
|
| + break;
|
| + default:
|
| + goto fmt_fail;
|
| + }
|
|
|
| - case 'd': case 'i': case 'o': case 'u': case 'x':
|
| - case 'a': case 'e': case 'f': case 'g':
|
| - case 'A': case 'E': case 'F': case 'G': case 'X':
|
| - case 'p':
|
| - if (width < 1) width = 0;
|
| - snprintf(tmp, sizeof tmp, "%.*s%.0d%s%c%%lln",
|
| - 1+!dest, "%*", width, size_pfx[size+2], t);
|
| - cnt = 0;
|
| - if (fscanf(f, tmp, dest?dest:&cnt, &cnt) == -1)
|
| - goto input_fail;
|
| - else if (!cnt)
|
| - goto match_fail;
|
| - pos += cnt;
|
| - break;
|
| - default:
|
| - goto fmt_fail;
|
| - }
|
| -
|
| - if (dest) matches++;
|
| - }
|
| - if (0) {
|
| -fmt_fail:
|
| -alloc_fail:
|
| -input_fail:
|
| - if (!matches) matches--;
|
| -match_fail:
|
| - if (alloc) {
|
| - free(s);
|
| - free(wcs);
|
| - }
|
| - }
|
| - FUNLOCK(f);
|
| - return matches;
|
| + if (dest)
|
| + matches++;
|
| + }
|
| + if (0) {
|
| + fmt_fail:
|
| + alloc_fail:
|
| + input_fail:
|
| + if (!matches)
|
| + matches--;
|
| + match_fail:
|
| + if (alloc) {
|
| + free(s);
|
| + free(wcs);
|
| + }
|
| + }
|
| + FUNLOCK(f);
|
| + return matches;
|
| }
|
|
|
| -weak_alias(vfwscanf,__isoc99_vfwscanf);
|
| +weak_alias(vfwscanf, __isoc99_vfwscanf);
|
|
|