load_aterm.h

Go to the documentation of this file.

// Author(s): Wieger Wesselink
// Copyright: see the accompanying file COPYING or copy at
// https://github.com/mCRL2org/mCRL2/blob/master/COPYING
//
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
//
/// \file mcrl2/core/load_aterm.h
/// \brief add your file description here.
 
#ifndef MCRL2_CORE_LOAD_ATERM_H
#define MCRL2_CORE_LOAD_ATERM_H
 
#include "mcrl2/atermpp/aterm_io_binary.h"
#include "mcrl2/atermpp/aterm_io_text.h"
 
namespace mcrl2::core
{
 
namespace detail {
 
inline
std::string file_source(const std::string& filename)
{
  if (filename.empty() || filename == "-")
  {
    return "standard input";
  }
  return filename;
}
 
} // namespace detail
 
/// \brief Attempts to read an aterm from a stream.
/// \param[in] stream The stream from which the term is read.
/// \param[in] binary A boolean indicating whether the stream is in binary of textual format.
/// \param[in] format The format that is being read (for example "LPS" or "PBES").
/// \param[in] source The source from which the stream originates (the empty string is used for an unknown source).
/// \param[in] transformer A funtion that is applied to every subterm of the read term.
/// \exception Throws a mcrl2 runtime error when an error occurs when reading the term.
inline
atermpp::aterm load_aterm(std::istream& stream,
  bool binary = true,
  const std::string& format = "aterm",
  const std::string& source = "",
  atermpp::aterm_transformer transformer = atermpp::identity)
{
  atermpp::aterm result;
  try
  {
    if (binary)
    {
      atermpp::binary_aterm_istream(stream) >> transformer >> result;
    }
    else
    {
      atermpp::text_aterm_istream(stream) >> transformer >> result;
    }
  }
  catch (std::exception &e)
  {
    if (source.empty())
    {
      throw mcrl2::runtime_error("Failed to read a valid " + format + " from the input.\n" + e.what());
    }
    else
    {
      throw mcrl2::runtime_error("Failed to read a valid " + format + " from the input " + source + ".\n" + e.what());
    }
  }
  return result;
}
 
} // namespace mcrl2::core
 
#endif // MCRL2_CORE_LOAD_ATERM_H