+++ /dev/null
-/** @file\r
- valist worker function for the wide-character fscanf.\r
-\r
- Copyright (c) 2010 - 2014, Intel Corporation. All rights reserved.<BR>\r
- This program and the accompanying materials are licensed and made available under\r
- the terms and conditions of the BSD License that accompanies this distribution.\r
- The full text of the license may be found at\r
- http://opensource.org/licenses/bsd-license.\r
-\r
- THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,\r
- WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.\r
-\r
- * Copyright (c) 1990, 1993\r
- * The Regents of the University of California. All rights reserved.\r
- *\r
- * This code is derived from software contributed to Berkeley by\r
- * Chris Torek.\r
- *\r
- * Redistribution and use in source and binary forms, with or without\r
- * modification, are permitted provided that the following conditions\r
- * are met:\r
- * 1. Redistributions of source code must retain the above copyright\r
- * notice, this list of conditions and the following disclaimer.\r
- * 2. Redistributions in binary form must reproduce the above copyright\r
- * notice, this list of conditions and the following disclaimer in the\r
- * documentation and/or other materials provided with the distribution.\r
- * 3. All advertising materials mentioning features or use of this software\r
- * must display the following acknowledgement:\r
- * This product includes software developed by the University of\r
- * California, Berkeley and its contributors.\r
- * 4. Neither the name of the University nor the names of its contributors\r
- * may be used to endorse or promote products derived from this software\r
- * without specific prior written permission.\r
- *\r
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND\r
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
- * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE\r
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\r
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS\r
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT\r
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY\r
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF\r
- * SUCH DAMAGE.\r
-\r
- FreeBSD: src/lib/libc/stdio/vfwscanf.c,v 1.12 2004/05/02 20:13:29 obrien Exp\r
- NetBSD: vfwscanf.c,v 1.2 2005/06/12 05:48:41 lukem Exp\r
- */\r
-#include <LibConfig.h>\r
-#include <sys/EfiCdefs.h>\r
-\r
-#include "namespace.h"\r
-#include <ctype.h>\r
-#include <inttypes.h>\r
-#include <stdio.h>\r
-#include <stdlib.h>\r
-#include <stddef.h>\r
-#include <stdarg.h>\r
-#include <string.h>\r
-#include <limits.h>\r
-#include <wchar.h>\r
-#include <wctype.h>\r
-\r
-#include "reentrant.h"\r
-#include "local.h"\r
-\r
-#ifndef NO_FLOATING_POINT\r
-#include <locale.h>\r
-#endif\r
-\r
-#if defined(_MSC_VER) /* Handle Microsoft VC++ compiler specifics. */\r
- #pragma warning ( disable : 4244 ) // Allow wint_t to wchar_t conversions\r
- #pragma warning ( disable : 4305 ) // Allow truncation from UINT64 to void*\r
- #pragma warning ( disable : 4701 ) // Disable false warning for local variable p near line 375\r
-#endif\r
-\r
-\r
-#define BUF 513 /* Maximum length of numeric string. */\r
-\r
-/*\r
- * Flags used during conversion.\r
- */\r
-#define LONG 0x01 /* l: long or double */\r
-#define LONGDBL 0x02 /* L: long double */\r
-#define SHORT 0x04 /* h: short */\r
-#define SUPPRESS 0x08 /* *: suppress assignment */\r
-#define POINTER 0x10 /* p: void * (as hex) */\r
-#define NOSKIP 0x20 /* [ or c: do not skip blanks */\r
-#define LONGLONG 0x400 /* ll: quad_t (+ deprecated q: quad) */\r
-#define INTMAXT 0x800 /* j: intmax_t */\r
-#define PTRDIFFT 0x1000 /* t: ptrdiff_t */\r
-#define SIZET 0x2000 /* z: size_t */\r
-#define SHORTSHORT 0x4000 /* hh: char */\r
-#define UNSIGNED 0x8000 /* %[oupxX] conversions */\r
-\r
-/*\r
- * The following are used in integral conversions only:\r
- * SIGNOK, NDIGITS, PFXOK, and NZDIGITS\r
- */\r
-#define SIGNOK 0x40 /* +/- is (still) legal */\r
-#define NDIGITS 0x80 /* no digits detected */\r
-#define PFXOK 0x100 /* 0x prefix is (still) legal */\r
-#define NZDIGITS 0x200 /* no zero digits detected */\r
-#define HAVESIGN 0x10000 /* sign detected */\r
-\r
-/*\r
- * Conversion types.\r
- */\r
-#define CT_CHAR 0 /* %c conversion */\r
-#define CT_CCL 1 /* %[...] conversion */\r
-#define CT_STRING 2 /* %s conversion */\r
-#define CT_INT 3 /* %[dioupxX] conversion */\r
-#define CT_FLOAT 4 /* %[efgEFG] conversion */\r
-\r
-static int parsefloat(FILE *, wchar_t *, wchar_t *);\r
-\r
-#define INCCL(_c) \\r
- (cclcompl ? (wmemchr(ccls, (_c), (size_t)(ccle - ccls)) == NULL) : \\r
- (wmemchr(ccls, (_c), (size_t)(ccle - ccls)) != NULL))\r
-\r
-/*\r
- * MT-safe version.\r
- */\r
-int\r
-vfwscanf(FILE * __restrict fp, const wchar_t * __restrict fmt, va_list ap)\r
-{\r
- int ret;\r
-\r
- FLOCKFILE(fp);\r
- _SET_ORIENTATION(fp, 1);\r
- ret = __vfwscanf_unlocked(fp, fmt, ap);\r
- FUNLOCKFILE(fp);\r
- return (ret);\r
-}\r
-\r
-/*\r
- * Non-MT-safe version.\r
- */\r
-int\r
-__vfwscanf_unlocked(FILE * __restrict fp, const wchar_t * __restrict fmt, va_list ap)\r
-{\r
- wint_t c; /* character from format, or conversion */\r
- size_t width; /* field width, or 0 */\r
- wchar_t *p = NULL; /* points into all kinds of strings */\r
- int n; /* handy integer */\r
- int flags; /* flags as defined above */\r
- wchar_t *p0; /* saves original value of p when necessary */\r
- int nassigned; /* number of fields assigned */\r
- int nconversions; /* number of conversions */\r
- int nread; /* number of characters consumed from fp */\r
- int base; /* base argument to conversion function */\r
- wchar_t buf[BUF]; /* buffer for numeric conversions */\r
- const wchar_t *ccls; /* character class start */\r
- const wchar_t *ccle; /* character class end */\r
- int cclcompl; /* ccl is complemented? */\r
- wint_t wi; /* handy wint_t */\r
- char *mbp; /* multibyte string pointer for %c %s %[ */\r
- size_t nconv; /* number of bytes in mb. conversion */\r
- char mbbuf[MB_LEN_MAX]; /* temporary mb. character buffer */\r
- mbstate_t mbs;\r
-\r
- static const mbstate_t initial = { 0 };\r
- /* `basefix' is used to avoid `if' tests in the integer scanner */\r
- static short basefix[17] =\r
- { 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 };\r
-\r
- nassigned = 0;\r
- nconversions = 0;\r
- nread = 0;\r
- ccls = NULL;\r
- ccle = NULL;\r
- base = 0;\r
- cclcompl = 0;\r
- mbp = NULL;\r
-\r
- for (;;) {\r
- c = *fmt++;\r
- if (c == 0)\r
- return (nassigned);\r
- if (iswspace(c)) {\r
- while ((c = __fgetwc_unlock(fp)) != WEOF &&\r
- iswspace(c))\r
- ;\r
- if (c != WEOF)\r
- ungetwc(c, fp);\r
- continue;\r
- }\r
- if (c != '%')\r
- goto literal;\r
- width = 0;\r
- flags = 0;\r
- /*\r
- * switch on the format. continue if done;\r
- * break once format type is derived.\r
- */\r
-again: c = *fmt++;\r
- switch (c) {\r
- case '%':\r
-literal:\r
- if ((wi = __fgetwc_unlock(fp)) == WEOF)\r
- goto input_failure;\r
- if (wi != c) {\r
- ungetwc(wi, fp);\r
- goto match_failure;\r
- }\r
- nread++;\r
- continue;\r
-\r
- case '*':\r
- flags |= SUPPRESS;\r
- goto again;\r
- case 'j':\r
- flags |= INTMAXT;\r
- goto again;\r
- case 'l':\r
- if (flags & LONG) {\r
- flags &= ~LONG;\r
- flags |= LONGLONG;\r
- } else\r
- flags |= LONG;\r
- goto again;\r
- case 'q':\r
- flags |= LONGLONG; /* not quite */\r
- goto again;\r
- case 't':\r
- flags |= PTRDIFFT;\r
- goto again;\r
- case 'z':\r
- flags |= SIZET;\r
- goto again;\r
- case 'L':\r
- flags |= LONGDBL;\r
- goto again;\r
- case 'h':\r
- if (flags & SHORT) {\r
- flags &= ~SHORT;\r
- flags |= SHORTSHORT;\r
- } else\r
- flags |= SHORT;\r
- goto again;\r
-\r
- case '0': case '1': case '2': case '3': case '4':\r
- case '5': case '6': case '7': case '8': case '9':\r
- width = width * 10 + c - '0';\r
- goto again;\r
-\r
- /*\r
- * Conversions.\r
- */\r
- case 'd':\r
- c = CT_INT;\r
- base = 10;\r
- break;\r
-\r
- case 'i':\r
- c = CT_INT;\r
- base = 0;\r
- break;\r
-\r
- case 'o':\r
- c = CT_INT;\r
- flags |= UNSIGNED;\r
- base = 8;\r
- break;\r
-\r
- case 'u':\r
- c = CT_INT;\r
- flags |= UNSIGNED;\r
- base = 10;\r
- break;\r
-\r
- case 'X':\r
- case 'x':\r
- flags |= PFXOK; /* enable 0x prefixing */\r
- c = CT_INT;\r
- flags |= UNSIGNED;\r
- base = 16;\r
- break;\r
-\r
-#ifndef NO_FLOATING_POINT\r
- //case 'A':\r
- case 'E': case 'F': case 'G':\r
- //case 'a':\r
- case 'e': case 'f': case 'g':\r
- c = CT_FLOAT;\r
- break;\r
-#endif\r
-\r
- case 'S':\r
- flags |= LONG;\r
- /* FALLTHROUGH */\r
- case 's':\r
- c = CT_STRING;\r
- break;\r
-\r
- case '[':\r
- ccls = fmt;\r
- if (*fmt == '^') {\r
- cclcompl = 1;\r
- fmt++;\r
- } else\r
- cclcompl = 0;\r
- if (*fmt == ']')\r
- fmt++;\r
- while (*fmt != '\0' && *fmt != ']')\r
- fmt++;\r
- ccle = fmt;\r
- fmt++;\r
- flags |= NOSKIP;\r
- c = CT_CCL;\r
- break;\r
-\r
- case 'C':\r
- flags |= LONG;\r
- /* FALLTHROUGH */\r
- case 'c':\r
- flags |= NOSKIP;\r
- c = CT_CHAR;\r
- break;\r
-\r
- case 'p': /* pointer format is like hex */\r
- flags |= POINTER | PFXOK;\r
- c = CT_INT; /* assumes sizeof(uintmax_t) */\r
- flags |= UNSIGNED; /* >= sizeof(uintptr_t) */\r
- base = 16;\r
- break;\r
-\r
- case 'n':\r
- nconversions++;\r
- if (flags & SUPPRESS) /* ??? */\r
- continue;\r
- if (flags & SHORTSHORT)\r
- *va_arg(ap, char *) = (char)nread;\r
- else if (flags & SHORT)\r
- *va_arg(ap, short *) = (short)nread;\r
- else if (flags & LONG)\r
- *va_arg(ap, long *) = (long)nread;\r
- else if (flags & LONGLONG)\r
- *va_arg(ap, INT64 *) = (INT64)nread; // was quad_t\r
- else if (flags & INTMAXT)\r
- *va_arg(ap, intmax_t *) = (intmax_t)nread;\r
- else if (flags & SIZET)\r
- *va_arg(ap, size_t *) = (size_t)nread;\r
- else if (flags & PTRDIFFT)\r
- *va_arg(ap, ptrdiff_t *) = (ptrdiff_t)nread;\r
- else\r
- *va_arg(ap, int *) = nread;\r
- continue;\r
-\r
- default:\r
- goto match_failure;\r
-\r
- /*\r
- * Disgusting backwards compatibility hack. XXX\r
- */\r
- case '\0': /* compat */\r
- return (EOF);\r
- }\r
-\r
- /*\r
- * Consume leading white space, except for formats\r
- * that suppress this.\r
- */\r
- if ((flags & NOSKIP) == 0) {\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF && iswspace(wi))\r
- nread++;\r
- if (wi == WEOF)\r
- goto input_failure;\r
- ungetwc(wi, fp);\r
- }\r
-\r
- /*\r
- * Do the conversion.\r
- */\r
- switch (c) {\r
-\r
- case CT_CHAR:\r
- /* scan arbitrary characters (sets NOSKIP) */\r
- if (width == 0)\r
- width = 1;\r
- if (flags & LONG) {\r
- if (!(flags & SUPPRESS))\r
- p = va_arg(ap, wchar_t *);\r
- n = 0;\r
- while (width-- != 0 &&\r
- (wi = __fgetwc_unlock(fp)) != WEOF) {\r
- if (!(flags & SUPPRESS))\r
- *p++ = (wchar_t)wi;\r
- n++;\r
- }\r
- if (n == 0)\r
- goto input_failure;\r
- nread += n;\r
- if (!(flags & SUPPRESS))\r
- nassigned++;\r
- } else {\r
- if (!(flags & SUPPRESS))\r
- mbp = va_arg(ap, char *);\r
- n = 0;\r
- mbs = initial;\r
- while (width != 0 &&\r
- (wi = __fgetwc_unlock(fp)) != WEOF) {\r
- if (width >= MB_CUR_MAX &&\r
- !(flags & SUPPRESS)) {\r
- nconv = wcrtomb(mbp, (wchar_t)wi, &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- } else {\r
- nconv = wcrtomb(mbbuf, (wchar_t)wi,\r
- &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- if (nconv > width) {\r
- ungetwc(wi, fp);\r
- break;\r
- }\r
- if (!(flags & SUPPRESS))\r
- memcpy(mbp, mbbuf,\r
- nconv);\r
- }\r
- if (!(flags & SUPPRESS))\r
- mbp += nconv;\r
- width -= nconv;\r
- n++;\r
- }\r
- if (n == 0)\r
- goto input_failure;\r
- nread += n;\r
- if (!(flags & SUPPRESS))\r
- nassigned++;\r
- }\r
- nconversions++;\r
- break;\r
-\r
- case CT_CCL:\r
- /* scan a (nonempty) character class (sets NOSKIP) */\r
- if (width == 0)\r
- width = (size_t)~0; /* `infinity' */\r
- /* take only those things in the class */\r
- if ((flags & SUPPRESS) && (flags & LONG)) {\r
- n = 0;\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width-- != 0 && INCCL(wi))\r
- n++;\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- if (n == 0)\r
- goto match_failure;\r
- } else if (flags & LONG) {\r
- p0 = p = va_arg(ap, wchar_t *);\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width-- != 0 && INCCL(wi))\r
- *p++ = (wchar_t)wi;\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- n = p - p0;\r
- if (n == 0)\r
- goto match_failure;\r
- *p = 0;\r
- nassigned++;\r
- } else {\r
- if (!(flags & SUPPRESS))\r
- mbp = va_arg(ap, char *);\r
- n = 0;\r
- mbs = initial;\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width != 0 && INCCL(wi)) {\r
- if (width >= MB_CUR_MAX &&\r
- !(flags & SUPPRESS)) {\r
- nconv = wcrtomb(mbp, wi, &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- } else {\r
- nconv = wcrtomb(mbbuf, wi,\r
- &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- if (nconv > width)\r
- break;\r
- if (!(flags & SUPPRESS))\r
- memcpy(mbp, mbbuf,\r
- nconv);\r
- }\r
- if (!(flags & SUPPRESS))\r
- mbp += nconv;\r
- width -= nconv;\r
- n++;\r
- }\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- if (!(flags & SUPPRESS)) {\r
- *mbp = 0;\r
- nassigned++;\r
- }\r
- }\r
- nread += n;\r
- nconversions++;\r
- break;\r
-\r
- case CT_STRING:\r
- /* like CCL, but zero-length string OK, & no NOSKIP */\r
- if (width == 0)\r
- width = (size_t)~0;\r
- if ((flags & SUPPRESS) && (flags & LONG)) {\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width-- != 0 &&\r
- !iswspace(wi))\r
- nread++;\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- } else if (flags & LONG) {\r
- p0 = p = va_arg(ap, wchar_t *);\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width-- != 0 &&\r
- !iswspace(wi)) {\r
- *p++ = (wchar_t)wi;\r
- nread++;\r
- }\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- *p = '\0';\r
- nassigned++;\r
- } else {\r
- if (!(flags & SUPPRESS))\r
- mbp = va_arg(ap, char *);\r
- mbs = initial;\r
- while ((wi = __fgetwc_unlock(fp)) != WEOF &&\r
- width != 0 &&\r
- !iswspace(wi)) {\r
- if (width >= MB_CUR_MAX &&\r
- !(flags & SUPPRESS)) {\r
- nconv = wcrtomb(mbp, wi, &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- } else {\r
- nconv = wcrtomb(mbbuf, wi,\r
- &mbs);\r
- if (nconv == (size_t)-1)\r
- goto input_failure;\r
- if (nconv > width)\r
- break;\r
- if (!(flags & SUPPRESS))\r
- memcpy(mbp, mbbuf,\r
- nconv);\r
- }\r
- if (!(flags & SUPPRESS))\r
- mbp += nconv;\r
- width -= nconv;\r
- nread++;\r
- }\r
- if (wi != WEOF)\r
- ungetwc(wi, fp);\r
- if (!(flags & SUPPRESS)) {\r
- *mbp = 0;\r
- nassigned++;\r
- }\r
- }\r
- nconversions++;\r
- continue;\r
-\r
- case CT_INT:\r
- /* scan an integer as if by the conversion function */\r
- if (width == 0 || width > sizeof(buf) /\r
- sizeof(*buf) - 1)\r
- width = sizeof(buf) / sizeof(*buf) - 1;\r
- flags |= SIGNOK | NDIGITS | NZDIGITS;\r
- for (p = buf; width; width--) {\r
- c = __fgetwc_unlock(fp);\r
- /*\r
- * Switch on the character; `goto ok'\r
- * if we accept it as a part of number.\r
- */\r
- switch (c) {\r
-\r
- /*\r
- * The digit 0 is always legal, but is\r
- * special. For %i conversions, if no\r
- * digits (zero or nonzero) have been\r
- * scanned (only signs), we will have\r
- * base==0. In that case, we should set\r
- * it to 8 and enable 0x prefixing.\r
- * Also, if we have not scanned zero digits\r
- * before this, do not turn off prefixing\r
- * (someone else will turn it off if we\r
- * have scanned any nonzero digits).\r
- */\r
- case '0':\r
- if (base == 0) {\r
- base = 8;\r
- flags |= PFXOK;\r
- }\r
- if (flags & NZDIGITS)\r
- flags &= ~(SIGNOK|NZDIGITS|NDIGITS);\r
- else\r
- flags &= ~(SIGNOK|PFXOK|NDIGITS);\r
- goto ok;\r
-\r
- /* 1 through 7 always legal */\r
- case '1': case '2': case '3':\r
- case '4': case '5': case '6': case '7':\r
- base = basefix[base];\r
- flags &= ~(SIGNOK | PFXOK | NDIGITS);\r
- goto ok;\r
-\r
- /* digits 8 and 9 ok iff decimal or hex */\r
- case '8': case '9':\r
- base = basefix[base];\r
- if (base <= 8)\r
- break; /* not legal here */\r
- flags &= ~(SIGNOK | PFXOK | NDIGITS);\r
- goto ok;\r
-\r
- /* letters ok iff hex */\r
- case 'A': case 'B': case 'C':\r
- case 'D': case 'E': case 'F':\r
- case 'a': case 'b': case 'c':\r
- case 'd': case 'e': case 'f':\r
- /* no need to fix base here */\r
- if (base <= 10)\r
- break; /* not legal here */\r
- flags &= ~(SIGNOK | PFXOK | NDIGITS);\r
- goto ok;\r
-\r
- /* sign ok only as first character */\r
- case '+': case '-':\r
- if (flags & SIGNOK) {\r
- flags &= ~SIGNOK;\r
- flags |= HAVESIGN;\r
- goto ok;\r
- }\r
- break;\r
-\r
- /*\r
- * x ok iff flag still set & 2nd char (or\r
- * 3rd char if we have a sign).\r
- */\r
- case 'x': case 'X':\r
- if (flags & PFXOK && p ==\r
- buf + 1 + !!(flags & HAVESIGN)) {\r
- base = 16; /* if %i */\r
- flags &= ~PFXOK;\r
- goto ok;\r
- }\r
- break;\r
- }\r
-\r
- /*\r
- * If we got here, c is not a legal character\r
- * for a number. Stop accumulating digits.\r
- */\r
- if (c != WEOF)\r
- ungetwc(c, fp);\r
- break;\r
- ok:\r
- /*\r
- * c is legal: store it and look at the next.\r
- */\r
- *p++ = (wchar_t)c;\r
- }\r
- /*\r
- * If we had only a sign, it is no good; push\r
- * back the sign. If the number ends in `x',\r
- * it was [sign] '0' 'x', so push back the x\r
- * and treat it as [sign] '0'.\r
- */\r
- if (flags & NDIGITS) {\r
- if (p > buf)\r
- ungetwc(*--p, fp);\r
- goto match_failure;\r
- }\r
- c = p[-1];\r
- if (c == 'x' || c == 'X') {\r
- --p;\r
- ungetwc(c, fp);\r
- }\r
- if ((flags & SUPPRESS) == 0) {\r
- uintmax_t res;\r
-\r
- *p = 0;\r
- if ((flags & UNSIGNED) == 0)\r
- res = wcstoimax(buf, NULL, base);\r
- else\r
- res = wcstoumax(buf, NULL, base);\r
-\r
- if (flags & POINTER) {\r
- *va_arg(ap, void **) = (void *)res;\r
- }\r
- else if (flags & SHORTSHORT) {\r
- *va_arg(ap, char *) = (char)res;\r
- }\r
- else if (flags & SHORT) {\r
- *va_arg(ap, short *) = (short)res;\r
- }\r
- else if (flags & LONG) {\r
- *va_arg(ap, long *) = (long)res;\r
- }\r
- else if (flags & LONGLONG) {\r
- *va_arg(ap, INT64 *) = res; // was quad_t\r
- }\r
- else if (flags & INTMAXT) {\r
- *va_arg(ap, intmax_t *) = res;\r
- }\r
- else if (flags & PTRDIFFT) {\r
- *va_arg(ap, ptrdiff_t *) = (ptrdiff_t)res;\r
- }\r
- else if (flags & SIZET) {\r
- *va_arg(ap, size_t *) = (size_t)res;\r
- }\r
- else {\r
- *va_arg(ap, int *) = (int)res;\r
- }\r
- nassigned++;\r
- }\r
- nread += p - buf;\r
- nconversions++;\r
- break;\r
-\r
-#ifndef NO_FLOATING_POINT\r
- case CT_FLOAT:\r
- /* scan a floating point number as if by strtod */\r
- if (width == 0 || width > sizeof(buf) /\r
- sizeof(*buf) - 1)\r
- width = sizeof(buf) / sizeof(*buf) - 1;\r
- if ((width = parsefloat(fp, buf, buf + width)) == 0)\r
- goto match_failure;\r
- if ((flags & SUPPRESS) == 0) {\r
-#ifdef REAL_LONG_DOUBLE_SUPPORT\r
- if (flags & LONGDBL) {\r
- long double res = wcstold(buf, &p);\r
- *va_arg(ap, long double *) = res;\r
- } else\r
-#endif\r
- if (flags & (LONG | LONGDBL)) {\r
- double res = wcstod(buf, &p);\r
- *va_arg(ap, double *) = res;\r
- }\r
- else {\r
- float res = wcstof(buf, &p);\r
- *va_arg(ap, float *) = res;\r
- }\r
-#ifdef DEBUG\r
- if (p - buf != width)\r
- abort();\r
-#endif\r
- nassigned++;\r
- }\r
- nread += (int)width;\r
- nconversions++;\r
- break;\r
-#endif /* !NO_FLOATING_POINT */\r
- }\r
- }\r
-input_failure:\r
- return (nconversions != 0 ? nassigned : EOF);\r
-match_failure:\r
- return (nassigned);\r
-}\r
-\r
-#ifndef NO_FLOATING_POINT\r
-static int\r
-parsefloat(FILE *fp, wchar_t *buf, wchar_t *end)\r
-{\r
- wchar_t *commit, *p;\r
- int infnanpos = 0;\r
- enum {\r
- S_START, S_GOTSIGN, S_INF, S_NAN, S_MAYBEHEX,\r
- S_DIGITS, S_FRAC, S_EXP, S_EXPDIGITS\r
- } state = S_START;\r
- wchar_t c;\r
- wchar_t decpt = (wchar_t)(unsigned char)*localeconv()->decimal_point;\r
- int gotmantdig = 0, ishex = 0;\r
-\r
- /*\r
- * We set commit = p whenever the string we have read so far\r
- * constitutes a valid representation of a floating point\r
- * number by itself. At some point, the parse will complete\r
- * or fail, and we will ungetc() back to the last commit point.\r
- * To ensure that the file offset gets updated properly, it is\r
- * always necessary to read at least one character that doesn't\r
- * match; thus, we can't short-circuit "infinity" or "nan(...)".\r
- */\r
- commit = buf - 1;\r
- c = (wchar_t)WEOF;\r
- for (p = buf; p < end; ) {\r
- if ((wint_t)(c = __fgetwc_unlock(fp)) == WEOF)\r
- break;\r
-reswitch:\r
- switch (state) {\r
- case S_START:\r
- state = S_GOTSIGN;\r
- if (c == '-' || c == '+')\r
- break;\r
- else\r
- goto reswitch;\r
- case S_GOTSIGN:\r
- switch (c) {\r
- case '0':\r
- state = S_MAYBEHEX;\r
- commit = p;\r
- break;\r
- case 'I':\r
- case 'i':\r
- state = S_INF;\r
- break;\r
- case 'N':\r
- case 'n':\r
- state = S_NAN;\r
- break;\r
- default:\r
- state = S_DIGITS;\r
- goto reswitch;\r
- }\r
- break;\r
- case S_INF:\r
- if (infnanpos > 6 ||\r
- (c != "nfinity"[infnanpos] &&\r
- c != "NFINITY"[infnanpos]))\r
- goto parsedone;\r
- if (infnanpos == 1 || infnanpos == 6)\r
- commit = p; /* inf or infinity */\r
- infnanpos++;\r
- break;\r
- case S_NAN:\r
- switch (infnanpos) {\r
- case -1: /* XXX kludge to deal with nan(...) */\r
- goto parsedone;\r
- case 0:\r
- if (c != 'A' && c != 'a')\r
- goto parsedone;\r
- break;\r
- case 1:\r
- if (c != 'N' && c != 'n')\r
- goto parsedone;\r
- else\r
- commit = p;\r
- break;\r
- case 2:\r
- if (c != '(')\r
- goto parsedone;\r
- break;\r
- default:\r
- if (c == ')') {\r
- commit = p;\r
- infnanpos = -2;\r
- } else if (!iswalnum(c) && c != '_')\r
- goto parsedone;\r
- break;\r
- }\r
- infnanpos++;\r
- break;\r
- case S_MAYBEHEX:\r
- state = S_DIGITS;\r
- if (c == 'X' || c == 'x') {\r
- ishex = 1;\r
- break;\r
- } else { /* we saw a '0', but no 'x' */\r
- gotmantdig = 1;\r
- goto reswitch;\r
- }\r
- case S_DIGITS:\r
- if ((ishex && iswxdigit(c)) || iswdigit(c))\r
- gotmantdig = 1;\r
- else {\r
- state = S_FRAC;\r
- if (c != decpt)\r
- goto reswitch;\r
- }\r
- if (gotmantdig)\r
- commit = p;\r
- break;\r
- case S_FRAC:\r
- if (((c == 'E' || c == 'e') && !ishex) ||\r
- ((c == 'P' || c == 'p') && ishex)) {\r
- if (!gotmantdig)\r
- goto parsedone;\r
- else\r
- state = S_EXP;\r
- } else if ((ishex && iswxdigit(c)) || iswdigit(c)) {\r
- commit = p;\r
- gotmantdig = 1;\r
- } else\r
- goto parsedone;\r
- break;\r
- case S_EXP:\r
- state = S_EXPDIGITS;\r
- if (c == '-' || c == '+')\r
- break;\r
- else\r
- goto reswitch;\r
- case S_EXPDIGITS:\r
- if (iswdigit(c))\r
- commit = p;\r
- else\r
- goto parsedone;\r
- break;\r
- default:\r
- abort();\r
- }\r
- *p++ = c;\r
- c = (wchar_t)WEOF;\r
- }\r
-\r
-parsedone:\r
- if ((wint_t)c != WEOF)\r
- ungetwc(c, fp);\r
- while (commit < --p)\r
- ungetwc(*p, fp);\r
- *++commit = '\0';\r
- return (commit - buf);\r
-}\r
-#endif\r