Expressions.hh

/*
 * Copyright © 2019-2023 Dynare Team
 *
 * This file is part of Dynare.
 *
 * Dynare 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 3 of the License, or
 * (at your option) any later version.
 *
 * Dynare is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Dynare.  If not, see <https://www.gnu.org/licenses/>.
 */

#ifndef EXPRESSIONS_HH
#define EXPRESSIONS_HH

#include "Environment.hh"
#include "ForwardDeclarationsAndEnums.hh"
#include "ParserLocation.hh"

#include <cmath>
#include <iomanip>
#include <sstream>
#include <vector>

namespace macro
{
class StackTrace final : public exception
{
private:
  vector<string> message;

public:
  StackTrace(string message_arg) : message {move(message_arg)}
  {
  }
  StackTrace(const string& prefix, const char* standard_exception_message,
             const Tokenizer::location& location)
  {
    stringstream ss;
    ss << prefix << ": " << location << " " << standard_exception_message;
    message = {ss.str()};
  }
  StackTrace(const string& prefix, const string& msg, const Tokenizer::location& location)
  {
    stringstream ss;
    ss << prefix << ": " << location << " " << msg;
    message = {ss.str()};
  }
  void
  push(const string& prefix, const Tokenizer::location& location)
  {
    stringstream ss;
    auto end_col = 0 < location.end.column ? location.end.column - 1 : 0;

    ss << prefix << ": "
       << R"(")" << *location.begin.filename << R"(" line )" << location.begin.line << ", col "
       << location.begin.column;
    if (location.end.filename
        && (!location.begin.filename || *location.begin.filename != *location.end.filename))
      ss << R"( to ")" << location.end.filename << R"(")"
         << " line " << location.end.line << ", col " << end_col;
    else if (location.begin.line < location.end.line)
      ss << " to line " << location.end.line << ", col " << end_col;