-/* Copyright (C) 1991-2006, 2007 Free Software Foundation, Inc.
+/* Copyright (C) 1991-2002, 2003, 2004 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
if (done == 0) done = EOF; \
goto errout; \
} while (0)
+#define memory_error() do { \
+ __set_errno (ENOMEM); \
+ done = EOF; \
+ goto errout; \
+ } while (0)
#define ARGCHECK(s, format) \
do \
{ \
Return the number of assignments made, or -1 for an input error. */
#ifdef COMPILE_WSCANF
int
-_IO_vfwscanf (_IO_FILE *s, const wchar_t *format, _IO_va_list argptr,
- int *errp)
+_IO_vfwscanf (s, format, argptr, errp)
+ _IO_FILE *s;
+ const wchar_t *format;
+ _IO_va_list argptr;
+ int *errp;
#else
int
-_IO_vfscanf_internal (_IO_FILE *s, const char *format, _IO_va_list argptr,
- int *errp)
+_IO_vfscanf (s, format, argptr, errp)
+ _IO_FILE *s;
+ const char *format;
+ _IO_va_list argptr;
+ int *errp;
#endif
{
va_list arg;
do
{
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
else if (c != (unsigned char) *f++)
{
c = inchar ();
/* Characters other than format specs must just match. */
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
/* We saw white space char as the last character in the format
if (skip_space)
{
while (ISSPACE (c))
- if (__builtin_expect (inchar () == EOF, 0))
+ if (inchar () == EOF)
input_error ();
skip_space = 0;
}
- if (__builtin_expect (c != fc, 0))
+ if (c != fc)
{
ungetc (c, s);
conv_error ();
}
/* End of the format string? */
- if (__builtin_expect (*f == L_('\0'), 0))
+ if (*f == L_('\0'))
conv_error ();
/* Find the conversion specifier. */
int save_errno = errno;
errno = 0;
do
- if (__builtin_expect (inchar () == EOF && errno == EINTR, 0))
+ if (inchar () == EOF && errno == EINTR)
input_error ();
while (ISSPACE (c));
errno = save_errno;
{
case L_('%'): /* Must match a literal '%'. */
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
- if (__builtin_expect (c != fc, 0))
+ if (c != fc)
{
ungetc_not_eof (c, s);
conv_error ();
}
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
if (width == -1)
size_t n;
n = __wcrtomb (!(flags & SUPPRESS) ? str : NULL, c, &state);
- if (__builtin_expect (n == (size_t) -1, 0))
+ if (n == (size_t) -1)
/* No valid wide character. */
input_error ();
}
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
#ifdef COMPILE_WSCANF
{
/* Possibly correct character, just not enough
input. */
- if (__builtin_expect (inchar () == EOF, 0))
+ if (inchar () == EOF)
encode_error ();
buf[0] = c;
continue;
}
- if (__builtin_expect (n != 1, 0))
+ if (n != 1)
encode_error ();
/* We have a match. */
STRING_ARG (str, char);
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
#ifdef COMPILE_WSCANF
n = __wcrtomb (!(flags & SUPPRESS) ? str : NULL, c,
&state);
- if (__builtin_expect (n == (size_t) -1, 0))
+ if (n == (size_t) -1)
encode_error ();
assert (n <= MB_CUR_MAX);
STRING_ARG (wstr, wchar_t);
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
#ifndef COMPILE_WSCANF
{
/* Possibly correct character, just not enough
input. */
- if (__builtin_expect (inchar () == EOF, 0))
+ if (inchar () == EOF)
encode_error ();
buf[0] = c;
continue;
}
- if (__builtin_expect (n != 1, 0))
+ if (n != 1)
encode_error ();
/* We have a match. */
number:
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
/* Check for a sign. */
if (base == 0)
base = 10;
- if (base == 10 && __builtin_expect ((flags & I18N) != 0, 0))
+ if (base == 10 && (flags & I18N) != 0)
{
int from_level;
int to_level;
{
/* There was no number. If we are supposed to read a pointer
we must recognize "(nil)" as well. */
- if (__builtin_expect (wpsize == 0
- && read_pointer
- && (width < 0 || width >= 0)
- && c == '('
- && TOLOWER (inchar ()) == L_('n')
- && TOLOWER (inchar ()) == L_('i')
- && TOLOWER (inchar ()) == L_('l')
- && inchar () == L_(')'), 1))
+ if (wpsize == 0 && read_pointer && (width < 0 || width >= 0)
+ && c == '('
+ && TOLOWER (inchar ()) == L_('n')
+ && TOLOWER (inchar ()) == L_('i')
+ && TOLOWER (inchar ()) == L_('l')
+ && inchar () == L_(')'))
/* We must produce the value of a NULL pointer. A single
'0' digit is enough. */
ADDW (L_('0'));
else
num.ul = __strtoul_internal (wp, &tw, base, flags & GROUP);
}
- if (__builtin_expect (wp == tw, 0))
+ if (wp == tw)
conv_error ();
if (!(flags & SUPPRESS))
case L_('a'):
case L_('A'):
c = inchar ();
- if (__builtin_expect (c == EOF, 0))
+ if (c == EOF)
input_error ();
- got_dot = got_e = 0;
-
/* Check for a sign. */
if (c == L_('-') || c == L_('+'))
{
negative = c == L_('-');
- if (__builtin_expect (width == 0 || inchar () == EOF, 0))
+ if (width == 0 || inchar () == EOF)
/* EOF is only an input error before we read any chars. */
conv_error ();
if (! ISDIGIT (c) && TOLOWER (c) != L_('i')
&& TOLOWER (c) != L_('n'))
{
#ifdef COMPILE_WSCANF
- if (__builtin_expect (c != decimal, 0))
+ if (c != decimal)
{
/* This is no valid number. */
ungetc (c, s);
const char *cmpp = decimal;
int avail = width > 0 ? width : INT_MAX;
- while ((unsigned char) *cmpp == c && avail-- > 0)
+ while ((unsigned char) *cmpp == c && avail > 0)
if (*++cmpp == '\0')
break;
else
{
if (inchar () == EOF)
break;
+ --avail;
}
- if (__builtin_expect (*cmpp != '\0', 0))
+ if (*cmpp != '\0')
{
/* This is no valid number. */
while (1)
conv_error ();
}
- else
- {
- /* Add all the characters. */
- for (cmpp = decimal; *cmpp != '\0'; ++cmpp)
- ADDW ((unsigned char) *cmpp);
- if (width > 0)
- width = avail;
- got_dot = 1;
-
- c = inchar ();
- }
if (width > 0)
width = avail;
#endif
{
/* Maybe "nan". */
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('a'), 0))
+ if (width == 0 || inchar () == EOF || TOLOWER (c) != L_('a'))
conv_error ();
if (width > 0)
--width;
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('n'), 0))
+ if (width == 0 || inchar () == EOF || TOLOWER (c) != L_('n'))
conv_error ();
if (width > 0)
--width;
{
/* Maybe "inf" or "infinity". */
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('n'), 0))
+ if (width == 0 || inchar () == EOF || TOLOWER (c) != L_('n'))
conv_error ();
if (width > 0)
--width;
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('f'), 0))
+ if (width == 0 || inchar () == EOF || TOLOWER (c) != L_('f'))
conv_error ();
if (width > 0)
--width;
--width;
/* Now we have to read the rest as well. */
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('n'), 0))
+ if (width == 0 || inchar () == EOF
+ || TOLOWER (c) != L_('n'))
conv_error ();
if (width > 0)
--width;
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('i'), 0))
+ if (width == 0 || inchar () == EOF
+ || TOLOWER (c) != L_('i'))
conv_error ();
if (width > 0)
--width;
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('t'), 0))
+ if (width == 0 || inchar () == EOF
+ || TOLOWER (c) != L_('t'))
conv_error ();
if (width > 0)
--width;
ADDW (c);
- if (__builtin_expect (width == 0
- || inchar () == EOF
- || TOLOWER (c) != L_('y'), 0))
+ if (width == 0 || inchar () == EOF
+ || TOLOWER (c) != L_('y'))
conv_error ();
if (width > 0)
--width;
}
}
+ got_dot = got_e = 0;
do
{
if (ISDIGIT (c))
/* Have we read any character? If we try to read a number
in hexadecimal notation and we have read only the `0x'
- prefix this is an error. */
- if (__builtin_expect (wpsize == 0 || (is_hexa && wpsize == 2), 0))
+ prefix or no exponent this is an error. */
+ if (wpsize == 0 || (is_hexa && (wpsize == 2 || ! got_e)))
conv_error ();
scan_float:
/* Convert the number. */
ADDW (L_('\0'));
- if ((flags & LONGDBL) && !__ldbl_is_dbl)
+ if (flags & LONGDBL)
{
long double d = __strtold_internal (wp, &tw, flags & GROUP);
if (!(flags & SUPPRESS) && tw != wp)
*ARG (long double *) = negative ? -d : d;
}
- else if (flags & (LONG | LONGDBL))
+ else if (flags & LONG)
{
double d = __strtod_internal (wp, &tw, flags & GROUP);
if (!(flags & SUPPRESS) && tw != wp)
*ARG (float *) = negative ? -d : d;
}
- if (__builtin_expect (tw == wp, 0))
+ if (tw == wp)
conv_error ();
if (!(flags & SUPPRESS))
while ((fc = *f++) != L'\0' && fc != L']');
- if (__builtin_expect (fc == L'\0', 0))
+ if (fc == L'\0')
conv_error ();
wp = (wchar_t *) f - 1;
#else
/* Add the character to the flag map. */
wp[fc] = 1;
- if (__builtin_expect (fc == '\0', 0))
+ if (fc == '\0')
conv_error();
#endif
{
size_t now = read_in;
#ifdef COMPILE_WSCANF
- if (__builtin_expect (inchar () == WEOF, 0))
+ if (inchar () == WEOF)
input_error ();
do
size_t cnt = 0;
mbstate_t cstate;
- if (__builtin_expect (inchar () == EOF, 0))
+ if (inchar () == EOF)
input_error ();
memset (&cstate, '\0', sizeof (cstate));
}
while (inchar () != EOF);
- if (__builtin_expect (cnt != 0, 0))
+ if (cnt != 0)
/* We stopped in the middle of recognizing another
character. That's a problem. */
encode_error ();
#endif
- if (__builtin_expect (now == read_in, 0))
+ if (now == read_in)
/* We haven't succesfully read any character. */
conv_error ();
{
size_t now = read_in;
- if (__builtin_expect (inchar () == EOF, 0))
+ if (inchar () == EOF)
input_error ();
#ifdef COMPILE_WSCANF
}
n = __wcrtomb (!(flags & SUPPRESS) ? str : NULL, c, &state);
- if (__builtin_expect (n == (size_t) -1, 0))
+ if (n == (size_t) -1)
encode_error ();
assert (n <= MB_CUR_MAX);
while (--width > 0 && inchar () != EOF);
#endif
- if (__builtin_expect (now == read_in, 0))
+ if (now == read_in)
/* We haven't succesfully read any character. */
conv_error ();
{
return _IO_vfwscanf (s, format, argptr, NULL);
}
-ldbl_weak_alias (__vfwscanf, vfwscanf)
#else
int
-___vfscanf (FILE *s, const char *format, va_list argptr)
+__vfscanf (FILE *s, const char *format, va_list argptr)
{
- return _IO_vfscanf_internal (s, format, argptr, NULL);
+ return INTUSE(_IO_vfscanf) (s, format, argptr, NULL);
}
-ldbl_strong_alias (_IO_vfscanf_internal, _IO_vfscanf)
-ldbl_strong_alias (___vfscanf, __vfscanf)
-ldbl_hidden_def (___vfscanf, __vfscanf)
-ldbl_weak_alias (___vfscanf, vfscanf)
+libc_hidden_def (__vfscanf)
+#endif
+
+#ifdef COMPILE_WSCANF
+weak_alias (__vfwscanf, vfwscanf)
+#else
+weak_alias (__vfscanf, vfscanf)
+INTDEF(_IO_vfscanf)
#endif
projects / thirdparty / glibc.git / blobdiff