nation.c

Go to the documentation of this file.

/***********************************************************************
 Freeciv - Copyright (C) 1996 - A Kjeldberg, L Gregersen, P Unold
   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, 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.
***********************************************************************/
 
/***********************************************************************
   Functions for handling the nations.
***********************************************************************/
 
#ifdef HAVE_CONFIG_H
#include <fc_config.h>
#endif
 
/* utility */
#include "fcintl.h"
#include "log.h"
#include "mem.h"
#include "support.h"
 
/* common */
#include "connection.h"
#include "game.h"
#include "government.h"
#include "player.h"
#include "rgbcolor.h"
#include "tech.h"
#include "traits.h"
 
#include "nation.h"
 
 
/* Nation set structure. */
struct nation_set {
  struct name_translation name;
  char description[MAX_LEN_MSG];
};
 
static struct nation_type *nations = nullptr;
 
static int num_nation_sets;
static struct nation_set nation_sets[MAX_NUM_NATION_SETS];
static int num_nation_groups;
static struct nation_group nation_groups[MAX_NUM_NATION_GROUPS];
 
/****************************************************************************
  Runs action if the nation is not valid.
****************************************************************************/
#ifdef FREECIV_DEBUG
#define NATION_CHECK(pnation, action)                                       \
    fc_assert_action(nation_check(pnation,                                  \
                                  log_do_output_for_level(LOG_ERROR),       \
                                  __FILE__, __FUNCTION__, __FC_LINE__),     \
                                  action)
 
/************************************************************************/
static inline bool nation_check(const struct nation_type *pnation,
                                bool do_output, const char *file,
                                const char *function, int line)
{
  if (0 == nation_count()) {
    if (do_output) {
      do_log(file, function, line, TRUE, LOG_ERROR,
             "Function called before nations setup.");
    }
    return FALSE;
  }
  if (pnation == nullptr) {
    if (do_output) {
      do_log(file, function, line, TRUE, LOG_ERROR,
             "This function has nullptr nation argument.");
    }
    return FALSE;
  }
  if (pnation->item_number < 0
      || pnation->item_number >= nation_count()
      || &nations[nation_index(pnation)] != pnation) {
    if (do_output) {
      do_log(file, function, line, TRUE, LOG_ERROR,
             "This function has bad nation number %d (count %d).",
             pnation->item_number, nation_count());
    }
    return FALSE;
  }
  return TRUE;
}
 
#else  /* FREECIV_DEBUG */
#define NATION_CHECK(pnation, action) /* Do Nothing. */
#endif /* FREECIV_DEBUG */
 
/************************************************************************/
struct nation_type *nation_by_translated_plural(const char *name)
{
  nations_iterate(pnation) {
    if (0 == strcmp(nation_plural_translation(pnation), name)) {
      return pnation;
    }
  } nations_iterate_end;
 
  return NO_NATION_SELECTED;
}
 
/************************************************************************/
struct nation_type *nation_by_rule_name(const char *name)
{
  const char *qname = Qn_(name);
 
  nations_iterate(pnation) {
    if (0 == fc_strcasecmp(nation_rule_name(pnation), qname)) {
      return pnation;
    }
  } nations_iterate_end;
 
  return NO_NATION_SELECTED;
}
 
/************************************************************************/
const char *nation_rule_name(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return "");
 
  return rule_name_get(&pnation->adjective);
}
 
/************************************************************************/
const char *nation_adjective_translation(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return "");
  return name_translation_get(&pnation->adjective);
}
 
/************************************************************************/
const char *nation_plural_translation(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return "");
  return name_translation_get(&pnation->noun_plural);
}
 
/************************************************************************/
const char *nation_adjective_for_player(const struct player *pplayer)
{
  return nation_adjective_translation(nation_of_player(pplayer));
}
 
/************************************************************************/
const char *nation_plural_for_player(const struct player *pplayer)
{
  return nation_plural_translation(nation_of_player(pplayer));
}
 
/************************************************************************/
bool is_nation_pickable(const struct nation_type *nation)
{
  fc_assert_ret_val(!is_server(), FALSE);
  return nation->client.is_pickable;
}
 
/************************************************************************/
bool is_nation_playable(const struct nation_type *nation)
{
  NATION_CHECK(nation, return FALSE);
  return nation->is_playable;
}
 
/************************************************************************/
enum barbarian_type nation_barbarian_type(const struct nation_type *nation)
{
  NATION_CHECK(nation, return NOT_A_BARBARIAN);
  return nation->barb_type;
}
 
 
/****************************************************************************
  Nation leader.
****************************************************************************/
struct nation_leader {
  char *name;
  bool is_male;
};
 
/************************************************************************/
const struct nation_leader_list *
nation_leaders(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return nullptr);
 
  return pnation->leaders;
}
 
/************************************************************************/
struct nation_leader *nation_leader_new(struct nation_type *pnation,
                                        const char *name, bool is_male)
{
  struct nation_leader *pleader;
 
  NATION_CHECK(pnation, return nullptr);
 
  pleader = fc_malloc(sizeof(*pleader));
  pleader->name = fc_strdup(name);
  pleader->is_male = is_male;
 
  nation_leader_list_append(pnation->leaders, pleader);
 
  return pleader;
}
 
/************************************************************************/
static void nation_leader_destroy(struct nation_leader *pleader)
{
  free(pleader->name);
  free(pleader);
}
 
/************************************************************************/
struct nation_leader *
nation_leader_by_name(const struct nation_type *pnation, const char *name)
{
  NATION_CHECK(pnation, return nullptr);
 
  nation_leader_list_iterate(pnation->leaders, pleader) {
    if (!fc_strcasecmp(name, pleader->name)) {
      return pleader;
    }
  } nation_leader_list_iterate_end;
 
  return nullptr;
}
 
/************************************************************************/
const char *nation_leader_name(const struct nation_leader *pleader)
{
  fc_assert_ret_val(pleader != nullptr, nullptr);
 
  return pleader->name;
}
 
/************************************************************************/
bool nation_leader_is_male(const struct nation_leader *pleader)
{
  fc_assert_ret_val(pleader != nullptr, TRUE);
 
  return pleader->is_male;
}
 
/************************************************************************/
const char *nation_legend_translation(const struct nation_type *pnation,
                                      const char *legend)
{
  if (pnation->translation_domain == nullptr) {
    return _(legend);
  }
 
  return DG_(pnation->translation_domain, legend);
}
 
/****************************************************************************
  Nation default cities. The nation_city structure holds information about
  a default choice for the city name. The 'name' field is, of course, just
  the name for the city. The 'river' and 'terrain' fields are entries
  recording whether the terrain is present near the city - we give higher
  priority to cities which have matching terrain. In the case of a river we
  only care if the city is _on_ the river, for other terrain features we
  give the bonus if the city is close to the terrain.
 
  This is controlled through the nation's ruleset like this:
    cities = "Washington (ocean, river, swamp)", "New York (!mountains)"
****************************************************************************/
struct nation_city {
  char *name;
  enum nation_city_preference river;
  enum nation_city_preference terrain[MAX_NUM_TERRAINS];
};
 
/************************************************************************/
const struct nation_city_list *
nation_cities(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return nullptr);
 
  fc_assert_ret_val(is_server(), nullptr);
 
  return pnation->server.default_cities;
}
 
/************************************************************************/
struct nation_city *nation_city_new(struct nation_type *pnation,
                                    const char *name)
{
  struct nation_city *pncity;
 
  NATION_CHECK(pnation, return nullptr);
 
  fc_assert_ret_val(is_server(), nullptr);
  fc_assert(NCP_NONE == 0);
 
  pncity = fc_calloc(1, sizeof(*pncity));       /* Set NCP_NONE. */
  pncity->name = fc_strdup(name);
 
  nation_city_list_append(pnation->server.default_cities, pncity);
 
  return pncity;
}
 
/************************************************************************/
static void nation_city_destroy(struct nation_city *pncity)
{
  free(pncity->name);
  free(pncity);
}
 
/************************************************************************/
enum nation_city_preference
nation_city_preference_revert(enum nation_city_preference prefer)
{
  switch (prefer) {
  case NCP_DISLIKE:
    return NCP_LIKE;
  case NCP_NONE:
    return NCP_NONE;
  case NCP_LIKE:
    return NCP_DISLIKE;
  }
 
  log_error("%s(): Wrong nation_city_preference variant (%d).",
            __FUNCTION__, prefer);
  return NCP_NONE;
}
 
/************************************************************************/
void nation_city_set_terrain_preference(struct nation_city *pncity,
                                        const struct terrain *pterrain,
                                        enum nation_city_preference prefer)
{
  fc_assert_ret(pncity != nullptr);
  fc_assert_ret(pterrain != nullptr);
 
  pncity->terrain[terrain_index(pterrain)] = prefer;
}
 
/************************************************************************/
void nation_city_set_river_preference(struct nation_city *pncity,
                                      enum nation_city_preference prefer)
{
  fc_assert_ret(pncity != nullptr);
 
  pncity->river = prefer;
}
 
/************************************************************************/
const char *nation_city_name(const struct nation_city *pncity)
{
  fc_assert_ret_val(pncity != nullptr, nullptr);
 
  return pncity->name;
}
 
/************************************************************************/
enum nation_city_preference
nation_city_terrain_preference(const struct nation_city *pncity,
                               const struct terrain *pterrain)
{
  fc_assert_ret_val(pncity != nullptr, NCP_DISLIKE);
  fc_assert_ret_val(pterrain != nullptr, NCP_DISLIKE);
 
  return pncity->terrain[terrain_index(pterrain)];
}
 
/************************************************************************/
enum nation_city_preference
nation_city_river_preference(const struct nation_city *pncity)
{
  fc_assert_ret_val(pncity != nullptr, NCP_DISLIKE);
 
  return pncity->river;
}
 
/************************************************************************/
struct nation_type *nation_of_player(const struct player *pplayer)
{
  fc_assert_ret_val(pplayer != nullptr, nullptr);
 
  NATION_CHECK(pplayer->nation, return nullptr);
 
  return pplayer->nation;
}
 
/************************************************************************/
struct nation_type *nation_of_city(const struct city *pcity)
{
  fc_assert_ret_val(pcity != nullptr, nullptr);
 
  return nation_of_player(city_owner(pcity));
}
 
/************************************************************************/
struct nation_type *nation_of_unit(const struct unit *punit)
{
  fc_assert_ret_val(punit != nullptr, nullptr);
 
  return nation_of_player(unit_owner(punit));
}
 
/************************************************************************/
struct nation_type *nation_by_number(const Nation_type_id nation)
{
  if (nation < 0 || nation >= game.control.nation_count) {
    return nullptr;
  }
 
  return nations + nation;
}
 
/************************************************************************/
Nation_type_id nation_number(const struct nation_type *pnation)
{
  fc_assert_ret_val(pnation != nullptr, -1);
 
  return pnation->item_number;
}
 
/************************************************************************/
Nation_type_id nation_index(const struct nation_type *pnation)
{
  fc_assert_ret_val(pnation != nullptr, -1);
 
  return pnation - nations;
}
 
/************************************************************************/
Nation_type_id nation_count(void)
{
  return game.control.nation_count;
}
 
/****************************************************************************
  Nation iterator.
****************************************************************************/
struct nation_iter {
  struct iterator vtable;
  struct nation_type *p, *end;
};
#define NATION_ITER(p) ((struct nation_iter *)(p))
 
/************************************************************************/
size_t nation_iter_sizeof(void)
{
  return sizeof(struct nation_iter);
}
 
/************************************************************************/
static void nation_iter_next(struct iterator *iter)
{
  NATION_ITER(iter)->p++;
}
 
/************************************************************************/
static void *nation_iter_get(const struct iterator *iter)
{
  return NATION_ITER(iter)->p;
}
 
/************************************************************************/
static bool nation_iter_valid(const struct iterator *iter)
{
  struct nation_iter *it = NATION_ITER(iter);
  return it->p < it->end;
}
 
/************************************************************************/
struct iterator *nation_iter_init(struct nation_iter *it)
{
  it->vtable.next = nation_iter_next;
  it->vtable.get = nation_iter_get;
  it->vtable.valid = nation_iter_valid;
  it->p = nations;
 
  if (nations == nullptr) {
    it->end = nullptr;
  } else {
    it->end = nations + nation_count();
  }
 
  return ITERATOR(it);
}
 
/************************************************************************/
static void nation_init(struct nation_type *pnation)
{
  memset(pnation, 0, sizeof(*pnation));
 
  pnation->item_number = pnation - nations;
  pnation->translation_domain = nullptr;
  pnation->leaders = nation_leader_list_new_full(nation_leader_destroy);
  pnation->sets = nation_set_list_new();
  pnation->groups = nation_group_list_new();
 
  if (is_server()) {
    pnation->server.default_cities =
        nation_city_list_new_full(nation_city_destroy);
    pnation->server.civilwar_nations = nation_list_new();
    pnation->server.parent_nations = nation_list_new();
    pnation->server.conflicts_with = nation_list_new();
    /* server.rgb starts out nullptr */
    pnation->server.traits = fc_calloc(TRAIT_COUNT,
                                       sizeof(*pnation->server.traits));
  }
}
 
/************************************************************************/
static void nation_free(struct nation_type *pnation)
{
  free(pnation->legend);
  FC_FREE(pnation->translation_domain);
  nation_leader_list_destroy(pnation->leaders);
  nation_set_list_destroy(pnation->sets);
  nation_group_list_destroy(pnation->groups);
 
  if (is_server()) {
    nation_city_list_destroy(pnation->server.default_cities);
    nation_list_destroy(pnation->server.civilwar_nations);
    nation_list_destroy(pnation->server.parent_nations);
    nation_list_destroy(pnation->server.conflicts_with);
    rgbcolor_destroy(pnation->server.rgb);
    FC_FREE(pnation->server.traits);
  }
 
  memset(pnation, 0, sizeof(*pnation));
}
 
/************************************************************************/
void nations_alloc(int num)
{
  int i;
 
  nations = fc_malloc(sizeof(*nations) * num);
  game.control.nation_count = num;
 
  for (i = 0; i < num; i++) {
    nation_init(nations + i);
  }
}
 
/************************************************************************/
void nations_free(void)
{
  int i;
 
  if (nations == nullptr) {
    return;
  }
 
  for (i = 0; i < game.control.nation_count; i++) {
    nation_free(nations + i);
  }
 
  free(nations);
  nations = nullptr;
  game.control.nation_count = 0;
}
 
/************************************************************************/
struct government *init_government_of_nation(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return game.default_government);
  if (pnation->init_government) {
    return pnation->init_government;
  } else {
    return game.default_government;
  }
}
 
/************************************************************************/
struct nation_style *style_of_nation(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return 0);
  return pnation->style;
}
 
/************************************************************************/
const struct rgbcolor *nation_color(const struct nation_type *pnation)
{
  NATION_CHECK(pnation, return nullptr);
 
  return pnation->server.rgb;
}
 
/************************************************************************/
int nation_set_count(void)
{
  return num_nation_sets;
}
 
/************************************************************************/
int nation_set_index(const struct nation_set *pset)
{
  fc_assert_ret_val(pset != nullptr, -1);
 
  return pset - nation_sets;
}
 
/************************************************************************/
int nation_set_number(const struct nation_set *pset)
{
  return nation_set_index(pset);
}
 
/************************************************************************/
struct nation_set *nation_set_new(const char *set_name,
                                  const char *set_rule_name,
                                  const char *set_description)
{
  struct nation_set *pset;
 
  if (game.control.num_nation_sets <= num_nation_sets) {
    log_error("More nation sets than reported (%d).",
              game.control.num_nation_sets);
    return nullptr;
  }
 
  if (MAX_NUM_NATION_SETS <= num_nation_sets) {
    log_error("Too many nation sets (%d is the maximum).",
              MAX_NUM_NATION_SETS);
    return nullptr;
  }
 
  /* Print the name and truncate if needed. */
  pset = nation_sets + num_nation_sets;
  names_set(&pset->name, nullptr, set_name, set_rule_name);
  (void) sz_loud_strlcpy(pset->description, set_description,
                         "Nation set description \"%s\" too long; truncating.");
 
  if (nation_set_by_rule_name(rule_name_get(&pset->name)) != nullptr) {
    log_error("Duplicate nation set name %s.", rule_name_get(&pset->name));
 
    return nullptr;
  }
 
  if (nation_group_by_rule_name(rule_name_get(&pset->name)) != nullptr) {
    log_error("Nation set name %s is already used for a group.",
              rule_name_get(&pset->name));
 
    return nullptr;
  }
 
  num_nation_sets++;
 
  return pset;
}
 
/************************************************************************/
struct nation_set *nation_set_by_number(int id)
{
  /* Return valid pointer on client side even when the data of the
   * group is not yet received. So compare against expected number
   * of sets (game.control.num_nation_sets) and not
   * what we have already set up (num_nation_sets) */
  if (id < 0 || id >= game.control.num_nation_sets) {
    return nullptr;
  }
 
  return nation_sets + id;
}
 
/************************************************************************/
struct nation_set *nation_set_by_rule_name(const char *name)
{
  const char *qname = Qn_(name);
 
  nation_sets_iterate(pset) {
    if (0 == fc_strcasecmp(rule_name_get(&pset->name), qname)) {
      return pset;
    }
  } nation_sets_iterate_end;
 
  return nullptr;
}
 
/************************************************************************/
const char *nation_set_untranslated_name(const struct nation_set *pset)
{
  fc_assert_ret_val(pset != nullptr, nullptr);
 
  return untranslated_name(&pset->name);
}
 
/************************************************************************/
const char *nation_set_rule_name(const struct nation_set *pset)
{
  fc_assert_ret_val(pset != nullptr, nullptr);
 
  return rule_name_get(&pset->name);
}
 
/************************************************************************/
const char *nation_set_name_translation(const struct nation_set *pset)
{
  fc_assert_ret_val(pset != nullptr, nullptr);
 
  return name_translation_get(&pset->name);
}
 
/************************************************************************/
const char *nation_set_description(const struct nation_set *pset)
{
  fc_assert_ret_val(pset != nullptr, nullptr);
 
  return pset->description;
}
 
/************************************************************************/
bool nation_is_in_set(const struct nation_type *pnation,
                      const struct nation_set *pset)
{
  fc_assert_ret_val(pnation != nullptr, FALSE);
 
  nation_set_list_iterate(pnation->sets, aset) {
    if (aset == pset) {
      return TRUE;
    }
  } nation_set_list_iterate_end;
 
  return FALSE;
}
 
/************************************************************************/
struct nation_set *nation_set_by_setting_value(const char *setting)
{
  struct nation_set *pset = nullptr;
 
  if (strlen(setting) > 0) {
    pset = nation_set_by_rule_name(setting);
  }
  if (pset == nullptr) {
    /* Either no nation set specified, or the specified one isn't in the
     * current ruleset. Default to the first nation set specified by
     * the ruleset. */
    pset = nation_set_by_number(0);
  }
  fc_assert(pset != nullptr);
 
  return pset;
}
 
/****************************************************************************
  Nation set iterator.
****************************************************************************/
struct nation_set_iter {
  struct iterator vtable;
  struct nation_set *p, *end;
};
#define NATION_SET_ITER(p) ((struct nation_set_iter *)(p))
 
/************************************************************************/
size_t nation_set_iter_sizeof(void)
{
  return sizeof(struct nation_set_iter);
}
 
/************************************************************************/
static void nation_set_iter_next(struct iterator *iter)
{
  NATION_SET_ITER(iter)->p++;
}
 
/************************************************************************/
static void *nation_set_iter_get(const struct iterator *iter)
{
  return NATION_SET_ITER(iter)->p;
}
 
/************************************************************************/
static bool nation_set_iter_valid(const struct iterator *iter)
{
  struct nation_set_iter *it = NATION_SET_ITER(iter);
  return it->p < it->end;
}
 
/************************************************************************/
struct iterator *nation_set_iter_init(struct nation_set_iter *it)
{
  it->vtable.next = nation_set_iter_next;
  it->vtable.get = nation_set_iter_get;
  it->vtable.valid = nation_set_iter_valid;
  it->p = nation_sets;
  it->end = nation_sets + nation_set_count();
  return ITERATOR(it);
}
 
/************************************************************************/
int nation_group_count(void)
{
  return num_nation_groups;
}
 
/************************************************************************/
int nation_group_index(const struct nation_group *pgroup)
{
  fc_assert_ret_val(pgroup != nullptr, -1);
 
  return pgroup - nation_groups;
}
 
/************************************************************************/
int nation_group_number(const struct nation_group *pgroup)
{
  return nation_group_index(pgroup);
}
 
/************************************************************************/
struct nation_group *nation_group_new(const char *name)
{
  struct nation_group *pgroup;
 
  if (game.control.num_nation_groups <= num_nation_groups) {
    log_error("More nation groups than reported (%d).",
              game.control.num_nation_groups);
    return nullptr;
  }
 
   if (MAX_NUM_NATION_GROUPS <= num_nation_groups) {
    log_error("Too many nation groups (%d is the maximum).",
              MAX_NUM_NATION_GROUPS);
    return nullptr;
  }
 
  /* Print the name and truncate if needed. */
  pgroup = nation_groups + num_nation_groups;
  name_set(&pgroup->name, nullptr, name);
  if (nation_group_by_rule_name(rule_name_get(&pgroup->name)) != nullptr) {
    log_error("Duplicate nation group name %s.", rule_name_get(&pgroup->name));
 
    return nullptr;
  }
 
  if (nation_set_by_rule_name(rule_name_get(&pgroup->name)) != nullptr) {
    log_error("Nation group name %s is already used for a set.",
              rule_name_get(&pgroup->name));
 
    return nullptr;
  }
 
  if (is_server()) {
    pgroup->server.match = 0;
  }
  num_nation_groups++;
 
  return pgroup;
}
 
/************************************************************************/
struct nation_group *nation_group_by_number(int id)
{
  /* Return valid pointer on client side even when the data of the
   * group is not yet received. So compare against expected number
   * of groups (game.control.num_nation_groups) and not
   * what we have already set up (num_nation_groups) */
  if (id < 0 || id >= game.control.num_nation_groups) {
    return nullptr;
  }
 
  return nation_groups + id;
}
 
/************************************************************************/
struct nation_group *nation_group_by_rule_name(const char *name)
{
  const char *qname = Qn_(name);
 
  nation_groups_iterate(pgroup) {
    if (0 == fc_strcasecmp(rule_name_get(&pgroup->name), qname)) {
      return pgroup;
    }
  } nation_groups_iterate_end;
 
  return nullptr;
}
 
/************************************************************************/
void nation_group_set_hidden(struct nation_group *pgroup, bool hidden)
{
  fc_assert_ret(pgroup != nullptr);
 
  pgroup->hidden = hidden;
}
 
/************************************************************************/
void nation_group_set_match(struct nation_group *pgroup, int match)
{
  fc_assert_ret(is_server());
  fc_assert_ret(pgroup != nullptr);
 
  pgroup->server.match = match;
}
 
/************************************************************************/
bool is_nation_group_hidden(struct nation_group *pgroup)
{
  fc_assert_ret_val(pgroup != nullptr, TRUE);
 
  return pgroup->hidden;
}
 
/************************************************************************/
const char *nation_group_untranslated_name(const struct nation_group *pgroup)
{
  fc_assert_ret_val(pgroup != nullptr, nullptr);
 
  return untranslated_name(&pgroup->name);
}
 
/************************************************************************/
const char *nation_group_rule_name(const struct nation_group *pgroup)
{
  fc_assert_ret_val(pgroup != nullptr, nullptr);
 
  return rule_name_get(&pgroup->name);
}
 
/************************************************************************/
const char *nation_group_name_translation(const struct nation_group *pgroup)
{
  fc_assert_ret_val(pgroup != nullptr, nullptr);
 
  return name_translation_get(&pgroup->name);
}
 
/************************************************************************/
bool nation_is_in_group(const struct nation_type *pnation,
                        const struct nation_group *pgroup)
{
  fc_assert_ret_val(pnation != nullptr, FALSE);
 
  nation_group_list_iterate(pnation->groups, agroup) {
    if (agroup == pgroup) {
      return TRUE;
    }
  } nation_group_list_iterate_end;
  return FALSE;
}
 
/****************************************************************************
  Nation group iterator.
****************************************************************************/
struct nation_group_iter {
  struct iterator vtable;
  struct nation_group *p, *end;
};
#define NATION_GROUP_ITER(p) ((struct nation_group_iter *)(p))
 
/************************************************************************/
size_t nation_group_iter_sizeof(void)
{
  return sizeof(struct nation_group_iter);
}
 
/************************************************************************/
static void nation_group_iter_next(struct iterator *iter)
{
  NATION_GROUP_ITER(iter)->p++;
}
 
/************************************************************************/
static void *nation_group_iter_get(const struct iterator *iter)
{
  return NATION_GROUP_ITER(iter)->p;
}
 
/************************************************************************/
static bool nation_group_iter_valid(const struct iterator *iter)
{
  struct nation_group_iter *it = NATION_GROUP_ITER(iter);
  return it->p < it->end;
}
 
/************************************************************************/
struct iterator *nation_group_iter_init(struct nation_group_iter *it)
{
  it->vtable.next = nation_group_iter_next;
  it->vtable.get = nation_group_iter_get;
  it->vtable.valid = nation_group_iter_valid;
  it->p = nation_groups;
  it->end = nation_groups + nation_group_count();
  return ITERATOR(it);
}
 
/************************************************************************/
void nation_sets_groups_init(void)
{
  num_nation_sets = num_nation_groups = 0;
}
 
/************************************************************************/
void nation_sets_groups_free(void)
{
  num_nation_sets = num_nation_groups = 0;
}
 
/************************************************************************/
bool can_conn_edit_players_nation(const struct connection *pconn,
                                  const struct player *pplayer)
{
  return (can_conn_edit(pconn)
          || (game.info.is_new_game
              && ((!pconn->observer && pconn->playing == pplayer)
                  || pconn->access_level >= ALLOW_CTRL)));
}
 
/************************************************************************/
int nations_match(const struct nation_type *pnation1,
                  const struct nation_type *pnation2,
                  bool ignore_conflicts)
{
  bool in_conflict = FALSE;
  int sum = 0;
 
  fc_assert_ret_val(is_server(), -1);
  NATION_CHECK(pnation1, return -1);
  NATION_CHECK(pnation2, return -1);
 
  if (!ignore_conflicts) {
    nation_list_iterate(pnation1->server.conflicts_with, pnation0) {
      if (pnation0 == pnation2) {
        in_conflict = TRUE;
        sum = 1; /* Be sure to return something negative. */
        break;
      }
    } nation_list_iterate_end;
 
    if (!in_conflict) {
      nation_list_iterate(pnation2->server.conflicts_with, pnation0) {
        if (pnation0 == pnation1) {
          in_conflict = TRUE;
          sum = 1; /* Be sure to return something negative. */
          break;
        }
      } nation_list_iterate_end;
    }
  }
 
  nation_group_list_iterate(pnation1->groups, pgroup) {
    if (nation_is_in_group(pnation2, pgroup)) {
      sum += pgroup->server.match;
    }
  } nation_group_list_iterate_end;
 
  return (in_conflict ? -sum : sum);
}