// Created on: 1997-12-03
// Created by: Yves FRICAUD
// Copyright (c) 1997-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

#include <Standard_Type.hxx>
#include <TDF_DeltaOnModification.hxx>
#include <TDF_Label.hxx>
#include <TNaming_Builder.hxx>
#include <TNaming_DeltaOnModification.hxx>
#include <TNaming_Iterator.hxx>
#include <TNaming_NamedShape.hxx>

IMPLEMENT_STANDARD_RTTIEXT(TNaming_DeltaOnModification, TDF_DeltaOnModification)

//=================================================================================================

TNaming_DeltaOnModification::TNaming_DeltaOnModification(const occ::handle<TNaming_NamedShape>& NS)
    : TDF_DeltaOnModification(NS)
{
  int NbShapes = 0;
  for (TNaming_Iterator it(NS); it.More(); it.Next())
  {
    NbShapes++;
  }

  if (NbShapes == 0)
    return;

  TNaming_Evolution Evol = NS->Evolution();
  int               i    = 1;

  if (Evol == TNaming_PRIMITIVE)
  {
    myNew = new NCollection_HArray1<TopoDS_Shape>(1, NbShapes);
    for (TNaming_Iterator it2(NS); it2.More(); it2.Next(), i++)
    {
      myNew->SetValue(i, it2.NewShape());
    }
  }
  else if (Evol == TNaming_DELETE)
  {
    myOld = new NCollection_HArray1<TopoDS_Shape>(1, NbShapes);
    for (TNaming_Iterator it2(NS); it2.More(); it2.Next(), i++)
    {
      myOld->SetValue(i, it2.OldShape());
    }
  }
  else
  {
    myOld = new NCollection_HArray1<TopoDS_Shape>(1, NbShapes);
    myNew = new NCollection_HArray1<TopoDS_Shape>(1, NbShapes);

    for (TNaming_Iterator it2(NS); it2.More(); it2.Next(), i++)
    {
      myNew->SetValue(i, it2.NewShape());
      myOld->SetValue(i, it2.OldShape());
    }
  }
}

//=================================================================================================

static void LoadNamedShape(TNaming_Builder&    B,
                           TNaming_Evolution   Evol,
                           const TopoDS_Shape& OS,
                           const TopoDS_Shape& NS)
{
  switch (Evol)
  {
    case TNaming_PRIMITIVE: {
      B.Generated(NS);
      break;
    }
    case TNaming_REPLACE: // for compatibility
    case TNaming_GENERATED: {
      B.Generated(OS, NS);
      break;
    }
    case TNaming_MODIFY: {
      B.Modify(OS, NS);
      break;
    }
    case TNaming_DELETE: {
      B.Delete(OS);
      break;
    }
    case TNaming_SELECTED: {
      B.Select(NS, OS);
      break;
    }
  }
}

//=================================================================================================

void TNaming_DeltaOnModification::Apply()
{

  occ::handle<TDF_Attribute>      TDFAttribute = Attribute();
  occ::handle<TNaming_NamedShape> NS           = occ::down_cast<TNaming_NamedShape>(TDFAttribute);

  // If there is no attribute, reinsert the previous. Otherwise a new one
  // is created automatically, and all referencing the previous are incorrect! FID 24/12/97
  occ::handle<TDF_Attribute> dummyAtt;
  // if (!Ins.Find(NS->ID(),dummyAtt)) Ins.Add(NS);
  if (!Label().FindAttribute(NS->ID(), dummyAtt))
  {

    Label().AddAttribute(NS);
  }

  if (myOld.IsNull() && myNew.IsNull())
    return;
  else if (myOld.IsNull())
  {
    // TNaming_Builder B(Ins);
    TNaming_Builder B(Label());
    TopoDS_Shape    Old;
    for (int i = 1; i <= myNew->Upper(); i++)
    {
      LoadNamedShape(B, NS->Evolution(), Old, myNew->Value(i));
    }
  }
  else if (myNew.IsNull())
  {
    // TNaming_Builder B(Ins);
    TNaming_Builder B(Label());
    TopoDS_Shape    New;
    for (int i = 1; i <= myOld->Upper(); i++)
    {
      LoadNamedShape(B, NS->Evolution(), myOld->Value(i), New);
    }
  }
  else
  {
    // TNaming_Builder B(Ins);
    TNaming_Builder B(Label());
    for (int i = 1; i <= myOld->Upper(); i++)
    {
      LoadNamedShape(B, NS->Evolution(), myOld->Value(i), myNew->Value(i));
    }
  }
}
