glibc/stdlib/strtod.c

100 # define L_(Ch) L##Ch
119 # define L_(Ch) Ch
364       low = low * 10 + *str++ - L_('0');
554   if (c == L_('-'))
559   else if (c == L_('+'))
580   else if (c < L_('0') || c > L_('9'))
583       if (TOLOWER (c) == L_('i') && STRNCASECMP (cp, L_("inf"), 3) == 0)
588 		      (cp + (STRNCASECMP (cp + 3, L_("inity"), 5) == 0
594       if (TOLOWER (c) == L_('n') && STRNCASECMP (cp, L_("nan"), 3) == 0)
602 	  if (*cp == L_('('))
607 	      while ((*cp >= L_('0') && *cp <= L_('9'))
608 		     || (TOLOWER (*cp) >= L_('a') && TOLOWER (*cp) <= L_('z'))
609 		     || *cp == L_('_'));
611 	      if (*cp != L_(')'))
641   if (c == L_('0') && TOLOWER (cp[1]) == L_('x'))
683   if (!((c >= L_('0') && c <= L_('9'))
684 	|| (base == 16 && ((CHAR_TYPE) TOLOWER (c) >= L_('a')
685 			   && (CHAR_TYPE) TOLOWER (c) <= L_('f')))
700 		|| (cp[decimal_len] >= L_('0') && cp[decimal_len] <= L_('9'))
701 		|| ((CHAR_TYPE) TOLOWER (cp[decimal_len]) >= L_('a')
702 		    && (CHAR_TYPE) TOLOWER (cp[decimal_len]) <= L_('f'))))
704 			   && (CHAR_TYPE) TOLOWER (c) == L_('p')))
705 	|| (base != 16 && (CHAR_TYPE) TOLOWER (c) == L_('e'))))
719       if ((c >= L_('0') && c <= L_('9'))
720 	  || (base == 16 && TOLOWER (c) >= L_('a') && TOLOWER (c) <= L_('f')))
766 	    if (*tp >= L_('0') && *tp <= L_('9'))
796       while ((c >= L_('0') && c <= L_('9')) ||
797 	     (base == 16 && TOLOWER (c) >= L_('a') && TOLOWER (c) <= L_('f')))
799 	  if (c != L_('0') && lead_zero == -1)
810   if ((base == 16 && TOLOWER (c) == L_('p'))
811       || (base != 16 && TOLOWER (c) == L_('e')))
816       if (c == L_('-'))
821       else if (c == L_('+'))
824       if (c >= L_('0') && c <= L_('9'))
864 		  while (*cp >= L_('0') && *cp <= L_('9'));
870 	      exponent += c - L_('0');
873 	  while (c >= L_('0') && c <= L_('9'));
885       while (expp[-1] == L_('0'))
896 	while (expp[-1] < L_('0') || expp[-1] > L_('9'))
899 	if (expp[-1] != L_('0'))
954       while (*startp == L_('0'))
957 	val = *startp++ - L_('0');
959 	val = 10 + TOLOWER (*startp++) - L_('a');
988 	    val = *startp++ - L_('0');
990 	    val = 10 + TOLOWER (*startp++) - L_('a');