registry_ini.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.
***********************************************************************/
 
/**************************************************************************
  The idea with this file is to create something similar to the ms-windows
  .ini files functions.
  however the interface is nice. ie:
  secfile_lookup_str(file, "player%d.unit%d.name", plrno, unitno);
***************************************************************************/
 
/**************************************************************************
  Description of the file format:
  (This is based on a format by the original authors, with
  various incremental extensions. --dwp)
 
  - Whitespace lines are ignored, as are lines where the first
  non-whitespace character is ';' (comment lines).
  Optionally '#' can also be used for comments.
 
  - A line of the form:
       *include "filename"
  includes the named file at that point.  (The '*' must be the
  first character on the line.) The file is found by looking in
  FREECIV_DATA_PATH.  Non-infinite recursive includes are allowed.
 
  - A line with "[name]" labels the start of a section with
  that name; one of these must be the first non-comment line in
  the file.  Any spaces within the brackets are included in the
  name, but this feature (?) should probably not be used...
 
  - Within a section, lines have one of the following forms:
      subname = "stringvalue"
      subname = -digits
      subname = digits
      subname = TRUE
      sunname = FALSE
  for a value with given name and string, negative integer, and
  positive integer values, respectively.  These entries are
  referenced in the following functions as "sectionname.subname".
  The section name should not contain any dots ('.'); the subname
  can, but they have no particular significance.  There can be
  optional whitespace before and/or after the equals sign.
  You can put a newline after (but not before) the equals sign.
 
  Backslash is an escape character in strings (double-quoted strings
  only, not names); recognised escapes are \n, \\, and \".
  (Any other <char> is just treated as <char>.)
 
  - Gettext markings:  You can surround strings like so:
      foo = _("stringvalue")
  The registry just ignores these extra markings, but this is
  useful for marking strings for translations via gettext tools.
 
  - Multiline strings:  Strings can have embedded newlines, eg:
    foo = _("
    This is a string
    over multiple lines
    ")
  This is equivalent to:
    foo = _("\nThis is a string\nover multiple lines\n")
  Note that if you misplace the trailing doublequote you can
  easily end up with strange errors reading the file...
 
  - Strings read from a file: A file can be read as a string value:
    foo = *filename.txt*
 
  - Vector format: An entry can have multiple values separated
  by commas, eg:
      foo = 10, 11, "x"
  These are accessed by names "foo", "foo,1" and "foo,2"
  (with section prefix as above).  So the above is equivalent to:
      foo   = 10
      foo,1 = 11
      foo,2 = "x"
  As in the example, in principle you can mix integers and strings,
  but the calling program will probably require elements to be the
  same type.   Note that the first element of a vector is not "foo,0",
  in order that the name of the first element is the same whether or
  not there are subsequent elements.  However as a convenience, if
  you try to lookup "foo,0" then you get back "foo".  (So you should
  never have "foo,0" as a real name in the datafile.)
 
  - Tabular format:  The lines:
      foo = { "bar",  "baz",   "bax"
              "wow",   10,     -5
              "cool",  "str"
              "hmm",    314,   99, 33, 11
      }
  are equivalent to the following:
      foo0.bar = "wow"
      foo0.baz = 10
      foo0.bax = -5
      foo1.bar = "cool"
      foo1.baz = "str"
      foo2.bar = "hmm"
      foo2.baz = 314
      foo2.bax = 99
      foo2.bax,1 = 33
      foo2.bax,2 = 11
  The first line specifies the base name and the column names, and the
  subsequent lines have data.  Again it is possible to mix string and
  integer values in a column, and have either more or less values
  in a row than there are column headings, but the code which uses
  this information (via the registry) may set more stringent conditions.
  If a row has more entries than column headings, the last column is
  treated as a vector (as above).  You can optionally put a newline
  after '=' and/or after '{'.
 
  The equivalence above between the new and old formats is fairly
  direct: internally, data is converted to the old format.
  In principle it could be a good idea to represent the data
  as a table (2-d array) internally, but the current method
  seems sufficient and relatively simple...
 
  There is a limited ability to save data in tabular:
  So long as the section_file is constructed in an expected way,
  tabular data (with no missing or extra values) can be saved
  in tabular form.  (See section_file_save().)
 
  - Multiline vectors: if the last non-comment non-whitespace
  character in a line is a comma, the line is considered to
  continue on to the next line.  Eg:
      foo = 10,
            11,
            "x"
  This is equivalent to the original "vector format" example above.
  Such multi-lines can occur for column headings, vectors, or
  table rows, again with some potential for strange errors...
 
***************************************************************************/
 
/**************************************************************************
  Hashing registry lookups: (by dwp)
  - Have a hash table direct to entries, bypassing sections division.
  - For convenience, store the key (the full section+entry name)
    in the hash table (some memory overhead).
  - The number of entries is fixed when the hash table is built.
  - Now uses hash.c
**************************************************************************/
 
#ifdef HAVE_CONFIG_H
#include <fc_config.h>
#endif
 
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
 
/* utility */
#include "astring.h"
#include "bugs.h"
#include "deprecations.h"
#include "fcintl.h"
#include "inputfile.h"
#include "ioz.h"
#include "log.h"
#include "mem.h"
#include "registry.h"
#include "section_file.h"
#include "shared.h"
#include "support.h"
 
#include "registry_ini.h"
 
#define MAX_LEN_SECPATH 1024
 
/* Set to FALSE for old-style savefiles. */
#define SAVE_TABLES TRUE
 
#define SPECVEC_TAG astring
#include "specvec.h"
 
static inline bool entry_used(const struct entry *pentry);
static inline void entry_use(struct entry *pentry);
 
static void entry_to_file(const struct entry *pentry, fz_FILE *fs);
static void entry_from_inf_token(struct section *psection, const char *name,
                                 const char *tok, struct inputfile *file);
 
/* An 'entry' is a string, integer, boolean or string vector;
 * See enum entry_type in registry.h.
 */
struct entry {
  struct section *psection;     /* Parent section. */
  char *name;                   /* Name, not including section prefix. */
  enum entry_type type;         /* The type of the entry. */
  int used;                     /* Number of times entry looked up. */
  char *comment;                /* Comment, may be nullptr. */
 
  union {
    /* ENTRY_BOOL */
    struct {
      bool value;
    } boolean;
    /* ENTRY_INT */
    struct {
      int value;
    } integer;
    /* ENTRY_FLOAT */
    struct {
      float value;
    } floating;
    /* ENTRY_STR */
    struct {
      char *value;              /* Malloced string. */
      bool escaped;             /* " or $. Usually TRUE */
      bool raw;                 /* Do not add anything. */
      bool gt_marking;          /* Save with gettext marking. */
    } string;
  };
};
 
static struct entry *section_entry_filereference_new(struct section *psection,
                                                     const char *name,
                                                     const char *value);
static struct entry *section_entry_comment_new(struct section *psection,
                                               const char *comment);
 
/**********************************************************************/
static const char *datafilename(const char *filename)
{
  return fileinfoname(get_data_dirs(), filename);
}
 
/**********************************************************************/
static bool is_secfile_entry_name_valid(const char *name)
{
  static const char *const allowed = "_.,-[]";
 
  while ('\0' != *name) {
    if (!fc_isalnum(*name) && strchr(allowed, *name) == nullptr) {
      return FALSE;
    }
    name++;
  }
  return TRUE;
}
 
/**********************************************************************/
static bool secfile_hash_insert(struct section_file *secfile,
                                struct entry *pentry)
{
  char buf[256];
  struct entry *hentry;
 
  if (secfile->hash.entries == nullptr) {
    /* Consider as success if this secfile doesn't have built the entries
     * hash table. */
    return TRUE;
  }
 
  entry_path(pentry, buf, sizeof(buf));
  if (entry_hash_replace_full(secfile->hash.entries, buf, pentry,
                              nullptr, &hentry)) {
    entry_use(hentry);
    if (!secfile->allow_duplicates) {
      SECFILE_LOG(secfile, entry_section(hentry),
                  "Tried to insert same value twice: %s", buf);
      return FALSE;
    }
  }
 
  return TRUE;
}
 
/**********************************************************************/
static bool secfile_hash_delete(struct section_file *secfile,
                                struct entry *pentry)
{
  char buf[256];
 
  if (secfile->hash.entries == nullptr) {
    /* Consider as success if this secfile doesn't have built the entries
     * hash table. */
    return TRUE;
  }
 
  entry_path(pentry, buf, sizeof(buf));
  return entry_hash_remove(secfile->hash.entries, buf);
}
 
/**********************************************************************/
static struct section_file *secfile_from_input_file(struct inputfile *inf,
                                                    const char *filename,
                                                    const char *section,
                                                    bool allow_duplicates)
{
  struct section_file *secfile;
  struct section *psection = nullptr;
  struct section *single_section = nullptr;
  bool table_state = FALSE;     /* TRUE when within tabular format. */
  int table_lineno = 0;         /* Row number in tabular, 0 top data row. */
  const char *tok;
  int i;
  struct astring base_name = ASTRING_INIT;    /* for table or single entry */
  struct astring field_name = ASTRING_INIT;
  struct astring_vector columns;    /* astrings for column headings */
  bool found_my_section = FALSE;
  bool error = FALSE;
 
  if (!inf) {
    return nullptr;
  }
 
  /* Assign the real value later, to speed up the creation of new entries. */
  secfile = secfile_new(TRUE);
  if (filename) {
    secfile->name = fc_strdup(filename);
  } else {
    secfile->name = nullptr;
  }
 
  astring_vector_init(&columns);
 
  if (filename) {
    log_verbose("Reading registry from \"%s\"", filename);
  } else {
    log_verbose("Reading registry");
  }
 
  while (!inf_at_eof(inf)) {
    if (inf_token(inf, INF_TOK_EOL)) {
      continue;
    }
    if (inf_at_eof(inf)) {
      /* may only realise at eof after trying to read eol above */
      break;
    }
    tok = inf_token(inf, INF_TOK_SECTION_NAME);
    if (tok) {
      if (found_my_section) {
        /* This shortcut will stop any further loading after the requested
         * section has been loaded (i.e., at the start of a new section).
         * This is needed to make the behavior useful, since the whole
         * purpose is to short-cut further loading of the file.  However
         * normally a section may be split up, and that will no longer
         * work here because it will be short-cut. */
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Found requested section; finishing"));
        goto END;
      }
      if (table_state) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "New section during table"));
        error = TRUE;
        goto END;
      }
      /* Check if we already have a section with this name.
         (Could ignore this and have a duplicate sections internally,
         but then secfile_get_secnames_prefix would return duplicates.)
         Duplicate section in input are likely to be useful for includes.
      */
      psection = secfile_section_by_name(secfile, tok);
      if (!psection) {
        if (!section || strcmp(tok, section) == 0) {
          psection = secfile_section_new(secfile, tok);
          if (section) {
            single_section = psection;
            found_my_section = TRUE;
          }
        }
      }
      if (!inf_token(inf, INF_TOK_EOL)) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Expected end of line"));
        error = TRUE;
        goto END;
      }
      continue;
    }
    if (inf_token(inf, INF_TOK_TABLE_END)) {
      if (!table_state) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Misplaced \"}\""));
        error = TRUE;
        goto END;
      }
      if (!inf_token(inf, INF_TOK_EOL)) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Expected end of line"));
        error = TRUE;
        goto END;
      }
      table_state = FALSE;
      continue;
    }
    if (table_state) {
      i = -1;
      do {
        int num_columns = astring_vector_size(&columns);
 
        i++;
 
        if (i < num_columns) {
          astr_set(&field_name, "%s%d.%s", astr_str(&base_name),
                   table_lineno, astr_str(&columns.p[i]));
        } else {
          astr_set(&field_name, "%s%d.%s,%d", astr_str(&base_name),
                   table_lineno, astr_str(&columns.p[num_columns - 1]),
                   (int) (i - num_columns + 1));
        }
 
        inf_discard_tokens(inf, INF_TOK_EOL);   /* Allow newlines */
        if (!(tok = inf_token(inf, INF_TOK_VALUE))) {
          SECFILE_LOG(secfile, psection, "%s",
                      inf_log_str(inf, "Expected value for %s",
                                  astr_str(&field_name)));
          error = TRUE;
          goto END;
        }
 
        entry_from_inf_token(psection, astr_str(&field_name), tok, inf);
      } while (inf_token(inf, INF_TOK_COMMA));
 
      if (!inf_token(inf, INF_TOK_EOL)) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Expected end of line or comma"));
        error = TRUE;
        goto END;
      }
      table_lineno++;
      continue;
    }
 
    if (!(tok = inf_token(inf, INF_TOK_ENTRY_NAME))) {
      SECFILE_LOG(secfile, psection, "%s",
                  inf_log_str(inf, "Expected entry name"));
      error = TRUE;
      goto END;
    }
 
    /* need to store tok before next calls: */
    astr_set(&base_name, "%s", tok);
 
    inf_discard_tokens(inf, INF_TOK_EOL);       /* allow newlines */
 
    if (inf_token(inf, INF_TOK_TABLE_START)) {
      i = -1;
      do {
        i++;
        inf_discard_tokens(inf, INF_TOK_EOL);   /* Allow newlines */
        if (!(tok = inf_token(inf, INF_TOK_VALUE))) {
          SECFILE_LOG(secfile, psection, "%s",
                      inf_log_str(inf, "Expected column header %s,%d",
                                  astr_str(&base_name), i));
          error = TRUE;
          goto END;
        }
        if (tok[0] != '\"') {
          SECFILE_LOG(secfile, psection, "%s",
                      inf_log_str(inf, "Table column header non-string"));
          error = TRUE;
          goto END;
        }
        { /* Expand columns: */
          int j, n_prev;
 
          n_prev = astring_vector_size(&columns);
          for (j = i + 1; j < n_prev; j++) {
            astr_free(&columns.p[j]);
          }
          astring_vector_reserve(&columns, i + 1);
          for (j = n_prev; j < i + 1; j++) {
            astr_init(&columns.p[j]);
          }
        }
        astr_set(&columns.p[i], "%s", tok + 1);
 
      } while (inf_token(inf, INF_TOK_COMMA));
 
      if (!inf_token(inf, INF_TOK_EOL)) {
        SECFILE_LOG(secfile, psection, "%s",
                    inf_log_str(inf, "Expected end of line or comma"));
        error = TRUE;
        goto END;
      }
      table_state = TRUE;
      table_lineno = 0;
      continue;
    }
    /* ordinary value: */
    i = -1;
    do {
      i++;
      inf_discard_tokens(inf, INF_TOK_EOL);     /* Allow newlines */
      if (!(tok = inf_token(inf, INF_TOK_VALUE))) {
        if (i == 0) {
          SECFILE_LOG(secfile, psection, "%s",
                      inf_log_str(inf, "Expected value for %s",
                                  astr_str(&base_name)));
        } else {
          SECFILE_LOG(secfile, psection, "%s",
                      inf_log_str(inf, "Expected value for %s,%d",
                                  astr_str(&base_name), i));
        }
        error = TRUE;
        goto END;
      }
      if (i == 0) {
        entry_from_inf_token(psection, astr_str(&base_name), tok, inf);
      } else {
        astr_set(&field_name, "%s,%d", astr_str(&base_name), i);
        entry_from_inf_token(psection, astr_str(&field_name), tok, inf);
      }
    } while (inf_token(inf, INF_TOK_COMMA));
    if (!inf_token(inf, INF_TOK_EOL)) {
      SECFILE_LOG(secfile, psection, "%s",
                  inf_log_str(inf, "Expected end of line or comma"));
      error = TRUE;
      goto END;
    }
  }
 
  if (table_state) {
    SECFILE_LOG(secfile, psection,
                "Finished registry before end of table");
    error = TRUE;
  }
 
END:
  inf_close(inf);
  astr_free(&base_name);
  astr_free(&field_name);
  for (i = 0; i < astring_vector_size(&columns); i++) {
    astr_free(&columns.p[i]);
  }
  astring_vector_free(&columns);
 
  if (section != nullptr) {
    if (!found_my_section) {
      secfile_destroy(secfile);
      return nullptr;
    }
 
    /* Build the entry hash table with single section information */
    secfile->allow_duplicates = allow_duplicates;
    entry_list_iterate(section_entries(single_section), pentry) {
      if (!secfile_hash_insert(secfile, pentry)) {
        secfile_destroy(secfile);
        return nullptr;
      }
    } entry_list_iterate_end;
 
    return secfile;
  }
 
  if (!error) {
    /* Build the entry hash table. */
    secfile->allow_duplicates = allow_duplicates;
    secfile->hash.entries = entry_hash_new_nentries(secfile->num_entries);
 
    section_list_iterate(secfile->sections, hashing_section) {
      entry_list_iterate(section_entries(hashing_section), pentry) {
        if (!secfile_hash_insert(secfile, pentry)) {
          error = TRUE;
          break;
        }
      } entry_list_iterate_end;
      if (error) {
        break;
      }
    } section_list_iterate_end;
  }
  if (error) {
    secfile_destroy(secfile);
    return nullptr;
  } else {
    return secfile;
  }
}
 
/**********************************************************************/
struct section_file *secfile_load_section(const char *filename,
                                          const char *section,
                                          bool allow_duplicates)
{
  char real_filename[1024];
 
  interpret_tilde(real_filename, sizeof(real_filename), filename);
  return secfile_from_input_file(inf_from_file(real_filename, datafilename),
                                 filename, section, allow_duplicates);
}
 
/**********************************************************************/
struct section_file *secfile_from_stream(fz_FILE *stream,
                                         bool allow_duplicates)
{
  return secfile_from_input_file(inf_from_stream(stream, datafilename),
                                 nullptr, nullptr, allow_duplicates);
}
 
/**********************************************************************/
static bool is_legal_table_entry_name(char c, bool num)
{
  return (num ? fc_isalnum(c) : fc_isalpha(c)) || c == '_';
}
 
/**********************************************************************/
bool secfile_save(const struct section_file *secfile, const char *filename,
                  int compression_level, enum fz_method compression_method)
{
  char real_filename[1024];
  char pentry_name[128];
  const char *col_entry_name;
  fz_FILE *fs;
  const struct entry_list_link *ent_iter, *save_iter, *col_iter;
  struct entry *pentry, *col_pentry;
  int i;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
 
  if (filename == nullptr) {
    filename = secfile->name;
  }
 
  interpret_tilde(real_filename, sizeof(real_filename), filename);
  fs = fz_from_file(real_filename, "w",
                    compression_method, compression_level);
 
  if (!fs) {
    SECFILE_LOG(secfile, nullptr, _("Could not open %s for writing"), real_filename);
 
    return FALSE;
  }
 
  section_list_iterate(secfile->sections, psection) {
    if (psection->special == EST_INCLUDE) {
      for (ent_iter = entry_list_head(section_entries(psection));
           ent_iter && (pentry = entry_list_link_data(ent_iter));
           ent_iter = entry_list_link_next(ent_iter)) {
 
        fc_assert(!strcmp(entry_name(pentry), "file"));
 
        fz_fprintf(fs, "*include ");
        entry_to_file(pentry, fs);
        fz_fprintf(fs, "\n");
      }
    } else if (psection->special == EST_COMMENT) {
      for (ent_iter = entry_list_head(section_entries(psection));
           ent_iter && (pentry = entry_list_link_data(ent_iter));
           ent_iter = entry_list_link_next(ent_iter)) {
 
        fc_assert(!strcmp(entry_name(pentry), "comment"));
 
        entry_to_file(pentry, fs);
        fz_fprintf(fs, "\n");
      }
    } else {
      fz_fprintf(fs, "\n[%s]\n", section_name(psection));
 
      /* Following doesn't use entry_list_iterate() because we want to do
       * tricky things with the iterators...
       */
      for (ent_iter = entry_list_head(section_entries(psection));
           ent_iter && (pentry = entry_list_link_data(ent_iter));
           ent_iter = entry_list_link_next(ent_iter)) {
        const char *comment;
 
        /* Tables: break out of this loop if this is a non-table
         * entry (pentry and ent_iter unchanged) or after table (pentry
         * and ent_iter suitably updated, pentry possibly nullptr).
         * After each table, loop again in case the next entry
         * is another table.
         */
        for (;;) {
          char *c, *first, base[64];
          int offset, irow, icol, ncol;
 
          /* Example: for first table name of "xyz0.blah":
           *  first points to the original string pentry->name
           *  base contains "xyz";
           *  offset = 5 (so first+offset gives "blah")
           *  note strlen(base) = offset - 2
           */
 
          if (!SAVE_TABLES) {
            break;
          }
 
          if (pentry->type == ENTRY_LONG_COMMENT) {
            break;
          }
 
          sz_strlcpy(pentry_name, entry_name(pentry));
          c = first = pentry_name;
          if (*c == '\0' || !is_legal_table_entry_name(*c, FALSE)) {
            break;
          }
          for (; *c != '\0' && is_legal_table_entry_name(*c, FALSE); c++) {
            /* nothing */
          }
          if (fc_strncmp(c, "0.", 2)) {
            break;
          }
          c += 2;
          if (*c == '\0' || !is_legal_table_entry_name(*c, TRUE)) {
            break;
          }
 
          offset = c - first;
          first[offset - 2] = '\0';
          sz_strlcpy(base, first);
          first[offset - 2] = '0';
          fz_fprintf(fs, "%s={", base);
 
          /* Save an iterator at this first entry, which we can later use
           * to repeatedly iterate over column names:
           */
          save_iter = ent_iter;
 
          /* Write the column names, and calculate ncol: */
          ncol = 0;
          col_iter = save_iter;
          for (; (col_pentry = entry_list_link_data(col_iter));
               col_iter = entry_list_link_next(col_iter)) {
            if (col_pentry->type == ENTRY_LONG_COMMENT) {
              continue;
            }
            col_entry_name = entry_name(col_pentry);
            if (fc_strncmp(col_entry_name, first, offset)) {
              break;
            }
            fz_fprintf(fs, "%s\"%s\"", (ncol == 0 ? "" : ","),
                       col_entry_name + offset);
            ncol++;
          }
          fz_fprintf(fs, "\n");
 
          /* Iterate over rows and columns, incrementing ent_iter as we go,
           * and writing values to the table. Have a separate iterator
           * to the column names to check they all match.
           */
          irow = icol = 0;
          col_iter = save_iter;
          for (;;) {
            char expect[128];     /* pentry->name we're expecting */
 
            pentry = entry_list_link_data(ent_iter);
            col_pentry = entry_list_link_data(col_iter);
 
            if (pentry && pentry->type == ENTRY_LONG_COMMENT) {
              if (icol == 0) {
                entry_to_file(pentry, fs);
              } else {
                bugreport_request("In file %s, section %s there was\n"
                                  "an attempt to insert comment in the middle of table row.",
                                  real_filename, section_name(psection));
              }
              ent_iter = entry_list_link_next(ent_iter);
              continue;
            } else {
 
              fc_snprintf(expect, sizeof(expect), "%s%d.%s",
                          base, irow, entry_name(col_pentry) + offset);
 
              /* break out of tabular if doesn't match: */
              if ((!pentry) || (strcmp(entry_name(pentry), expect) != 0)) {
                if (icol != 0) {
                  /* If the second or later row of a table is missing some
                   * entries that the first row had, we drop out of the tabular
                   * format.  This is inefficient so we print a warning message;
                   * the calling code probably needs to be fixed so that it can
                   * use the more efficient tabular format.
                   *
                   * FIXME: If the first row is missing some entries that the
                   * second or later row has, then we'll drop out of tabular
                   * format without an error message. */
                  bugreport_request("In file %s, there is no entry in the registry for\n"
                                    "%s.%s (or the entries are out of order). This means\n"
                                    "a less efficient non-tabular format will be used.\n"
                                    "To avoid this make sure all rows of a table are\n"
                                    "filled out with an entry for every column.",
                                    real_filename, section_name(psection), expect);
                  fz_fprintf(fs, "\n");
                }
                fz_fprintf(fs, "}\n");
                break;
              }
            }
 
            if (icol > 0) {
              fz_fprintf(fs, ",");
            }
            entry_to_file(pentry, fs);
 
            ent_iter = entry_list_link_next(ent_iter);
            col_iter = entry_list_link_next(col_iter);
 
            icol++;
            if (icol == ncol) {
              fz_fprintf(fs, "\n");
              irow++;
              icol = 0;
              col_iter = save_iter;
            }
          }
          if (!pentry) {
            break;
          }
        }
        if (!pentry) {
          break;
        }
 
        if (pentry->type == ENTRY_LONG_COMMENT) {
          entry_to_file(pentry, fs);
        } else {
          /* Classic entry. */
          col_entry_name = entry_name(pentry);
          fz_fprintf(fs, "%s=", col_entry_name);
          entry_to_file(pentry, fs);
 
          /* Check for vector. */
          for (i = 1;; i++) {
            col_iter = entry_list_link_next(ent_iter);
            col_pentry = entry_list_link_data(col_iter);
            if (col_pentry == nullptr || col_pentry->type == ENTRY_LONG_COMMENT) {
              break;
            }
            fc_snprintf(pentry_name, sizeof(pentry_name),
                        "%s,%d", col_entry_name, i);
            if (0 != strcmp(pentry_name, entry_name(col_pentry))) {
              break;
            }
            fz_fprintf(fs, ",");
            entry_to_file(col_pentry, fs);
            ent_iter = col_iter;
          }
 
          comment = entry_comment(pentry);
          if (comment) {
            fz_fprintf(fs, "  # %s\n", comment);
          } else {
            fz_fprintf(fs, "\n");
          }
        }
      }
    }
  } section_list_iterate_end;
 
  if (0 != fz_ferror(fs)) {
    SECFILE_LOG(secfile, nullptr, "Error before closing %s: %s",
                real_filename, fz_strerror(fs));
    fz_fclose(fs);
    return FALSE;
  }
  if (0 != fz_fclose(fs)) {
    SECFILE_LOG(secfile, nullptr, "Error closing %s", real_filename);
    return FALSE;
  }
 
  return TRUE;
}
 
/**********************************************************************/
void secfile_check_unused(const struct section_file *secfile)
{
  bool any = FALSE;
 
  section_list_iterate(secfile_sections(secfile), psection) {
    entry_list_iterate(section_entries(psection), pentry) {
      if (!entry_used(pentry)) {
        if (!any && secfile->name) {
          log_verbose("Unused entries in file %s:", secfile->name);
          any = TRUE;
        }
        if (are_deprecation_warnings_enabled()) {
          log_deprecation_always("%s: unused entry: %s.%s",
                                 secfile->name != nullptr ? secfile->name : "nameless",
                                 section_name(psection), entry_name(pentry));
        } else {
#ifdef FREECIV_TESTMATIC
          log_testmatic("%s: unused entry: %s.%s",
                        secfile->name != nullptr ? secfile->name : "nameless",
                        section_name(psection), entry_name(pentry));
#else  /* FREECIV_TESTMATIC */
          log_verbose("  unused entry: %s.%s",
                      section_name(psection), entry_name(pentry));
#endif /* FREECIV_TESTMATIC */
        }
      }
    } entry_list_iterate_end;
  } section_list_iterate_end;
}
 
/**********************************************************************/
const char *secfile_name(const struct section_file *secfile)
{
  if (secfile == nullptr) {
    return "nullptr";
  } else if (secfile->name) {
    return secfile->name;
  } else {
    return "(anonymous)";
  }
}
 
/**********************************************************************/
static struct section *secfile_insert_base(struct section_file *secfile,
                                           const char *path,
                                           const char **pent_name)
{
  char fullpath[MAX_LEN_SECPATH];
  char *ent_name;
  struct section *psection;
 
  sz_strlcpy(fullpath, path);
 
  ent_name = strchr(fullpath, '.');
  if (!ent_name) {
    SECFILE_LOG(secfile, nullptr,
                "Section and entry names must be separated by a dot.");
    return nullptr;
  }
 
  /* Separates section and entry names. */
  *ent_name = '\0';
  *pent_name = path + (ent_name - fullpath) + 1;
  psection = secfile_section_by_name(secfile, fullpath);
  if (psection) {
    return psection;
  } else {
    return secfile_section_new(secfile, fullpath);
  }
}
 
/**********************************************************************/
struct entry *secfile_insert_bool_full(struct section_file *secfile,
                                       bool value, const char *comment,
                                       bool allow_replace,
                                       const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_BOOL == entry_type_get(pentry)) {
        if (!entry_bool_set(pentry, value)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_bool_new(psection, ent_name, value);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_bool_vec_full(struct section_file *secfile,
                                    const bool *values, size_t dim,
                                    const char *comment, bool allow_replace,
                                    const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_bool_full(secfile, values[0], comment,
                                  allow_replace, "%s", fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_bool_full(secfile, values[i], comment,
                                 allow_replace, "%s,%d",
                                 fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_insert_int_full(struct section_file *secfile,
                                      int value, const char *comment,
                                      bool allow_replace,
                                      const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_INT == entry_type_get(pentry)) {
        if (!entry_int_set(pentry, value)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_int_new(psection, ent_name, value);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_int_vec_full(struct section_file *secfile,
                                   const int *values, size_t dim,
                                   const char *comment, bool allow_replace,
                                   const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_int_full(secfile, values[0], comment,
                                 allow_replace, "%s", fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_int_full(secfile, values[i], comment,
                                allow_replace, "%s,%d",
                                fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_insert_float_full(struct section_file *secfile,
                                        float value, const char *comment,
                                        bool allow_replace,
                                        const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_FLOAT == entry_type_get(pentry)) {
        if (!entry_float_set(pentry, value)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_float_new(psection, ent_name, value);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
struct section *secfile_insert_include(struct section_file *secfile,
                                       const char *filename)
{
  struct section *psection;
  char buffer[200];
 
  fc_snprintf(buffer, sizeof(buffer), "include_%u", secfile->num_includes++);
 
  fc_assert_ret_val(secfile_section_by_name(secfile, buffer) == nullptr, nullptr);
 
  /* Create include section. */
  psection = secfile_section_new(secfile, buffer);
  psection->special = EST_INCLUDE;
 
  /* Then add string entry "file" to it. */
  secfile_insert_str_full(secfile, filename, nullptr, FALSE, FALSE,
                          EST_INCLUDE, "%s.file", buffer);
 
  return psection;
}
 
/**********************************************************************/
struct section *secfile_insert_long_comment(struct section_file *secfile,
                                            const char *comment)
{
  struct section *psection;
  char buffer[200];
 
  fc_snprintf(buffer, sizeof(buffer), "long_comment_%u", secfile->num_long_comments++);
 
  fc_assert_ret_val(secfile_section_by_name(secfile, buffer) == nullptr, nullptr);
 
  /* Create long comment section. */
  psection = secfile_section_new(secfile, buffer);
  psection->special = EST_COMMENT;
 
  /* Then add string entry "comment" to it. */
  secfile_insert_str_full(secfile, comment, nullptr, FALSE, TRUE,
                          EST_COMMENT, "%s.comment", buffer);
 
  return psection;
}
 
/**********************************************************************/
struct entry *secfile_insert_str_full(struct section_file *secfile,
                                      const char *str,
                                      const char *comment,
                                      bool allow_replace,
                                      bool no_escape,
                                      enum entry_special_type stype,
                                      const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (psection->special != stype) {
    log_error("Tried to insert wrong type of entry to section");
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_STR == entry_type_get(pentry)) {
        if (!entry_str_set(pentry, str)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_str_new(psection, ent_name, str, !no_escape);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  if (stype == EST_COMMENT) {
    pentry->string.raw = TRUE;
  }
 
  return pentry;
}
 
/**********************************************************************/
struct entry *secfile_insert_comment(struct section_file *secfile,
                                     const char *str,
                                     const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  sz_strlcat(fullpath, ".#");
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (psection->special != EST_NORMAL) {
    log_error("Tried to insert wrong type of entry to section");
    return nullptr;
  }
 
  pentry = section_entry_comment_new(psection, str);
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_str_vec_full(struct section_file *secfile,
                                   const char *const *strings, size_t dim,
                                   const char *comment, bool allow_replace,
                                   bool no_escape, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_str_full(secfile, strings[0], comment,
                                 allow_replace, no_escape, FALSE,
                                 "%s", fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_str_full(secfile, strings[i], comment,
                                allow_replace, no_escape, FALSE,
                                "%s,%d", fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_insert_filereference(struct section_file *secfile,
                                           const char *filename,
                                           const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (psection->special != EST_NORMAL) {
    log_error("Tried to insert normal entry to different kind of section");
    return nullptr;
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_filereference_new(psection, ent_name, filename);
  }
 
  return pentry;
}
 
/**********************************************************************/
struct entry *secfile_insert_plain_enum_full(struct section_file *secfile,
                                             int enumerator,
                                             secfile_enum_name_fn_t name_fn,
                                             const char *comment,
                                             bool allow_replace,
                                             const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const char *str;
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, nullptr);
  str = name_fn(enumerator);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, str != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_STR == entry_type_get(pentry)) {
        if (!entry_str_set(pentry, str)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_str_new(psection, ent_name, str, TRUE);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_plain_enum_vec_full(struct section_file *secfile,
                                          const int *enumurators, size_t dim,
                                          secfile_enum_name_fn_t name_fn,
                                          const char *comment,
                                          bool allow_replace,
                                          const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_plain_enum_full(secfile, enumurators[0],
                                        name_fn, comment,
                                        allow_replace, "%s",
                                        fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_plain_enum_full(secfile, enumurators[i],
                                       name_fn, comment,
                                       allow_replace, "%s,%d",
                                       fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_insert_bitwise_enum_full(struct section_file *secfile,
                                               int bitwise_val,
                                               secfile_enum_name_fn_t
                                               name_fn,
                                               secfile_enum_iter_fn_t
                                               begin_fn,
                                               secfile_enum_iter_fn_t
                                               end_fn,
                                               secfile_enum_next_fn_t
                                               next_fn,
                                               const char *comment,
                                               bool allow_replace,
                                               const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH], str[MAX_LEN_SECPATH];
  const char *ent_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
  int i;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, begin_fn != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, end_fn != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, next_fn != nullptr, nullptr);
 
  /* Compute a string containing all the values separated by '|'. */
  str[0] = '\0';     /* Insert at least an empty string. */
  if (0 != bitwise_val) {
    for (i = begin_fn(); i != end_fn(); i = next_fn(i)) {
      if (i & bitwise_val) {
        if ('\0' == str[0]) {
          sz_strlcpy(str, name_fn(i));
        } else {
          cat_snprintf(str, sizeof(str), "|%s", name_fn(i));
        }
      }
    }
  }
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_STR == entry_type_get(pentry)) {
        if (!entry_str_set(pentry, str)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_str_new(psection, ent_name, str, TRUE);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_bitwise_enum_vec_full(struct section_file *secfile,
                                            const int *bitwise_vals,
                                            size_t dim,
                                            secfile_enum_name_fn_t name_fn,
                                            secfile_enum_iter_fn_t begin_fn,
                                            secfile_enum_iter_fn_t end_fn,
                                            secfile_enum_next_fn_t next_fn,
                                            const char *comment,
                                            bool allow_replace,
                                            const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, begin_fn != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, end_fn != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, next_fn != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_bitwise_enum_full(secfile, bitwise_vals[0],
                                          name_fn, begin_fn, end_fn,
                                          next_fn, comment,
                                          allow_replace, "%s",
                                          fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_bitwise_enum_full(secfile, bitwise_vals[i],
                                         name_fn, begin_fn, end_fn,
                                         next_fn, comment,
                                         allow_replace, "%s,%d",
                                         fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_insert_enum_data_full(struct section_file *secfile,
                                            int value, bool bitwise,
                                            secfile_enum_name_data_fn_t name_fn,
                                            secfile_data_t data,
                                            const char *comment,
                                            bool allow_replace,
                                            const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH], str[MAX_LEN_SECPATH];
  const char *ent_name, *val_name;
  struct section *psection;
  struct entry *pentry = nullptr;
  va_list args;
  int i;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, nullptr);
 
  if (bitwise) {
    /* Compute a string containing all the values separated by '|'. */
    str[0] = '\0';     /* Insert at least an empty string. */
    if (0 != value) {
      for (i = 0; (val_name = name_fn(data, i)); i++) {
        if ((1 << i) & value) {
          if ('\0' == str[0]) {
            sz_strlcpy(str, val_name);
          } else {
            cat_snprintf(str, sizeof(str), "|%s", val_name);
          }
        }
      }
    }
  } else {
    if (!(val_name = name_fn(data, value))) {
      SECFILE_LOG(secfile, nullptr, "Value %d not supported.", value);
 
      return nullptr;
    }
    sz_strlcpy(str, val_name);
  }
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  psection = secfile_insert_base(secfile, fullpath, &ent_name);
  if (!psection) {
    return nullptr;
  }
 
  if (allow_replace) {
    pentry = section_entry_by_name(psection, ent_name);
    if (pentry != nullptr) {
      if (ENTRY_STR == entry_type_get(pentry)) {
        if (!entry_str_set(pentry, str)) {
          return nullptr;
        }
      } else {
        entry_destroy(pentry);
        pentry = nullptr;
      }
    }
  }
 
  if (pentry == nullptr) {
    pentry = section_entry_str_new(psection, ent_name, str, TRUE);
  }
 
  if (pentry != nullptr && comment != nullptr) {
    entry_set_comment(pentry, comment);
  }
 
  return pentry;
}
 
/**********************************************************************/
size_t secfile_insert_enum_vec_data_full(struct section_file *secfile,
                                         const int *values, size_t dim,
                                         bool bitwise,
                                         secfile_enum_name_data_fn_t name_fn,
                                         secfile_data_t data,
                                         const char *comment,
                                         bool allow_replace,
                                         const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i, ret = 0;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, 0);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, 0);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* NB: 'path,0' is actually 'path'. See comment in the head
   * of the file. */
  if (dim > 0
      && secfile_insert_enum_data_full(secfile, values[0], bitwise,
                                       name_fn, data, comment,
                                       allow_replace, "%s",
                                       fullpath) != nullptr) {
    ret++;
  }
  for (i = 1; i < dim; i++) {
    if (secfile_insert_enum_data_full(secfile, values[i], bitwise,
                                      name_fn, data, comment,
                                      allow_replace, "%s,%d",
                                      fullpath, (int) i) != nullptr) {
      ret++;
    }
  }
 
  return ret;
}
 
/**********************************************************************/
struct entry *secfile_entry_by_path(const struct section_file *secfile,
                                    const char *path)
{
  char fullpath[MAX_LEN_SECPATH];
  char *ent_name;
  size_t len;
  struct section *psection;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  sz_strlcpy(fullpath, path);
 
  /* Treat "sec.foo,0" as "sec.foo": */
  len = strlen(fullpath);
  if (len > 2 && fullpath[len - 2] == ',' && fullpath[len - 1] == '0') {
    fullpath[len - 2] = '\0';
  }
 
  if (secfile->hash.entries != nullptr) {
    struct entry *pentry;
 
    if (entry_hash_lookup(secfile->hash.entries, fullpath, &pentry)) {
      entry_use(pentry);
    }
    return pentry;
  }
 
  /* I dont like strtok().
   * - Me neither! */
  ent_name = strchr(fullpath, '.');
  if (!ent_name) {
    return nullptr;
  }
 
  /* Separates section and entry names. */
  *ent_name++ = '\0';
  psection = secfile_section_by_name(secfile, fullpath);
  if (psection) {
    return section_entry_by_name(psection, ent_name);
  } else {
    return nullptr;
  }
}
 
/**********************************************************************/
bool secfile_entry_delete(struct section_file *secfile,
                          const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  va_list args;
  struct entry *pentry;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "Path %s does not exists.", fullpath);
    return FALSE;
  }
 
  entry_destroy(pentry);
 
  return TRUE;
}
 
/**********************************************************************/
struct entry *secfile_entry_lookup(const struct section_file *secfile,
                                   const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  return secfile_entry_by_path(secfile, fullpath);
}
 
/**********************************************************************/
bool secfile_lookup_bool(const struct section_file *secfile, bool *bval,
                         const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
 
    return FALSE;
  }
 
  return entry_bool_get(pentry, bval);
}
 
/**********************************************************************/
bool secfile_lookup_bool_default(const struct section_file *secfile,
                                 bool def, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  bool bval;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, def);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return def;
  }
 
  if (entry_bool_get(pentry, &bval)) {
    return bval;
  }
 
  return def;
}
 
/**********************************************************************/
bool *secfile_lookup_bool_vec(const struct section_file *secfile,
                              size_t *dim, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  bool *vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(bool));
  for (i = 0; i < *dim; i++) {
    if (!secfile_lookup_bool(secfile, vec + i, "%s,%d", fullpath, (int) i)) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
 
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
bool secfile_lookup_int(const struct section_file *secfile, int *ival,
                        const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
 
    return FALSE;
  }
 
  return entry_int_get(pentry, ival);
}
 
/**********************************************************************/
int secfile_lookup_int_default(const struct section_file *secfile, int def,
                               const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  int ival;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, def);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return def;
  }
 
  if (entry_int_get(pentry, &ival)) {
    return ival;
  }
 
  return def;
}
 
/**********************************************************************/
int secfile_lookup_int_def_min_max(const struct section_file *secfile,
                                   int defval, int minval, int maxval,
                                   const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  int value;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, defval);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return defval;
  }
 
  if (!entry_int_get(pentry, &value)) {
    return defval;
  }
 
  if (value < minval) {
    SECFILE_LOG(secfile, entry_section(pentry),
                "\"%s\" should be in the interval [%d, %d] but is %d;"
                "using the minimal value.",
                fullpath, minval, maxval, value);
    value = minval;
  }
 
  if (value > maxval) {
    SECFILE_LOG(secfile, entry_section(pentry),
                "\"%s\" should be in the interval [%d, %d] but is %d;"
                "using the maximal value.",
                fullpath, minval, maxval, value);
    value = maxval;
  }
 
  return value;
}
 
/**********************************************************************/
int *secfile_lookup_int_vec(const struct section_file *secfile,
                            size_t *dim, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  int *vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
 
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(int));
  for (i = 0; i < *dim; i++) {
    if (!secfile_lookup_int(secfile, vec + i, "%s,%d", fullpath, (int) i)) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
bool secfile_lookup_float(const struct section_file *secfile, float *fval,
                          const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return FALSE;
  }
 
  return entry_float_get(pentry, fval);
}
 
/**********************************************************************/
float secfile_lookup_float_default(const struct section_file *secfile,
                                   float def, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  float fval;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, def);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return def;
  }
 
  if (entry_float_get(pentry, &fval)) {
    return fval;
  }
 
  return def;
}
 
/**********************************************************************/
const char *secfile_lookup_str(const struct section_file *secfile,
                               const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  if (entry_str_get(pentry, &str)) {
    return str;
  }
 
  return nullptr;
}
 
/**********************************************************************/
const char *secfile_lookup_str_default(const struct section_file *secfile,
                                       const char *def,
                                       const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, def);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return def;
  }
 
  if (entry_str_get(pentry, &str)) {
    return str;
  }
 
  SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't have a string.", fullpath);
 
  return def;
}
 
/**********************************************************************/
const char **secfile_lookup_str_vec(const struct section_file *secfile,
                                    size_t *dim, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  const char **vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(const char *));
  for (i = 0; i < *dim; i++) {
    if (!(vec[i] = secfile_lookup_str(secfile, "%s,%d",
                                      fullpath, (int) i))) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
bool secfile_lookup_plain_enum_full(const struct section_file *secfile,
                                    int *penumerator,
                                    secfile_enum_is_valid_fn_t is_valid_fn,
                                    secfile_enum_by_name_fn_t by_name_fn,
                                    const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, penumerator != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return FALSE;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return FALSE;
  }
 
  *penumerator = by_name_fn(str, strcmp);
  if (is_valid_fn(*penumerator)) {
    return TRUE;
  }
 
  SECFILE_LOG(secfile, entry_section(pentry),
              "Entry \"%s\": no match for \"%s\".",
              entry_name(pentry), str);
  return FALSE;
}
 
/**********************************************************************/
int secfile_lookup_plain_enum_default_full(const struct section_file
                                           *secfile, int defval,
                                           secfile_enum_is_valid_fn_t
                                           is_valid_fn,
                                           secfile_enum_by_name_fn_t
                                           by_name_fn,
                                           const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str;
  int val;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, defval);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, defval);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, defval);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return defval;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return defval;
  }
 
  val = by_name_fn(str, strcmp);
  if (is_valid_fn(val)) {
    return val;
  } else {
    return defval;
  }
}
 
/**********************************************************************/
int *secfile_lookup_plain_enum_vec_full(const struct section_file *secfile,
                                        size_t *dim,
                                        secfile_enum_is_valid_fn_t
                                        is_valid_fn,
                                        secfile_enum_by_name_fn_t
                                        by_name_fn,
                                        const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  int *vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(int));
  for (i = 0; i < *dim; i++) {
    if (!secfile_lookup_plain_enum_full(secfile, vec + i, is_valid_fn,
                                        by_name_fn, "%s,%d",
                                        fullpath, (int) i)) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
bool secfile_lookup_bitwise_enum_full(const struct section_file *secfile,
                                      int *penumerator,
                                      secfile_enum_is_valid_fn_t is_valid_fn,
                                      secfile_enum_by_name_fn_t by_name_fn,
                                      const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str, *p;
  char val_name[MAX_LEN_SECPATH];
  int val;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, penumerator != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return FALSE;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return FALSE;
  }
 
  *penumerator = 0;
  if ('\0' == str[0]) {
    /* Empty string = no value. */
    return TRUE;
  }
 
  /* Value names are separated by '|'. */
  do {
    p = strchr(str, '|');
    if (p != nullptr) {
      p++;
      fc_strlcpy(val_name, str, p - str);
    } else {
      /* Last segment, full copy. */
      sz_strlcpy(val_name, str);
    }
    remove_leading_trailing_spaces(val_name);
    val = by_name_fn(val_name, strcmp);
    if (!is_valid_fn(val)) {
      SECFILE_LOG(secfile, entry_section(pentry),
                  "Entry \"%s\": no match for \"%s\".",
                  entry_name(pentry), val_name);
      return FALSE;
    }
    *penumerator |= val;
    str = p;
  } while (p != nullptr);
 
  return TRUE;
}
 
/**********************************************************************/
int secfile_lookup_bitwise_enum_default_full(const struct section_file
                                             *secfile, int defval,
                                             secfile_enum_is_valid_fn_t
                                             is_valid_fn,
                                             secfile_enum_by_name_fn_t
                                             by_name_fn,
                                             const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str, *p;
  char val_name[MAX_LEN_SECPATH];
  int val, full_val;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, defval);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, defval);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, defval);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    return defval;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return defval;
  }
 
  if ('\0' == str[0]) {
    /* Empty string = no value. */
    return 0;
  }
 
  /* Value names are separated by '|'. */
  full_val = 0;
  do {
    p = strchr(str, '|');
    if (p != nullptr) {
      p++;
      fc_strlcpy(val_name, str, p - str);
    } else {
      /* Last segment, full copy. */
      sz_strlcpy(val_name, str);
    }
    remove_leading_trailing_spaces(val_name);
    val = by_name_fn(val_name, strcmp);
    if (!is_valid_fn(val)) {
      return defval;
    }
    full_val |= val;
    str = p;
  } while (p != nullptr);
 
  return full_val;
}
 
/**********************************************************************/
int *secfile_lookup_bitwise_enum_vec_full(const struct section_file *secfile,
                                          size_t *dim,
                                          secfile_enum_is_valid_fn_t
                                          is_valid_fn,
                                          secfile_enum_by_name_fn_t
                                          by_name_fn,
                                          const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  int *vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, is_valid_fn != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, by_name_fn != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(int));
  for (i = 0; i < *dim; i++) {
    if (!secfile_lookup_bitwise_enum_full(secfile, vec + i, is_valid_fn,
                                          by_name_fn, "%s,%d",
                                          fullpath, (int) i)) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
 
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
bool secfile_lookup_enum_data(const struct section_file *secfile,
                              int *pvalue, bool bitwise,
                              secfile_enum_name_data_fn_t name_fn,
                              secfile_data_t data, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str, *p, *name;
  char val_name[MAX_LEN_SECPATH];
  int val;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, pvalue != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, FALSE);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return FALSE;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return FALSE;
  }
 
  if (bitwise) {
    *pvalue = 0;
    if ('\0' == str[0]) {
      /* Empty string = no value. */
      return TRUE;
    }
 
    /* Value names are separated by '|'. */
    do {
      p = strchr(str, '|');
      if (p != nullptr) {
        p++;
        fc_strlcpy(val_name, str, p - str);
      } else {
        /* Last segment, full copy. */
        sz_strlcpy(val_name, str);
      }
      remove_leading_trailing_spaces(val_name);
      for (val = 0; (name = name_fn(data, val)); val++) {
        if (0 == fc_strcasecmp(name, val_name)) {
          break;
        }
      }
      if (name == nullptr) {
        SECFILE_LOG(secfile, entry_section(pentry),
                    "Entry \"%s\": no match for \"%s\".",
                    entry_name(pentry), val_name);
        return FALSE;
      }
      *pvalue |= 1 << val;
      str = p;
    } while (p != nullptr);
  } else {
    for (val = 0; (name = name_fn(data, val)); val++) {
      if (0 == fc_strcasecmp(name, str)) {
        *pvalue = val;
        break;
      }
    }
    if (name == nullptr) {
      SECFILE_LOG(secfile, entry_section(pentry),
                  "Entry \"%s\": no match for \"%s\".",
                  entry_name(pentry), str);
      return FALSE;
    }
  }
 
  return TRUE;
}
 
/**********************************************************************/
int secfile_lookup_enum_default_data(const struct section_file *secfile,
                                     int defval, bool bitwise,
                                     secfile_enum_name_data_fn_t name_fn,
                                     secfile_data_t data,
                                     const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  const struct entry *pentry;
  const char *str, *p, *name;
  char val_name[MAX_LEN_SECPATH];
  int value, val;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, defval);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, defval);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if (!(pentry = secfile_entry_by_path(secfile, fullpath))) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return defval;
  }
 
  if (!entry_str_get(pentry, &str)) {
    return defval;
  }
 
  value = 0;
  if (bitwise) {
    if ('\0' == str[0]) {
      /* Empty string = no value. */
      return value;
    }
 
    /* Value names are separated by '|'. */
    do {
      p = strchr(str, '|');
      if (p != nullptr) {
        p++;
        fc_strlcpy(val_name, str, p - str);
      } else {
        /* Last segment, full copy. */
        sz_strlcpy(val_name, str);
      }
      remove_leading_trailing_spaces(val_name);
      for (val = 0; (name = name_fn(data, val)); val++) {
        if (0 == strcmp(name, val_name)) {
          break;
        }
      }
      if (name == nullptr) {
        SECFILE_LOG(secfile, entry_section(pentry),
                    "Entry \"%s\": no match for \"%s\".",
                    entry_name(pentry), val_name);
        return defval;
      }
      value |= 1 << val;
      str = p;
    } while (p != nullptr);
  } else {
    for (val = 0; (name = name_fn(data, val)); val++) {
      if (0 == strcmp(name, str)) {
        value = val;
        break;
      }
    }
    if (name == nullptr) {
      SECFILE_LOG(secfile, entry_section(pentry),
                  "Entry \"%s\": no match for \"%s\".",
                  entry_name(pentry), str);
      return defval;
    }
  }
 
  return value;
}
 
/**********************************************************************/
int *secfile_lookup_enum_vec_data(const struct section_file *secfile,
                                  size_t *dim, bool bitwise,
                                  secfile_enum_name_data_fn_t name_fn,
                                  secfile_data_t data, const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  size_t i = 0;
  int *vec;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, dim != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, name_fn != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  /* Check size. */
  while (secfile_entry_lookup(secfile, "%s,%d", fullpath, (int) i) != nullptr) {
    i++;
  }
  *dim = i;
 
  if (0 == i) {
    /* Doesn't exist. */
    SECFILE_LOG(secfile, nullptr, "\"%s\" entry doesn't exist.", fullpath);
    return nullptr;
  }
 
  vec = fc_malloc(i * sizeof(int));
  for (i = 0; i < *dim; i++) {
    if (!secfile_lookup_enum_data(secfile, vec + i, bitwise, name_fn, data,
                                  "%s,%d", fullpath, (int) i)) {
      SECFILE_LOG(secfile, nullptr,
                  "An error occurred when looking up to \"%s,%d\" entry.",
                  fullpath, (int) i);
      free(vec);
      *dim = 0;
 
      return nullptr;
    }
  }
 
  return vec;
}
 
/**********************************************************************/
struct section *secfile_section_by_name(const struct section_file *secfile,
                                        const char *name)
{
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  section_list_iterate(secfile->sections, psection) {
    if (0 == strcmp(section_name(psection), name)) {
      return psection;
    }
  } section_list_iterate_end;
 
  return nullptr;
}
 
/**********************************************************************/
struct section *secfile_section_lookup(const struct section_file *secfile,
                                       const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  return secfile_section_by_name(secfile, fullpath);
}
 
/**********************************************************************/
const struct section_list *
secfile_sections(const struct section_file *secfile)
{
  return (secfile != nullptr ? secfile->sections : nullptr);
}
 
/**********************************************************************/
struct section_list *
secfile_sections_by_name_prefix(const struct section_file *secfile,
                                const char *prefix)
{
  struct section_list *matches = nullptr;
  size_t len;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, prefix != nullptr, nullptr);
 
  len = strlen(prefix);
  if (0 == len) {
    return nullptr;
  }
 
  section_list_iterate(secfile->sections, psection) {
    if (!fc_strncmp(section_name(psection), prefix, len)) {
      if (matches == nullptr) {
        matches = section_list_new();
      }
      section_list_append(matches, psection);
    }
  } section_list_iterate_end;
 
  return matches;
}
 
/**********************************************************************/
bool secfile_section_prefix_present(const struct section_file *secfile,
                                    const char *prefix)
{
  size_t len;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, prefix != nullptr, FALSE);
 
  len = strlen(prefix);
  if (0 == len) {
    return FALSE;
  }
 
  section_list_iterate(secfile->sections, psection) {
    if (!fc_strncmp(section_name(psection), prefix, len)) {
      return TRUE;
    }
  } section_list_iterate_end;
 
  return FALSE;
}
 
/**********************************************************************/
struct section *secfile_section_new(struct section_file *secfile,
                                    const char *name)
{
  struct section *psection;
 
  SECFILE_RETURN_VAL_IF_FAIL(secfile, nullptr, secfile != nullptr, nullptr);
 
  if (name == nullptr || '\0' == name[0]) {
    SECFILE_LOG(secfile, nullptr, "Cannot create a section without name.");
    return nullptr;
  }
 
  if (!is_secfile_entry_name_valid(name)) {
    SECFILE_LOG(secfile, nullptr, "\"%s\" is not a valid section name.",
                name);
    return nullptr;
  }
 
  if (secfile_section_by_name(secfile, name) != nullptr) {
    /* We cannot duplicate sections in any case! Not even if one is
     * include -section and the other not. */
    SECFILE_LOG(secfile, nullptr, "Section \"%s\" already exists.", name);
    return nullptr;
  }
 
  psection = fc_malloc(sizeof(struct section));
  psection->special = EST_NORMAL;
  psection->name = fc_strdup(name);
  psection->entries = entry_list_new_full(entry_destroy);
 
  /* Append to secfile. */
  psection->secfile = secfile;
  section_list_append(secfile->sections, psection);
 
  if (secfile->hash.sections != nullptr) {
    section_hash_insert(secfile->hash.sections, psection->name, psection);
  }
 
  return psection;
}
 
/**********************************************************************/
void section_destroy(struct section *psection)
{
  struct section_file *secfile;
 
  SECFILE_RETURN_IF_FAIL(nullptr, psection, psection != nullptr);
 
  section_clear_all(psection);
 
  if ((secfile = psection->secfile)) {
    /* Detach from secfile. */
    if (section_list_remove(secfile->sections, psection)) {
      /* This has called section_destroy() already then. */
      return;
    }
    if (secfile->hash.sections != nullptr) {
      section_hash_remove(secfile->hash.sections, psection->name);
    }
  }
 
  entry_list_destroy(psection->entries);
  free(psection->name);
  free(psection);
}
 
/**********************************************************************/
void section_clear_all(struct section *psection)
{
  SECFILE_RETURN_IF_FAIL(nullptr, psection, psection != nullptr);
 
  /* This include the removing of the hash data. */
  entry_list_clear(psection->entries);
 
  if (0 < entry_list_size(psection->entries)) {
    SECFILE_LOG(psection->secfile, psection,
                "After clearing all, %d entries are still remaining.",
                entry_list_size(psection->entries));
  }
}
 
/**********************************************************************/
bool section_set_name(struct section *psection, const char *name)
{
  struct section_file *secfile;
  struct section *pother;
 
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, psection, psection != nullptr, FALSE);
  secfile = psection->secfile;
  SECFILE_RETURN_VAL_IF_FAIL(secfile, psection, secfile != nullptr, FALSE);
 
  if (name == nullptr || '\0' == name[0]) {
    SECFILE_LOG(secfile, psection, "No new name for section \"%s\".",
                psection->name);
    return FALSE;
  }
 
  if (!is_secfile_entry_name_valid(name)) {
    SECFILE_LOG(secfile, psection,
                "\"%s\" is not a valid section name for section \"%s\".",
                name, psection->name);
    return FALSE;
  }
 
  if ((pother = secfile_section_by_name(secfile, name))
      && pother != psection) {
    /* We cannot duplicate sections in any case! */
    SECFILE_LOG(secfile, psection, "Section \"%s\" already exists.", name);
    return FALSE;
  }
 
  /* Remove old references in the hash tables. */
  if (secfile->hash.sections != nullptr) {
    section_hash_remove(secfile->hash.sections, psection->name);
  }
  if (secfile->hash.entries != nullptr) {
    entry_list_iterate(psection->entries, pentry) {
      secfile_hash_delete(secfile, pentry);
    } entry_list_iterate_end;
  }
 
  /* Really rename. */
  free(psection->name);
  psection->name = fc_strdup(name);
 
  /* Reinsert new references into the hash tables. */
  if (secfile->hash.sections != nullptr) {
    section_hash_insert(secfile->hash.sections, psection->name, psection);
  }
  if (secfile->hash.entries != nullptr) {
    entry_list_iterate(psection->entries, pentry) {
      secfile_hash_insert(secfile, pentry);
    } entry_list_iterate_end;
  }
 
  return TRUE;
}
 
/**********************************************************************/
const struct entry_list *section_entries(const struct section *psection)
{
  return (psection != nullptr ? psection->entries : nullptr);
}
 
/**********************************************************************/
struct entry *section_entry_by_name(const struct section *psection,
                                    const char *name)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, psection, psection != nullptr, nullptr);
 
  entry_list_iterate(psection->entries, pentry) {
    if (0 == strcmp(entry_name(pentry), name)) {
      entry_use(pentry);
      return pentry;
    }
  } entry_list_iterate_end;
 
  return nullptr;
}
 
/**********************************************************************/
struct entry *section_entry_lookup(const struct section *psection,
                                   const char *path, ...)
{
  char fullpath[MAX_LEN_SECPATH];
  struct entry *pentry;
  va_list args;
 
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, psection, psection != nullptr, nullptr);
 
  va_start(args, path);
  fc_vsnprintf(fullpath, sizeof(fullpath), path, args);
  va_end(args);
 
  if ((pentry = section_entry_by_name(psection, fullpath))) {
    return pentry;
  }
 
  /* Try with full path. */
  if ((pentry = secfile_entry_by_path(psection->secfile, fullpath))
      && psection == entry_section(pentry)) {
    /* Ensured this is really owned by this section. */
    return pentry;
  }
 
  return nullptr;
}
 
/**********************************************************************/
static struct entry *entry_new(struct section *psection, const char *name)
{
  struct section_file *secfile;
  struct entry *pentry;
  bool long_comment = !strcmp("#", name);
 
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, psection, psection != nullptr, nullptr);
 
  secfile = psection->secfile;
  if (name == nullptr || '\0' == name[0]) {
    SECFILE_LOG(secfile, psection, "Cannot create an entry without name.");
    return nullptr;
  }
 
  if (!is_secfile_entry_name_valid(name) && !long_comment) {
    SECFILE_LOG(secfile, psection, "\"%s\" is not a valid entry name.",
                name);
    return nullptr;
  }
 
  if (!secfile->allow_duplicates
      && section_entry_by_name(psection, name) != nullptr) {
    SECFILE_LOG(secfile, psection, "Entry \"%s\" already exists.", name);
    return nullptr;
  }
 
  pentry = fc_malloc(sizeof(struct entry));
  if (long_comment) {
    pentry->name = nullptr;
  } else {
    pentry->name = fc_strdup(name);
  }
  pentry->type = -1;    /* Invalid case. */
  pentry->used = 0;
  pentry->comment = nullptr;
 
  /* Append to section. */
  pentry->psection = psection;
  entry_list_append(psection->entries, pentry);
 
  /* Notify secfile. */
  secfile->num_entries++;
  secfile_hash_insert(secfile, pentry);
 
  return pentry;
}
 
/**********************************************************************/
struct entry *section_entry_int_new(struct section *psection,
                                    const char *name, int value)
{
  struct entry *pentry = entry_new(psection, name);
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_INT;
    pentry->integer.value = value;
  }
 
  return pentry;
}
 
/**********************************************************************/
struct entry *section_entry_bool_new(struct section *psection,
                                     const char *name, bool value)
{
  struct entry *pentry = entry_new(psection, name);
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_BOOL;
    pentry->boolean.value = value;
  }
 
  return pentry;
}
 
/**********************************************************************/
struct entry *section_entry_float_new(struct section *psection,
                                      const char *name, float value)
{
  struct entry *pentry = entry_new(psection, name);
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_FLOAT;
    pentry->floating.value = value;
  }
 
  return pentry;
}
 
/**********************************************************************/
struct entry *section_entry_str_new(struct section *psection,
                                    const char *name, const char *value,
                                    bool escaped)
{
  struct entry *pentry = entry_new(psection, name);
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_STR;
    pentry->string.value = fc_strdup(value != nullptr ? value : "");
    pentry->string.escaped = escaped;
    pentry->string.raw = FALSE;
    pentry->string.gt_marking = FALSE;
  }
 
  return pentry;
}
 
/**********************************************************************/
static struct entry *section_entry_filereference_new(struct section *psection,
                                                     const char *name,
                                                     const char *value)
{
  struct entry *pentry = entry_new(psection, name);
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_FILEREFERENCE;
    pentry->string.value = fc_strdup(value != nullptr ? value : "");
  }
 
  return pentry;
}
 
/**********************************************************************/
static struct entry *section_entry_comment_new(struct section *psection,
                                               const char *comment)
{
  struct entry *pentry = entry_new(psection, "#");
 
  if (pentry != nullptr) {
    pentry->type = ENTRY_LONG_COMMENT;
    pentry->comment = fc_strdup(comment != nullptr ? comment : "");
  }
 
  return pentry;
}
 
/**********************************************************************/
void entry_destroy(struct entry *pentry)
{
  struct section_file *secfile;
  struct section *psection;
 
  if (pentry == nullptr) {
    return;
  }
 
  if ((psection = pentry->psection)) {
    /* Detach from section. */
    if (entry_list_remove(psection->entries, pentry)) {
      /* This has called entry_destroy() already then. */
      return;
    }
    if ((secfile = psection->secfile)) {
      /* Detach from secfile. */
      secfile->num_entries--;
      secfile_hash_delete(secfile, pentry);
    }
  }
 
  /* Specific type free. */
  switch (pentry->type) {
  case ENTRY_BOOL:
  case ENTRY_INT:
  case ENTRY_FLOAT:
  case ENTRY_LONG_COMMENT:
    break;
 
  case ENTRY_STR:
  case ENTRY_FILEREFERENCE:
    free(pentry->string.value);
    break;
 
  case ENTRY_ILLEGAL:
    fc_assert(pentry->type != ENTRY_ILLEGAL);
    break;
  }
 
  /* Common free. */
  free(pentry->name);
  if (pentry->comment != nullptr) {
    free(pentry->comment);
  }
  free(pentry);
}
 
/**********************************************************************/
struct section *entry_section(const struct entry *pentry)
{
  return (pentry != nullptr ? pentry->psection : nullptr);
}
 
/**********************************************************************/
enum entry_type entry_type_get(const struct entry *pentry)
{
  return (pentry != nullptr ? pentry->type : ENTRY_ILLEGAL);
}
 
/**********************************************************************/
int entry_path(const struct entry *pentry, char *buf, size_t buf_len)
{
  return fc_snprintf(buf, buf_len, "%s.%s",
                     section_name(entry_section(pentry)),
                     entry_name(pentry));
}
 
/**********************************************************************/
const char *entry_name(const struct entry *pentry)
{
  return (pentry != nullptr ? pentry->name : nullptr);
}
 
/**********************************************************************/
bool entry_set_name(struct entry *pentry, const char *name)
{
  struct section *psection;
  struct section_file *secfile;
 
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  psection = pentry->psection;
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, psection != nullptr, FALSE);
  secfile = psection->secfile;
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, psection, secfile != nullptr, FALSE);
 
  if (name == nullptr || '\0' == name[0]) {
    SECFILE_LOG(secfile, psection, "No new name for entry \"%s\".",
                pentry->name);
    return FALSE;
  }
 
  if (!is_secfile_entry_name_valid(name)) {
    SECFILE_LOG(secfile, psection,
                "\"%s\" is not a valid entry name for entry \"%s\".",
                name, pentry->name);
    return FALSE;
  }
 
  if (!secfile->allow_duplicates) {
    struct entry *pother = section_entry_by_name(psection, name);
 
    if (pother != nullptr && pother != pentry) {
      SECFILE_LOG(secfile, psection, "Entry \"%s\" already exists.", name);
      return FALSE;
    }
  }
 
  /* Remove from hash table the old path. */
  secfile_hash_delete(secfile, pentry);
 
  /* Really rename the entry. */
  free(pentry->name);
  pentry->name = fc_strdup(name);
 
  /* Insert into hash table the new path. */
  secfile_hash_insert(secfile, pentry);
  return TRUE;
}
 
/**********************************************************************/
const char *entry_comment(const struct entry *pentry)
{
  return (pentry != nullptr ? pentry->comment : nullptr);
}
 
/**********************************************************************/
void entry_set_comment(struct entry *pentry, const char *comment)
{
  if (pentry == nullptr) {
    return;
  }
 
  if (pentry->comment != nullptr) {
    free(pentry->comment);
  }
 
  pentry->comment = (comment != nullptr ? fc_strdup(comment) : nullptr);
}
 
/**********************************************************************/
static inline bool entry_used(const struct entry *pentry)
{
  return (0 < pentry->used);
}
 
/**********************************************************************/
static inline void entry_use(struct entry *pentry)
{
  pentry->used++;
}
 
/**********************************************************************/
bool entry_bool_get(const struct entry *pentry, bool *value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
 
  if (ENTRY_INT == pentry->type
      && (pentry->integer.value == 0
          || pentry->integer.value == 1)
      && pentry->psection != nullptr
      && pentry->psection->secfile != nullptr
      && pentry->psection->secfile->allow_digital_boolean) {
    *value = (0 != pentry->integer.value);
    return TRUE;
  }
 
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection != nullptr
                             ? pentry->psection->secfile : nullptr,
                             pentry->psection,
                             ENTRY_BOOL == pentry->type, FALSE);
 
  if (value != nullptr) {
    *value = pentry->boolean.value;
  }
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_bool_set(struct entry *pentry, bool value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_BOOL == pentry->type, FALSE);
 
  pentry->boolean.value = value;
  return TRUE;
}
 
/**********************************************************************/
bool entry_float_get(const struct entry *pentry, float *value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_FLOAT == pentry->type, FALSE);
 
  if (value != nullptr) {
    *value = pentry->floating.value;
  }
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_float_set(struct entry *pentry, float value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_FLOAT == pentry->type, FALSE);
 
  pentry->floating.value = value;
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_int_get(const struct entry *pentry, int *value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_INT == pentry->type, FALSE);
 
  if (value != nullptr) {
    *value = pentry->integer.value;
  }
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_int_set(struct entry *pentry, int value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_INT == pentry->type, FALSE);
 
  pentry->integer.value = value;
  return TRUE;
}
 
/**********************************************************************/
bool entry_str_get(const struct entry *pentry, const char **value)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_STR == pentry->type, FALSE);
 
  if (value != nullptr) {
    *value = pentry->string.value;
  }
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_str_set(struct entry *pentry, const char *value)
{
  char *old_val;
 
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_STR == pentry->type, FALSE);
 
  /* We free() old value only after we've placed the new one, to
   * support secfile_replace_str_vec() calls that want to keep some of
   * the entries from the old vector in the new one. We don't want
   * to lose the entry in between. */
  old_val = pentry->string.value;
  pentry->string.value = fc_strdup(value != nullptr ? value : "");
  free(old_val);
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_str_escaped(const struct entry *pentry)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_STR == pentry->type, FALSE);
 
  return pentry->string.escaped;
}
 
/**********************************************************************/
bool entry_str_set_escaped(struct entry *pentry, bool escaped)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_STR == pentry->type, FALSE);
 
  pentry->string.escaped = escaped;
 
  return TRUE;
}
 
/**********************************************************************/
bool entry_str_set_gt_marking(struct entry *pentry, bool gt_marking)
{
  SECFILE_RETURN_VAL_IF_FAIL(nullptr, nullptr, pentry != nullptr, FALSE);
  SECFILE_RETURN_VAL_IF_FAIL(pentry->psection->secfile, pentry->psection,
                             ENTRY_STR == pentry->type, FALSE);
 
  pentry->string.gt_marking = gt_marking;
 
  return TRUE;
}
 
/**********************************************************************/
static void entry_to_file(const struct entry *pentry, fz_FILE *fs)
{
  static char buf[8192];
  char *dot = nullptr;
  int i;
 
  switch (pentry->type) {
  case ENTRY_BOOL:
    fz_fprintf(fs, "%s", pentry->boolean.value ? "TRUE" : "FALSE");
    break;
  case ENTRY_INT:
    fz_fprintf(fs, "%d", pentry->integer.value);
    break;
  case ENTRY_FLOAT:
    snprintf(buf, sizeof(buf), "%f", pentry->floating.value);
    for (i = 0; buf[i] != '\0' ; i++) {
      if (buf[i] == '.') {
        dot = &(buf[i]);
        break;
      }
    }
    if (dot == nullptr) {
      /* There's no '.' so it would seem like a integer value when loaded.
       * Force it not to look like an integer by adding ".0" */
      fz_fprintf(fs, "%s.0", buf);
    } else {
      fz_fprintf(fs, "%s", buf);
    }
    break;
  case ENTRY_STR:
    if (pentry->string.escaped) {
      make_escapes(pentry->string.value, buf, sizeof(buf));
      if (pentry->string.gt_marking) {
        fz_fprintf(fs, "_(\"%s\")", buf);
      } else {
        fz_fprintf(fs, "\"%s\"", buf);
      }
    } else if (pentry->string.raw) {
      fz_fprintf(fs, "%s", pentry->string.value);
    } else {
      fz_fprintf(fs, "$%s$", pentry->string.value);
    }
    break;
  case ENTRY_FILEREFERENCE:
    fz_fprintf(fs, "*%s*", pentry->string.value);
    break;
  case ENTRY_LONG_COMMENT:
    fz_fprintf(fs, "%s\n", pentry->comment);
    break;
  case ENTRY_ILLEGAL:
    fc_assert(pentry->type != ENTRY_ILLEGAL);
    break;
  }
}
 
/**********************************************************************/
static void entry_from_inf_token(struct section *psection, const char *name,
                                 const char *tok, struct inputfile *inf)
{
  if (!entry_from_token(psection, name, tok)) {
    log_error("%s", inf_log_str(inf, "Entry value not recognized: %s", tok));
  }
}