/* Copyright (C) 1991-2018 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

   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.

   The GNU C Library 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 the GNU C Library; if not, see

   <http://www.gnu.org/licenses/>.  */

#include <stdio.h>

#include <printf.h>

#include <stdlib.h>

#include <string.h>

#include <wchar.h>

#include <sys/param.h>

#include "../locale/localeinfo.h"

#ifndef COMPILE_WPRINTF

# define CHAR_T		char

# define UCHAR_T	unsigned char

# define INT_T		int

# define L_(Str)	Str

# define ISDIGIT(Ch)	isdigit (Ch)

# define ISASCII(Ch)	isascii (Ch)

# define MBRLEN(Cp, L, St) __mbrlen (Cp, L, St)

# define PUT(F, S, N)	_IO_sputn (F, S, N)

# define PAD(Padchar)							      \

  if (width > 0)							      \

    done += _IO_padn (s, Padchar, width)

#else

# define vfprintf	vfwprintf

# define CHAR_T		wchar_t

# define UCHAR_T	uwchar_t

# define INT_T		wint_t

# define L_(Str)	L##Str

# define ISDIGIT(Ch)	iswdigit (Ch)

# define PUT(F, S, N)	_IO_sputn (F, S, N)

# define PAD(Padchar)							      \

  if (width > 0)							      \

    done += _IO_wpadn (s, Padchar, width)

#endif

#define DONT_NEED_READ_INT

#include "printf-parse.h"

size_t

parse_printf_format (const char *fmt, size_t n, int *argtypes)

{

  size_t nargs;			/* Number of arguments.  */

  size_t max_ref_arg;		/* Highest index used in a positional arg.  */

  struct printf_spec spec;

  const unsigned char *f = (const unsigned char *) fmt;

  nargs = 0;

  max_ref_arg = 0;

  /* Search for format specifications.  */

  for (f = __find_specmb (f); *f != '\0'; f = spec.next_fmt)

    {

      /* Parse this spec.  */

      nargs += __parse_one_specmb (f, nargs, &spec, &max_ref_arg);

      /* If the width is determined by an argument this is an int.  */

      if (spec.width_arg != -1 && (size_t) spec.width_arg < n)

	argtypes[spec.width_arg] = PA_INT;

      /* If the precision is determined by an argument this is an int.  */

      if (spec.prec_arg != -1 && (size_t) spec.prec_arg < n)

	argtypes[spec.prec_arg] = PA_INT;

      if ((size_t) spec.data_arg < n)

	switch (spec.ndata_args)

	  {

	  case 0:		/* No arguments.  */

	    break;

	  case 1:		/* One argument; we already have the type.  */

	    argtypes[spec.data_arg] = spec.data_arg_type;

	    break;

	  default:

	    /* We have more than one argument for this format spec.  We must

               call the arginfo function again to determine all the types.  */

	    (void) (*__printf_arginfo_table[spec.info.spec])

	      (&spec.info, n - spec.data_arg, &argtypes[spec.data_arg],

	       &spec.size);

	    break;

	  }

    }

  return MAX (nargs, max_ref_arg);

}