//---------------------------------------------------------------------------


#pragma hdrstop

#include "Toadscape.h"


Toadscape::Toadscape() : Landscape()
{
Squares.reserve(1000000);
}

//------------------------------------------------------------------------------
//FUNCTION:   Toadscape::ReadLandscape
//ARGUMENTS:  None
//RETURNS:    Maximum cost value (integer)
//NOTES:      Reads landscape data from text files
//------------------------------------------------------------------------------

// Differs from Landscape version in handling variable input file names
#if VCL
int Toadscape::ReadLandscape()
{
#if BATCH
cout<<"Reading landscape attributes (costs, source, target)"<<endl;
#endif
int i,x,y,cost,source,target;
int max = 0;

int t0,t1;
t0 = time(0);

char txt[99];
char fname[30];
strcpy(fname,"costs");
strcat(fname,COSTGRID);
strcat(fname,GRAIN);
strcat(fname,"m.txt");
ifstream incost (fname);
if (!incost.is_open()) {
  cout<<endl<<"***** Unable to open costs file "<<fname<<endl;
  return -999;
}

strcpy(fname,"target");
strcat(fname,GRAIN);
strcat(fname,"m.txt");
ifstream intarget (fname);
if (!intarget.is_open()) {
  cout<<endl<<"***** Unable to open target file "<<fname<<endl;
  return -998;
}

#if READSOURCE
ifstream insource ("source.txt");
if (insource.is_open()) {
}
else {
  cout<<endl<<"***** Unable to open source file source.txt"<<endl;
  return -997;
}
#endif


// Read header records
source = 0;
for (i = 0; i < 6; i++) {
  incost>>txt>>cost;
  intarget>>txt>>target;
#if READSOURCE
  insource>>txt>>source;
#endif
  if (i == 0) xmax = cost;
  if (i == 1) ymax = cost;
#if BATCH
  cout<<i<<" "<<txt<<" "<<cost<<" "<<source<<" "<<target<<endl;
#endif
}

for (y = ymax-1; y > -1; y--) {
  for (x = 0; x < xmax; x++) {
	  incost>>cost;
	  intarget>>target;
#if READSOURCE
	  insource>>source;
#else
	  source = 0;
#endif
    if (cost < 0) { // NODATA square - record a zero pointer
      Squares.push_back(0);
    }
    else { // square with data - set up square in heap memory and store costs
      Squares.push_back(new Square(x,y));
      Squares.back()->set_attributes(cost,source,target);
    }
    if (cost>max) max = cost;
  }
}
#if BATCH
cout<<"Finished reading landscape attributes, xmax = "<<xmax
  <<" ymax = "<<ymax<<endl;
t1 = time(0);
cout<<endl<<"Elapsed time "<<t1-t0<<" seconds"<<endl<<endl;
#endif
return max;
}
#endif // of VCL condition
//---------------------------------------------------------------------------

#pragma package(smart_init)