// $Id$
//-----------------------------------------------------------------------
//       The GSI Online Offline Object Oriented (Go4) Project
//         Experiment Data Processing at EE department, GSI
//-----------------------------------------------------------------------
// Copyright (C) 2000- GSI Helmholtzzentrum fuer Schwerionenforschung GmbH
//                     Planckstr. 1, 64291 Darmstadt, Germany
// Contact:            http://go4.gsi.de
//-----------------------------------------------------------------------
// This software can be used under the license agreements as stated
// in Go4License.txt file which is part of the distribution.
//-----------------------------------------------------------------------

#include "TGo4ParameterMember.h"

#include <cstdlib>

#include "TROOT.h"
#include "TDataType.h"

#include "TGo4Status.h"

TGo4ParameterMember::TGo4ParameterMember() :
   TNamed()
{
}

TGo4ParameterMember::TGo4ParameterMember(const char *name, const char *title) :
   TNamed(name, title)
{
}

TGo4ParameterMember::~TGo4ParameterMember()
{
   if (fObject && fObjectOwner) {
      delete fObject;
      fObject = nullptr;
   }
}

void TGo4ParameterMember::SetArrayIndexes(Int_t ndim, Int_t indx1, Int_t indx2)
{
  switch(ndim) {
     case 1:
       fIndex1 = indx1;
       fIndex2 = -1;
       break;
     case 2:
       fIndex1 = indx1;
       fIndex2 = indx2;
       break;
     default:
       fIndex1 = -1;
       fIndex2 = -1;
       break;
  }
}

Bool_t TGo4ParameterMember::CheckArrayIndexes(Int_t ndim, Int_t indx1, Int_t indx2)
{
  switch(ndim) {
     case 1: return (fIndex1==indx1) && (fIndex2<0);
     case 2: return (fIndex1==indx1) && (fIndex2==indx2);
  }

  return (fIndex1<0) && (fIndex2<0);
}


const char *TGo4ParameterMember::GetFullName(TString &buf) const
{
   buf = "";
   if ((fIndex1 < 0) && (fIndex2 < 0))
      buf = GetName();
   else if ((fIndex1 >= 0) && (fIndex2 < 0))
      buf.Form("%s[%d]", GetName(), fIndex1);
   else if ((fIndex1 >= 0) && (fIndex2 >= 0))
      buf.Form("%s[%d][%d]", GetName(), fIndex1, fIndex2);
   return buf.Data();
}

void TGo4ParameterMember::SetObject(TObject *obj, Bool_t owner)
{
   if (fObject && fObjectOwner) delete fObject;

   fObject = obj;
   fObjectOwner = owner;
}

void TGo4ParameterMember::SetToZero()
{
   if (fObject && fObjectOwner)
      delete fObject;

   fValue = "";
   fObject = nullptr;
   fObjectOwner = kFALSE;

   switch (fTypeId) {
      case kUInt_t:
      case kInt_t:
      case kULong_t:
      case kLong_t:
      case kULong64_t:
      case kLong64_t:
      case kUShort_t:
      case kShort_t:
      case kUChar_t:
      case kChar_t:
      case kBool_t:
      case kFloat_t:
      case kDouble_t:
      case kDouble32_t: fValue = "0"; break;
      case kTString_t:  break;
      case kTGo4Fitter_t: break;
   }
}

void TGo4ParameterMember::SetValue(char *addr)
{
   fValue = "";
   switch (fTypeId) {
      case kUInt_t:     fValue.Form("%u", *((UInt_t *)addr)); break;
      case kInt_t:      fValue.Form("%d", *((Int_t *)addr)); break;
      case kULong_t:    fValue.Form("%lu", *((ULong_t *)addr)); break;
      case kLong_t:     fValue.Form("%ld", *((Long_t *)addr)); break;
      case kULong64_t:  fValue.Form("%llu", *((ULong64_t *)addr)); break;
      case kLong64_t:   fValue.Form("%lld", *((Long64_t *)addr)); break;
      case kUShort_t:   fValue.Form("%hu", *((UShort_t *)addr)); break;
      case kShort_t:    fValue.Form("%hd", *((Short_t *)addr)); break;
      case kUChar_t:    fValue.Form("%u", *((UChar_t *)addr)); break;
      case kChar_t:     fValue.Form("%d", *((Char_t *)addr)); break;
      case kBool_t:     fValue.Form("%d", *((Bool_t *)addr)); break;
      case kFloat_t:    fValue.Form("%.7g", *((Float_t *)addr)); break;
      case kDouble_t:   fValue.Form("%.16g", *((Double_t *)addr)); break;
      case kDouble32_t: fValue.Form("%.16g", *((Double32_t *)addr)); break;
      case kTString_t:  fValue = *((TString *)addr); break;
      case kTGo4Fitter_t: {
         TObject **f = (TObject **) addr;
         fObject = *f;
         fObjectOwner = kFALSE;
         break;
      }
   }
}

void TGo4ParameterMember::GetValue(char *addr)
{
   const char *value = fValue.Data();
   switch (fTypeId) {
     case kUInt_t:     *((UInt_t *)addr) = atoi(value); break;
     case kInt_t:      *((Int_t *)addr) = atoi(value); break;
     case kULong_t:    *((ULong_t *)addr) = atoi(value); break;
     case kLong_t:     *((Long_t *)addr) = atoi(value); break;
     case kULong64_t:  *((ULong64_t *)addr) = atoi(value); break;
     case kLong64_t:   *((Long64_t *)addr) = atoi(value); break;
     case kUShort_t:   *((UShort_t *)addr) = atoi(value); break;
     case kShort_t:    *((Short_t *)addr) = atoi(value); break;
     case kUChar_t:    *((UChar_t *)addr) = atoi(value); break;
     case kChar_t:     *((Char_t *)addr) = atoi(value); break;
     case kBool_t:
        if (!strcmp(value,"true"))
           *((Bool_t*)addr) = kTRUE;
        else if (!strcmp(value,"false"))
           *((Bool_t*)addr) = kFALSE;
        else
           *((Bool_t*)addr) = atoi(value);
        break;
     case kFloat_t:    *((Float_t *)addr) = atof(value); break;
     case kDouble_t:   *((Double_t *)addr) = atof(value); break;
     case kDouble32_t: *((Double32_t *)addr) = atof(value); break;
     case kTString_t:  *((TString *)addr) = value; break;
     case kTGo4Fitter_t: {
       TObject **f = (TObject **)addr;
       *f = fObject;
       fObjectOwner = kFALSE;
       break;
     }
   }
}

void TGo4ParameterMember::Clear(Option_t *)
{
   SetToZero();
}

void TGo4ParameterMember::Print(Option_t *) const
{
   TString value = fValue;

   if (fObject)
      value = TString::Format("Obj:%p Class:%s", fObject, fObject->ClassName());
   else if (fTypeId == kBool_t)
      value = ((value == "0") ? "kFALSE" : "kTRUE");

   if (GetTitle() && (strlen(GetTitle()) > 0)) {
      value += " // ";
      value += GetTitle();
   }

   if ((fIndex1 < 0) && (fIndex2 < 0))
      TGo4Status::PrintLine("%s = %s", GetName(), value.Data());
   else if (fIndex2 < 0)
      TGo4Status::PrintLine("%s[%d] = %s", GetName(), fIndex1, value.Data());
   else
      TGo4Status::PrintLine("%s[%d][%d] = %s", GetName(), fIndex1, fIndex2, value.Data());
}