2008-02-03 11:28:36 +01:00
|
|
|
/*
|
|
|
|
* Copyright (C) 2003-2008 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 <algorithm>
|
|
|
|
#include <sstream>
|
|
|
|
|
|
|
|
#include "SymbolTable.hh"
|
|
|
|
|
|
|
|
SymbolTable::SymbolTable() : endo_nbr(0), exo_nbr(0), exo_det_nbr(0), recur_nbr(0),
|
|
|
|
parameter_nbr(0), model_local_variable_nbr(0),
|
|
|
|
modfile_local_variable_nbr(0), unknown_function_nbr(0)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
SymbolTable::addSymbol(const string &name, Type type, const string &tex_name) throw (AlreadyDeclaredException)
|
|
|
|
{
|
|
|
|
if (exists(name))
|
2008-06-28 13:20:45 +02:00
|
|
|
{
|
|
|
|
if (symbol_table[name].first == type)
|
|
|
|
throw AlreadyDeclaredException(name, true);
|
|
|
|
else
|
|
|
|
throw AlreadyDeclaredException(name, false);
|
|
|
|
}
|
2008-02-03 11:28:36 +01:00
|
|
|
|
|
|
|
int id;
|
|
|
|
|
|
|
|
switch (type)
|
|
|
|
{
|
|
|
|
case eExogenous:
|
|
|
|
id = exo_nbr++;
|
|
|
|
break;
|
|
|
|
case eExogenousDet:
|
|
|
|
id = exo_det_nbr++;
|
|
|
|
break;
|
|
|
|
case eEndogenous:
|
|
|
|
id = endo_nbr++;
|
|
|
|
break;
|
|
|
|
case eParameter:
|
|
|
|
id = parameter_nbr++;
|
|
|
|
break;
|
|
|
|
case eRecursiveVariable:
|
|
|
|
id = recur_nbr++;
|
|
|
|
break;
|
|
|
|
case eModelLocalVariable:
|
|
|
|
id = model_local_variable_nbr++;
|
|
|
|
break;
|
|
|
|
case eModFileLocalVariable:
|
|
|
|
id = modfile_local_variable_nbr++;
|
|
|
|
break;
|
|
|
|
case eUnknownFunction:
|
|
|
|
id = unknown_function_nbr++;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
symbol_type symbol(type, id);
|
|
|
|
symbol_table[name] = symbol;
|
|
|
|
name_table[symbol] = name;
|
|
|
|
tex_name_table[symbol] = tex_name;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
SymbolTable::writeOutput(ostream &output) const
|
|
|
|
{
|
|
|
|
if (exo_nbr > 0)
|
|
|
|
{
|
|
|
|
output << "M_.exo_names = '" << getNameByID(eExogenous, 0) << "';" << endl;
|
|
|
|
output << "M_.exo_names_tex = '" << getTeXNameByID(eExogenous, 0) << "';" << endl;
|
|
|
|
for (int id = 1; id < exo_nbr; id++)
|
|
|
|
{
|
2008-06-16 18:33:28 +02:00
|
|
|
output << "M_.exo_names = strvcat(M_.exo_names, '" << getNameByID(eExogenous, id) << "');" << endl
|
|
|
|
<< "M_.exo_names_tex = strvcat(M_.exo_names_tex, '" << getTeXNameByID(eExogenous, id) << "');" << endl;
|
2008-02-03 11:28:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
if (exo_det_nbr > 0)
|
|
|
|
{
|
|
|
|
output << "lgxdet_ = '" << getNameByID(eExogenousDet, 0) << "';" << endl;
|
|
|
|
output << "lgxdet_tex_ = '" << getTeXNameByID(eExogenousDet, 0) << "';" << endl;
|
|
|
|
for (int id = 1; id < exo_det_nbr; id++)
|
|
|
|
{
|
2008-06-16 18:33:28 +02:00
|
|
|
output << "lgxdet_ = srtvcat(lgxdet_, '" << getNameByID(eExogenousDet, id) << "');" << endl
|
|
|
|
<< "lgxdet_tex_ = strvcat(lgxdet_tex_, '" << getTeXNameByID(eExogenousDet, id) << "');" << endl;
|
2008-02-03 11:28:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
if (endo_nbr > 0)
|
|
|
|
{
|
|
|
|
output << "M_.endo_names = '" << getNameByID(eEndogenous, 0) << "';" << endl;
|
|
|
|
output << "M_.endo_names_tex = '" << getTeXNameByID(eEndogenous, 0) << "';" << endl;
|
|
|
|
for (int id = 1; id < endo_nbr; id++)
|
|
|
|
{
|
2008-06-16 18:33:28 +02:00
|
|
|
output << "M_.endo_names = strvcat(M_.endo_names, '" << getNameByID(eEndogenous, id) << "');" << endl
|
|
|
|
<< "M_.endo_names_tex = strvcat(M_.endo_names_tex, '" << getTeXNameByID(eEndogenous, id) << "');" << endl;
|
2008-02-03 11:28:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
if (recur_nbr > 0)
|
|
|
|
{
|
|
|
|
output << "M_.recur_names = '" << getNameByID(eRecursiveVariable, 0) << "';" << endl;
|
|
|
|
output << "M_.recur_names_tex = '" << getTeXNameByID(eRecursiveVariable, 0) << "';" << endl;
|
|
|
|
for (int id = 1; id < recur_nbr; id++)
|
|
|
|
{
|
2008-06-16 18:33:28 +02:00
|
|
|
output << "M_.recur_names = strvcat(M_.recur_names, '" << getNameByID(eRecursiveVariable, id) << "');" << endl
|
|
|
|
<< "M_.recur_names_tex = strvcat(M_.recur_names_tex, '" << getTeXNameByID(eRecursiveVariable, id) << "');" << endl;
|
2008-02-03 11:28:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
if (parameter_nbr > 0)
|
|
|
|
{
|
|
|
|
output << "M_.param_names = '" << getNameByID(eParameter, 0) << "';" << endl;
|
|
|
|
output << "M_.param_names_tex = '" << getTeXNameByID(eParameter, 0) << "';" << endl;
|
|
|
|
for (int id = 1; id < parameter_nbr; id++)
|
|
|
|
{
|
2008-06-16 18:33:28 +02:00
|
|
|
output << "M_.param_names = strvcat(M_.param_names, '" << getNameByID(eParameter, id) << "');" << endl
|
|
|
|
<< "M_.param_names_tex = strvcat(M_.param_names_tex, '" << getTeXNameByID(eParameter, id) << "');" << endl;
|
2008-02-03 11:28:36 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
output << "M_.exo_det_nbr = " << exo_det_nbr << ";" << endl
|
|
|
|
<< "M_.exo_nbr = " << exo_nbr << ";" << endl
|
|
|
|
<< "M_.endo_nbr = " << endo_nbr << ";" << endl
|
|
|
|
<< "M_.recur_nbr = " << recur_nbr << ";" << endl
|
|
|
|
<< "M_.param_nbr = " << parameter_nbr << ";" << endl;
|
|
|
|
|
|
|
|
output << "M_.Sigma_e = zeros(" << exo_nbr << ", " << exo_nbr << ");" << endl;
|
|
|
|
}
|