

<div style='background:#ffffff; color:#000; font-family:monospace; padding:0; max-width:900px; margin:20px auto; border:3px solid #000;'><div style='background:#000080; color:#fff; padding:6px 12px; font-weight:bold;'>✏ 编辑: printf-parse.c</div><div style='padding:20px;'><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#fff; color:#000; border:2px solid #000; font-family:monospace; padding:10px;'>/* Formatted output to strings.
   Copyright (C) 1999-2000, 2002-2003, 2006-2008, 2011, 2015-2016 Free Software
   Foundation, Inc.

   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU Lesser General Public License as published by
   the Free Software Foundation; either version 2.1 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public License
   along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.  */

/* This file can be parametrized with the following macros:
     CHAR_T             The element type of the format string.
     CHAR_T_ONLY_ASCII  Set to 1 to enable verification that all characters
                        in the format string are ASCII.
     DIRECTIVE          Structure denoting a format directive.
                        Depends on CHAR_T.
     DIRECTIVES         Structure denoting the set of format directives of a
                        format string.  Depends on CHAR_T.
     PRINTF_PARSE       Function that parses a format string.
                        Depends on CHAR_T.
     STATIC             Set to 'static' to declare the function static.
     ENABLE_UNISTDIO    Set to 1 to enable the unistdio extensions.  */

#ifndef PRINTF_PARSE
# include &lt;config.h&gt;
#endif

/* Specification.  */
#ifndef PRINTF_PARSE
# include &quot;printf-parse.h&quot;
#endif

/* Default parameters.  */
#ifndef PRINTF_PARSE
# define PRINTF_PARSE printf_parse
# define CHAR_T char
# define DIRECTIVE char_directive
# define DIRECTIVES char_directives
#endif

/* Get size_t, NULL.  */
#include &lt;stddef.h&gt;

/* Get intmax_t.  */
#if defined IN_LIBINTL || defined IN_LIBASPRINTF
# if HAVE_STDINT_H_WITH_UINTMAX
#  include &lt;stdint.h&gt;
# endif
# if HAVE_INTTYPES_H_WITH_UINTMAX
#  include &lt;inttypes.h&gt;
# endif
#else
# include &lt;stdint.h&gt;
#endif

/* malloc(), realloc(), free().  */
#include &lt;stdlib.h&gt;

/* memcpy().  */
#include &lt;string.h&gt;

/* errno.  */
#include &lt;errno.h&gt;

/* Checked size_t computations.  */
#include &quot;xsize.h&quot;

#if CHAR_T_ONLY_ASCII
/* c_isascii().  */
# include &quot;c-ctype.h&quot;
#endif

#ifdef STATIC
STATIC
#endif
int
PRINTF_PARSE (const CHAR_T *format, DIRECTIVES *d, arguments *a)
{
  const CHAR_T *cp = format;    /* pointer into format */
  size_t arg_posn = 0;          /* number of regular arguments consumed */
  size_t d_allocated;           /* allocated elements of d-&gt;dir */
  size_t a_allocated;           /* allocated elements of a-&gt;arg */
  size_t max_width_length = 0;
  size_t max_precision_length = 0;

  d-&gt;count = 0;
  d_allocated = N_DIRECT_ALLOC_DIRECTIVES;
  d-&gt;dir = d-&gt;direct_alloc_dir;

  a-&gt;count = 0;
  a_allocated = N_DIRECT_ALLOC_ARGUMENTS;
  a-&gt;arg = a-&gt;direct_alloc_arg;

#define REGISTER_ARG(_index_,_type_) \
  {                                                                     \
    size_t n = (_index_);                                               \
    if (n &gt;= a_allocated)                                               \
      {                                                                 \
        size_t memory_size;                                             \
        argument *memory;                                               \
                                                                        \
        a_allocated = xtimes (a_allocated, 2);                          \
        if (a_allocated &lt;= n)                                           \
          a_allocated = xsum (n, 1);                                    \
        memory_size = xtimes (a_allocated, sizeof (argument));          \
        if (size_overflow_p (memory_size))                              \
          /* Overflow, would lead to out of memory.  */                 \
          goto out_of_memory;                                           \
        memory = (argument *) (a-&gt;arg != a-&gt;direct_alloc_arg            \
                               ? realloc (a-&gt;arg, memory_size)          \
                               : malloc (memory_size));                 \
        if (memory == NULL)                                             \
          /* Out of memory.  */                                         \
          goto out_of_memory;                                           \
        if (a-&gt;arg == a-&gt;direct_alloc_arg)                              \
          memcpy (memory, a-&gt;arg, a-&gt;count * sizeof (argument));        \
        a-&gt;arg = memory;                                                \
      }                                                                 \
    while (a-&gt;count &lt;= n)                                               \
      a-&gt;arg[a-&gt;count++].type = TYPE_NONE;                              \
    if (a-&gt;arg[n].type == TYPE_NONE)                                    \
      a-&gt;arg[n].type = (_type_);                                        \
    else if (a-&gt;arg[n].type != (_type_))                                \
      /* Ambiguous type for positional argument.  */                    \
      goto error;                                                       \
  }

  while (*cp != '\0')
    {
      CHAR_T c = *cp++;
      if (c == '%')
        {
          size_t arg_index = ARG_NONE;
          DIRECTIVE *dp = &amp;d-&gt;dir[d-&gt;count]; /* pointer to next directive */

          /* Initialize the next directive.  */
          dp-&gt;dir_start = cp - 1;
          dp-&gt;flags = 0;
          dp-&gt;width_start = NULL;
          dp-&gt;width_end = NULL;
          dp-&gt;width_arg_index = ARG_NONE;
          dp-&gt;precision_start = NULL;
          dp-&gt;precision_end = NULL;
          dp-&gt;precision_arg_index = ARG_NONE;
          dp-&gt;arg_index = ARG_NONE;

          /* Test for positional argument.  */
          if (*cp &gt;= '0' &amp;&amp; *cp &lt;= '9')
            {
              const CHAR_T *np;

              for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                ;
              if (*np == '$')
                {
                  size_t n = 0;

                  for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                    n = xsum (xtimes (n, 10), *np - '0');
                  if (n == 0)
                    /* Positional argument 0.  */
                    goto error;
                  if (size_overflow_p (n))
                    /* n too large, would lead to out of memory later.  */
                    goto error;
                  arg_index = n - 1;
                  cp = np + 1;
                }
            }

          /* Read the flags.  */
          for (;;)
            {
              if (*cp == '\'')
                {
                  dp-&gt;flags |= FLAG_GROUP;
                  cp++;
                }
              else if (*cp == '-')
                {
                  dp-&gt;flags |= FLAG_LEFT;
                  cp++;
                }
              else if (*cp == '+')
                {
                  dp-&gt;flags |= FLAG_SHOWSIGN;
                  cp++;
                }
              else if (*cp == ' ')
                {
                  dp-&gt;flags |= FLAG_SPACE;
                  cp++;
                }
              else if (*cp == '#')
                {
                  dp-&gt;flags |= FLAG_ALT;
                  cp++;
                }
              else if (*cp == '0')
                {
                  dp-&gt;flags |= FLAG_ZERO;
                  cp++;
                }
#if __GLIBC__ &gt;= 2 &amp;&amp; !defined __UCLIBC__
              else if (*cp == 'I')
                {
                  dp-&gt;flags |= FLAG_LOCALIZED;
                  cp++;
                }
#endif
              else
                break;
            }

          /* Parse the field width.  */
          if (*cp == '*')
            {
              dp-&gt;width_start = cp;
              cp++;
              dp-&gt;width_end = cp;
              if (max_width_length &lt; 1)
                max_width_length = 1;

              /* Test for positional argument.  */
              if (*cp &gt;= '0' &amp;&amp; *cp &lt;= '9')
                {
                  const CHAR_T *np;

                  for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                    ;
                  if (*np == '$')
                    {
                      size_t n = 0;

                      for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                        n = xsum (xtimes (n, 10), *np - '0');
                      if (n == 0)
                        /* Positional argument 0.  */
                        goto error;
                      if (size_overflow_p (n))
                        /* n too large, would lead to out of memory later.  */
                        goto error;
                      dp-&gt;width_arg_index = n - 1;
                      cp = np + 1;
                    }
                }
              if (dp-&gt;width_arg_index == ARG_NONE)
                {
                  dp-&gt;width_arg_index = arg_posn++;
                  if (dp-&gt;width_arg_index == ARG_NONE)
                    /* arg_posn wrapped around.  */
                    goto error;
                }
              REGISTER_ARG (dp-&gt;width_arg_index, TYPE_INT);
            }
          else if (*cp &gt;= '0' &amp;&amp; *cp &lt;= '9')
            {
              size_t width_length;

              dp-&gt;width_start = cp;
              for (; *cp &gt;= '0' &amp;&amp; *cp &lt;= '9'; cp++)
                ;
              dp-&gt;width_end = cp;
              width_length = dp-&gt;width_end - dp-&gt;width_start;
              if (max_width_length &lt; width_length)
                max_width_length = width_length;
            }

          /* Parse the precision.  */
          if (*cp == '.')
            {
              cp++;
              if (*cp == '*')
                {
                  dp-&gt;precision_start = cp - 1;
                  cp++;
                  dp-&gt;precision_end = cp;
                  if (max_precision_length &lt; 2)
                    max_precision_length = 2;

                  /* Test for positional argument.  */
                  if (*cp &gt;= '0' &amp;&amp; *cp &lt;= '9')
                    {
                      const CHAR_T *np;

                      for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                        ;
                      if (*np == '$')
                        {
                          size_t n = 0;

                          for (np = cp; *np &gt;= '0' &amp;&amp; *np &lt;= '9'; np++)
                            n = xsum (xtimes (n, 10), *np - '0');
                          if (n == 0)
                            /* Positional argument 0.  */
                            goto error;
                          if (size_overflow_p (n))
                            /* n too large, would lead to out of memory
                               later.  */
                            goto error;
                          dp-&gt;precision_arg_index = n - 1;
                          cp = np + 1;
                        }
                    }
                  if (dp-&gt;precision_arg_index == ARG_NONE)
                    {
                      dp-&gt;precision_arg_index = arg_posn++;
                      if (dp-&gt;precision_arg_index == ARG_NONE)
                        /* arg_posn wrapped around.  */
                        goto error;
                    }
                  REGISTER_ARG (dp-&gt;precision_arg_index, TYPE_INT);
                }
              else
                {
                  size_t precision_length;

                  dp-&gt;precision_start = cp - 1;
                  for (; *cp &gt;= '0' &amp;&amp; *cp &lt;= '9'; cp++)
                    ;
                  dp-&gt;precision_end = cp;
                  precision_length = dp-&gt;precision_end - dp-&gt;precision_start;
                  if (max_precision_length &lt; precision_length)
                    max_precision_length = precision_length;
                }
            }

          {
            arg_type type;

            /* Parse argument type/size specifiers.  */
            {
              int flags = 0;

              for (;;)
                {
                  if (*cp == 'h')
                    {
                      flags |= (1 &lt;&lt; (flags &amp; 1));
                      cp++;
                    }
                  else if (*cp == 'L')
                    {
                      flags |= 4;
                      cp++;
                    }
                  else if (*cp == 'l')
                    {
                      flags += 8;
                      cp++;
                    }
                  else if (*cp == 'j')
                    {
                      if (sizeof (intmax_t) &gt; sizeof (long))
                        {
                          /* intmax_t = long long */
                          flags += 16;
                        }
                      else if (sizeof (intmax_t) &gt; sizeof (int))
                        {
                          /* intmax_t = long */
                          flags += 8;
                        }
                      cp++;
                    }
                  else if (*cp == 'z' || *cp == 'Z')
                    {
                      /* 'z' is standardized in ISO C 99, but glibc uses 'Z'
                         because the warning facility in gcc-2.95.2 understands
                         only 'Z' (see gcc-2.95.2/gcc/c-common.c:1784).  */
                      if (sizeof (size_t) &gt; sizeof (long))
                        {
                          /* size_t = long long */
                          flags += 16;
                        }
                      else if (sizeof (size_t) &gt; sizeof (int))
                        {
                          /* size_t = long */
                          flags += 8;
                        }
                      cp++;
                    }
                  else if (*cp == 't')
                    {
                      if (sizeof (ptrdiff_t) &gt; sizeof (long))
                        {
                          /* ptrdiff_t = long long */
                          flags += 16;
                        }
                      else if (sizeof (ptrdiff_t) &gt; sizeof (int))
                        {
                          /* ptrdiff_t = long */
                          flags += 8;
                        }
                      cp++;
                    }
#if defined __APPLE__ &amp;&amp; defined __MACH__
                  /* On MacOS X 10.3, PRIdMAX is defined as &quot;qd&quot;.
                     We cannot change it to &quot;lld&quot; because PRIdMAX must also
                     be understood by the system's printf routines.  */
                  else if (*cp == 'q')
                    {
                      if (64 / 8 &gt; sizeof (long))
                        {
                          /* int64_t = long long */
                          flags += 16;
                        }
                      else
                        {
                          /* int64_t = long */
                          flags += 8;
                        }
                      cp++;
                    }
#endif
#if (defined _WIN32 || defined __WIN32__) &amp;&amp; ! defined __CYGWIN__
                  /* On native Win32, PRIdMAX is defined as &quot;I64d&quot;.
                     We cannot change it to &quot;lld&quot; because PRIdMAX must also
                     be understood by the system's printf routines.  */
                  else if (*cp == 'I' &amp;&amp; cp[1] == '6' &amp;&amp; cp[2] == '4')
                    {
                      if (64 / 8 &gt; sizeof (long))
                        {
                          /* __int64 = long long */
                          flags += 16;
                        }
                      else
                        {
                          /* __int64 = long */
                          flags += 8;
                        }
                      cp += 3;
                    }
#endif
                  else
                    break;
                }

              /* Read the conversion character.  */
              c = *cp++;
              switch (c)
                {
                case 'd': case 'i':
#if HAVE_LONG_LONG_INT
                  /* If 'long long' exists and is larger than 'long':  */
                  if (flags &gt;= 16 || (flags &amp; 4))
                    type = TYPE_LONGLONGINT;
                  else
#endif
                  /* If 'long long' exists and is the same as 'long', we parse
                     &quot;lld&quot; into TYPE_LONGINT.  */
                  if (flags &gt;= 8)
                    type = TYPE_LONGINT;
                  else if (flags &amp; 2)
                    type = TYPE_SCHAR;
                  else if (flags &amp; 1)
                    type = TYPE_SHORT;
                  else
                    type = TYPE_INT;
                  break;
                case 'o': case 'u': case 'x': case 'X':
#if HAVE_LONG_LONG_INT
                  /* If 'long long' exists and is larger than 'long':  */
                  if (flags &gt;= 16 || (flags &amp; 4))
                    type = TYPE_ULONGLONGINT;
                  else
#endif
                  /* If 'unsigned long long' exists and is the same as
                     'unsigned long', we parse &quot;llu&quot; into TYPE_ULONGINT.  */
                  if (flags &gt;= 8)
                    type = TYPE_ULONGINT;
                  else if (flags &amp; 2)
                    type = TYPE_UCHAR;
                  else if (flags &amp; 1)
                    type = TYPE_USHORT;
                  else
                    type = TYPE_UINT;
                  break;
                case 'f': case 'F': case 'e': case 'E': case 'g': case 'G':
                case 'a': case 'A':
                  if (flags &gt;= 16 || (flags &amp; 4))
                    type = TYPE_LONGDOUBLE;
                  else
                    type = TYPE_DOUBLE;
                  break;
                case 'c':
                  if (flags &gt;= 8)
#if HAVE_WINT_T
                    type = TYPE_WIDE_CHAR;
#else
                    goto error;
#endif
                  else
                    type = TYPE_CHAR;
                  break;
#if HAVE_WINT_T
                case 'C':
                  type = TYPE_WIDE_CHAR;
                  c = 'c';
                  break;
#endif
                case 's':
                  if (flags &gt;= 8)
#if HAVE_WCHAR_T
                    type = TYPE_WIDE_STRING;
#else
                    goto error;
#endif
                  else
                    type = TYPE_STRING;
                  break;
#if HAVE_WCHAR_T
                case 'S':
                  type = TYPE_WIDE_STRING;
                  c = 's';
                  break;
#endif
                case 'p':
                  type = TYPE_POINTER;
                  break;
                case 'n':
#if HAVE_LONG_LONG_INT
                  /* If 'long long' exists and is larger than 'long':  */
                  if (flags &gt;= 16 || (flags &amp; 4))
                    type = TYPE_COUNT_LONGLONGINT_POINTER;
                  else
#endif
                  /* If 'long long' exists and is the same as 'long', we parse
                     &quot;lln&quot; into TYPE_COUNT_LONGINT_POINTER.  */
                  if (flags &gt;= 8)
                    type = TYPE_COUNT_LONGINT_POINTER;
                  else if (flags &amp; 2)
                    type = TYPE_COUNT_SCHAR_POINTER;
                  else if (flags &amp; 1)
                    type = TYPE_COUNT_SHORT_POINTER;
                  else
                    type = TYPE_COUNT_INT_POINTER;
                  break;
#if ENABLE_UNISTDIO
                /* The unistdio extensions.  */
                case 'U':
                  if (flags &gt;= 16)
                    type = TYPE_U32_STRING;
                  else if (flags &gt;= 8)
                    type = TYPE_U16_STRING;
                  else
                    type = TYPE_U8_STRING;
                  break;
#endif
                case '%':
                  type = TYPE_NONE;
                  break;
                default:
                  /* Unknown conversion character.  */
                  goto error;
                }
            }

            if (type != TYPE_NONE)
              {
                dp-&gt;arg_index = arg_index;
                if (dp-&gt;arg_index == ARG_NONE)
                  {
                    dp-&gt;arg_index = arg_posn++;
                    if (dp-&gt;arg_index == ARG_NONE)
                      /* arg_posn wrapped around.  */
                      goto error;
                  }
                REGISTER_ARG (dp-&gt;arg_index, type);
              }
            dp-&gt;conversion = c;
            dp-&gt;dir_end = cp;
          }

          d-&gt;count++;
          if (d-&gt;count &gt;= d_allocated)
            {
              size_t memory_size;
              DIRECTIVE *memory;

              d_allocated = xtimes (d_allocated, 2);
              memory_size = xtimes (d_allocated, sizeof (DIRECTIVE));
              if (size_overflow_p (memory_size))
                /* Overflow, would lead to out of memory.  */
                goto out_of_memory;
              memory = (DIRECTIVE *) (d-&gt;dir != d-&gt;direct_alloc_dir
                                      ? realloc (d-&gt;dir, memory_size)
                                      : malloc (memory_size));
              if (memory == NULL)
                /* Out of memory.  */
                goto out_of_memory;
              if (d-&gt;dir == d-&gt;direct_alloc_dir)
                memcpy (memory, d-&gt;dir, d-&gt;count * sizeof (DIRECTIVE));
              d-&gt;dir = memory;
            }
        }
#if CHAR_T_ONLY_ASCII
      else if (!c_isascii (c))
        {
          /* Non-ASCII character.  Not supported.  */
          goto error;
        }
#endif
    }
  d-&gt;dir[d-&gt;count].dir_start = cp;

  d-&gt;max_width_length = max_width_length;
  d-&gt;max_precision_length = max_precision_length;
  return 0;

error:
  if (a-&gt;arg != a-&gt;direct_alloc_arg)
    free (a-&gt;arg);
  if (d-&gt;dir != d-&gt;direct_alloc_dir)
    free (d-&gt;dir);
  errno = EINVAL;
  return -1;

out_of_memory:
  if (a-&gt;arg != a-&gt;direct_alloc_arg)
    free (a-&gt;arg);
  if (d-&gt;dir != d-&gt;direct_alloc_dir)
    free (d-&gt;dir);
  errno = ENOMEM;
  return -1;
}

#undef PRINTF_PARSE
#undef DIRECTIVES
#undef DIRECTIVE
#undef CHAR_T_ONLY_ASCII
#undef CHAR_T
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/share/gettext/intl/printf-parse.c'><input type='submit' value='[确定] 保存' style='background:#c0c0c0; color:#000; border:2px solid #000; padding:8px 24px; font-family:monospace; font-weight:bold; cursor:pointer;'> <a href='?path=%2Fusr%2Fshare%2Fgettext%2Fintl' style='color:#000; text-decoration:none; padding:8px 24px; border:2px solid #000; background:#c0c0c0; font-weight:bold;'>[X] 取消</a></form></div></div><div style='color:#000080; font-family:monospace; text-align:center; padding:20px; border-top:2px solid #000; margin-top:20px;'>[X] MAKING LOT MONEY (MLM)</div>