bygfoot/src/xml_strategy.c

606 lines
19 KiB
C

/*
xml_strategy.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 "file.h"
#include "free.h"
#include "main.h"
#include "misc.h"
#include "strategy_struct.h"
#include "strategy.h"
#include "xml_strategy.h"
#define TAG_STRATEGY "strategy"
#define TAG_STRATEGY_SID "sid"
#define TAG_STRATEGY_DESC "desc"
#define TAG_STRATEGY_PRIORITY "priority"
#define TAG_STRATEGY_PREMATCH "prematch"
#define TAG_STRATEGY_PREMATCH_FORMATION "formation"
#define TAG_STRATEGY_PREMATCH_LINEUP "lineup"
#define TAG_STRATEGY_PREMATCH_BOOST "prematch_boost"
#define TAG_STRATEGY_PREMATCH_STYLE "prematch_style"
#define TAG_STRATEGY_MATCH_ACTION "match_action"
#define TAG_STRATEGY_MATCH_ACTION_BOOST "boost"
#define TAG_STRATEGY_MATCH_ACTION_STYLE "style"
#define TAG_STRATEGY_MATCH_ACTION_SUB "sub"
#define TAG_STRATEGY_MATCH_ACTION_SUB_IN_POS "in"
#define TAG_STRATEGY_MATCH_ACTION_SUB_OUT_POS "out"
#define ATT_NAME_MIN_FITNESS "min_fitness"
#define ATT_NAME_COND "cond"
#define ATT_NAME_SUB_PROPERTY "prop"
#define LINEUP_NAME_BEST "best"
#define LINEUP_NAME_WEAKEST "weakest"
#define LINEUP_NAME_FITTEST "fittest"
#define LINEUP_NAME_UNFITTEST "unfittest"
#define BOOST_NAME_ON "on"
#define BOOST_NAME_OFF "off"
#define BOOST_NAME_ANTI "anti"
#define STYLE_NAME_ALL_OUT_DEFEND "all-out-defend"
#define STYLE_NAME_DEFEND "defend"
#define STYLE_NAME_BALANCED "balanced"
#define STYLE_NAME_ATTACK "attack"
#define STYLE_NAME_ALL_OUT_ATTACK "all-out-attack"
#define POS_NAME_GOALIE "goalie"
#define POS_NAME_DEFENDER "defender"
#define POS_NAME_MIDFIELDER "midfielder"
#define POS_NAME_FORWARD "forward"
enum
{
STATE_STRATEGY = 0,
STATE_STRATEGY_SID,
STATE_STRATEGY_DESC,
STATE_STRATEGY_PRIORITY,
STATE_STRATEGY_PREMATCH,
STATE_STRATEGY_PREMATCH_FORMATION,
STATE_STRATEGY_PREMATCH_LINEUP,
STATE_STRATEGY_PREMATCH_BOOST,
STATE_STRATEGY_PREMATCH_STYLE,
STATE_STRATEGY_MATCH_ACTION,
STATE_STRATEGY_MATCH_ACTION_BOOST,
STATE_STRATEGY_MATCH_ACTION_STYLE,
STATE_STRATEGY_MATCH_ACTION_SUB,
STATE_STRATEGY_MATCH_ACTION_SUB_IN_POS,
STATE_STRATEGY_MATCH_ACTION_SUB_OUT_POS,
};
gint state, action_id;
#define curstrat g_array_index(strategies, Strategy, strategies->len - 1)
#define curprematch g_array_index(curstrat.prematch, StrategyPrematch, curstrat.prematch->len - 1)
#define curmatchaction g_array_index(curstrat.match_action, StrategyMatchAction, curstrat.match_action->len - 1)
void
xml_strategy_read_start_element (GMarkupParseContext *context,
const gchar *element_name,
const gchar **attribute_names,
const gchar **attribute_values,
gpointer user_data,
GError **error)
{
#ifdef DEBUG
printf("xml_strategy_read_start_element\n");
#endif
gint atidx = 0;
if(strcmp(element_name, TAG_STRATEGY) == 0)
state = STATE_STRATEGY;
else if(strcmp(element_name, TAG_STRATEGY_SID) == 0)
state = STATE_STRATEGY_SID;
else if(strcmp(element_name, TAG_STRATEGY_DESC) == 0)
state = STATE_STRATEGY_DESC;
else if(strcmp(element_name, TAG_STRATEGY_PRIORITY) == 0)
state = STATE_STRATEGY_PRIORITY;
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH) == 0)
{
StrategyPrematch new_prematch;
state = STATE_STRATEGY_PREMATCH;
new_prematch.condition = NULL;
new_prematch.lineup = new_prematch.boost =
new_prematch.style = -100;
new_prematch.min_fitness = 0;
new_prematch.formations = g_array_new(FALSE, FALSE, sizeof(gint));
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_COND) == 0 &&
new_prematch.condition == NULL)
new_prematch.condition =
g_strdup(attribute_values[atidx]);
else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
g_array_append_val(curstrat.prematch, new_prematch);
}
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH_FORMATION) == 0)
state = STATE_STRATEGY_PREMATCH_FORMATION;
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH_LINEUP) == 0)
{
state = STATE_STRATEGY_PREMATCH_LINEUP;
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_MIN_FITNESS) == 0)
curprematch.min_fitness =
g_ascii_strtod(attribute_values[atidx], NULL) / 100;
else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
}
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH_BOOST) == 0)
state = STATE_STRATEGY_PREMATCH_BOOST;
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH_STYLE) == 0)
state = STATE_STRATEGY_PREMATCH_STYLE;
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION) == 0)
{
StrategyMatchAction new_match_action;
state = STATE_STRATEGY_MATCH_ACTION;
new_match_action.sub_condition = NULL;
new_match_action.condition = NULL;
new_match_action.parsed_condition = NULL;
new_match_action.boost =
new_match_action.style = -100;
new_match_action.sub_in_pos = -1;
new_match_action.id = action_id++;
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_COND) == 0 &&
new_match_action.condition == NULL) {
new_match_action.condition =
g_strdup(attribute_values[atidx]);
new_match_action.parsed_condition =
misc_parse_condition_fast(new_match_action.condition);
} else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
g_array_append_val(curstrat.match_action, new_match_action);
}
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_BOOST) == 0)
state = STATE_STRATEGY_MATCH_ACTION_BOOST;
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_STYLE) == 0)
state = STATE_STRATEGY_MATCH_ACTION_STYLE;
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB) == 0)
{
state = STATE_STRATEGY_MATCH_ACTION_SUB;
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_COND) == 0 &&
curmatchaction.sub_condition == NULL)
curmatchaction.sub_condition =
g_strdup(attribute_values[atidx]);
else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
}
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB_IN_POS) == 0)
{
state = STATE_STRATEGY_MATCH_ACTION_SUB_IN_POS;
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_SUB_PROPERTY) == 0)
{
if(strcmp(attribute_values[atidx], LINEUP_NAME_BEST) == 0)
curmatchaction.sub_in_prop = STRAT_LINEUP_BEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_WEAKEST) == 0)
curmatchaction.sub_in_prop = STRAT_LINEUP_WEAKEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_FITTEST) == 0)
curmatchaction.sub_in_prop = STRAT_LINEUP_FITTEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_UNFITTEST) == 0)
curmatchaction.sub_in_prop = STRAT_LINEUP_UNFITTEST;
else
debug_print_message("xml_strategy_read_start_element: unknown property value %s\n",
attribute_values[atidx]);
}
else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
}
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB_OUT_POS) == 0)
{
state = STATE_STRATEGY_MATCH_ACTION_SUB_OUT_POS;
while(attribute_names[atidx] != NULL)
{
if(strcmp(attribute_names[atidx], ATT_NAME_SUB_PROPERTY) == 0)
{
if(strcmp(attribute_values[atidx], LINEUP_NAME_BEST) == 0)
curmatchaction.sub_out_prop = STRAT_LINEUP_BEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_WEAKEST) == 0)
curmatchaction.sub_out_prop = STRAT_LINEUP_WEAKEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_FITTEST) == 0)
curmatchaction.sub_out_prop = STRAT_LINEUP_FITTEST;
else if(strcmp(attribute_values[atidx], LINEUP_NAME_UNFITTEST) == 0)
curmatchaction.sub_out_prop = STRAT_LINEUP_UNFITTEST;
else
debug_print_message("xml_strategy_read_start_element: unknown property value %s\n",
attribute_values[atidx]);
}
else
debug_print_message("xml_strategy_read_start_element: unknown attribute %s\n",
attribute_names[atidx]);
atidx++;
}
}
else
debug_print_message("xml_strategy_read_start_element: unknown tag: %s; I'm in state %d\n",
element_name, state);
}
/**
* The function called by the parser when a closing tag is read.
* The state variable is changed in this function.
* @see The GLib manual (Simple XML parser).
*/
void
xml_strategy_read_end_element (GMarkupParseContext *context,
const gchar *element_name,
gpointer user_data,
GError **error)
{
#ifdef DEBUG
printf("xml_strategy_read_end_element\n");
#endif
if(strcmp(element_name, TAG_STRATEGY_SID) == 0 ||
strcmp(element_name, TAG_STRATEGY_DESC) == 0 ||
strcmp(element_name, TAG_STRATEGY_PRIORITY) == 0 ||
strcmp(element_name, TAG_STRATEGY_MATCH_ACTION) == 0 ||
strcmp(element_name, TAG_STRATEGY_PREMATCH) == 0)
state = STATE_STRATEGY;
else if(strcmp(element_name, TAG_STRATEGY_PREMATCH_FORMATION) == 0 ||
strcmp(element_name, TAG_STRATEGY_PREMATCH_LINEUP) == 0 ||
strcmp(element_name, TAG_STRATEGY_PREMATCH_BOOST) == 0 ||
strcmp(element_name, TAG_STRATEGY_PREMATCH_STYLE) == 0)
state = STATE_STRATEGY_PREMATCH;
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB) == 0 ||
strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_STYLE) == 0 ||
strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_BOOST) == 0)
state = STATE_STRATEGY_MATCH_ACTION;
else if(strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB_IN_POS) == 0 ||
strcmp(element_name, TAG_STRATEGY_MATCH_ACTION_SUB_OUT_POS) == 0)
state = STATE_STRATEGY_MATCH_ACTION_SUB;
else if(strcmp(element_name, TAG_STRATEGY) != 0)
debug_print_message("xml_strategy_read_end_element: unknown tag: %s; I'm in state %d\n",
element_name, state);
}
/**
* The function called by the parser when the text between tags is read.
* This function is responsible for filling in the variables (e.g. team names)
* when a file gets loaded.
* @see The GLib manual (Simple XML parser).
*/
void
xml_strategy_read_text (GMarkupParseContext *context,
const gchar *text,
gsize text_len,
gpointer user_data,
GError **error)
{
#ifdef DEBUG
printf("xml_strategy_read_text\n");
#endif
gchar buf[text_len + 1];
gint int_value;
strncpy(buf, text, text_len);
buf[text_len] = '\0';
int_value = (gint)g_ascii_strtod(buf, NULL);
if(state == STATE_STRATEGY_SID)
misc_string_assign(&curstrat.sid, buf);
else if(state == STATE_STRATEGY_DESC)
misc_string_assign(&curstrat.desc, buf);
else if(state == STATE_STRATEGY_PRIORITY)
{
if(strategies->len == 1)
curstrat.priority = int_value;
else
curstrat.priority =
g_array_index(strategies, Strategy, strategies->len - 2).priority +
int_value;
}
else if(state == STATE_STRATEGY_PREMATCH_FORMATION)
g_array_append_val(curprematch.formations, int_value);
else if(state == STATE_STRATEGY_PREMATCH_LINEUP)
{
if(strcmp(buf, LINEUP_NAME_BEST) == 0)
curprematch.lineup = STRAT_LINEUP_BEST;
else if(strcmp(buf, LINEUP_NAME_WEAKEST) == 0)
curprematch.lineup = STRAT_LINEUP_WEAKEST;
else if(strcmp(buf, LINEUP_NAME_FITTEST) == 0)
curprematch.lineup = STRAT_LINEUP_FITTEST;
else
debug_print_message(
"xml_strategy_read_text: unknown lineup type %s\n", buf);
}
else if(state == STATE_STRATEGY_PREMATCH_BOOST)
{
if(strcmp(buf, BOOST_NAME_ON) == 0)
curprematch.boost = 1;
else if(strcmp(buf, BOOST_NAME_OFF) == 0)
curprematch.boost = 0;
else if(strcmp(buf, BOOST_NAME_ANTI) == 0)
curprematch.boost = -1;
else
debug_print_message(
"xml_strategy_read_text: unknown boost type %s\n", buf);
}
else if(state == STATE_STRATEGY_PREMATCH_STYLE)
{
if(strcmp(buf, STYLE_NAME_ALL_OUT_DEFEND) == 0)
curprematch.style = -2;
else if(strcmp(buf, STYLE_NAME_DEFEND) == 0)
curprematch.style = -1;
else if(strcmp(buf, STYLE_NAME_BALANCED) == 0)
curprematch.style = 0;
else if(strcmp(buf, STYLE_NAME_ATTACK) == 0)
curprematch.style = 1;
else if(strcmp(buf, STYLE_NAME_ALL_OUT_ATTACK) == 0)
curprematch.style = 2;
else
debug_print_message(
"xml_strategy_read_text: unknown style type %s\n", buf);
}
else if(state == STATE_STRATEGY_MATCH_ACTION_STYLE)
{
if(strcmp(buf, STYLE_NAME_ALL_OUT_DEFEND) == 0)
curmatchaction.style = -2;
else if(strcmp(buf, STYLE_NAME_DEFEND) == 0)
curmatchaction.style = -1;
else if(strcmp(buf, STYLE_NAME_BALANCED) == 0)
curmatchaction.style = 0;
else if(strcmp(buf, STYLE_NAME_ATTACK) == 0)
curmatchaction.style = 1;
else if(strcmp(buf, STYLE_NAME_ALL_OUT_ATTACK) == 0)
curmatchaction.style = 2;
else
debug_print_message(
"xml_strategy_read_text: unknown style type %s\n", buf);
}
else if(state == STATE_STRATEGY_MATCH_ACTION_BOOST)
{
if(strcmp(buf, BOOST_NAME_ON) == 0)
curmatchaction.boost = 1;
else if(strcmp(buf, BOOST_NAME_OFF) == 0)
curmatchaction.boost = 0;
else if(strcmp(buf, BOOST_NAME_ANTI) == 0)
curmatchaction.boost = -1;
else
debug_print_message(
"xml_strategy_read_text: unknown boost type %s\n", buf);
}
else if(state == STATE_STRATEGY_MATCH_ACTION_SUB_IN_POS ||
state == STATE_STRATEGY_MATCH_ACTION_SUB_OUT_POS)
{
GPtrArray *positions = misc_separate_strings(buf);
gint i, *pos;
if(state == STATE_STRATEGY_MATCH_ACTION_SUB_IN_POS)
{
if(positions->len > 1)
{
free_gchar_array(&positions);
main_exit_program(EXIT_STRATEGY_ERROR,
"xml_strategy_read_text: too many sub_in positions: %s\n",
buf);
}
pos = &curmatchaction.sub_in_pos;
}
else
pos = &curmatchaction.sub_out_pos;
*pos = 9;
for(i=0;i<positions->len;i++)
if(strcmp((gchar*)g_ptr_array_index(positions, i),
POS_NAME_GOALIE) == 0)
*pos *= 10;
else if(strcmp((gchar*)g_ptr_array_index(positions, i),
POS_NAME_DEFENDER) == 0)
*pos = (*pos * 10) + 1;
else if(strcmp((gchar*)g_ptr_array_index(positions, i),
POS_NAME_MIDFIELDER) == 0)
*pos = (*pos * 10) + 2;
else if(strcmp((gchar*)g_ptr_array_index(positions, i),
POS_NAME_FORWARD) == 0)
*pos = (*pos * 10) + 3;
else
debug_print_message(
"xml_strategy_read_text: unknown position %s\n",
(gchar*)g_ptr_array_index(positions, i));
if(*pos < 100)
*pos = *pos % 10;
free_gchar_array(&positions);
}
}
/** Add the strategy described in the file
to the strategies array. */
void
xml_strategy_read(const gchar *filename)
{
#ifdef DEBUG
printf("xml_strategy_read\n");
#endif
gint i;
Strategy new_strat;
GMarkupParser parser = {xml_strategy_read_start_element,
xml_strategy_read_end_element,
xml_strategy_read_text, NULL, NULL};
GMarkupParseContext *context;
gchar *file_contents;
gsize length;
GError *error = NULL;
context =
g_markup_parse_context_new(&parser, 0, NULL, NULL);
if(!g_file_get_contents(filename, &file_contents, &length, &error))
{
debug_print_message("xml_strategy_read: error reading file %s\n", filename);
misc_print_error(&error, TRUE);
return;
}
new_strat.sid = new_strat.desc = NULL;
new_strat.priority = 1;
new_strat.prematch = g_array_new(FALSE, FALSE, sizeof(StrategyPrematch));
new_strat.match_action = g_array_new(FALSE, FALSE, sizeof(StrategyMatchAction));
g_array_append_val(strategies, new_strat);
action_id = 0;
if(g_markup_parse_context_parse(context, file_contents, length, &error))
{
g_markup_parse_context_end_parse(context, NULL);
g_markup_parse_context_free(context);
g_free(file_contents);
}
else
{
g_critical("xml_strategy_read: error parsing file %s\n", filename);
misc_print_error(&error, TRUE);
}
for(i=0;i<curstrat.match_action->len;i++)
{
if(g_array_index(curstrat.match_action, StrategyMatchAction, i).condition == NULL)
main_exit_program(EXIT_STRATEGY_ERROR, "xml_strategy_read: unconditional match action encountered in file %s. match actions MUST have conditions.", filename);
}
}
/** Load all strategy files found in the appropriate folder. */
void
xml_strategy_load_strategies(void)
{
#ifdef DEBUG
printf("xml_strategy_load_strategies\n");
#endif
gint i, j, k;
const gchar *strategydir = file_get_first_support_dir_suffix("strategy");
GPtrArray *files = NULL;
gchar buf[SMALL];
if(strategydir == NULL)
main_exit_program(EXIT_STRATEGY_ERROR,
"xml_strategy_load_strategies: strategy directory not found.");
files = file_dir_get_contents(strategydir, "strategy_", ".xml");
if(files->len == 0)
{
g_ptr_array_free(files, TRUE);
main_exit_program(EXIT_STRATEGY_ERROR,
"xml_strategy_load_strategies: no CPU strategies found.");
}
for(i=0;i<files->len;i++)
{
sprintf(buf, "%s%s%s", strategydir, G_DIR_SEPARATOR_S,
(const gchar*)g_ptr_array_index(files, i));
xml_strategy_read(buf);
}
free_gchar_array(&files);
/* Fill secondary prematches with default values. */
for(i=0;i<strategies->len;i++)
{
StrategyPrematch *prem0 = &g_array_index(
g_array_index(strategies, Strategy, i).prematch,
StrategyPrematch, 0),
*premcur = NULL;
if(prem0->formations->len == 0)
main_exit_program(EXIT_STRATEGY_ERROR,
"xml_strategy_read (%s): The primary prematch should have at least one formation.",
g_array_index(strategies, Strategy, i).sid);
for(j=1;j<g_array_index(strategies, Strategy, i).prematch->len;j++)
{
premcur = &g_array_index(
g_array_index(strategies, Strategy, i).prematch,
StrategyPrematch, j);
if(premcur->formations->len == 0)
for(k=0;k<prem0->formations->len;k++)
g_array_append_val(premcur->formations,
g_array_index(prem0->formations, gint, k));
if(premcur->boost == -100)
premcur->boost = prem0->boost;
if(premcur->style == -100)
premcur->style = prem0->style;
if(premcur->lineup == -100)
premcur->lineup = prem0->lineup;
if(premcur->min_fitness == -100)
premcur->min_fitness = prem0->min_fitness;
}
}
}