// 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 <MoniTool_Stat.hxx>
#include <TCollection_AsciiString.hxx>
#include <TCollection_HAsciiString.hxx>

//static MoniTool_Stat Statvoid("");
//static MoniTool_Stat Statact ("");
//not Used
//static Standard_CString voidname = "";
MoniTool_Stat::MoniTool_Stat (const Standard_CString title)
{
  thetit  = new TCollection_HAsciiString(title);
  thelev  = 0;
  thetot  = new TColStd_HArray1OfInteger (1,20);  thetot->Init(0);
  thedone = new TColStd_HArray1OfInteger (1,20);  thetot->Init(0);
  thecurr = new TColStd_HArray1OfInteger (1,20);  thetot->Init(0);
}

    MoniTool_Stat::MoniTool_Stat (const MoniTool_Stat& )
    : thelev(0)
{
}

    MoniTool_Stat&  MoniTool_Stat::Current ()
{
  static MoniTool_Stat thecur;
  return thecur;
}

    Standard_Integer  MoniTool_Stat::Open (const Standard_Integer nb)
{
  thelev ++;
  thetot->SetValue(thelev,nb);
  thedone->SetValue(thelev,0);
  thecurr->SetValue(thelev,0);
  return thelev;
}

void  MoniTool_Stat::OpenMore (const Standard_Integer id, const Standard_Integer nb)
{
  if (id <= 0 || id > thelev) return;
  thetot->SetValue (id, thetot->Value(id)+nb);
}

void  MoniTool_Stat::Add (const Standard_Integer nb)
{
  thedone->SetValue (thelev, thedone->Value(thelev) + nb);
  thecurr->SetValue (thelev, 0);
}

void  MoniTool_Stat::AddSub (const Standard_Integer nb)
{
  thecurr->SetValue (thelev, nb);
}

void  MoniTool_Stat::AddEnd ()
{
  thedone->SetValue (thelev, thedone->Value(thelev) + thecurr->Value(thelev));
  thecurr->SetValue (thelev, 0);
}

void MoniTool_Stat::Close (const Standard_Integer id)
{
  if (id < thelev) Close (id+1);
  AddEnd();
  thelev --;
}

Standard_Integer  MoniTool_Stat::Level () const
{  return thelev;  }

Standard_Real  MoniTool_Stat::Percent (const Standard_Integer fromlev) const
{
  if (fromlev > thelev) return 0;
  Standard_Real r1,r2,r3;
  Standard_Integer tot  = thetot->Value(fromlev);
  Standard_Integer done = thedone->Value(fromlev);
  if (done >= tot) return 100.;
  if (fromlev == thelev) {
    r1 = tot;  r2 = done;
    return (r2*100)/r1;
  }
  Standard_Integer cur = thecurr->Value(fromlev);
  r1 = tot;  r2 = done;
  r3 = 0;
  if (cur > 0) { r3 = cur; r3 = cur/tot; r3 = r3*Percent (fromlev+1); }
  if (r1 == 0) return 1;
  return (r2*100)/r1 + r3;
}