Ticket #487: datasets.tol

//////////////////////////////////////////////////////////////////////////////
// File:    datasets.tol
// Purpose: It creates a set of useful generic datasets
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// Includes
//////////////////////////////////////////////////////////////////////////////

Set Include("C:/Users/lmperez.BAYESFORECAST/Desktop/functions.tol");

//////////////////////////////////////////////////////////////////////////////
// Functions
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Set Add.Standard.Variables(MMS::@DataSet DS.I, Set variables)
//////////////////////////////////////////////////////////////////////////////
{
  Set EvalSet(variables,Anything (Set idef)
  {
    Anything DS.I::ReplaceVariable([[
      Text _.name        = Name(idef->X);
      Text _.type        = "Serie";
      Text _.description = "";
      Text _.expression  = "Standard.Variables::"+_.name
    ]])
  })
};

//////////////////////////////////////////////////////////////////////////////
// Standard Inputs
//////////////////////////////////////////////////////////////////////////////

Set Standard.Festives  = Build.Festives.Struct(Festive.National("Brazil"),6);
Set Standard.Christmas = Build.Weekly.HolidayStruct(D(1)*M(12),6);
Set Standard.Summer    = Build.Weekly.HolidayStruct(D(1)*M(7),6);

//////////////////////////////////////////////////////////////////////////////
// Datasets
//////////////////////////////////////////////////////////////////////////////

MMS::@DataSet DS.I.Standard.Festives = MMS::Container::ReplaceDataSet([[
  Text _.name        = "Standard.Festives";
  Text _.description = "Set of standard input festive variables"
]]);

MMS::@DataSet DS.I.Standard.Christmas = MMS::Container::ReplaceDataSet([[
  Text _.name        = "Standard.Christmas";
  Text _.description = "Set of standard input Christmas variables"
]]);

MMS::@DataSet DS.I.Standard.Summer = MMS::Container::ReplaceDataSet([[
  Text _.name        = "Standard.Summer";
  Text _.description = "Set of standard input summer variables"
]]);

Set Add.Standard.Variables(DS.I.Standard.Festives,  Standard.Festives);
Set Add.Standard.Variables(DS.I.Standard.Christmas, Standard.Christmas);
Set Add.Standard.Variables(DS.I.Standard.Summer,    Standard.Summer);


//////////////////////////////////////////////////////////////////////////////
// End
//////////////////////////////////////////////////////////////////////////////