if (*_NL_CURRENT (LC_MONETARY, FRAC_DIGITS) == CHAR_MAX) right_prec = 2; else right_prec = *_NL_CURRENT (LC_MONETARY, FRAC_DIGITS);
{ if (*_NL_CURRENT (LC_MONETARY, FRAC_DIGITS) == CHAR_MAX) right_prec = 2; else right_prec = *_NL_CURRENT (LC_MONETARY, FRAC_DIGITS); }
strfmon (char *s, size_t maxsize, const char *format, ...)#elsessize_t__strfmon_l (char *s, size_t maxsize, __locale_t loc, const char *format, ...)#endif{#ifdef USE_IN_EXTENDED_LOCALE_MODEL  struct locale_data *current = loc->__locales[LC_MONETARY];#endif#ifdef USE_IN_LIBIO  _IO_strfile f;#else  FILE f;#endif  struct printf_info info;  va_list ap;			/* Scan through the varargs.  */  char *dest;			/* Pointer so copy the output.  */  const char *fmt;		/* Pointer that walks through format.  */  va_start (ap, format);  dest = s;  fmt = format;  /* Loop through the format-string.  */  while (*fmt != '\0')    {      /* The floating-point value to output.  */      union      {	double dbl;	__long_double_t ldbl;      }      fpnum;      int print_curr_symbol;      int left_prec;      int right_prec;      int group;      char pad;      int is_long_double;      int p_sign_posn;      int n_sign_posn;      int sign_posn;      int left;      int is_negative;      int sep_by_space;      int cs_precedes;      char sign_char;      int done;      const char *currency_symbol;      int width;      char *startp;      const void *ptr;      /* Process all character which do not introduce a format	 specification.  */      if (*fmt != '%')	{	  out_char (*fmt++);	  continue;	}      /* "%%" means a single '%' character.  */      if (fmt[1] == '%')	{	  out_char (*++fmt);	  ++fmt;	  continue;	}      /* Defaults for formatting.  */      print_curr_symbol = 1;		/* Print the currency symbol.  */      left_prec = -1;			/* No left precision specified.  */      right_prec = -1;			/* No right precision specified.  */      group = 1;			/* Print digits grouped.  */      pad = ' ';			/* Fill character is <SP>.  */      is_long_double = 0;		/* Double argument by default.  */      p_sign_posn = -1;			/* This indicates whether the */      n_sign_posn = -1;			/* '(' flag is given.  */      width = -1;			/* No width specified so far.  */      left = 0;				/* Right justified by default.  */      /* Parse group characters.  */      while (1)	{	  switch (*++fmt)	    {	    case '=':			/* Set fill character.  */	      pad = *++fmt;	      if (pad == '\0')		{		  /* Premature EOS.  */		  __set_errno (EINVAL);		  va_end (ap);		  return -1;		}	      continue;	    case '^':			/* Don't group digits.  */	      group = 0;	      continue;	    case '+':			/* Use +/- for sign of number.  */	      if (n_sign_posn != -1)		{		  __set_errno (EINVAL);		  va_end (ap);		  return -1;		}	      if (*_NL_CURRENT (LC_MONETARY, P_SIGN_POSN) == '\0')		p_sign_posn = 1;	      else		p_sign_posn = *_NL_CURRENT (LC_MONETARY, P_SIGN_POSN);	      if (*_NL_CURRENT (LC_MONETARY, N_SIGN_POSN) == '\0')		n_sign_posn = 1;	      else		n_sign_posn = *_NL_CURRENT (LC_MONETARY, N_SIGN_POSN);	      continue;	    case '(':			/* Use ( ) for negative sign.  */	      if (n_sign_posn != -1)		{		  __set_errno (EINVAL);		  va_end (ap);		  return -1;		}	      p_sign_posn = 0;	      n_sign_posn = 0;	      continue;	    case '!':			/* Don't print the currency symbol.  */	      print_curr_symbol = 0;	      continue;	    case '-':			/* Print left justified.  */	      left = 1;	      continue;	    default:	      /* Will stop the loop.  */;	    }	  break;	}      /* If not specified by the format string now find the values for	 the format specification.  */      if (p_sign_posn == -1)	p_sign_posn = *_NL_CURRENT (LC_MONETARY, P_SIGN_POSN);      if (n_sign_posn == -1)	n_sign_posn = *_NL_CURRENT (LC_MONETARY, N_SIGN_POSN);      if (isdigit (*fmt))	{	  /* Parse field width.  */	  width = to_digit (*fmt);	  while (isdigit (*++fmt))	    {	      width *= 10;	      width += to_digit (*fmt);	    }	  /* If we don't have enough room for the demanded width we	     can stop now and return an error.  */	  if (dest + width >= s + maxsize)	    {	      __set_errno (E2BIG);	      va_end (ap);	      return -1;	    }	}      /* Recognize left precision.  */      if (*fmt == '#')	{	  if (!isdigit (*++fmt))	    {	      __set_errno (EINVAL);	      va_end (ap);	      return -1;	    }	  left_prec = to_digit (*fmt);	  while (isdigit (*++fmt))	    {	      left_prec *= 10;	      left_prec += to_digit (*fmt);	    }	}      /* Recognize right precision.  */      if (*fmt == '.')	{	  if (!isdigit (*++fmt))	    {	      __set_errno (EINVAL);	      va_end (ap);	      return -1;	    }	  right_prec = to_digit (*fmt);	  while (isdigit (*++fmt))	    {	      right_prec *= 10;	      right_prec += to_digit (*fmt);	    }	}      /* Handle modifier.  This is an extension.  */      if (*fmt == 'L')	{	  ++fmt;	  is_long_double = 1;	}      /* Handle format specifier.  */      switch (*fmt++)	{	case 'i':		/* Use international currency symbol.  */	  currency_symbol = _NL_CURRENT (LC_MONETARY, INT_CURR_SYMBOL);	  if (right_prec == -1)	    if (*_NL_CURRENT (LC_MONETARY, INT_FRAC_DIGITS) == CHAR_MAX)	      right_prec = 2;	    else	      right_prec = *_NL_CURRENT (LC_MONETARY, INT_FRAC_DIGITS);	  break;	case 'n':		/* Use national currency symbol.  */	  currency_symbol = _NL_CURRENT (LC_MONETARY, CURRENCY_SYMBOL);	  if (right_prec == -1)	    if (*_NL_CURRENT (LC_MONETARY, FRAC_DIGITS) == CHAR_MAX)	      right_prec = 2;	    else	      right_prec = *_NL_CURRENT (LC_MONETARY, FRAC_DIGITS);	  break;	default:		/* Any unrecognized format is an error.  */	  __set_errno (EINVAL);	  va_end (ap);	  return -1;	}      /* If we have to print the digits grouped determine how many	 extra characters this means.  */      if (group && left_prec != -1)	left_prec += __guess_grouping (left_prec,				       _NL_CURRENT (LC_MONETARY, MON_GROUPING),				       *_NL_CURRENT (LC_MONETARY,						     MON_THOUSANDS_SEP));      /* Now it's time to get the value.  */      if (is_long_double == 1)	{	  fpnum.ldbl = va_arg (ap, long double);	  is_negative = fpnum.ldbl < 0;	  if (is_negative)	    fpnum.ldbl = -fpnum.ldbl;	}      else	{	  fpnum.dbl = va_arg (ap, double);	  is_negative = fpnum.dbl < 0;	  if (is_negative)	    fpnum.dbl = -fpnum.dbl;	}      /* We now know the sign of the value and can determine the format.  */      if (is_negative)	{	  sign_char = *_NL_CURRENT (LC_MONETARY, NEGATIVE_SIGN);	  /* If the locale does not specify a character for the	     negative sign we use a '-'.  */	  if (sign_char == '\0')	    sign_char = '-';	  cs_precedes = *_NL_CURRENT (LC_MONETARY, N_CS_PRECEDES);	  sep_by_space = *_NL_CURRENT (LC_MONETARY, N_SEP_BY_SPACE);	  sign_posn = n_sign_posn;	}      else	{	  sign_char = *_NL_CURRENT (LC_MONETARY, POSITIVE_SIGN);	  /* If the locale does not specify a character for the	     positive sign we use a <SP>.  */	  if (sign_char == '\0')	    sign_char = ' ';	  cs_precedes = *_NL_CURRENT (LC_MONETARY, P_CS_PRECEDES);	  sep_by_space = *_NL_CURRENT (LC_MONETARY, P_SEP_BY_SPACE);	  sign_posn = p_sign_posn;	}      /* Set default values for unspecified information.  */      if (cs_precedes != 0)	cs_precedes = 1;      if (sep_by_space == 127)	sep_by_space = 0;      if (left_prec == -1)	left_prec = 0;      /* Perhaps we'll someday make these things configurable so	 better start using symbolic names now.  */#define left_paren '('#define right_paren ')'      startp = dest;		/* Remember start so we can compute length.  */      if (sign_posn == 0)	out_char (is_negative ? left_paren : ' ');      if (cs_precedes)	{	  if (sign_posn != 0 && sign_posn != 2 && sign_posn != 4	      && sign_posn != 5)	    {	      out_char (sign_char);	      if (sep_by_space == 2)		out_char (' ');	    }	  if (print_curr_symbol)	    {	      out_string (currency_symbol);	      if (sign_posn == 4)		{		  if (sep_by_space == 2)		    out_char (' ');		  out_char (sign_char);		}	      else		if (sep_by_space == 1)		  out_char (' ');	    }	}      else	if (sign_posn != 0 && sign_posn != 2 && sign_posn != 3	    && sign_posn != 4 && sign_posn != 5)	  out_char (sign_char);      /* Print the number.  */#ifdef USE_IN_LIBIO      _IO_init ((_IO_FILE *) &f, 0);      _IO_JUMPS ((_IO_FILE *) &f) = &_IO_str_jumps;      _IO_str_init_static ((_IO_FILE *) &f, dest, (s + maxsize) - dest, dest);#else      memset((void *) &f, 0, sizeof(f));      f.__magic = _IOMAGIC;      f.__mode.__write = 1;      /* The buffer size is one less than MAXLEN	 so we have space for the null terminator.  */      f.__bufp = f.__buffer = (char *) dest;      f.__bufsize = (s + maxsize) - dest;      f.__put_limit = f.__buffer + f.__bufsize;      f.__get_limit = f.__buffer;      /* After the buffer is full (MAXLEN characters have been written),	 any more characters written will go to the bit bucket.  */      f.__room_funcs = __default_room_functions;      f.__io_funcs.__write = NULL;      f.__seen = 1;#endif      /* We clear the last available byte so we can find out whether	 the numeric representation is too long.  */      s[maxsize - 1] = '\0';      info.prec = right_prec;      info.width = left_prec + (right_prec ? (right_prec + 1) : 0);      info.spec = 'f';      info.is_long_double = is_long_double;      info.is_short = 0;      info.is_long = 0;      info.alt = 0;      info.space = 0;      info.left = left;      info.showsign = 0;      info.group = group;      info.pad = pad;      info.extra = 1;		/* This means use values from LC_MONETARY.  */      ptr = &fpnum;      done = __printf_fp ((FILE *) &f, &info, &ptr);      if (done < 0)	{	  va_end (ap);	  return -1;	}      if (s[maxsize - 1] != '\0')	return -1;      dest += done;      if (!cs_precedes)	{	  if (sign_posn == 3)	    {	      if (sep_by_space == 1)		out_char (' ');	      out_char (sign_char);	    }	  if (print_curr_symbol)	    {	      if (sign_posn == 3 && sep_by_space == 2)		out_char (' ');	      out_string (currency_symbol);	    }	}      else	if (sign_posn == 2)	  {	    if (sep_by_space == 2)	      out_char (' ');	    out_char (sign_char);	  }      if (sign_posn == 0)	out_char (is_negative ? right_paren : ' ');      /* Now test whether the output width is filled.  */      if (dest - startp < width)	if (left)	  /* We simply have to fill using spaces.  */	  do	    out_char (' ');	  while (dest - startp < width);	else	  {	    int dist = width - (dest - startp);	    char *cp;	    for (cp = dest - 1; cp >= startp; --cp)	      cp[dist] = cp[0];	    dest += dist;	    do	      startp[--dist] = ' ';	    while (dist > 0);	  }    }  /* Terminate the string.  */  out_char ('\0');  va_end (ap);  return dest - s - 1;}