Select Git revision
ParsingDriver.cc
ParsingDriver.cc 49.78 KiB
/*
* Copyright (C) 2003-2010 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 <http://www.gnu.org/licenses/>.
*/
#include <cstdlib>
#include <fstream>
#include <iostream>
#include <cassert>
#include "ParsingDriver.hh"
#include "Statement.hh"
#include "ExprNode.hh"
bool
ParsingDriver::symbol_exists_and_is_not_modfile_local_or_external_function(const char *s)
{
if (!mod_file->symbol_table.exists(s))
return false;
SymbolType type = mod_file->symbol_table.getType(s);
return (type != eModFileLocalVariable && type != eExternalFunction);
}
void
ParsingDriver::check_symbol_existence(const string &name)
{
if (!mod_file->symbol_table.exists(name))
error("Unknown symbol: " + name);
}
void
ParsingDriver::set_current_data_tree(DataTree *data_tree_arg)
{
data_tree = data_tree_arg;
model_tree = dynamic_cast<ModelTree *>(data_tree_arg);
dynamic_model = dynamic_cast<DynamicModel *>(data_tree_arg);
}
void
ParsingDriver::reset_data_tree()
{
set_current_data_tree(&mod_file->expressions_tree);
}
void
ParsingDriver::reset_current_external_function_options()
{
current_external_function_options.nargs = eExtFunSetDefaultNargs;
current_external_function_options.firstDerivSymbID = eExtFunNotSet;
current_external_function_options.secondDerivSymbID = eExtFunNotSet;
current_external_function_id = eExtFunNotSet;
}
ModFile *