OCCT

// 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 <Interface_Check.hxx>
#include <Interface_InterfaceModel.hxx>
#include <Standard_Transient.hxx>
#include <Standard_Type.hxx>
#include <TCollection_AsciiString.hxx>
#include <Transfer_TransientProcess.hxx>
#include <XSControl_SignTransferStatus.hxx>
#include <XSControl_TransferReader.hxx>

IMPLEMENT_STANDARD_RTTIEXT(XSControl_SignTransferStatus, IFSelect_Signature)

// #include <stdio.h>
static TCollection_AsciiString& themes()
{
  static TCollection_AsciiString tm;
  return tm;
}

// if result with type: to be exploited immediately!

XSControl_SignTransferStatus::XSControl_SignTransferStatus()
    : IFSelect_Signature("Transfer Status")
{
}

XSControl_SignTransferStatus::XSControl_SignTransferStatus(
  const occ::handle<XSControl_TransferReader>& TR)
    : IFSelect_Signature("Transfer Status"),
      theTR(TR)
{
}

void XSControl_SignTransferStatus::SetReader(const occ::handle<XSControl_TransferReader>& TR)
{
  theTR = TR;
}

void XSControl_SignTransferStatus::SetMap(const occ::handle<Transfer_TransientProcess>& TP)
{
  theTP = TP;
}

occ::handle<Transfer_TransientProcess> XSControl_SignTransferStatus::Map() const
{
  return theTP;
}

occ::handle<XSControl_TransferReader> XSControl_SignTransferStatus::Reader() const
{
  return theTR;
}

// BinderStatus retourne une valeur :
// 0 Binder Null.   1 void  2 Warning seul  3 Fail seul
// 11 Resultat OK. 12 Resultat+Warning. 13 Resultat+Fail
// 20 Abnormal (Interrupted)

static int BinderStatus(const occ::handle<Transfer_Binder>& binder)
{
  int stat = 0;
  if (binder.IsNull())
  {
    return 0;
  }
  Interface_CheckStatus cst = binder->Check()->Status();
  Transfer_StatusExec   est = binder->StatusExec();
  bool                  res = binder->HasResult();
  if (est == Transfer_StatusRun || est == Transfer_StatusLoop)
  {
    return 20;
  }
  if (cst == Interface_CheckOK)
  {
    stat = (res ? 11 : 1);
  }
  else if (cst == Interface_CheckWarning)
  {
    stat = (res ? 12 : 2);
  }
  else if (cst == Interface_CheckFail)
  {
    stat = (res ? 13 : 3);
  }

  return stat;
}

const char* XSControl_SignTransferStatus::Value(
  const occ::handle<Standard_Transient>& ent,
  const occ::handle<Interface_InterfaceModel>& /*model*/) const
{
  if (ent.IsNull())
  {
    return "";
  }
  occ::handle<Transfer_TransientProcess> TP = theTP;
  if (TP.IsNull() && !theTR.IsNull())
  {
    TP = theTR->TransientProcess();
  }
  if (TP.IsNull())
  {
    return "";
  }

  occ::handle<Transfer_Binder> binder = TP->Find(ent);

  int stat = BinderStatus(binder);

  if (stat <= 1)
  {
    return "";
  }
  if (stat == 2)
  {
    return "Warning";
  }
  if (stat == 3)
  {
    return "Fail";
  }
  if (stat == 20)
  {
    return "Fail on run";
  }

  themes().Clear();
  if (stat > 10)
  {
    //  Y a un resultat : donner son type
    occ::handle<Transfer_Binder> bnd    = binder;
    int                          hasres = false;
    while (!bnd.IsNull())
    {
      if (bnd->Status() != Transfer_StatusVoid)
      {
        if (!hasres)
        {
          themes().AssignCat("Result:");
        }
        else
        {
          themes().AssignCat(",");
        }
        themes().AssignCat(bnd->ResultTypeName());
        hasres = true;
      }
      bnd = bnd->NextResult();
    }
    //    if (stat == 11) Sprintf(themes,"Result:%s",binder->ResultTypeName());
    if (stat == 12)
    {
      themes().AssignCat("/Warning");
    }
    if (stat == 13)
    {
      themes().AssignCat("/Fail");
    }
  }
  return themes().ToCString();
}