+++ /dev/null
-/** @file\r
- Implementation of scanf internals for <stdio.h>.\r
-\r
- Copyright (c) 2010 - 2014, Intel Corporation. All rights reserved.<BR>\r
- This program and the accompanying materials are licensed and made available\r
- under the terms and conditions of the BSD License that accompanies this\r
- distribution. 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
- - Redistributions of source code must retain the above copyright\r
- notice, this list of conditions and the following disclaimer.\r
- - 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
- - 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 COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"\r
- AND 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 COPYRIGHT HOLDERS OR CONTRIBUTORS BE\r
- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\r
- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\r
- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\r
- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\r
- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE\r
- POSSIBILITY OF SUCH DAMAGE.\r
-\r
- NetBSD: vfscanf.c,v 1.37.4.1 2007/05/07 19:49:08 pavel Exp\r
- FreeBSD: src/lib/libc/stdio/vfscanf.c,v 1.41 2007/01/09 00:28:07 imp Exp\r
- vfscanf.c 8.1 (Berkeley) 6/4/93\r
-**/\r
-#include <LibConfig.h>\r
-\r
-#include "namespace.h"\r
-#include <assert.h>\r
-#include <ctype.h>\r
-#include <errno.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 <sys/types.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
-/*\r
- * Provide an external name for vfscanf. Note, EFI uses the normal\r
- * namespace.h method; stdio routines explicitly use the internal name\r
- * __svfscanf.\r
- */\r
-#ifdef __weak_alias\r
-__weak_alias(vfscanf,__svfscanf)\r
-#endif\r
-\r
-#define BUF 513 /* Maximum length of numeric string. */\r
-\r
-/*\r
- * Flags used during conversion.\r
- */\r
-#define LONG 0x0001 /* l: long or double */\r
-#define LONGDBL 0x0002 /* L: long double */\r
-#define SHORT 0x0004 /* h: short */\r
-#define SUPPRESS 0x0008 /* *: suppress assignment */\r
-#define POINTER 0x0010 /* p: void * (as hex) */\r
-#define NOSKIP 0x0020 /* [ or c: do not skip blanks */\r
-#define LONGLONG 0x0400 /* ll: long long (+ deprecated q: quad) */\r
-#define INTMAXT 0x0800 /* 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 0x00040 /* +/- is (still) legal */\r
-#define NDIGITS 0x00080 /* no digits detected */\r
-#define PFXOK 0x00100 /* 0x prefix is (still) legal */\r
-#define NZDIGITS 0x00200 /* 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 const u_char *__sccl(char *, const u_char *);\r
-#ifndef NO_FLOATING_POINT\r
- static int parsefloat(FILE *, char *, char *);\r
-#endif\r
-\r
-int __scanfdebug = 0;\r
-\r
-#define __collate_load_error /*CONSTCOND*/0\r
-static int\r
-__collate_range_cmp(int c1, int c2)\r
-{\r
- static char s1[2] = { 0 };\r
- static char s2[2] = { 0 };\r
-\r
- s1[0] = (char)c1;\r
- s2[0] = (char)c2;\r
- return strcoll(s1, s2);\r
-}\r
-\r
-\r
-/*\r
- * __svfscanf - MT-safe version\r
- */\r
-int\r
-__svfscanf(FILE *fp, char const *fmt0, va_list ap)\r
-{\r
- int ret;\r
-\r
- if(fp == NULL) {\r
- errno = EINVAL;\r
- return (EOF);\r
- }\r
- FLOCKFILE(fp);\r
- ret = __svfscanf_unlocked(fp, fmt0, ap);\r
- FUNLOCKFILE(fp);\r
- return (ret);\r
-}\r
-\r
-/*\r
- * __svfscanf_unlocked - non-MT-safe version of __svfscanf\r
- */\r
-int\r
-__svfscanf_unlocked(FILE *fp, const char *fmt0, va_list ap)\r
-{\r
- const u_char *fmt = (const u_char *)fmt0;\r
- int c; /* character from format, or conversion */\r
- size_t width; /* field width, or 0 */\r
- char *p; /* points into all kinds of strings */\r
- size_t n; /* handy size_t */\r
- int flags; /* flags as defined above */\r
- char *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
- char ccltab[256]; /* character class table for %[...] */\r
- char buf[BUF]; /* buffer for numeric and mb conversions */\r
- wchar_t *wcp; /* handy wide character pointer */\r
- size_t nconv; /* length of multibyte sequence converted */\r
- static const mbstate_t initial = { 0 };\r
- mbstate_t mbs;\r
-\r
- /* `basefix' is used to avoid `if' tests in the integer scanner */\r
- static const short basefix[17] =\r
- { 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 };\r
-\r
- _DIAGASSERT(fp != NULL);\r
- _DIAGASSERT(fmt0 != NULL);\r
- if(fp == NULL) {\r
- errno = EINVAL;\r
- return (EOF);\r
- }\r
-\r
- _SET_ORIENTATION(fp, -1);\r
-\r
-//Print(L"%a( %d, \"%a\", ...)\n", __func__, fp->_file, fmt0);\r
- nassigned = 0;\r
- nconversions = 0;\r
- nread = 0;\r
- base = 0;\r
- for (;;) {\r
- c = (unsigned char)*fmt++;\r
- if (c == 0)\r
- return (nassigned);\r
- if (isspace(c)) {\r
- while ((fp->_r > 0 || __srefill(fp) == 0) &&\r
- isspace(*fp->_p))\r
- nread++, fp->_r--, fp->_p++;\r
- continue;\r
- }\r
-//Print(L"%a: %d\n", __func__, __LINE__);\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
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- switch (c) {\r
- case '%':\r
-literal:\r
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- if (fp->_r <= 0 && __srefill(fp))\r
- goto input_failure;\r
- if (*fp->_p != c)\r
- goto match_failure;\r
- fp->_r--, fp->_p++;\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': case 'E': case 'F': case 'G':\r
- case 'a': 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
- fmt = __sccl(ccltab, 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 *) = nread;\r
- else if (flags & LONGLONG)\r
- *va_arg(ap, long long *) = nread;\r
- else if (flags & INTMAXT)\r
- *va_arg(ap, intmax_t *) = nread;\r
- else if (flags & SIZET)\r
- *va_arg(ap, size_t *) = nread;\r
- else if (flags & PTRDIFFT)\r
- *va_arg(ap, 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
-//Print(L"%a: %d\n", __func__, __LINE__);\r
-\r
- /*\r
- * We have a conversion that requires input.\r
- */\r
- if (fp->_r <= 0 && __srefill(fp))\r
- {\r
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- goto input_failure;\r
- }\r
-\r
- /*\r
- * Consume leading white space, except for formats\r
- * that suppress this.\r
- */\r
- if ((flags & NOSKIP) == 0) {\r
- while (isspace(*fp->_p)) {\r
- nread++;\r
- if (--fp->_r > 0)\r
- fp->_p++;\r
- else if (__srefill(fp))\r
- {\r
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- goto input_failure;\r
- }\r
- }\r
- /*\r
- * Note that there is at least one character in\r
- * the buffer, so conversions that do not set NOSKIP\r
- * ca no longer result in an input failure.\r
- */\r
- }\r
-\r
- /*\r
- * Do the conversion.\r
- */\r
-//Print(L"%a: %d\n", __func__, __LINE__);\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) == 0)\r
- wcp = va_arg(ap, wchar_t *);\r
- else\r
- wcp = NULL;\r
- n = 0;\r
- while (width != 0) {\r
- if (n == MB_CUR_MAX) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- buf[n++] = *fp->_p;\r
- fp->_p++;\r
- fp->_r--;\r
- mbs = initial;\r
- nconv = mbrtowc(wcp, buf, n, &mbs);\r
- if (nconv == (size_t)-1) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- if (nconv == 0 && !(flags & SUPPRESS))\r
- *wcp = L'\0';\r
- if (nconv != (size_t)-2) {\r
- nread += (int)n;\r
- width--;\r
- if (!(flags & SUPPRESS))\r
- wcp++;\r
- n = 0;\r
- }\r
- if (fp->_r <= 0 && __srefill(fp)) {\r
- if (n != 0) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- break;\r
- }\r
- }\r
- if (!(flags & SUPPRESS))\r
- nassigned++;\r
- } else if (flags & SUPPRESS) {\r
- size_t sum = 0;\r
- for (;;) {\r
- if ((n = fp->_r) < width) {\r
- sum += n;\r
- width -= n;\r
- fp->_p += n;\r
- if (__srefill(fp)) {\r
- if (sum == 0)\r
- goto input_failure;\r
- break;\r
- }\r
- } else {\r
- sum += width;\r
- fp->_r -= (int)width;\r
- fp->_p += width;\r
- break;\r
- }\r
- }\r
- nread += (int)sum;\r
- } else {\r
- size_t r = fread(va_arg(ap, char *), 1,\r
- width, fp);\r
-\r
- if (r == 0)\r
- goto input_failure;\r
- nread += (int)r;\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 & LONG) {\r
- wchar_t twc;\r
- int nchars;\r
-\r
- if ((flags & SUPPRESS) == 0)\r
- wcp = va_arg(ap, wchar_t *);\r
- else\r
- wcp = &twc;\r
- n = 0;\r
- nchars = 0;\r
- while (width != 0) {\r
- if (n == MB_CUR_MAX) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- buf[n++] = *fp->_p;\r
- fp->_p++;\r
- fp->_r--;\r
- mbs = initial;\r
- nconv = mbrtowc(wcp, buf, n, &mbs);\r
- if (nconv == (size_t)-1) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- if (nconv == 0)\r
- *wcp = L'\0';\r
- if (nconv != (size_t)-2) {\r
- if (wctob(*wcp) != EOF &&\r
- !ccltab[wctob(*wcp)]) {\r
- while (n != 0) {\r
- n--;\r
- (void)ungetc(buf[n],\r
- fp);\r
- }\r
- break;\r
- }\r
- nread += (int)n;\r
- width--;\r
- if (!(flags & SUPPRESS))\r
- wcp++;\r
- nchars++;\r
- n = 0;\r
- }\r
- if (fp->_r <= 0 && __srefill(fp)) {\r
- if (n != 0) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- break;\r
- }\r
- }\r
- if (n != 0) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- n = nchars;\r
- if (n == 0)\r
- goto match_failure;\r
- if (!(flags & SUPPRESS)) {\r
- *wcp = L'\0';\r
- nassigned++;\r
- }\r
- } else if (flags & SUPPRESS) {\r
- n = 0;\r
- while (ccltab[*fp->_p]) {\r
- n++, fp->_r--, fp->_p++;\r
- if (--width == 0)\r
- break;\r
- if (fp->_r <= 0 && __srefill(fp)) {\r
- if (n == 0)\r
- goto input_failure;\r
- break;\r
- }\r
- }\r
- if (n == 0)\r
- goto match_failure;\r
- } else {\r
- p0 = p = va_arg(ap, char *);\r
- while (ccltab[*fp->_p]) {\r
- fp->_r--;\r
- *p++ = *fp->_p++;\r
- if (--width == 0)\r
- break;\r
- if (fp->_r <= 0 && __srefill(fp)) {\r
- if (p == p0)\r
- goto input_failure;\r
- break;\r
- }\r
- }\r
- n = p - p0;\r
- if (n == 0)\r
- goto match_failure;\r
- *p = 0;\r
- nassigned++;\r
- }\r
- nread += (int)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 & LONG) {\r
- wchar_t twc;\r
-\r
- if ((flags & SUPPRESS) == 0)\r
- wcp = va_arg(ap, wchar_t *);\r
- else\r
- wcp = &twc;\r
- n = 0;\r
- while (!isspace(*fp->_p) && width != 0) {\r
- if (n == MB_CUR_MAX) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- buf[n++] = *fp->_p;\r
- fp->_p++;\r
- fp->_r--;\r
- mbs = initial;\r
- nconv = mbrtowc(wcp, buf, n, &mbs);\r
- if (nconv == (size_t)-1) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- if (nconv == 0)\r
- *wcp = L'\0';\r
- if (nconv != (size_t)-2) {\r
- if (iswspace(*wcp)) {\r
- while (n != 0) {\r
- n--;\r
- (void)ungetc(buf[n],\r
- fp);\r
- }\r
- break;\r
- }\r
- nread += (int)n;\r
- width--;\r
- if (!(flags & SUPPRESS))\r
- wcp++;\r
- n = 0;\r
- }\r
- if (fp->_r <= 0 && __srefill(fp)) {\r
- if (n != 0) {\r
- fp->_flags |= __SERR;\r
- goto input_failure;\r
- }\r
- break;\r
- }\r
- }\r
- if (!(flags & SUPPRESS)) {\r
- *wcp = L'\0';\r
- nassigned++;\r
- }\r
- } else if (flags & SUPPRESS) {\r
- n = 0;\r
- while (!isspace(*fp->_p)) {\r
- n++, fp->_r--, fp->_p++;\r
- if (--width == 0)\r
- break;\r
- if (fp->_r <= 0 && __srefill(fp))\r
- break;\r
- }\r
- nread += (int)n;\r
- } else {\r
- p0 = p = va_arg(ap, char *);\r
- while (!isspace(*fp->_p)) {\r
- fp->_r--;\r
- *p++ = *fp->_p++;\r
- if (--width == 0)\r
- break;\r
- if (fp->_r <= 0 && __srefill(fp))\r
- break;\r
- }\r
- *p = 0;\r
- nread += (int)(p - p0);\r
- nassigned++;\r
- }\r
- nconversions++;\r
- continue;\r
-\r
- case CT_INT:\r
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- /* scan an integer as if by the conversion function */\r
-#ifdef hardway\r
- if (width == 0 || width > sizeof(buf) - 1)\r
- width = sizeof(buf) - 1;\r
-#else\r
- /* size_t is unsigned, hence this optimisation */\r
- if (--width > sizeof(buf) - 2)\r
- width = sizeof(buf) - 2;\r
- width++;\r
-#endif\r
- flags |= SIGNOK | NDIGITS | NZDIGITS;\r
- for (p = buf; width; width--) {\r
- c = *fp->_p;\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
- break;\r
- ok:\r
- /*\r
- * c is legal: store it and look at the next.\r
- */\r
- *p++ = (char)c;\r
- if (--fp->_r > 0)\r
- fp->_p++;\r
- else if (__srefill(fp))\r
- break; /* EOF */\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
- (void)ungetc(*(u_char *)--p, fp);\r
- goto match_failure;\r
- }\r
- c = ((u_char *)p)[-1];\r
- if (c == 'x' || c == 'X') {\r
- --p;\r
- (void)ungetc(c, fp);\r
- }\r
- if ((flags & SUPPRESS) == 0) {\r
- //uintmax_t res;\r
- // Use a union to get around the truncation warnings.\r
- union {\r
- uintmax_t umax;\r
- intmax_t imax;\r
- void *vp;\r
- ptrdiff_t pdt;\r
- size_t sz;\r
- long long ll;\r
- long lo;\r
- int in;\r
- short hw;\r
- char ch;\r
- } res;\r
-\r
- *p = 0;\r
- if ((flags & UNSIGNED) == 0)\r
- res.imax = strtoimax(buf, (char **)NULL, base);\r
- else\r
- res.umax = strtoumax(buf, (char **)NULL, base);\r
- if (flags & POINTER)\r
- *va_arg(ap, void **) = res.vp;\r
- //(void *)((uintptr_t)res);\r
- else if (flags & SHORTSHORT)\r
- *va_arg(ap, char *) = res.ch;\r
- else if (flags & SHORT)\r
- *va_arg(ap, short *) = res.hw;\r
- else if (flags & LONG)\r
- *va_arg(ap, long *) = res.lo;\r
- else if (flags & LONGLONG)\r
- *va_arg(ap, long long *) = res.ll;\r
- else if (flags & INTMAXT)\r
- *va_arg(ap, intmax_t *) = res.imax;\r
- else if (flags & PTRDIFFT)\r
- *va_arg(ap, ptrdiff_t *) = res.pdt;\r
- //(ptrdiff_t)res;\r
- else if (flags & SIZET)\r
- *va_arg(ap, size_t *) = res.sz;\r
- else\r
- *va_arg(ap, int *) = res.in;\r
- nassigned++;\r
- }\r
- nread += (int)(p - buf);\r
- nconversions++;\r
-//Print(L"%a: %d\n", __func__, __LINE__);\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) - 1)\r
- width = sizeof(buf) - 1;\r
- if ((width = parsefloat(fp, buf, buf + width)) == 0)\r
- goto match_failure;\r
- if ((flags & SUPPRESS) == 0) {\r
- if (flags & LONGDBL) {\r
- long double res = strtold(buf, &p);\r
- *va_arg(ap, long double *) = res;\r
- } else if (flags & LONG) {\r
- double res = strtod(buf, &p);\r
- *va_arg(ap, double *) = res;\r
- } else {\r
- float res = strtof(buf, &p);\r
- *va_arg(ap, float *) = res;\r
- }\r
- if (__scanfdebug && p - buf != (ptrdiff_t)width)\r
- abort();\r
- nassigned++;\r
- }\r
- nread += (int)width;\r
- nconversions++;\r
- break;\r
-#endif /* !NO_FLOATING_POINT */\r
- }\r
- }\r
-input_failure:\r
-//Print(L"%a: %d\n", __func__, __LINE__);\r
- return (nconversions != 0 ? nassigned : EOF);\r
-match_failure:\r
- return (nassigned);\r
-}\r
-\r
-/*\r
- * Fill in the given table from the scanset at the given format\r
- * (just after `['). Return a pointer to the character past the\r
- * closing `]'. The table has a 1 wherever characters should be\r
- * considered part of the scanset.\r
- */\r
-static const u_char *\r
-__sccl(char *tab, const u_char *fmt)\r
-{\r
- int c, n, v, i;\r
-\r
- _DIAGASSERT(tab != NULL);\r
- _DIAGASSERT(fmt != NULL);\r
- /* first `clear' the whole table */\r
- c = *fmt++; /* first char hat => negated scanset */\r
- if (c == '^') {\r
- v = 1; /* default => accept */\r
- c = *fmt++; /* get new first char */\r
- } else\r
- v = 0; /* default => reject */\r
-\r
- /* XXX: Will not work if sizeof(tab*) > sizeof(char) */\r
- (void)memset(tab, v, 256);\r
-\r
- if (c == 0)\r
- return (fmt - 1);/* format ended before closing ] */\r
-\r
- /*\r
- * Now set the entries corresponding to the actual scanset\r
- * to the opposite of the above.\r
- *\r
- * The first character may be ']' (or '-') without being special;\r
- * the last character may be '-'.\r
- */\r
- v = 1 - v;\r
- for (;;) {\r
- tab[c] = (char)v; /* take character c */\r
-doswitch:\r
- n = *fmt++; /* and examine the next */\r
- switch (n) {\r
-\r
- case 0: /* format ended too soon */\r
- return (fmt - 1);\r
-\r
- case '-':\r
- /*\r
- * A scanset of the form\r
- * [01+-]\r
- * is defined as `the digit 0, the digit 1,\r
- * the character +, the character -', but\r
- * the effect of a scanset such as\r
- * [a-zA-Z0-9]\r
- * is implementation defined. The V7 Unix\r
- * scanf treats `a-z' as `the letters a through\r
- * z', but treats `a-a' as `the letter a, the\r
- * character -, and the letter a'.\r
- *\r
- * For compatibility, the `-' is not considerd\r
- * to define a range if the character following\r
- * it is either a close bracket (required by ANSI)\r
- * or is not numerically greater than the character\r
- * we just stored in the table (c).\r
- */\r
- n = *fmt;\r
- if (n == ']' || (__collate_load_error ? n < c :\r
- __collate_range_cmp(n, c) < 0)) {\r
- c = '-';\r
- break; /* resume the for(;;) */\r
- }\r
- fmt++;\r
- /* fill in the range */\r
- if (__collate_load_error) {\r
- do\r
- tab[++c] = (char)v;\r
- while (c < n);\r
- } else {\r
- for (i = 0; i < 256; i ++)\r
- if (__collate_range_cmp(c, i) < 0 &&\r
- __collate_range_cmp(i, n) <= 0)\r
- tab[i] = (char)v;\r
- }\r
-#if 1 /* XXX another disgusting compatibility hack */\r
- c = n;\r
- /*\r
- * Alas, the V7 Unix scanf also treats formats\r
- * such as [a-c-e] as `the letters a through e'.\r
- * This too is permitted by the standard....\r
- */\r
- goto doswitch;\r
-#else\r
- c = *fmt++;\r
- if (c == 0)\r
- return (fmt - 1);\r
- if (c == ']')\r
- return (fmt);\r
-#endif\r
-\r
- case ']': /* end of scanset */\r
- return (fmt);\r
-\r
- default: /* just another character */\r
- c = n;\r
- break;\r
- }\r
- }\r
- /* NOTREACHED */\r
-}\r
-\r
-#ifndef NO_FLOATING_POINT\r
-static int\r
-parsefloat(FILE *fp, char *buf, char *end)\r
-{\r
- char *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
- unsigned char c;\r
- char decpt = *localeconv()->decimal_point;\r
- _Bool gotmantdig = 0, ishex = 0;\r
-\r
- if(fp == NULL) {\r
- errno = EINVAL;\r
- return (EOF);\r
- }\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
- for (p = buf; p < end; ) {\r
- c = *fp->_p;\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 (!isalnum(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 && isxdigit(c)) || isdigit(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 && isxdigit(c)) || isdigit(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 (isdigit(c))\r
- commit = p;\r
- else\r
- goto parsedone;\r
- break;\r
- default:\r
- abort();\r
- }\r
- *p++ = c;\r
- if (--fp->_r > 0)\r
- fp->_p++;\r
- else if (__srefill(fp))\r
- break; /* EOF */\r
- }\r
-\r
-parsedone:\r
- while (commit < --p)\r
- (void)ungetc(*(u_char *)p, fp);\r
- *++commit = '\0';\r
- return (int)(commit - buf);\r
-}\r
-#endif\r