/*
   This file is part of GNUnet.
   Copyright (C) 2001, 2002, 2004, 2005, 2006, 2007, 2009 GNUnet e.V.

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

   GNUnet 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
   Affero General Public License for more details.

   You should have received a copy of the GNU Affero General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.

     SPDX-License-Identifier: AGPL3.0-or-later
 */

/**
 * @file auction/gnunet-auction-create.c
 * @brief tool to create a new auction
 * @author Markus Teich
 */
#include "platform.h"

#include <float.h>

#include "gnunet_util_lib.h"
#include <jansson.h>
/* #include "gnunet_auction_service.h" */

#define FIRST_PRICE 0
#define OUTCOME_PRIVATE 0
#define OUTCOME_PUBLIC 1

static int ret; /** Final status code. */
static char *fndesc; /** filename of the item description */
static char *fnprices; /** filename of the price map */
static struct GNUNET_TIME_Relative dround; /** max round duration */
static struct GNUNET_TIME_Relative dstart; /** time until auction starts */
static unsigned int m = FIRST_PRICE; /** auction parameter m */
static int outcome = OUTCOME_PRIVATE; /** outcome */
static int interactive; /** keep running in foreground */


/**
 * Main function that will be run by the scheduler.
 *
 * @param cls closure
 * @param args remaining command-line arguments
 * @param cfgfile name of the configuration file used (for saving, can be NULL!)
 * @param cfg configuration
 */
static void
run (void *cls,
     char *const *args,
     const char *cfgfile,
     const struct GNUNET_CONFIGURATION_Handle *cfg)
{
  unsigned int i;
  double cur, prev = DBL_MAX;
  json_t *pmap;
  json_t *parray;
  json_t *pnode;
  json_error_t jerr;

  /* cmdline parsing */
  if (GNUNET_TIME_UNIT_ZERO.rel_value_us == dstart.rel_value_us)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "required argument --regtime missing or invalid (zero)\n");
    goto fail;
  }
  if (GNUNET_TIME_UNIT_ZERO.rel_value_us == dround.rel_value_us)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "required argument --roundtime missing or invalid (zero)\n");
    goto fail;
  }
  if (! fndesc)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "required argument --description missing\n");
    goto fail;
  }
  if (! fnprices)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "required argument --pricemap missing\n");
    goto fail;
  }

  /* parse and check pricemap validity */
  if (! (pmap = json_load_file (fnprices, JSON_DECODE_INT_AS_REAL, &jerr)))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "parsing pricemap json at %d:%d: %s\n",
                jerr.line, jerr.column, jerr.text);
    goto fail;
  }
  if (-1 == json_unpack_ex (pmap, &jerr, JSON_VALIDATE_ONLY,
                            "{s:s, s:[]}", "currency", "prices"))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "validating pricemap: %s\n", jerr.text);
    goto fail;
  }
  if (! (parray = json_object_get (pmap, "prices")) || ! json_is_array (parray))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "could not get `prices` array node from pricemap\n");
    goto fail;
  }
  if (0 == json_array_size (parray))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "empty pricemap array\n");
    goto fail;
  }
  json_array_foreach (parray, i, pnode)
  {
    if (-1 == json_unpack_ex (pnode, &jerr, 0, "F", &cur))
    {
      GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                  "validating pricearray index %d: %s\n", i, jerr.text);
      goto fail;
    }
    if (prev <= cur)
    {
      GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                  "validating pricearray index %d: "
                  "prices must be strictly monotonically decreasing\n",
                  i);
      goto fail;
    }
    prev = cur;
  }

  return;

fail:
  ret = 1;
  return;
}


/**
 * The main function.
 *
 * @param argc number of arguments from the command line
 * @param argv command line arguments
 * @return 0 ok, 1 on error
 */
int
main (int argc, char *const *argv)
{
  struct GNUNET_GETOPT_CommandLineOption options[] = {
    GNUNET_GETOPT_option_filename ('d',
                                   "description",
                                   "FILE",
                                   gettext_noop (
                                     "description of the item to be sold"),
                                   &fndesc),

    GNUNET_GETOPT_option_filename ('p',
                                   "pricemap",
                                   "FILE",
                                   gettext_noop ("mapping of possible prices"),
                                   &fnprices),

    GNUNET_GETOPT_option_relative_time ('r',
                                        "roundtime",
                                        "DURATION",
                                        gettext_noop ("max duration per round"),
                                        &dround),

    GNUNET_GETOPT_option_relative_time ('s',
                                        "regtime",
                                        "DURATION",
                                        gettext_noop (
                                          "duration until auction starts"),
                                        &dstart),
    GNUNET_GETOPT_option_uint ('m',
                               "m",
                               "NUMBER",
                               gettext_noop ("number of items to sell\n"
                                             "0 for first price auction\n"
                                             ">0 for vickrey/M+1st price auction"),
                               &m),

    GNUNET_GETOPT_option_flag ('u',
                               "public",
                               gettext_noop ("public auction outcome"),
                               &outcome),

    GNUNET_GETOPT_option_flag ('i',
                               "interactive",
                               gettext_noop (
                                 "keep running in foreground until auction completes"),
                               &interactive),

    GNUNET_GETOPT_OPTION_END
  };

  if (GNUNET_OK != GNUNET_STRINGS_get_utf8_args (argc, argv, &argc, &argv))
    return 2;

  ret = (GNUNET_OK ==
         GNUNET_PROGRAM_run (argc, argv,
                             "gnunet-auction-create",
                             gettext_noop ("create a new auction and "
                                           "start listening for bidders"),
                             options,
                             &run,
                             NULL)) ? ret : 1;
  GNUNET_free_nz ((void *) argv);
  return ret;
}
