/*=========================================================================

  Program:   ParaView
  Module:    vtkPVCompositeDataInformation.cxx

  Copyright (c) Kitware, Inc.
  All rights reserved.
  See Copyright.txt or http://www.paraview.org/HTML/Copyright.html for details.

     This software is distributed WITHOUT ANY WARRANTY; without even
     the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
     PURPOSE.  See the above copyright notice for more information.

=========================================================================*/
#include "vtkPVCompositeDataInformation.h"

#include "vtkClientServerStream.h"
#include "vtkDataObjectTreeIterator.h"
#include "vtkInformation.h"
#include "vtkMultiPieceDataSet.h"
#include "vtkNew.h"
#include "vtkObjectFactory.h"
#include "vtkPVDataInformation.h"
#include "vtkSmartPointer.h"
#include "vtkTimerLog.h"
#include "vtkUniformGrid.h"
#include "vtkUniformGridAMR.h"

#include <string>
#include <vector>

vtkStandardNewMacro(vtkPVCompositeDataInformation);

struct vtkPVCompositeDataInformationInternals
{
  struct vtkNode
  {
    vtkSmartPointer<vtkPVDataInformation> Info;
    std::string Name;
  };
  typedef std::vector<vtkNode> VectorOfDataInformation;

  VectorOfDataInformation ChildrenInformation;
};

//----------------------------------------------------------------------------
vtkPVCompositeDataInformation::vtkPVCompositeDataInformation()
{
  this->Internal = new vtkPVCompositeDataInformationInternals;
  this->DataIsComposite = 0;
  this->DataIsMultiPiece = 0;
  this->NumberOfPieces = 0;
  this->NumberOfAMRLevels = 0;
  // DON'T FORGET TO UPDATE Initialize().
}

//----------------------------------------------------------------------------
vtkPVCompositeDataInformation::~vtkPVCompositeDataInformation()
{
  delete this->Internal;
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::PrintSelf(ostream& os, vtkIndent indent)
{
  this->Superclass::PrintSelf(os, indent);
  os << indent << "DataIsMultiPiece: " << this->DataIsMultiPiece << endl;
  os << indent << "DataIsComposite: " << this->DataIsComposite << endl;
  os << indent << "NumberOfAMRLevels: " << this->NumberOfAMRLevels << endl;
}

//----------------------------------------------------------------------------
vtkPVDataInformation* vtkPVCompositeDataInformation::GetDataInformationForCompositeIndex(int* index)
{
  if (!this->DataIsComposite)
  {
    return 0;
  }

  if (this->DataIsMultiPiece)
  {
    if ((*index) < static_cast<int>(this->NumberOfPieces))
    {
      (*index) = -1;
      return NULL;
    }

    (*index) -= this->NumberOfPieces;
  }

  vtkPVCompositeDataInformationInternals::VectorOfDataInformation::iterator iter =
    this->Internal->ChildrenInformation.begin();
  for (; iter != this->Internal->ChildrenInformation.end(); ++iter)
  {
    if (iter->Info)
    {
      vtkPVDataInformation* info = iter->Info->GetDataInformationForCompositeIndex(index);
      if ((*index) == -1)
      {
        return info;
      }
    }
    else
    {
      (*index)--;
      if ((*index) < 0)
      {
        return NULL;
      }
    }
  }
  return NULL;
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::Initialize()
{
  this->DataIsMultiPiece = 0;
  this->NumberOfPieces = 0;
  this->DataIsComposite = 0;
  this->NumberOfAMRLevels = 0;
  this->Internal->ChildrenInformation.clear();
}

//----------------------------------------------------------------------------
unsigned int vtkPVCompositeDataInformation::GetNumberOfChildren()
{
  return this->DataIsMultiPiece ? this->NumberOfPieces
                                : static_cast<int>(this->Internal->ChildrenInformation.size());
}

//----------------------------------------------------------------------------
vtkPVDataInformation* vtkPVCompositeDataInformation::GetDataInformation(unsigned int idx)
{
  if (this->DataIsMultiPiece)
  {
    return NULL;
  }

  if (idx >= this->Internal->ChildrenInformation.size())
  {
    return NULL;
  }

  return this->Internal->ChildrenInformation[idx].Info;
}

//----------------------------------------------------------------------------
const char* vtkPVCompositeDataInformation::GetName(unsigned int idx)
{
  if (this->DataIsMultiPiece)
  {
    return NULL;
  }

  if (idx >= this->Internal->ChildrenInformation.size())
  {
    return NULL;
  }

  return this->Internal->ChildrenInformation[idx].Name.c_str();
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::CopyFromObject(vtkObject* object)
{
  this->Initialize();

  vtkCompositeDataSet* cds = vtkCompositeDataSet::SafeDownCast(object);
  if (!cds)
  {
    return;
  }

  this->DataIsComposite = 1;

  vtkMultiPieceDataSet* mpDS = vtkMultiPieceDataSet::SafeDownCast(cds);
  if (mpDS)
  {
    this->DataIsMultiPiece = 1;
    this->SetNumberOfPieces(mpDS->GetNumberOfPieces());
    return;
  }

  vtkUniformGridAMR* amr = vtkUniformGridAMR::SafeDownCast(cds);
  if (amr)
  {
    this->CopyFromAMR(amr);
    return;
  }

  // This is generic composite dataset.
  vtkSmartPointer<vtkCompositeDataIterator> iter;
  iter.TakeReference(cds->NewIterator());
  if (vtkDataObjectTreeIterator::SafeDownCast(iter))
  {
    vtkDataObjectTreeIterator* treeIter = vtkDataObjectTreeIterator::SafeDownCast(iter);
    treeIter->VisitOnlyLeavesOff();
    treeIter->TraverseSubTreeOff();
  }
  iter->SkipEmptyNodesOff();

  // vtkTimerLog::MarkStartEvent("Copying information from composite data");
  unsigned int index = 0;
  for (iter->InitTraversal(); !iter->IsDoneWithTraversal(); iter->GoToNextItem(), index++)
  {
    vtkSmartPointer<vtkPVDataInformation> childInfo;
    vtkDataObject* curDO = iter->GetCurrentDataObject();
    if (curDO)
    {
      childInfo = vtkSmartPointer<vtkPVDataInformation>::New();
      childInfo->CopyFromObject(curDO);
    }
    this->Internal->ChildrenInformation.resize(index + 1);
    this->Internal->ChildrenInformation[index].Info = childInfo;
    if (iter->HasCurrentMetaData())
    {
      vtkInformation* info = iter->GetCurrentMetaData();
      if (info->Has(vtkCompositeDataSet::NAME()))
      {
        const char* name = info->Get(vtkCompositeDataSet::NAME());
        this->Internal->ChildrenInformation[index].Name = name;
        if (childInfo)
        {
          childInfo->SetCompositeDataSetName(name);
        }
      }
    }
  }
  // vtkTimerLog::MarkEndEvent("Copying information from composite data");
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::CopyFromAMR(vtkUniformGridAMR* amr)
{
  this->NumberOfAMRLevels = amr->GetNumberOfLevels();
  if (this->NumberOfAMRLevels == 0)
  {
    this->Internal->ChildrenInformation.clear();
  }
  else
  {
    this->Internal->ChildrenInformation.resize(this->NumberOfAMRLevels);
  }

  // we use this to "simulate" a composite tree from AMR
  vtkNew<vtkMultiPieceDataSet> tempMultiPiece;
  vtkNew<vtkPVDataInformation> tempDSInfo;

  for (unsigned int level = 0; level < this->NumberOfAMRLevels; level++)
  {
    unsigned int num_datasets = amr->GetNumberOfDataSets(level);
    tempMultiPiece->SetNumberOfPieces(num_datasets);

    vtkNew<vtkPVDataInformation> levelInfo;
    levelInfo->CopyFromCompositeDataSetInitialize(tempMultiPiece.GetPointer());

    // now fill up levelInfo with meta-data about arrays.
    for (unsigned int idx = 0; idx < num_datasets; idx++)
    {
      vtkUniformGrid* dataset = amr->GetDataSet(level, idx);
      if (dataset)
      {
        tempDSInfo->CopyFromObject(dataset);
        levelInfo->AddInformation(tempDSInfo.GetPointer(), 1);
      }
    }
    levelInfo->CopyFromCompositeDataSetFinalize(tempMultiPiece.GetPointer());
    this->Internal->ChildrenInformation[level].Info = levelInfo.GetPointer();
  }
}

//----------------------------------------------------------------------------
// Called to merge information from two processes.
void vtkPVCompositeDataInformation::AddInformation(vtkPVInformation* pvi)
{
  vtkPVCompositeDataInformation* info;

  info = vtkPVCompositeDataInformation::SafeDownCast(pvi);
  if (info == NULL)
  {
    vtkErrorMacro("Could not cast object to data information.");
    return;
  }

  this->DataIsComposite = info->GetDataIsComposite();
  this->DataIsMultiPiece = info->GetDataIsMultiPiece();
  // should be same across all the nodes
  this->NumberOfAMRLevels = info->GetNumberOfAMRLevels();

  if (this->DataIsMultiPiece)
  {
    if (this->NumberOfPieces != info->NumberOfPieces)
    {
      // vtkWarningMacro("Mismatch in number of pieces among processes.");
    }
    if (info->NumberOfPieces > this->NumberOfPieces)
    {
      this->NumberOfPieces = info->NumberOfPieces;
    }
    return;
  }

  size_t otherNumChildren = info->Internal->ChildrenInformation.size();
  size_t numChildren = this->Internal->ChildrenInformation.size();
  if (otherNumChildren > numChildren)
  {
    numChildren = otherNumChildren;
    this->Internal->ChildrenInformation.resize(numChildren);
  }

  for (size_t i = 0; i < otherNumChildren; i++)
  {
    vtkPVDataInformation* otherInfo = info->Internal->ChildrenInformation[i].Info;
    vtkPVDataInformation* localInfo = this->Internal->ChildrenInformation[i].Info;
    if (otherInfo)
    {
      if (localInfo)
      {
        localInfo->AddInformation(otherInfo);
      }
      else
      {
        vtkPVDataInformation* dinf = vtkPVDataInformation::New();
        dinf->AddInformation(otherInfo);
        this->Internal->ChildrenInformation[i].Info = dinf;
        dinf->Delete();
      }
    }

    std::string& otherName = info->Internal->ChildrenInformation[i].Name;
    std::string& localName = this->Internal->ChildrenInformation[i].Name;
    if (!otherName.empty())
    {
      if (!localName.empty() && localName != otherName)
      {
        // vtkWarningMacro("Same block is named as \'" << localName.c_str()
        //  << "\' as well as \'" << otherName.c_str() << "\'");
      }
      localName = otherName;
    }
  }
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::CopyToStream(vtkClientServerStream* css)
{
  //  vtkTimerLog::MarkStartEvent("Copying composite information to stream");
  css->Reset();
  *css << vtkClientServerStream::Reply << this->DataIsComposite << this->DataIsMultiPiece
       << this->NumberOfPieces << this->NumberOfAMRLevels;

  unsigned int numChildren = static_cast<unsigned int>(this->Internal->ChildrenInformation.size());
  *css << numChildren;

  for (unsigned i = 0; i < numChildren; i++)
  {
    *css << i << this->Internal->ChildrenInformation[i].Name.c_str();
    vtkPVDataInformation* dataInf = this->Internal->ChildrenInformation[i].Info;
    vtkClientServerStream dcss;
    if (dataInf)
    {
      dataInf->CopyToStream(&dcss);
    }

    size_t length;
    const unsigned char* data;
    dcss.GetData(&data, &length);
    *css << vtkClientServerStream::InsertArray(data, static_cast<int>(length));
  }
  *css << numChildren; // DONE marker
  *css << vtkClientServerStream::End;
  //  vtkTimerLog::MarkEndEvent("Copying composite information to stream");
}

//----------------------------------------------------------------------------
void vtkPVCompositeDataInformation::CopyFromStream(const vtkClientServerStream* css)
{
  this->Initialize();

  if (!css->GetArgument(0, 0, &this->DataIsComposite))
  {
    vtkErrorMacro("Error parsing data set type.");
    return;
  }

  if (!css->GetArgument(0, 1, &this->DataIsMultiPiece))
  {
    vtkErrorMacro("Error parsing data set type.");
    return;
  }

  if (!css->GetArgument(0, 2, &this->NumberOfPieces))
  {
    vtkErrorMacro("Error parsing number of pieces.");
    return;
  }

  if (!css->GetArgument(0, 3, &this->NumberOfAMRLevels))
  {
    vtkErrorMacro("Error parsing number of levels.");
    return;
  }

  unsigned int numChildren;
  if (!css->GetArgument(0, 4, &numChildren))
  {
    vtkErrorMacro("Error parsing number of children.");
    return;
  }
  int msgIdx = 4;
  this->Internal->ChildrenInformation.resize(numChildren);

  while (1)
  {
    msgIdx++;
    unsigned int childIdx;
    if (!css->GetArgument(0, msgIdx, &childIdx))
    {
      vtkErrorMacro("Error parsing data set type.");
      return;
    }
    if (childIdx >= numChildren) // receiver DONE marker.
    {
      break;
    }
    msgIdx++;

    const char* name = 0;
    if (!css->GetArgument(0, msgIdx, &name))
    {
      vtkErrorMacro("Error parsing the name for the block.");
      return;
    }
    this->Internal->ChildrenInformation[childIdx].Name = name ? name : "";

    vtkTypeUInt32 length;
    std::vector<unsigned char> data;
    vtkClientServerStream dcss;

    msgIdx++;
    // Data information.
    if (!css->GetArgumentLength(0, msgIdx, &length))
    {
      vtkErrorMacro("Error parsing length of cell data information.");
      return;
    }
    data.resize(length);
    if (!css->GetArgument(0, msgIdx, &*data.begin(), length))
    {
      vtkErrorMacro("Error parsing cell data information.");
      return;
    }
    dcss.SetData(&*data.begin(), length);
    if (dcss.GetNumberOfMessages() > 0)
    {
      vtkNew<vtkPVDataInformation> dataInf;
      dataInf->CopyFromStream(&dcss);
      this->Internal->ChildrenInformation[childIdx].Info = dataInf;
    }
  }
}
