modules-io.cpp

/* ***************************************************************************
 * This file is part of the SymPhas library, a framework for implementing
 * solvers for phase-field problems with compile-time symbolic algebra.
 *
 * Copyright (c) 2018-2021 by Steven A. Silber and Mikko Karttunen
 *
 * SymPhas is free software, which can be redistributed or modified under
 * the terms of the GNU Lesser General Public License (LGPL) as published
 * by the Free Software Foundation; LGPL version 3, or later versions at
 * your choice.
 *
 * SymPhas is distributed with the faith that it will be helpful and
 * practical but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser
 * General Public License for more details.
 *
 * ***************************************************************************
 */

#include "configured-defs.h"

#ifdef USING_CONF
#include "modules-conf.h"
#else
#include "modules-io.h"
#endif

const char* symphas::get_record_name(const char* dir) {
  const char file_name[] = CHECKPOINT_DIR "/progress.txt";
  size_t out_len = std::strlen(dir) + std::strlen(file_name) + 2;
  char* out = new char[out_len];
  snprintf(out, out_len, "%s/%s", dir, file_name);
  return out;
}

FILE* symphas::open_record(const char* name) {
  FILE* f;
  if ((f = fopen(name, "a")) == 0) {
    fprintf(SYMPHAS_ERR, "error opening backup configuration file '%s'\n",
            name);
    exit(1001);
  }
  return f;
}

void symphas::record_index(const char* dir, SaveParams const& save, int index) {
#ifdef USING_MPI
  if (symphas::parallel::is_host_node()) {
#endif
    const char* name = get_record_name(dir);
    FILE* f = open_record(name);
    fprintf(f, CONFIG_INDEX_PREFIX "%d\n", index);
    if (index == save.get_stop()) {
      fprintf(f, CONFIG_INDEX_PREFIX SIMULATION_DONE_KEY "\n");
    }
    fclose(f);

    delete[] name;

#ifdef USING_MPI
  }
#endif
}