KVSeqCollection.cpp

//Created by KVClassFactory on Fri Jun 19 18:51:28 2009
//Author: John Frankland,,,
 
#include "KVSeqCollection.h"
#include "TClass.h"
#include "TROOT.h"
#include "KVBase.h"
#include "TMethodCall.h"
#include "Riostream.h"
#include "TKey.h"
 
#include <THashList.h>
#include <TObjString.h>
 
using namespace std;
 
ClassImp(KVSeqCollection)
 
 
 
Long64_t KVSeqCollection::fSCCounter = 0;
Int_t KVSeqCollection::fgCounter = 0;
TSeqCollection* KVSeqCollection::fgCleanups = NULL;
 
 
 
void KVSeqCollection::init()
{
   // Default initialisation called by ctors
   // Make sure all lists have individual names to ensure rapid look-up
   // in fgCleanups which is a THashList
 
   SetName(Form("KVSeqCollection_%lld", fSCCounter));
   fSCCounter++;//always increases, so names are different
   ++fgCounter;//decreased by dtor, counts instances
   if (!fgCleanups) {
      fgCleanups = new THashList;
      fgCleanups->SetName("KVSeqCollection_Cleanups");
      gROOT->GetListOfCleanups()->Add(fgCleanups);
   }
}
 
 
 
 
KVSeqCollection::KVSeqCollection()
{
   // Default constructor
   fCollection = 0;
   ResetBit(kSignals);
   init();
}
 
 
 
 
KVSeqCollection::KVSeqCollection(const KVSeqCollection& col)
   : TSeqCollection()
{
   // Copy constructor
   // See KVSeqCollection::Copy
 
   fCollection = col.NewCollectionLikeThisOne();
   col.Copy(*this);
   init();
   fCollection->SetName(GetName());
}
 
 
 
 
KVSeqCollection::KVSeqCollection(const Char_t* collection_classname)
{
   // Create new extended collection of class "collection_classname".
   // Must be the name of a class derived from TSeqCollection.
 
   fCollection = 0;
   SetCollection(collection_classname);
   if (!fCollection) MakeZombie();
   ResetBit(kSignals);
   init();
   fCollection->SetName(GetName());
}
 
 
 
 
void KVSeqCollection::SetCollection(const Char_t* class_name)
{
   // Create TSeqCollection-derived object of class 'class_name'
   // and set as the embedded collection fCollection.
   TClass* cl = TClass::GetClass(class_name);
   if (!cl) {
      Error("SetCollection(const Char_t*)", "Called for unknown class: %s",
            class_name);
      return;
   }
   if (!cl->InheritsFrom("TSeqCollection")) {
      Error("SetCollection(const Char_t*)",
            "Called for class %s which does not inherit from TSeqCollection",
            class_name);
      return;
   }
   fCollection = (TSeqCollection*)cl->New();
   // if name of KVSeqCollection has already been set (i.e. if this is not
   // being called by one of the constructors), we set the name of the
   // embedded TSeqCollection object
   if (strcmp(GetName(), "KVSeqCollection"))
      fCollection->SetName(GetName());
}
 
 
 
 
KVSeqCollection::~KVSeqCollection()
{
   // Destructor
   // If the cleanup mechanism is in use, we first remove the list from
   // the list of cleanups
 
   if (IsCleanup()) {
      while (fgCleanups->Remove(this))
         ;
   }
   if (fCollection && !IsOwner()) {
      // ROOT6: when Clear() is called for a TList/THashList containing invalid pointers
      // (i.e. addresses of previously deleted objects), even if the list is not the owner
      // of the objects (i.e. the Clear() should not attempt to delete anything), then
      // calling Clear() without the option "nodelete" leads to false-positive warnings
      // like this: Error in <***::Clear>: A list is accessing an object (0x5632b51c08b0) already deleted...
      //   As the TList and THashList destructors contain a call to their Clear() method,
      // here we pre-emptively Clear("nodelete") the collection before deleting it
      fCollection->Clear("nodelete");
   }
   SafeDelete(fCollection);
   --fgCounter;//decrease instance count
   if (fgCounter == 0 && fgCleanups) {
      // delete cleanups list if this is the last KVSeqCollection
      while (gROOT->GetListOfCleanups()->Remove(fgCleanups))
         ;
      fgCleanups->Clear();
      delete fgCleanups;
      fgCleanups = NULL;
   }
}
 
 
 
 
void KVSeqCollection::Copy(TObject& obj) const
{
   // Copy a list of objects.
   //
   // The name of the list is only copied if the list is not IsCleanup().
   // Cleanup lists must have unique names otherwise the THashList which contains them cannot function correctly.
   //
   // If this list owns its objects, we make new Clones of all objects in the list
   // (N.B. the Clone() method must work correctly for the objects in question)
   // and put them in the copy list, the copy will own these new objects.
   //
   // Copy will have same IsOwner() and IsCleanup() status as this list.
   //
   // If this list sends Modified() signal, the copy will do too.
 
   TSeqCollection::Copy(obj);            //in fact this calls TObject::Copy, no Copy method defined for collection classes
   KVSeqCollection& copy = (KVSeqCollection&) obj;
 
   // if the list is to be placed in the list of cleanups, it must have
   // a unique name. otherwise the name of the list can be copied.
   if (!IsCleanup()) copy.SetName(GetName());
 
   //clear any pre-existing objects in copy list
   if (copy.IsOwner()) copy.Delete();
   else copy.Clear();
 
   //set ownership
   copy.SetOwner(IsOwner());
   //set cleanup status
   copy.SetCleanup(IsCleanup());
   //set signal&slot status
   copy.SendModifiedSignals(IsSendingModifiedSignals());
 
   //copy or clone list members
   TObject* b;
   TIter next(fCollection);
   while ((b = next())) {
      if (IsOwner())
         copy.Add(b->Clone());
      else
         copy.Add(b);
   }
}
 
 
 
 
KVSeqCollection& KVSeqCollection::operator=(const KVSeqCollection& c)
{
   if (&c != this) { // check for self-assignment
      c.Copy(*this);
   }
   return (*this);
}
 
 
 
 
KVSeqCollection* KVSeqCollection::NewCollectionLikeThisOne() const
{
   // PROTECTED method
   // Creates and returns pointer to a new (empty) KVSeqCollection
   // (or derived class) with the same characteristics
   // as this one :
   //   - class of embedded collection
   //   - collection is owner of objects ?
   //   - objects are in cleanup list ?
 
   KVSeqCollection* newCol = (KVSeqCollection*)IsA()->New();
   if (!newCol->fCollection) newCol->SetCollection(fCollection->ClassName());
   newCol->SetOwner(IsOwner());
   newCol->SetCleanup(IsCleanup());
   return newCol;
}
 
 
 
 
void KVSeqCollection::Clear(Option_t* option)
{
   // Clear the list of objects.
   // If the cleanup mechanism is in use, and the objects belong to the list
   // (i.e. Clear() will in fact delete all the objects) we first remove this list
   // from the list of cleanups in order to avoid recursive deletes
 
   Bool_t cleaner = kFALSE;
   if (IsCleanup()) {
      if (IsOwner()) {
         cleaner = kTRUE;
         SetCleanup(kFALSE);
      }
   }
   if (!IsOwner()) {
      // ROOT6: when Clear() is called for a TList/THashList containing invalid pointers
      // (i.e. addresses of previously deleted objects), even if the list is not the owner
      // of the objects (i.e. the Clear() should not attempt to delete anything), then
      // calling Clear() without the option "nodelete" leads to false-positive warnings
      // like this: Error in <***::Clear>: A list is accessing an object (0x5632b51c08b0) already deleted...
      fCollection->Clear("nodelete");
   }
   else
      fCollection->Clear(option);
   if (cleaner) SetCleanup();
   Changed();
}
 
 
 
 
void KVSeqCollection::Delete(Option_t* option)
{
   // Delete all heap-based objects in the list.
   // If the cleanup mechanism is in use we first remove this list
   // from the list of cleanups in order to avoid recursive deletes
 
   Bool_t cleaner = kFALSE;
   if (IsCleanup()) {
      if (IsOwner()) {
         cleaner = kTRUE;
         SetCleanup(kFALSE);
      }
   }
   fCollection->Delete(option);
   if (cleaner) SetCleanup();
   Changed();
}
 
 
 
 
TObject** KVSeqCollection::GetObjectRef(const TObject* obj) const
{
   // Return reference to object.
   return fCollection->GetObjectRef(obj);
}
 
 
 
 
TIterator* KVSeqCollection::MakeIterator(Bool_t dir) const
{
   // Make and return iterator for the list.
   return fCollection->MakeIterator(dir);
}
 
 
 
 
TObject* KVSeqCollection::Remove(TObject* obj)
{
   // Remove object from list.
 
   TObject* result = fCollection->Remove(obj);
   if (result) Changed();
   return result;
}
 
 
 
 
void KVSeqCollection::RecursiveRemove(TObject* obj)
{
   // Remove object from this collection and recursively remove the object
   // from all other objects (and collections).
   //
   // NOTE: lists which are 'cleanup' and 'sendmodifiedsignals':
   // the list will not emit 'Modified()' when objects in the
   // list are deleted elsewhere, they are then removed by the cleanup mechanism
   // by calling this method.
 
   fCollection->RecursiveRemove(obj);
}
 
 
 
 
void  KVSeqCollection::PrintCollectionHeader(Option_t*) const
{
   // Overrides TCollection::PrintCollectionHeader to show the class name of the embedded list
   TROOT::IndentLevel();
   printf("Collection name='%s', embedded list class='%s', size=%d\n", GetName(),
          fCollection->ClassName(), GetSize());
}
 
 
 
 
TObject* KVSeqCollection::FindObjectByType(const Char_t* type) const
{
   // Will return object with given type (value of KVBase::GetType() method).
   // Objects in list which do not inherit KVBase do not have GetType() method,
   // and are ignored.
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (obj->TestBit(KVBase::kIsKaliVedaObject)) {
         if (((KVBase*)obj)->IsType(type))
            return obj;
      }
   }
   return nullptr;
}
 
 
 
 
TObject* KVSeqCollection::FindObjectByTitle(const Char_t* title) const
{
   // Will return object with given title (value of TObject::GetTitle() method).
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (!strcmp(obj->GetTitle(), title))
         return obj;
   }
   return nullptr;
}
 
 
 
 
TObject* KVSeqCollection::FindObjectByClass(const TClass* cl) const
{
   // Return (first) object in embedded list with given class.
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (obj->IsA() == cl) return obj;
   }
   return nullptr;
}
 
 
 
 
TObject* KVSeqCollection::FindObjectByClass(const Char_t* cl) const
{
   // Return (first) object in embedded list with given class.
 
   return FindObjectByClass(TClass::GetClass(cl));
}
 
 
 
 
TObject* KVSeqCollection::FindObjectByLabel(const Char_t* label) const
{
   // Will return object with given label (value of KVBase::GetLabel() method).
   // Objects in list which do not inherit KVBase do not have GetLabel() method,
   // and are ignored.
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (obj->TestBit(KVBase::kIsKaliVedaObject)) {
         if (!strcmp(((KVBase*)obj)->GetLabel(), label)) return obj;
      }
   }
   return nullptr;
}
 
 
 
 
 
TObject* KVSeqCollection::FindObjectByNumber(UInt_t num) const
{
   // Will return object with given number (value of KVBase::GetNumber() method).
   // Objects in list which do not inherit KVBase do not have GetNumber() method,
   // and are ignored.
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (obj->TestBit(KVBase::kIsKaliVedaObject)) {
         if (((KVBase*)obj)->GetNumber() == num) return obj;
      }
   }
   return nullptr;
}
 
 
 
 
TObject* KVSeqCollection::FindObjectWithNameAndType(const Char_t* name, const Char_t* type) const
{
   // Return object with specified name AND type (value of KVBase::GetType() method).
   // Objects in list which do not inherit KVBase do not have GetType() method,
   // and are ignored.
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      if (obj->TestBit(KVBase::kIsKaliVedaObject) && !strcmp(obj->GetName(), name)) {
         if (!strcmp(((KVBase*)obj)->GetType(), type)) return obj;
      }
   }
   return nullptr;
}
 
 
 
 
TObject* KVSeqCollection::FindObjectWithMethod(const Char_t* retvalue, const Char_t* method) const
{
   // Find the first object in the list for which the given method returns the given return value:
   //   e.g. if method = "GetName" and retvalue = "john", we return the
   //   first object in this list for which GetName() returns "john".
   //
   // For each object of the list, the existence of the given method is checked using TMethodCall::IsValid()
   // if the method is valid and the return value is equal to the input one (retvalue) object is returned
   // Supported return types are those defined in TMethodCall::ReturnType()
 
   if (retvalue && method) {
      KVString RV(retvalue);
      KVString MTH(method);
      Bool_t wildcard = RV.Contains("*");
      TIter next(fCollection);
      TObject* obj;
      while ((obj = next())) {
         TMethodCall mt;
         mt.InitWithPrototype(obj->IsA(), MTH.Data(), "");
         if (mt.IsValid()) {
            if (mt.ReturnType() == TMethodCall::kString) {
               Char_t* ret;
               mt.Execute(obj, "", &ret);
               if (ret != nullptr) {
                  if (!wildcard) {
                     if (RV == ret) {
                        return obj;
                     }
                  }
                  else {
                     if (KVString(ret).Match(RV)) {
                        return obj;
                     }
                  }
               }
            }
            else if (mt.ReturnType() == TMethodCall::kLong) {
               Long_t ret;
               mt.Execute(obj, "", ret);
               if (ret == RV.Atoi()) {
                  return obj;
               }
            }
            else if (mt.ReturnType() == TMethodCall::kDouble) {
               Double_t ret;
               mt.Execute(obj, "", ret);
               if (ret == RV.Atof()) {
                  return obj;
               }
            }
            else Error("FindObjectWithMethod", "Return type %d is not supported", (int)mt.ReturnType());
         }
      }
   }
   return nullptr;
 
}
 
 
 
 
void KVSeqCollection::Execute(const char* method, const char* params, Int_t* error)
{
   //Redefinition of TObject::Execute(const char *, const char *, Int_t *) method.
   //TObject::Execute is called for each object in the embedded list in order, meaning that for each
   //object the method "method" is executed with arguments "params".
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      obj->Execute(method, params, error);
   }
}
 
 
 
 
 
void KVSeqCollection::Execute(TMethod* method, TObjArray* params, Int_t* error)
{
   //Redefinition of TObject::Execute(TMethod *, TObjArray *, Int_t *) method.
   //TObject::Execute is called for each object in the embedded list in order, meaning that for each
   //object the method "method" is executed with arguments "params".
 
   TIter next(fCollection);
   TObject* obj;
   while ((obj = next())) {
      obj->Execute(method, params, error);
   }
}
 
 
 
 
 
TObject* KVSeqCollection::FindObjectAny(const Char_t* att, const Char_t* keys, Bool_t contains_all, Bool_t case_sensitive) const
{
   //Find an object in the list, if one of its characteristics 'att' contains any or all of
   //the keywords contained in the string 'keys'
   //
   // att = "name", "title", "class", "type", "label",
   //      WARNING: when using "type" or "label", any objects in list which do
   //                         not inherit from KVBase are ignored
   // keys = list of keywords, separated by spaces
   //
   // contains_all = kFALSE (default) : object found if any keyword occurs in the characteristic 'att'
   // contains_all = kTRUE               : object found if all keywords occur in the characteristic 'att'
   //
   // case_sensitive = kTRUE (default) : case-sensitive comparison
   // case_sensitive = kFALSE               : ignore case of keywords
 
   int char_test = -1;
   enum { kName, kTitle, kClass, kType, kLabel };
   if (!strcmp(att, "name")) char_test = kName;
   else if (!strcmp(att, "title")) char_test = kTitle;
   else if (!strcmp(att, "type")) char_test = kType;
   else if (!strcmp(att, "label")) char_test = kLabel;
   else if (!strcmp(att, "class")) char_test = kClass;
   else return nullptr;
 
   TString::ECaseCompare casecmp;
   if (case_sensitive) casecmp = TString::kExact;
   else casecmp = TString::kIgnoreCase;
 
   TString _keys(keys);
   unique_ptr<TObjArray> keywords(_keys.Tokenize(' '));
   if (!keywords.get()) return nullptr;
   int nkeys;
   if (!(nkeys = keywords->GetEntries())) {
      return nullptr;
   }
 
   int nmatches;
   TIter next(fCollection);
   TString _att;
   TObject* obj(nullptr);
   while ((obj = next())) {
 
      if (char_test > kClass && !obj->TestBit(KVBase::kIsKaliVedaObject)) {
         continue;
      }
      KVBase* kvobj = dynamic_cast<KVBase*>(obj);
      switch (char_test) {
         case kName:
            _att = obj->GetName();
            break;
         case kTitle:
            _att = obj->GetTitle();
            break;
         case kClass:
            _att = obj->ClassName();
            break;
         case kLabel:
            _att = kvobj->GetLabel();
            break;
         case kType:
            _att = kvobj->GetType();
            break;
      }
      nmatches = 0;
      for (int i = 0; i < nkeys; i++) {
         nmatches += (_att.Contains(((TObjString*)keywords->At(i))->String(), casecmp));
      }
      if ((nmatches && !contains_all) || ((nmatches == nkeys) && contains_all)) {
         return obj;
      }
   }
   return nullptr;
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithClass(const TClass* _class) const
{
   // Create and fill a (sub)list with objects in this list of the given class.
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //
   //  *** WARNING *** : DELETE the KVSeqCollection returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithClass(...));
 
   KVSeqCollection* sublist = NewCollectionLikeThisOne();
   sublist->SetOwner(kFALSE);
   _GetSubListWithClass(sublist, fCollection, _class);
   return sublist;
}
 
 
 
 
void KVSeqCollection::_GetSubListWithClass(KVSeqCollection* outputList, TCollection* Col, const TClass* _class) const
{
   if (_class) {
      TIter next(Col);
      TObject* ob;
      while ((ob = next())) {
         if (_class == ob->IsA()) outputList->Add(ob);
         // if we are looking for objects of class "TList" or some other TCollection, they will all be included!
         if (ob->InheritsFrom("TCollection")) _GetSubListWithClass(outputList, (TCollection*)ob, _class);
      }
   }
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithClass(const Char_t* class_name) const
{
   // Recursively create and fill a (sub)list with objects in this list (and any sublists) of the given class.
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithClass(...));
 
   if (class_name) {
      return GetSubListWithClass(TClass::GetClass(class_name));
   }
   else return nullptr;
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithMethod(const Char_t* retvalue, const Char_t* method) const
{
   // Recursively create and fill a (sub)list with objects in this list (and any sublists) for which the
   // given method returns the given return value:
   //   e.g. if method = "GetName" and retvalue = "john", we return the
   //    (sub)list of objects in this list for which GetName() returns "john".
   //
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //  *** WARNING *** : DELETE the list returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithMethod(...));
   //
   // For each object of the list, the existence of the given method is checked using TMethodCall::IsValid()
   // if the method is valid and the return value is equal to the input one (retvalue) object is added to the subKVList
   // return type supported are those defined in TMethodCall::ReturnType()
 
   KVSeqCollection* sublist = NewCollectionLikeThisOne();
   sublist->SetOwner(kFALSE);
   _GetSubListWithMethod(sublist, fCollection, retvalue, method);
   return sublist;
}
 
 
 
 
void KVSeqCollection::_GetSubListWithMethod(KVSeqCollection* outputList, TCollection* Col, const Char_t* retvalue, const Char_t* method) const
{
   if (retvalue && method) {
      KVString RV(retvalue);
      KVString MTH(method);
      Bool_t wildcard = RV.Contains("*");
      TIter next(Col);
      TObject* ob;
      while ((ob = next())) {
         // recursive search in subidrectories
         if (ob->InheritsFrom("TCollection")) {
            _GetSubListWithMethod(outputList, (TCollection*)ob, retvalue, method);
            continue;
         }
         TMethodCall mt;
         mt.InitWithPrototype(ob->IsA(), MTH.Data(), "");
         if (mt.IsValid()) {
            //cout << "it is valid" << endl;
            if (mt.ReturnType() == TMethodCall::kString) {
               Char_t* ret;
               mt.Execute(ob, "", &ret);
               if (!wildcard) {
                  if (RV == ret) outputList->Add(ob);
               }
               else {
                  if (KVString(ret).Match(RV)) outputList->Add(ob);
               }
            }
            else if (mt.ReturnType() == TMethodCall::kLong) {
               Long_t ret;
               mt.Execute(ob, "", ret);
               if (ret == RV.Atoi()) outputList->Add(ob);
            }
            else if (mt.ReturnType() == TMethodCall::kDouble) {
               Double_t ret;
               mt.Execute(ob, "", ret);
               if (ret == RV.Atof()) outputList->Add(ob);
            }
            else std::cout << "this type is not supported " << (int)mt.ReturnType() << std::endl;
         }
      }
   }
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithName(const Char_t* retvalue) const
{
   // Create and fill a (sub)list with all objects in this list whose name
   // (i.e. string returned by GetName()) is "retvalue"
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithName(...));
 
   return GetSubListWithMethod(retvalue, "GetName");
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithLabel(const Char_t* retvalue) const
{
   // Create and fill a (sub)list with all objects in this list whose label
   // (i.e. string returned by GetLabel()) is "retvalue"
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithLabel(...));
 
   return GetSubListWithMethod(retvalue, "GetLabel");
}
 
 
 
 
KVSeqCollection* KVSeqCollection::GetSubListWithType(const Char_t* retvalue) const
{
   // Create and fill a (sub)list with all objects in this list whose type
   // (i.e. string returned by GetType()) is "retvalue"
   // This new list will be of the same kind as this one.
   // The objects in the sublist do not belong to the sublist.
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(GetSubListWithType(...));
 
   return GetSubListWithMethod(retvalue, "GetType");
}
 
 
 
 
KVSeqCollection* KVSeqCollection::MakeListFromFile(TFile* file)
{
   //Static method create a list containing all objects contain of a file
   //The file can be closed after this method, objects stored in the
   //list still remains valid
   //if file=NULL, the current directory is considered
   //
   //  *** WARNING *** : DELETE the KVSeqCollection returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(MakeListFromFile(...));
 
   KVSeqCollection* ll = new KVSeqCollection("TList");
   ll->SetOwner(kFALSE);
 
   TKey* key = 0;
   if (!file) {
      TIter next_ps(gDirectory->GetListOfKeys());
      while ((key = (TKey*) next_ps())) ll->Add(key->ReadObj());
   }
   else {
      TIter next_ps(file->GetListOfKeys());
      while ((key = (TKey*) next_ps())) ll->Add(key->ReadObj());
 
   }
   return ll;
}
 
 
 
 
KVSeqCollection* KVSeqCollection::MakeListFromFileWithMethod(TFile* file, const Char_t* retvalue, const Char_t* method)
{
   //Static method create a list containing all objects whose "method" returns "retvalue" in a file
   //WARNING list has to be empty with KVSeqCollection::Clear() method before closing file
   //if file=NULL, the current directory is considered
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(MakeListFromFileWithMethod(...));
 
   unique_ptr<KVSeqCollection> l1(MakeListFromFile(file));
   KVSeqCollection* l2 = l1->GetSubListWithMethod(retvalue, method);
   l1->Clear();
   return l2;
}
 
 
 
 
KVSeqCollection* KVSeqCollection::MakeListFromFileWithClass(TFile* file, const TClass* _class)
{
   //Static method create a list containing all objects of given class in a file
   //WARNING list has to be empty with KVList::Clear() method before closing file
   //if file=NULL, the current directory is considered
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(MakeListFromFileWithClass(...));
 
   unique_ptr<KVSeqCollection> l1(MakeListFromFile(file));
   KVSeqCollection* l2 = l1->GetSubListWithClass(_class);
   l1->Clear();
   return l2;
}
 
 
 
 
KVSeqCollection* KVSeqCollection::MakeListFromFileWithClass(TFile* file, const Char_t* class_name)
{
   //Static method create a list containing all objects of given class in a file
   //WARNING list has to be empty with KVList::Clear() method before closing file
   //if file=NULL, the current directory is considered
   //
   //  *** WARNING *** : DELETE the KVList returned by this method after using it !!!
   //  *** RECOMMENDED *** : store the returned value in a std::unique_ptr
   //      unique_ptr<KVSeqCollection> ptr(MakeListFromFileWithClass(...));
 
   unique_ptr<KVSeqCollection> l1(MakeListFromFile(file));
   KVSeqCollection* l2 = l1->GetSubListWithClass(class_name);
   l1->Clear();
   return l2;
}
 
 
 
 
 
void KVSeqCollection::SetCleanup(Bool_t enable)
{
   // To use the ROOT cleanup mechanism to ensure that any objects in the list which get
   // deleted elsewhere are removed from this list, call SetCleanup(kTRUE)
 
   SetBit(kCleanup, enable);
   if (enable) {
      // make sure there is not already a list with the same name in the list
      auto l = fgCleanups->FindObject(GetName());
      if (l) {
         if (l != this) {
            SetName(Form("KVSeqCollection_%lld", fSCCounter));
            fSCCounter++;//always increases, so names are different
            Info("SetCleanup", "A list with same name (%s) is already in cleanups list. Changed to %s.",
                 l->GetName(), GetName());
            fgCleanups->Add(this);
         }
      }
      else
         fgCleanups->Add(this);
      fCollection->R__FOR_EACH(TObject, SetBit)(kMustCleanup);
   }
   else {
      fgCleanups->Remove(this);
   }
}
 
 
 
 
void KVSeqCollection::RehashCleanupList()
{
   ((THashList*)fgCleanups)->Rehash(fgCleanups->GetSize());
}
 
 
 
 
void KVSeqCollection::Streamer(TBuffer& R__b)
{
   // Stream an object of class KVSeqCollection.
 
   UInt_t R__s, R__c;
   if (R__b.IsReading()) {
      Version_t R__v = R__b.ReadVersion(&R__s, &R__c);
      TSeqCollection::Streamer(R__b);
      if (R__v < 3) {
         // correct legacy BIT(16) used for fCleanup
         SetCleanup(TestBit(BIT(16)));
#if ROOT_VERSION_CODE >= ROOT_VERSION(6,0,0)
         // for ROOT6 we reset BIT(16) if it was set, assuming that
         // default is 0 (used by TCollection::IsUsingRWLock())
         ResetBit(BIT(16));
#endif
      }
      fQObject.Streamer(R__b);
      if (fCollection) {
         Bool_t owns = fCollection->IsOwner();
         fCollection->SetOwner(kFALSE);
         fCollection->Streamer(R__b);
         fCollection->SetOwner(owns);
      }
      else R__b >> fCollection;
      R__b.CheckByteCount(R__s, R__c, KVSeqCollection::IsA());
   }
   else {
      R__c = R__b.WriteVersion(KVSeqCollection::IsA(), kTRUE);
      TSeqCollection::Streamer(R__b);
      fQObject.Streamer(R__b);
      if (fCollection) {
         fCollection->Streamer(R__b);
      }
      else R__b << fCollection;
      R__b.SetByteCount(R__c, kTRUE);
   }
}