/*
   main.c

   Bygfoot Football Manager -- a small and simple GTK2-based
   football management game.

   http://bygfoot.sourceforge.net

   Copyright (C) 2005  Gyözö Both (gyboth@bygfoot.com)

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License
   as published by the Free Software Foundation; either version 2
   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 General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 */

#include <time.h>
#include <glib/gprintf.h>
#include <glib.h>

#ifdef G_OS_WIN32
#include <io.h>
#include <fcntl.h>
#endif

#include "bet_struct.h"
#include "bygfoot_struct.h"
#include "debug.h"
#include "file.h"
#include "free.h"
#include "job_struct.h"
#ifdef ENABLE_JSON
#include "json_interface.h"
#endif
#include "language.h"
#include "lg_commentary.h"
#include "live_game.h"
#include "load_save.h"
#include "main.h"
#include "maths.h"
#include "misc.h"
#include "misc_callbacks.h"
#include "name_struct.h"
#include "news_struct.h"
#include "option.h"
#include "start_end.h"
#include "stat_struct.h"
#include "strategy_struct.h"
#include "transfer_struct.h"
#include "variables.h"
#include "window.h"
#include "xml_country.h"
#include "xml_strategy.h"

#define DEBUG_LEVEL_DEFAULT 0

#if defined(MAC_BUILD) || defined(G_OS_WIN32)
#define DEBUG_OUTPUT_DEFAULT 2
#else
#define DEBUG_OUTPUT_DEFAULT 0
#endif

/** Whether the last save gets loaded at startup
  (cl switch -l). */
gboolean load_last_save;

/** Parse command line options used for selecting the frontend or backend to
 * use with bygfoot.
 */
static void
main_parse_frontend_backend_cl_arguments(gint *argc, gchar ***argv, CommandLineArgs *args)
{
    GError *error = NULL;
    GOptionContext *context = NULL;
    GOptionEntry entries[] = {
	    { "json", 0, 0, G_OPTION_ARG_FILENAME, &args->json_filename,
	    "JSON file containing commands to run.  bygfoot will run the "
	    "commands in this file and then exit", "FILE"},
        {NULL}
    };

    if(argc == NULL || argv == NULL)
        return;

    context = g_option_context_new(_("- a simple and addictive GTK2 football manager"));
    g_option_context_set_ignore_unknown_options(context, TRUE);
    g_option_context_add_main_entries(context, entries, GETTEXT_PACKAGE);
    g_option_context_add_group(context, gtk_get_option_group (FALSE));
    g_option_context_parse(context, argc, argv, &error);
    g_option_context_free(context);

    if(error != NULL)
    {
        misc_print_error(&error, FALSE);
        return;
    }

}

/** Parse the command line arguments given by the user. */
    void
main_parse_cl_arguments(gint *argc, gchar ***argv, Bygfoot *bygfoot)
{
#ifdef DEBUG
    printf("main_parse_cl_arguments\n");
#endif

    gboolean testcom = FALSE, calodds = FALSE;
    gchar *support_dir = NULL, *lang = NULL,
          *testcom_file = NULL, *token_file = NULL,
          *event_name = NULL,
          *country_sid = NULL;
    gint number_of_passes = 1,
         num_matches = 100, skilldiffmax = 20;
    guint32 random_seed = 0;
    GError *error = NULL;
    GOptionContext *context = NULL;
    GOptionEntry entries[] =
    {{ "last-save", 'l', 0, G_OPTION_ARG_NONE, &load_last_save, _("Load last savegame"), NULL },

        { "support-dir", 's', 0, G_OPTION_ARG_STRING, &support_dir,
            _("Specify additional support directory (takes priority over default ones)"), "DIR" },

        { "country", 'c', 0, G_OPTION_ARG_STRING, &country_sid, _("String id of the country to load"), "SID" },

        { "lang", 'L', 0, G_OPTION_ARG_STRING, &lang, _("Language to use (a code like 'de')"), "CODE" },

        { "testcom", 't', 0, G_OPTION_ARG_NONE, &testcom, _("Test an XML commentary file"), NULL },

        { "commentary-file", 'C', 0, G_OPTION_ARG_STRING, &testcom_file,
            _("Commentary file name (may be in a support dir)"), "FILE" },

        { "token-file", 'T', 0, G_OPTION_ARG_STRING, &token_file,
            /* Live game tokens are strings like _AT_ in live game commentary files
               which will be filled in by the program during runtime; e.g. _AT_ becomes
               the attendace for the match. */
            _("File containing live game tokens (may be in a support dir)"), "FILE" },

        { "event-name", 'e', 0, G_OPTION_ARG_STRING, &event_name,
            _("Commentary event to test; leave out to test all commentaries"), "EVENTNAME" },

        { "num-passes", 'n', 0, G_OPTION_ARG_INT, &number_of_passes,
            _("How many commentaries to generate per event"), "N" },

        { "calodds", 'O', 0, G_OPTION_ARG_NONE, &calodds,
            "[developer] Calibrate the betting odds by simulating a lot of matches", NULL },

        { "num-matches", 'm', 0, G_OPTION_ARG_INT, &num_matches,
            "[developer] How many matches to simulate per skill diff step", "N" },

        { "num-skilldiff", 'S', 0, G_OPTION_ARG_INT, &skilldiffmax,
            "[developer] How many skill diff steps to take", "N" },

	{ "random-seed", 0, 0, G_OPTION_ARG_INT, &random_seed,
	    "Seed to initialize random number generator.  Valid values are"
	    " 32-bit unsigned integers > 0", "N"},

        {NULL}};

    if(argc == NULL || argv == NULL)
        return;

    context = g_option_context_new(_("- a simple and addictive GTK2 football manager"));
    g_option_context_add_main_entries(context, entries, GETTEXT_PACKAGE);
    g_option_context_add_group(context, gtk_get_option_group (FALSE));
    g_option_context_parse(context, argc, argv, &error);
    g_option_context_free(context);

    if(error != NULL)
    {
        misc_print_error(&error, FALSE);
        return;
    }

    if(calodds)
    {
        option_add(&options, "int_opt_calodds", 1, NULL);
        option_add(&options, "int_opt_calodds_skilldiffmax", skilldiffmax, NULL);
        option_add(&options, "int_opt_calodds_matches", num_matches, NULL);
    }

    if(testcom)
    {
        lg_commentary_test(testcom_file, token_file, event_name, number_of_passes);
        main_exit_program(EXIT_OK, NULL);
    }

    if(support_dir != NULL)
    {
        gchar *fullpath = (support_dir[strlen(support_dir)] == G_DIR_SEPARATOR) ?
            g_path_get_dirname(support_dir) :
            g_strdup_printf("%s%s", support_dir, G_DIR_SEPARATOR_S);
        file_add_support_directory_recursive(bygfoot, fullpath);
        g_free(fullpath);
        g_free(support_dir);
    }

    if(lang != NULL)
    {
        language_set(language_get_code_index(lang) + 1);
        file_load_hints_file();
        g_free(lang);
    }

    if(country_sid != NULL)
    {
        country.sid = g_strdup(country_sid);
        g_free(country_sid);
    }

    if (random_seed)
       g_rand_set_seed(rand_generator, random_seed);
}

/** Parse the command line arguments given by the user. */
    void
main_parse_debug_cl_arguments(gint *argc, gchar ***argv)
{
#ifdef DEBUG
    printf("main_parse_debug_cl_arguments\n");
#endif

    gint deb_level = -1,
         deb_output = -1;
    gchar *debug_text = NULL;
    GError *error = NULL;
    GOptionContext *context = NULL;
    GOptionEntry entries[] =
    {{ "debug-level", 'd', 0, G_OPTION_ARG_INT, &deb_level, "[developer] Debug level to use", "N" },
        { "debug-output", 'o', 0, G_OPTION_ARG_INT, &deb_output, "[developer] Debug output to use", "0, 1 or 2" },
        { "deb", 'D', 0, G_OPTION_ARG_STRING, &debug_text,
            "[developer] A debug command like 'deb100 to set the debug level'; see the debug window and debug.c", "STRING" },
        {NULL}};

    debug_level = DEBUG_LEVEL_DEFAULT;
    debug_output = DEBUG_OUTPUT_DEFAULT;

    if(argc == NULL || argv == NULL)
        return;

    context = g_option_context_new(_("- a simple and addictive GTK2 football manager"));
    g_option_context_set_ignore_unknown_options(context, TRUE);
    g_option_context_add_main_entries(context, entries, GETTEXT_PACKAGE);
    g_option_context_add_group(context, gtk_get_option_group (FALSE));
    g_option_context_parse(context, argc, argv, &error);
    g_option_context_free(context);

    if(error != NULL)
    {
        misc_print_error(&error, FALSE);
        return;
    }

    if(deb_level != -1)
    {
        debug_level = deb_level;
        window_create(WINDOW_DEBUG);
    }

    if(deb_output != -1)
        debug_output = deb_output;

    if(debug_text != NULL)
        statp = debug_text;
}

/**
  Initialize some global variables. Most of them get nullified.
 */
    void
main_init_variables(void)
{
#ifdef DEBUG
    printf("main_init_variables\n");
#endif

    gint i;

    ligs = g_array_new(FALSE, FALSE, sizeof(League));
    cps = g_array_new(FALSE, FALSE, sizeof(Cup));;
    acps = g_ptr_array_new();
    country.name = NULL;
    country.symbol = NULL;
    country.sid = NULL;

    season = week = week_round = 1;

    for(i=0;i<COUNT_END;i++)
        counters[i] = 0;

    counters[COUNT_LEAGUE_ID] = ID_LEAGUE_START;
    counters[COUNT_CUP_ID] = ID_CUP_START;
    counters[COUNT_HINT_NUMBER] = -1;

    window.main = window.startup =
        window.live = window.warning = window.progress = window.digits =
        window.stadium = window.job_offer = window.yesno =
        window.options = window.font_sel =
        window.file_chooser = window.contract =
        window.menu_player = window.user_management =
        window.mmatches = window.bets = window.splash =
        window.training_camp = NULL;

    users = g_array_new(FALSE, FALSE, sizeof(User));
    transfer_list = g_array_new(FALSE, FALSE, sizeof(Transfer));
    season_stats = g_array_new(FALSE, FALSE, sizeof(SeasonStat));
    name_lists = g_array_new(FALSE, FALSE, sizeof(NameList));
    strategies = g_array_new(FALSE, FALSE, sizeof(Strategy));
    live_games = g_array_new(FALSE, FALSE, sizeof(LiveGame));
    bets[0] = g_array_new(FALSE, FALSE, sizeof(BetMatch));
    bets[1] = g_array_new(FALSE, FALSE, sizeof(BetMatch));
    jobs = g_array_new(FALSE, FALSE, sizeof(Job));
    save_file = NULL;

    constants_app.list = settings.list =
        constants.list = options.list = tokens.list =
        hints.list = NULL;
    constants_app.datalist = settings.datalist =
        constants.datalist = options.datalist =
        tokens.datalist = hints.datalist = NULL;

    selected_row = -1;

    timeout_id = -1;

    for(i=0;i<LIVE_GAME_EVENT_END;i++)
        lg_commentary[i] = g_array_new(FALSE, FALSE, sizeof(LGCommentary));

    for(i=0;i<NEWS_ARTICLE_TYPE_END;i++)
        news[i] = g_array_new(FALSE, FALSE, sizeof(NewsArticle));

    newspaper.articles = g_array_new(FALSE, FALSE, sizeof(NewsPaperArticle));

    file_load_conf_files();
    xml_strategy_load_strategies();

    current_interest = rint(math_rnd(const_float("float_finance_interest_lower"),
                const_float("float_finance_interest_upper")) /
            const_float("float_finance_interest_step")) * const_float("float_finance_interest_step");

    language_set(language_get_code_index(opt_str("string_opt_language_code")) + 1);

    option_add(&options, "int_opt_calodds", 0, NULL);

    /** Some of these (or all) are disabled (set to 1) in supernational
      country defs. */
    option_add(&settings, "int_opt_goto_mode", 0, NULL);
    option_add(&settings, "int_opt_disable_finances", 0, NULL);
    option_add(&settings, "int_opt_disable_transfers", 0, NULL);
    option_add(&settings, "int_opt_disable_stadium", 0, NULL);
    option_add(&settings, "int_opt_disable_contracts", 0, NULL);
    option_add(&settings, "int_opt_disable_boost_on", 0, NULL);
    option_add(&settings, "int_opt_disable_ya", 0, NULL);
    option_add(&settings, "int_opt_disable_training_camp", 0, NULL);
}

/**
  Callback to use with g_ptr_array_foreach() to validate country xml files.
 */
static void validate_country_file(gpointer country_file, gpointer user_data)
{
    Country country;
    memset(&country, 0, sizeof(country));
    xml_country_read(country_file, &country);
}

static void validate_country_files()
{
    GPtrArray *country_files = file_get_country_files();

    if(country_files->len == 0)
	main_exit_program(EXIT_NO_COUNTRY_FILES,
			  "Didn't find any country definition files in the support directories.");
    g_ptr_array_foreach(country_files, validate_country_file, NULL);
}

/**
  Process the command line arguments and do some things
  that have to be done at the beginning (like initializing the
  random number generator).
  @param argc Number of command line arguments.
  @param argv Command line arguments array.
 */
    void
main_init(gint *argc, gchar ***argv, Bygfoot *bygfoot)
{
#ifdef DEBUG
    printf("main_init\n");
#endif

    gchar buf[SMALL];
    gchar *dir;
    GPtrArray *country_files = NULL;

    support_directories = NULL;
    rand_generator = g_rand_new();
    main_parse_debug_cl_arguments(argc, argv);

#ifdef G_OS_WIN32
    os_is_unix = FALSE;
#else
    os_is_unix = TRUE;
#endif

#if defined(G_OS_UNIX) && !defined(MAC_BUILD)
    file_add_support_directory_recursive(bygfoot, PACKAGE_DATA_DIR "/" PACKAGE "/support_files");
    sprintf(buf, "%s%s%s", g_get_home_dir(), G_DIR_SEPARATOR_S, HOMEDIRNAME);
    file_add_support_directory_recursive(bygfoot, buf);
#endif

#ifndef MAC_BUILD
    dir = g_get_current_dir();
    sprintf(buf, "%s%ssupport_files", dir, G_DIR_SEPARATOR_S);
    file_add_support_directory_recursive(bygfoot, buf);

    sprintf(buf, "%s%ssaves", dir, G_DIR_SEPARATOR_S);
    file_add_support_directory_recursive(bygfoot, buf);
    g_free(dir);
#else
    dir = file_get_mac_resource_path("support_files");
    file_add_support_directory_recursive(bygfoot, dir);
#endif

    main_init_variables();

    load_last_save = FALSE;
    main_parse_cl_arguments(argc, argv, bygfoot);
}

/**
  Initialize the GTK stuff and the gettext stuff.
  Start the game.
  @param argc Number of command line arguments.
  @param argv Command line arguments array.
 */
    gint
main (gint argc, gchar *argv[])
{
    Bygfoot bygfoot;
    CommandLineArgs cl_args;
#ifdef DEBUG
    printf("main\n");
#endif

#if defined(ENABLE_NLS) && !defined(MAC_BUILD)
    bindtextdomain (GETTEXT_PACKAGE, PACKAGE_LOCALE_DIR);
    bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
    textdomain (GETTEXT_PACKAGE);
#endif
#ifdef G_OS_WIN32
    int fd1 = open ("stdout.log", O_CREAT|O_WRONLY|O_TRUNC, 0666);
    dup2 (fd1, 1);
    int fd2 = open ("stderr.log", O_CREAT|O_WRONLY|O_TRUNC, 0666);
    dup2 (fd2, 2);
#endif
    memset(&cl_args, 0, sizeof(cl_args));
#ifdef ENABLE_JSON
    main_parse_frontend_backend_cl_arguments(&argc, &argv, &cl_args);

    if (cl_args.json_filename) {
        bygfoot_init(&bygfoot, BYGFOOT_FRONTEND_CONSOLE);
        main_init(&argc, &argv, &bygfoot);
        file_check_home_dir_create_dirs();
        validate_country_files();
        return bygfoot_json_main(&bygfoot, &cl_args);
    }
#endif
    bygfoot_init(&bygfoot, BYGFOOT_FRONTEND_GTK2);
    gtk_init (&argc, &argv);

    main_init(&argc, &argv, &bygfoot);

    validate_country_files();

    if((load_last_save && !load_game_from_command_line(&bygfoot, "last_save")) ||
            (!load_last_save && (argc == 1 ||
                         (argc > 1 && !load_game_from_command_line(&bygfoot, argv[1])))))
    {
        if(country.sid == NULL)
        {
            stat0 = STATUS_SPLASH;
            window_show_splash(&bygfoot);

            if(os_is_unix)
                file_check_home_dir();
        }
        else
        {
            window_show_startup(&bygfoot);
            stat0 = STATUS_TEAM_SELECTION;
        }
    }

    gtk_main ();

    main_exit_program(EXIT_OK, NULL);

    return 0;
}

/** Exit the program with the given exit code and message. Try to
  destroy all widgets and free all memory first.
  @param exit_code The number we return to the shell.
  @param exit_message The message we print.
  @return The exit code of the program. */
    void
main_exit_program(gint exit_code, gchar *format, ...)
{
#ifdef DEBUG
    printf("main_exit_program\n");
#endif

    gchar text[SMALL];
    va_list args;

    if(format != NULL)
    {
        va_start (args, format);
        g_vsprintf(text, format, args);
        va_end (args);
        debug_print_message(text, NULL);
    }

    if(gtk_main_level() > 0)
        gtk_main_quit();

    free_memory();

    if(!os_is_unix && exit_code != EXIT_OK)
    {
        debug_print_message("Press RETURN. Program will exit.");
        getchar();
    }

    exit(exit_code);
}