/*
   table.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 "cup.h"
#include "league.h"
#include "misc.h"
#include "table.h"
#include "team.h"
#include "variables.h"

/** Return a newly allocated empty table. */
Table
table_new(void)
{
#ifdef DEBUG
    printf("table_new\n");
#endif

    Table new;

    new.name = NULL;
    new.clid = -1;
    new.round = -1;
    new.elements = g_array_new(FALSE, FALSE, sizeof(TableElement));

    return new;
}

/** Return a nullified table element.
    @param team The team pointer of the element.
    @param old_rank The old_rank value of the element.
    @see #TableElement */
TableElement
table_element_new(Team *team, gint old_rank)
{
#ifdef DEBUG
    printf("table_element_new\n");
#endif

    gint i;
    TableElement new;

    new.team = team;
    new.team_id = team->id;
    new.old_rank = old_rank;

    for(i=0;i<TABLE_END;i++)
	new.values[i] = 0;

    return new;
}

/** Update the appropriate table entries after
    a fixture has been calculated. 
    @param fix The fixture that's just been calculated. */
void
table_update(const Fixture *fix)
{
#ifdef DEBUG
    printf("table_update\n");
#endif

    gint i, j, end;
    gint idx = (fix->result[0][0] < fix->result[1][0]);
    TableElement *elements[2];

    end = (fix->clid < ID_CUP_START) ? 2 : 1;

    for(j = 0; j < end; j++)
    {        
        elements[0] = elements[1] = NULL;
        table_update_get_elements(elements, fix, (j == 1));

        for(i=0;i<2;i++)
        {
            if(elements[i] != NULL)
            {
                elements[i]->values[TABLE_PLAYED]++;
                elements[i]->values[TABLE_GF] += fix->result[i][0];
                elements[i]->values[TABLE_GA] += fix->result[!i][0];
                elements[i]->values[TABLE_GD] = 
                    elements[i]->values[TABLE_GF] - elements[i]->values[TABLE_GA];                
            }
        }
    
        if(fix->result[0][0] == fix->result[1][0])
            for(i=0;i<2;i++)
            {
                if(elements[i] != NULL)
                {
                    elements[i]->values[TABLE_DRAW]++;
                    elements[i]->values[TABLE_PTS] += 1;
                }
            }
        else
        {
            if(elements[idx] != NULL)
            {
                elements[idx]->values[TABLE_WON]++;
                elements[idx]->values[TABLE_PTS] += 3;
            }

            if(elements[!idx] != NULL)
            {
                elements[!idx]->values[TABLE_LOST]++;
            }
        }
    }
}

/** Get the pointers to the table entries
    representing the two teams from the fixture. 
    @param elements The table entries.
    @fix The fixture.
    @non_cumulative Whether to return the last non-cumulative table. */
void
table_update_get_elements(TableElement **elements, const Fixture *fix, gboolean non_cumulative)
{
#ifdef DEBUG
    printf("table_update_get_elements\n");
#endif

    gint i, j;
    Table *table;

    if(fix->clid < ID_CUP_START)
    {
        for(j = 0; j < 2; j++)
        {
            if(non_cumulative &&
               league_from_clid(fix->teams[j]->clid)->tables->len == 1)
            {
                elements[j] = NULL;
                continue;
            }

            table = (non_cumulative) ? 
                league_table(league_from_clid(fix->teams[j]->clid)) :
                league_table_cumul(league_from_clid(fix->teams[j]->clid));
            
            for(i=0;i<table->elements->len;i++)
            {
                if(g_array_index(table->elements, TableElement, i).team == fix->teams[j])
                    elements[j] = &g_array_index(table->elements, TableElement, i);
            }
        }
    }
    else
	for(i=0;i<cup_get_last_tables(fix->clid)->len;i++)
	{
	    table = &g_array_index(cup_get_last_tables(fix->clid), Table, i);

	    if(elements[0] == NULL || elements[1] == NULL)
		for(j=0;j<table->elements->len;j++)
		{
		    if(g_array_index(table->elements, TableElement, j).team == fix->teams[0])
			elements[0] = &g_array_index(table->elements, TableElement, j);
		    else if(g_array_index(table->elements, TableElement, j).team == fix->teams[1])
			elements[1] = &g_array_index(table->elements, TableElement, j);
		}
	}
}

/** Compare function used to sort the tables.
    @param a The first table element.
    @param b The second element.
    @param clid_round The clid and the cup round of the table
    encoded as a gpointer. */
gint
table_element_compare_func(gconstpointer a,
			   gconstpointer b,
			   gpointer clid_pointer)
{
#ifdef DEBUG
    printf("table_element_compare_func\n");
#endif

    gint i;
    gint clid, cup_round, value;
    TableElement *element1 = (TableElement*)a,
	*element2 = (TableElement*)b;
    GArray *fixtures;
    const Fixture *fix[2] = {NULL, NULL};

    if(element1->team_id == element2->team_id)
	return 0;

    clid = GPOINTER_TO_INT(clid_pointer);

    fixtures = league_cup_get_fixtures(clid);
    if(clid < ID_CUP_START)
	cup_round = -1;
    else
	cup_round = cup_has_tables(clid);
    
    /*todo use misc_int_compare*/
    if(element1->values[TABLE_PTS] != element2->values[TABLE_PTS])
	value = misc_int_compare(element1->values[TABLE_PTS],
				 element2->values[TABLE_PTS]);
    else if(element1->values[TABLE_GF] - element1->values[TABLE_GA] !=
	    element2->values[TABLE_GF] - element2->values[TABLE_GA])
	value = misc_int_compare(element1->values[TABLE_GF] - element1->values[TABLE_GA],
				 element2->values[TABLE_GF] - element2->values[TABLE_GA]);
    else if(element1->values[TABLE_GA] != element2->values[TABLE_GA])
	value = misc_int_compare(element1->values[TABLE_GA],
				 element2->values[TABLE_GA]);
    else
    {
	for(i=0;i<fixtures->len;i++)
	{
	    if(g_array_index(fixtures, Fixture, i).round == cup_round &&
	       g_array_index(fixtures, Fixture, i).week_number <= week &&
	       g_array_index(fixtures, Fixture, i).week_round_number <= week_round)
	    {
		if(g_array_index(fixtures, Fixture, i).team_ids[0] == element1->team_id &&
		   g_array_index(fixtures, Fixture, i).team_ids[1] == element2->team_id)
		    fix[0] = &g_array_index(fixtures, Fixture, i);
		else if(g_array_index(fixtures, Fixture, i).team_ids[1] == element1->team_id &&
			g_array_index(fixtures, Fixture, i).team_ids[0] == element2->team_id)
		    fix[1] = &g_array_index(fixtures, Fixture, i);
	    }
	}
	
	if(fix[0] == NULL || fix[1] == NULL)
	    value = 0;
	else
	{
	    if(fix[0]->result[0][0] + fix[1]->result[1][0] >
	       fix[0]->result[1][0] + fix[1]->result[0][0])
		value = -1;
	    else if(fix[0]->result[0][0] + fix[1]->result[1][0] <
		    fix[0]->result[1][0] + fix[1]->result[0][0])
		value = 1;
	    else if(fix[1]->result[1][0] > fix[0]->result[1][0])
		value = -1;
	    else
		value = 1;
	}
    }
    
    return value;
}

/** Find out if there are active leagues (which automatically
    have tables then) or cups with tables in the country. */
gboolean
query_tables_in_country(void)
{
#ifdef DEBUG
    printf("query_tables_in_country\n");
#endif

    gint i;

    for(i=0;i<ligs->len;i++)
	if(query_league_active(&lig(i)))
	    return TRUE;

    for(i=0;i<cps->len;i++)
	if(cup_has_tables(cp(i).id) != -1)
	    return TRUE;

    return FALSE;
}

/** Copy a table. */
Table
table_copy(const Table *table)
{
#ifdef DEBUG
    printf("table_copy\n");
#endif

    gint i, j;
    Table new_table;
    TableElement new_table_element;
    TableElement *elem;

    new_table.name = g_strdup(table->name);
    new_table.clid = table->clid;
    new_table.round = table->round;
    new_table.elements = g_array_new(FALSE, FALSE, sizeof(TableElement));

    for(i = 0; i < table->elements->len; i++)
    {
        elem = &g_array_index(table->elements, TableElement, i);
        new_table_element.team = elem->team;
        new_table_element.team_id = elem->team_id;
        new_table_element.old_rank = elem->old_rank;

        for(j=0;j<TABLE_END;j++)
            new_table_element.values[j] = elem->values[j];
        
        g_array_append_val(new_table.elements, new_table_element);
    }

    return new_table;
}

/** Refresh the team pointers in the table from the team ids. */
void
table_refresh_team_pointers(Table *table)
{
    gint i;

    for(i = 0; i < table->elements->len; i++)
        g_array_index(table->elements, TableElement, i).team =
            team_of_id(g_array_index(table->elements, TableElement, i).team_id);
}