TSelectorList.cxx

Go to the documentation of this file.

// @(#)root/cont:$Id$
// Author: Fons Rademakers   10/08/95
 
/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
 
/** \class TSelectorList
\ingroup tree
 
A TList derived class that makes sure that objects added to it
are not linked to the currently open file (like histograms,
eventlists and trees). Also it makes sure the name of the added
object is unique. This class is used in the TSelector for the
output list.
*/
 
#include "TSelectorList.h"
#include "TMethodCall.h"
 
 
////////////////////////////////////////////////////////////////////////////////
/// If the class of obj has the SetDirectory(TDirectory*) method
/// call it to unset the directory association. The objects in the
/// selector list or owned by the list and not by the directory that
/// was active when they were created. Returns true in case of success.
 
bool TSelectorList::UnsetDirectory(TObject *obj)
{
   if (!obj || !obj->IsA())
      return false;
 
   TMethodCall callEnv;
   callEnv.InitWithPrototype(obj->IsA(), "SetDirectory", "TDirectory*");
   if (!callEnv.IsValid())
      return false;
 
   callEnv.SetParam((Longptr_t) nullptr);
   callEnv.Execute(obj);
 
   return true;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Check for duplicate object names in the list. If an object with
/// the same name is added then the merge function will fail that will
/// look up objects in different output lists by name. Returns true
/// in case name is unique.
 
bool TSelectorList::CheckDuplicateName(TObject *obj)
{
   if (!obj)
      return false;
 
   TObject *org = FindObject(obj->GetName());
   if (org == obj) {
      Error("CheckDuplicateName","object with name: %s already in the list",obj->GetName());
      return false;
   }
 
   if (org) {
      Error("CheckDuplicateName","an object with the same name: %s is already in the list",obj->GetName());
      return false;
   }
 
   return true;
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add at the start of the list
 
void TSelectorList::AddFirst(TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddFirst(obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add at the start of the list
 
void TSelectorList::AddFirst(TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddFirst(obj, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add at the end of the list
 
void TSelectorList::AddLast(TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddLast(obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add at the end of the list
 
void TSelectorList::AddLast(TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddLast(obj, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list.
 
void TSelectorList::AddAt(TObject *obj, Int_t idx)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAt(obj, idx);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list, with options.
 
void TSelectorList::AddAt(TObject *obj, Int_t idx, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAt(obj, idx, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list.
 
void TSelectorList::AddAfter(const TObject *after, TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAfter(after, obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list.
 
void TSelectorList::AddAfter(TObjLink *after, TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAfter(after, obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list, with options.
 
void TSelectorList::AddAfter(const TObject *after, TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAfter(after, obj, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list, with options.
 
void TSelectorList::AddAfter(TObjLink *after, TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddAfter(after, obj, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list.
 
void TSelectorList::AddBefore(const TObject *before, TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddBefore(before, obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list.
 
void TSelectorList::AddBefore(TObjLink *before, TObject *obj)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddBefore(before, obj);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list, with options.
 
void TSelectorList::AddBefore(const TObject *before, TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddBefore(before, obj, opt);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Add to the list, with options.
 
void TSelectorList::AddBefore(TObjLink *before, TObject *obj, Option_t *opt)
{
   UnsetDirectory(obj);
   if (CheckDuplicateName(obj))
      THashList::AddBefore(before, obj, opt);
}