dynare/parser.src/VariableTable.cc

#include <iostream>
#include <algorithm>

#include "VariableTable.hh"

VariableTable::VariableTable(const SymbolTable &symbol_table_arg) :
  symbol_table(symbol_table_arg),
  var_endo_nbr(0), var_exo_nbr(0), var_exo_det_nbr(0),
  max_lag(0), max_lead(0),
  max_endo_lag(0), max_endo_lead(0),
  max_exo_lag(0), max_exo_lead(0),
  max_exo_det_lag(0), max_exo_det_lead(0),
  max_recur_lag(0), max_recur_lead(0)
{
}

int
VariableTable::AddVariable(const string &iName, int iLag)
{
  // Testing if variable exists in VariableTable
  int lVariableID = getID(iName,iLag);
  if (lVariableID != -1)
    return lVariableID;

  lVariableID = mVariableIndex.size();
  // Making variable struct and key
  varKey key = make_pair(iName, iLag);
  // Pushing variable on VariableTable
  mVariableTable[key] = lVariableID;
  mVariableIndex.push_back(key);

  // Setting dynamic variables numbers
  Type type = getType(lVariableID);
  if (type == eEndogenous)
    var_endo_nbr++;
  if (type == eExogenous)
    var_exo_nbr++;
  if (type == eExogenousDet)
    var_exo_det_nbr++;

  // Setting maximum and minimum lags
  if (max_lead < iLag)
    max_lead = iLag;
  else if (-max_lag > iLag)
    max_lag = -iLag;

  switch(type)
    {
    case eEndogenous:
      if (max_endo_lead < iLag)
        max_endo_lead = iLag;
      else if (-max_endo_lag > iLag)
        max_endo_lag = -iLag;
      break;
    case eExogenous:
      if (max_exo_lead < iLag)
        max_exo_lead = iLag;
      else if (-max_exo_lag > iLag)
        max_exo_lag = -iLag;
      break;
    case eExogenousDet:
      if (max_exo_det_lead < iLag)
        max_exo_det_lead = iLag;
      else if (-max_exo_det_lag > iLag)
        max_exo_det_lag = -iLag;
      break;
    case eRecursiveVariable:
      if (max_recur_lead < iLag)
        max_recur_lead = iLag;
      else if (-max_recur_lag > iLag)
        max_recur_lag = -iLag;
      break;
    default:
      ;
    }
  return lVariableID;
}

void
VariableTable::Sort()
{
  // Trivial case where no ordering is necessary
  if (mVariableIndex.size() == 1)
    {
      mSortedVariableID.push_back(0);
      mPrintFormatIndex.push_back(0);
      return;
    }

  /* The type of key for lexicographic ordering over variables:
     the key is equal to (type, lag, symbol_id) */
  typedef pair<Type, pair<int, int> > lexicographic_key_type;

  // Construct the vector matching keys to their varIDs
  vector<pair<lexicographic_key_type, int> > VarToSort;
  for (unsigned int varID = 0; varID < mVariableIndex.size(); varID++)
    {
      Type type = getType(varID);
      int symbolID = getSymbolID(varID);
      int lag = mVariableIndex[varID].second;
      VarToSort.push_back(make_pair(make_pair(type, make_pair(lag, symbolID)), varID));
    }

  // Sort variables using the lexicographic ordering
  sort(VarToSort.begin(), VarToSort.end());

  // Fill mSortedVariableID and mPrintFormatIndex
  mSortedVariableID.resize(VarToSort.size());
  mPrintFormatIndex.resize(VarToSort.size());
  Type type = getType(VarToSort[0].second);
  int index = 0;
  for (unsigned int sortedID = 0; sortedID < VarToSort.size(); sortedID++)
    {
      int varID = VarToSort[sortedID].second;
      mSortedVariableID[varID] = sortedID;
      if (type == getType(varID))
        {
          mPrintFormatIndex[varID] = index;
          index++;
        }
      else
        {
          mPrintFormatIndex[varID] = 0;
          type = getType(varID);
          index = 1;
        }
    }
}

int*
VariableTable::GetVariableTable(int* Size, int* HSize)
{
  int* Table;
  varKey key;
  int variable,id, ind;
  (*Size)=0;
  for (id=0; id < (int) mVariableIndex.size(); id++)
    {
      key = mVariableIndex[id];
      variable = mVariableTable[key];
      if(getType(variable)==eEndogenous)
        (*Size)++;
    }
  (*HSize)=4;
  Table=(int*)malloc((*Size)*(*HSize)*sizeof(*Table));
  ind=0;
  for (id=0; id < (int) mVariableIndex.size(); id++)
    {
      key = mVariableIndex[id];
      variable = mVariableTable[key];
      if (getType(variable)==eEndogenous)
        {
          Table[ind*(*HSize)]= getSymbolID(id);
          Table[ind*(*HSize)+1]= key.second;
          Table[ind*(*HSize)+2]= mPrintFormatIndex[id];
          Table[ind*(*HSize)+3]= mSortedVariableID[id];
          ind++;
        }
    }
  return(Table);
}

int
VariableTable::getIDS(int id, int lead_lag) const
{
  varKey key;
  key=mVariableIndex[id];
  map<varKey, int>::const_iterator it = mVariableTable.find(key);
  return(it->second);
}