// @(#)root/base:$Id: TDirectory.cxx 25450 2008-09-18 21:13:42Z pcanal $ // Author: Rene Brun 28/11/94 /************************************************************************* * 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. * *************************************************************************/ #include "Riostream.h" #include "Strlen.h" #include "TDirectory.h" #include "TClassTable.h" #include "TInterpreter.h" #include "THashList.h" #include "TBrowser.h" #include "TROOT.h" #include "TError.h" #include "TClass.h" #include "TRegexp.h" #include "TSystem.h" #include "TVirtualMutex.h" TDirectory *gDirectory; //Pointer to current directory in memory Bool_t TDirectory::fgAddDirectory = kTRUE; const Int_t kMaxLen = 2048; //______________________________________________________________________________ //Begin_Html /* <img src="gif/tdirectory_classtree.gif"> */ //End_Html ClassImp(TDirectory) //______________________________________________________________________________ // //______________________________________________________________________________ TDirectory::TDirectory() : TNamed(), fMother(0),fList(0),fContext(0) { //*-*-*-*-*-*-*-*-*-*-*-*Directory default constructor-*-*-*-*-*-*-*-*-*-*-*-* //*-* ============================= } //______________________________________________________________________________ TDirectory::TDirectory(const char *name, const char *title, Option_t * /*classname*/, TDirectory* initMotherDir) : TNamed(name, title), fMother(0), fList(0),fContext(0) { //*-*-*-*-*-*-*-*-*-*-*-* Create a new Directory *-*-*-*-*-*-*-*-*-*-*-*-*-* //*-* ====================== // A new directory with name,title is created in the current directory // The directory header information is immediatly saved on the file // A new key is added in the parent directory // // When this constructor is called from a class directly derived // from TDirectory, the third argument classname MUST be specified. // In this case, classname must be the name of the derived class. // // Note that the directory name cannot contain slashes. // if (initMotherDir==0) initMotherDir = gDirectory; if (strchr(name,'/')) { ::Error("TDirectory::TDirectory","directory name (%s) cannot contain a slash", name); gDirectory = 0; return; } if (strlen(GetName()) == 0) { ::Error("TDirectory::TDirectory","directory name cannot be \"\""); gDirectory = 0; return; } Build(initMotherDir ? initMotherDir->GetFile() : 0, initMotherDir); R__LOCKGUARD2(gROOTMutex); } //______________________________________________________________________________ TDirectory::TDirectory(const TDirectory &directory) : TNamed(directory) { // Copy constructor. ((TDirectory&)directory).Copy(*this); } //______________________________________________________________________________ TDirectory::~TDirectory() { // -- Destructor. if (!gROOT) { return; //when called by TROOT destructor } if (fList) { fList->Delete("slow"); SafeDelete(fList); } CleanTargets(); TDirectory* mom = GetMotherDir(); if (mom) { mom->Remove(this); } if (gDebug) { Info("~TDirectory", "dtor called for %s", GetName()); } } //______________________________________________________________________________ void TDirectory::AddDirectory(Bool_t add) { // Sets the flag controlling the automatic add objects like histograms, TGraph2D, etc // in memory // // By default (fAddDirectory = kTRUE), these objects are automatically added // to the list of objects in memory. // Note that in the classes like TH1, TGraph2D supporting this facility, // one object can be removed from its support directory // by calling object->SetDirectory(0) or object->SetDirectory(dir) to add it // to the list of objects in the directory dir. // // NOTE that this is a static function. To call it, use; // TDirectory::AddDirectory fgAddDirectory = add; } //______________________________________________________________________________ Bool_t TDirectory::AddDirectoryStatus() { //static function: see TDirectory::AddDirectory for more comments return fgAddDirectory; } //______________________________________________________________________________ void TDirectory::Append(TObject *obj, Bool_t replace /* = kFALSE */) { // Append object to this directory. // // If replace is true: // remove any existing objects with the same same (if the name is not "" if (obj == 0 || fList == 0) return; if (replace && obj->GetName() && obj->GetName()[0]) { TObject *old; while (0!=(old = GetList()->FindObject(obj->GetName()))) { Warning("Append","Replacing existing %s: %s (Potential memory leak).", obj->IsA()->GetName(),obj->GetName()); ROOT::DirAutoAdd_t func = old->IsA()->GetDirectoryAutoAdd(); if (func) { func(old,0); } else { Remove(old); } } } fList->Add(obj); obj->SetBit(kMustCleanup); } //______________________________________________________________________________ void TDirectory::Browse(TBrowser *b) { // Browse the content of the directory. if (b) { TObject *obj = 0; TIter nextin(fList); cd(); //Add objects that are only in memory while ((obj = nextin())) { b->Add(obj, obj->GetName()); } } } //______________________________________________________________________________ void TDirectory::Build(TFile* /*motherFile*/, TDirectory* motherDir) { //*-*-*-*-*-*-*-*-*-*-*-*Initialise directory to defaults*-*-*-*-*-*-*-*-*-* //*-* ================================ // If directory is created via default ctor (when dir is read from file) // don't add it here to the directory since its name is not yet known. // It will be added to the directory in TKey::ReadObj(). if (motherDir && strlen(GetName()) != 0) motherDir->Append(this); fList = new THashList(100,50); fMother = motherDir; SetBit(kCanDelete); } //______________________________________________________________________________ void TDirectory::CleanTargets() { // Clean the pointers to this object (gDirectory, TContext, etc.) while (fContext) { fContext->fDirectory = 0; fContext = fContext->fNext; } if (gDirectory == this) { TDirectory *cursav = GetMotherDir(); if (cursav && cursav != this) { cursav->cd(); } else { if (this == gROOT) { gDirectory = 0; } else { gROOT->cd(); } } } } //______________________________________________________________________________ TObject *TDirectory::CloneObject(const TObject *obj, Bool_t autoadd /* = kTRUE */) { // Clone an object. // This function is called when the directory is not a TDirectoryFile. // This version has to load the I/O package, hence via CINT // // If autoadd is true and if the object class has a // DirectoryAutoAdd function, it will be called at the end of the // function with the parameter gDirector. This usually means that // the object will be appended to the current ROOT directory. // if no default ctor return immediately (error issued by New()) char *pobj = (char*)obj->IsA()->New(); if (!pobj) return 0; Int_t baseOffset = obj->IsA()->GetBaseClassOffset(TObject::Class()); if (baseOffset==-1) { // cl does not inherit from TObject. // Since this is not supported in this function, the only reason we could reach this code // is because something is screwed up in the ROOT code. Fatal("CloneObject","Incorrect detection of the inheritance from TObject for class %s.\n", obj->IsA()->GetName()); } TObject *newobj = (TObject*)(pobj+baseOffset); //create a buffer where the object will be streamed //We are forced to go via the I/O package (ie TBufferFile). //Invoking TBufferFile via CINT will automatically load the I/O library TBuffer *buffer = (TBuffer*)gROOT->ProcessLine(Form("new TBufferFile(%d,10000);",TBuffer::kWrite)); if (!buffer) return 0; buffer->MapObject(obj); //register obj in map to handle self reference ((TObject*)obj)->Streamer(*buffer); // read new object from buffer buffer->SetReadMode(); buffer->ResetMap(); buffer->SetBufferOffset(0); buffer->MapObject(newobj); //register obj in map to handle self reference newobj->Streamer(*buffer); newobj->ResetBit(kIsReferenced); newobj->ResetBit(kCanDelete); delete buffer; if (autoadd) { ROOT::DirAutoAdd_t func = obj->IsA()->GetDirectoryAutoAdd(); if (func) { func(newobj,this); } } return newobj; } //______________________________________________________________________________ TDirectory *TDirectory::GetDirectory(const char *apath, Bool_t printError, const char *funcname) { // Find a directory using apath. // It apath is null or empty, returns "this" directory. // Otherwie use apath to find a directory. // The absolute path syntax is: // file.root:/dir1/dir2 // where file.root is the file and /dir1/dir2 the desired subdirectory // in the file. Relative syntax is relative to "this" directory. E.g: // ../aa. // Returns 0 in case path does not exist. // If printError is true, use Error with 'funcname' to issue an error message. Int_t nch = 0; if (apath) nch = strlen(apath); if (!nch) { return this; } if (funcname==0 || strlen(funcname)==0) funcname = "GetDirectory"; TDirectory *result = this; char *path = new char[nch+1]; path[0] = 0; if (nch) strcpy(path,apath); char *s = (char*)strrchr(path, ':'); if (s) { *s = '\0'; R__LOCKGUARD2(gROOTMutex); TDirectory *f = (TDirectory *)gROOT->GetListOfFiles()->FindObject(path); if (!f && !strcmp(gROOT->GetName(), path)) f = gROOT; if (s) *s = ':'; if (f) { result = f; if (s && *(s+1)) result = f->GetDirectory(s+1,printError,funcname); delete [] path; return result; } else { if (printError) Error(funcname, "No such file %s", path); delete [] path; return 0; } } // path starts with a slash (assumes current file) if (path[0] == '/') { TDirectory *td = gROOT; result = td->GetDirectory(path+1,printError,funcname); delete [] path; return result; } TObject *obj; char *slash = (char*)strchr(path,'/'); if (!slash) { // we are at the lowest level if (!strcmp(path, "..")) { result = GetMotherDir(); delete [] path; return result; } obj = Get(path); if (!obj) { if (printError) Error(funcname,"Unknown directory %s", path); delete [] path; return 0; } //Check return object is a directory if (!obj->InheritsFrom(TDirectory::Class())) { if (printError) Error(funcname,"Object %s is not a directory", path); delete [] path; return 0; } delete [] path; return (TDirectory*)obj; } char subdir[kMaxLen]; strcpy(subdir,path); slash = (char*)strchr(subdir,'/'); *slash = 0; //Get object with path from current directory/file if (!strcmp(subdir, "..")) { TDirectory* mom = GetMotherDir(); if (mom) result = mom->GetDirectory(slash+1,printError,funcname); delete [] path; return result; } obj = Get(subdir); if (!obj) { if (printError) Error(funcname,"Unknown directory %s", subdir); delete [] path; return 0; } //Check return object is a directory if (!obj->InheritsFrom(TDirectory::Class())) { if (printError) Error(funcname,"Object %s is not a directory", subdir); delete [] path; return 0; } result = ((TDirectory*)obj)->GetDirectory(slash+1,printError,funcname); delete [] path; return result; } //______________________________________________________________________________ Bool_t TDirectory::cd(const char *path) { // Change current directory to "this" directory . Using path one can // change the current directory to "path". The absolute path syntax is: // file.root:/dir1/dir2 // where file.root is the file and /dir1/dir2 the desired subdirectory // in the file. Relative syntax is relative to "this" directory. E.g: // ../aa. Returns kTRUE in case of success. return cd1(path); } //______________________________________________________________________________ Bool_t TDirectory::cd1(const char *apath) { // Change current directory to "this" directory . Using path one can // change the current directory to "path". The absolute path syntax is: // file.root:/dir1/dir2 // where file.root is the file and /dir1/dir2 the desired subdirectory // in the file. Relative syntax is relative to "this" directory. E.g: // ../aa. Returns kFALSE in case path does not exist. Int_t nch = 0; if (apath) nch = strlen(apath); if (!nch) { gDirectory = this; return kTRUE; } TDirectory *where = GetDirectory(apath,kTRUE,"cd"); if (where) { where->cd(); return kTRUE; } return kFALSE; } //______________________________________________________________________________ Bool_t TDirectory::Cd(const char *path) { // Change current directory to "path". The absolute path syntax is: // file.root:/dir1/dir2 // where file.root is the file and /dir1/dir2 the desired subdirectory // in the file. Relative syntax is relative to the current directory // gDirectory, e.g.: ../aa. Returns kTRUE in case of success. return Cd1(path); } //______________________________________________________________________________ Bool_t TDirectory::Cd1(const char *apath) { // Change current directory to "path". The path syntax is: // file.root:/dir1/dir2 // where file.root is the file and /dir1/dir2 the desired subdirectory // in the file. Returns kFALSE in case path does not exist. // null path is always true (i.e. stay in the current directory) Int_t nch = 0; if (apath) nch = strlen(apath); if (!nch) return kTRUE; TDirectory *where = gDirectory->GetDirectory(apath,kTRUE,"Cd"); if (where) { where->cd(); return kTRUE; } return kFALSE; } //______________________________________________________________________________ void TDirectory::Clear(Option_t *) { //*-*-*-*Delete all objects from a Directory list-*-*-*-*-* //*-* ======================================= if (fList) fList->Clear(); } //______________________________________________________________________________ void TDirectory::Close(Option_t *) { // -- Delete all objects from memory and directory structure itself. if (!fList) { return; } // Save the directory key list and header Save(); Bool_t fast = kTRUE; TObjLink *lnk = fList->FirstLink(); while (lnk) { if (lnk->GetObject()->IsA() == TDirectory::Class()) {fast = kFALSE;break;} lnk = lnk->Next(); } // Delete objects from directory list, this in turn, recursively closes all // sub-directories (that were allocated on the heap) // if this dir contains subdirs, we must use the slow option for Delete! // we must avoid "slow" as much as possible, in particular Delete("slow") // with a large number of objects (eg >10^5) would take for ever. if (fast) fList->Delete(); else fList->Delete("slow"); CleanTargets(); } //______________________________________________________________________________ void TDirectory::DeleteAll(Option_t *) { // -- Delete all objects from memory. fList->Delete("slow"); } //______________________________________________________________________________ void TDirectory::Delete(const char *namecycle) { //*-*-*-*-*-*-*-* Delete Objects or/and keys in a directory *-*-*-*-*-*-*-* //*-* ========================================= // namecycle has the format name;cycle // namecycle = "" same as namecycle ="T*" // name = * means all // cycle = * means all cycles (memory and keys) // cycle = "" or cycle = 9999 ==> apply to a memory object // When name=* use T* to delete subdirectories also // // To delete one directory, you must specify the directory cycle, // eg. file.Delete("dir1;1"); // // examples: // foo : delete object named foo in memory // foo* : delete all objects with a name starting with foo // foo;1 : delete cycle 1 of foo on file // foo;* : delete all cycles of foo on file and also from memory // *;2 : delete all objects on file having the cycle 2 // *;* : delete all objects from memory and file // T*;* : delete all objects from memory and file and all subdirectories // if (gDebug) Info("Delete","Call for this = %s namecycle = %s", GetName(), (namecycle ? namecycle : "null")); TDirectory::TContext ctxt(gDirectory, this); Short_t cycle; char name[kMaxLen]; DecodeNameCycle(namecycle, name, cycle); Int_t deleteall = 0; Int_t deletetree = 0; if(strcmp(name,"*") == 0) deleteall = 1; if(strcmp(name,"*T") == 0){ deleteall = 1; deletetree = 1;} if(strcmp(name,"T*") == 0){ deleteall = 1; deletetree = 1;} if(strlen(namecycle) == 0){ deleteall = 1; deletetree = 1;} TRegexp re(name,kTRUE); TString s; Int_t deleteOK = 0; //*-*---------------------Case of Object in memory--------------------- // ======================== if (cycle >= 9999 ) { TNamed *idcur; TIter next(fList); while ((idcur = (TNamed *) next())) { deleteOK = 0; s = idcur->GetName(); if (deleteall || s.Index(re) != kNPOS) { deleteOK = 1; if (idcur->IsA() == TDirectory::Class()) { deleteOK = 2; if (!deletetree && deleteall) deleteOK = 0; } } if (deleteOK != 0) { fList->Remove(idcur); if (deleteOK==2) { // read subdirectories to correctly delete them if (deletetree) ((TDirectory*) idcur)->ReadAll("dirs"); idcur->Delete(deletetree ? "T*;*" : "*"); delete idcur; } else idcur->Delete(name); } } } } //______________________________________________________________________________ void TDirectory::Draw(Option_t *option) { //*-*-*-*-*-*-*-*-*-*-*-*Fill Graphics Structure and Paint*-*-*-*-*-*-*-*-*-* //*-* ================================= // Loop on all objects (memory or file) and all subdirectories // fList->R__FOR_EACH(TObject,Draw)(option); } //______________________________________________________________________________ TObject *TDirectory::FindObject(const TObject *obj) const { // Find object in the list of memory objects. return fList->FindObject(obj); } //______________________________________________________________________________ TObject *TDirectory::FindObject(const char *name) const { // Find object by name in the list of memory objects. return fList->FindObject(name); } //______________________________________________________________________________ TObject *TDirectory::FindObjectAny(const char *aname) const { // Find object by name in the list of memory objects of the current // directory or its sub-directories. // After this call the current directory is not changed. // To automatically set the current directory where the object is found, // use FindKeyAny(aname)->ReadObj(). //object may be already in the list of objects in memory return fList->FindObject(aname); } //______________________________________________________________________________ TObject *TDirectory::Get(const char *namecycle) { // return pointer to object identified by namecycle // // namecycle has the format name;cycle // name = * is illegal, cycle = * is illegal // cycle = "" or cycle = 9999 ==> apply to a memory object // // examples: // foo : get object named foo in memory // if object is not in memory, try with highest cycle from file // foo;1 : get cycle 1 of foo on file // // The retrieved object should in principle derive from TObject. // If not, the function TDirectory::GetObject should be called. // However, this function will still work for a non-TObject, providing that // the calling application cast the return type to the correct type (which // is the actual type of the object). // // NOTE: // The method GetObject offer better protection and avoid the need // for any cast: // MyClass *obj; // directory->GetObject("some object",obj); // if (obj) { ... the object exist and inherits from MyClass ... } // // VERY IMPORTANT NOTE: // In case the class of this object derives from TObject but not // as a first inheritance, one must use dynamic_cast<>(). // Example 1: Normal case: // class MyClass : public TObject, public AnotherClass // then on return, one can do: // MyClass *obj = (MyClass*)directory->Get("some object of MyClass"); // // Example 2: Special case: // class MyClass : public AnotherClass, public TObject // then on return, one must do: // MyClass *obj = dynamic_cast<MyClass*>(directory->Get("some object of MyClass")); // // Of course, dynamic_cast<> can also be used in the example 1. // Short_t cycle; char name[kMaxLen]; DecodeNameCycle(namecycle, name, cycle); char *namobj = name; Int_t nch = strlen(name); for (Int_t i = nch-1; i > 0; i--) { if (name[i] == '/') { name[i] = 0; TDirectory* dirToSearch=GetDirectory(name); namobj = name + i + 1; name[i] = '/'; return dirToSearch?dirToSearch->Get(namobj):0; } } //*-*---------------------Case of Object in memory--------------------- // ======================== TObject *idcur = fList->FindObject(namobj); if (idcur) { if (idcur==this && strlen(namobj)!=0) { // The object has the same name has the directory and // that's what we picked-up! We just need to ignore // it ... idcur = 0; } else if (cycle == 9999) { return idcur; } else { if (idcur->InheritsFrom(TCollection::Class())) idcur->Delete(); // delete also list elements delete idcur; idcur = 0; } } return idcur; } //______________________________________________________________________________ void *TDirectory::GetObjectUnchecked(const char *namecycle) { // return pointer to object identified by namecycle. // The returned object may or may not derive from TObject. // // namecycle has the format name;cycle // name = * is illegal, cycle = * is illegal // cycle = "" or cycle = 9999 ==> apply to a memory object // // VERY IMPORTANT NOTE: // The calling application must cast the returned object to // the final type, eg // MyClass *obj = (MyClass*)directory->GetObject("some object of MyClass"); return GetObjectChecked(namecycle,(TClass*)0); } //_________________________________________________________________________________ void *TDirectory::GetObjectChecked(const char *namecycle, const char* classname) { // See documentation of TDirectory::GetObjectCheck(const char *namecycle, const TClass *cl) return GetObjectChecked(namecycle,TClass::GetClass(classname)); } //____________________________________________________________________________ void *TDirectory::GetObjectChecked(const char *namecycle, const TClass* expectedClass) { // return pointer to object identified by namecycle if and only if the actual // object is a type suitable to be stored as a pointer to a "expectedClass" // If expectedClass is null, no check is performed. // // namecycle has the format name;cycle // name = * is illegal, cycle = * is illegal // cycle = "" or cycle = 9999 ==> apply to a memory object // // VERY IMPORTANT NOTE: // The calling application must cast the returned pointer to // the type described by the 2 arguments (i.e. cl): // MyClass *obj = (MyClass*)directory->GetObjectChecked("some object of MyClass","MyClass")); // // Note: We recommend using the method TDirectory::GetObject: // MyClass *obj = 0; // directory->GetObject("some object inheriting from MyClass",obj); // if (obj) { ... we found what we are looking for ... } Short_t cycle; char name[kMaxLen]; DecodeNameCycle(namecycle, name, cycle); char *namobj = name; Int_t nch = strlen(name); for (Int_t i = nch-1; i > 0; i--) { if (name[i] == '/') { name[i] = 0; TDirectory* dirToSearch=GetDirectory(name); namobj = name + i + 1; name[i] = '/'; if (dirToSearch) { return dirToSearch->GetObjectChecked(namobj, expectedClass); } else { return 0; } } } //*-*---------------------Case of Object in memory--------------------- // ======================== if (expectedClass==0 || expectedClass->InheritsFrom(TObject::Class())) { TObject *objcur = fList->FindObject(namobj); if (objcur) { if (objcur==this && strlen(namobj)!=0) { // The object has the same name has the directory and // that's what we picked-up! We just need to ignore // it ... objcur = 0; } else if (cycle == 9999) { // Check type if (expectedClass && objcur->IsA()->GetBaseClassOffset(expectedClass) == -1) return 0; else return objcur; } else { if (objcur->InheritsFrom(TCollection::Class())) objcur->Delete(); // delete also list elements delete objcur; objcur = 0; } } } return 0; } //______________________________________________________________________________ const char *TDirectory::GetPathStatic() const { // Returns the full path of the directory. E.g. file:/dir1/dir2. // The returned path will be re-used by the next call to GetPath(). static char *path = 0; const int kMAXDEPTH = 128; const TDirectory *d[kMAXDEPTH]; const TDirectory *cur = this; int depth = 0, len = 0; d[depth++] = cur; len = strlen(cur->GetName()) + 1; // +1 for the / while (cur->fMother && depth < kMAXDEPTH) { cur = (TDirectory *)cur->fMother; d[depth++] = cur; len += strlen(cur->GetName()) + 1; } if (path) delete [] path; path = new char[len+2]; for (int i = depth-1; i >= 0; i--) { if (i == depth-1) { // file or TROOT name strcpy(path, d[i]->GetName()); strcat(path, ":"); if (i == 0) strcat(path, "/"); } else { strcat(path, "/"); strcat(path, d[i]->GetName()); } } return path; } //______________________________________________________________________________ const char *TDirectory::GetPath() const { // Returns the full path of the directory. E.g. file:/dir1/dir2. // The returned path will be re-used by the next call to GetPath(). // TString* buf = &(const_cast<TDirectory*>(this)->fPathBuffer); FillFullPath(*buf); if (GetMotherDir()==0) // case of file buf->Append("/"); return buf->Data(); } //______________________________________________________________________________ void TDirectory::FillFullPath(TString& buf) const { // recursive method to fill full path for directory TDirectory* mom = GetMotherDir(); if (mom!=0) { mom->FillFullPath(buf); buf += "/"; buf += GetName(); } else { buf = GetName(); buf +=":"; } } //______________________________________________________________________________ TDirectory *TDirectory::mkdir(const char *name, const char *title) { // Create a sub-directory and return a pointer to the created directory. // Returns 0 in case of error. // Returns 0 if a directory with the same name already exists. // Note that the directory name cannot contain slashes. if (!name || !title || !strlen(name)) return 0; if (!strlen(title)) title = name; if (strchr(name,'/')) { ::Error("TDirectory::mkdir","directory name (%s) cannot contain a slash", name); return 0; } TDirectory::TContext ctxt(this); TDirectory *newdir = new TDirectory(name, title, "", this); return newdir; } //______________________________________________________________________________ void TDirectory::ls(Option_t *option) const { // List Directory contents. // // Indentation is used to identify the directory tree // Subdirectories are listed first, then objects in memory. // // The option can has the following format: // [<regexp>] // The <regexp> will be used to match the name of the objects. // By default memory and disk objects are listed. // TROOT::IndentLevel(); TROOT::IncreaseDirLevel(); TString opta = option; TString opt = opta.Strip(TString::kBoth); Bool_t memobj = kTRUE; Bool_t diskobj = kTRUE; TString reg = "*"; if (opt.BeginsWith("-m")) { diskobj = kFALSE; if (opt.Length() > 2) reg = opt(2,opt.Length()); } else if (opt.BeginsWith("-d")) { memobj = kFALSE; if (opt.Length() > 2) reg = opt(2,opt.Length()); } else if (!opt.IsNull()) reg = opt; TRegexp re(reg, kTRUE); if (memobj) { TObject *obj; TIter nextobj(fList); while ((obj = (TObject *) nextobj())) { TString s = obj->GetName(); if (s.Index(re) == kNPOS) continue; obj->ls(option); //*-* Loop on all the objects in memory } } TROOT::DecreaseDirLevel(); } //______________________________________________________________________________ void TDirectory::Paint(Option_t *option) { // Paint all objects in the directory. fList->R__FOR_EACH(TObject,Paint)(option); } //______________________________________________________________________________ void TDirectory::Print(Option_t *option) const { // Print all objects in the directory. fList->R__FOR_EACH(TObject,Print)(option); } //______________________________________________________________________________ void TDirectory::pwd() const { // Print the path of the directory. Printf("%s", GetPath()); } //______________________________________________________________________________ void TDirectory::RecursiveRemove(TObject *obj) { // Recursively remove object from a Directory. fList->RecursiveRemove(obj); } //______________________________________________________________________________ TObject *TDirectory::Remove(TObject* obj) { // Remove an object from the in-memory list. TObject *p = 0; if (fList) { p = fList->Remove(obj); } return p; } //______________________________________________________________________________ void TDirectory::rmdir(const char *name) { // Removes subdirectory from the directory // When diredctory is deleted, all keys in all subdirectories will be // read first and deleted from file (if exists) // Equivalent call is Delete("name;*"); if ((name==0) || (*name==0)) return; TString mask(name); mask+=";*"; Delete(mask); } //______________________________________________________________________________ Int_t TDirectory::SaveObjectAs(const TObject *obj, const char *filename, Option_t *option) const { // Save object in filename, // if filename is 0 or "", a file with "objectname.root" is created. // The name of the key is the object name. // If the operation is successful, it returns the number of bytes written to the file // otherwise it returns 0. // By default a message is printed. Use option "q" to not print the message. if (!obj) return 0; if (!gDirectory) return 0; TDirectory *dirsav = gDirectory; TString fname = filename; if (!filename || strlen(filename) == 0) { fname = Form("%s.root",obj->GetName()); } const char *cmd = Form("TFile::Open(\"%s\",\"recreate\");",fname.Data()); TDirectory *local = (TDirectory*)gROOT->ProcessLine(cmd); if (!local) return 0; Int_t nbytes = obj->Write(); delete local; if (dirsav) dirsav->cd(); TString opt = option; opt.ToLower(); if (!opt.Contains("q")) { if (!gSystem->AccessPathName(fname.Data())) obj->Info("SaveAs", "ROOT file %s has been created", fname.Data()); } return nbytes; } //______________________________________________________________________________ void TDirectory::SetName(const char* newname) { // Set the name for directory // If the directory name is changed after the directory was written once, // ROOT currently would NOT change the name of correspondent key in the // mother directory. // DO NOT use this method to 'rename a directory'. // Renaming a directory is currently NOT supported. TNamed::SetName(newname); } //______________________________________________________________________________ void TDirectory::EncodeNameCycle(char *buffer, const char *name, Short_t cycle) { // Encode the name and cycle into buffer like: "aap;2". if (cycle == 9999) strcpy(buffer, name); else sprintf(buffer, "%s;%d", name, cycle); } //______________________________________________________________________________ void TDirectory::DecodeNameCycle(const char *buffer, char *name, Short_t &cycle) { // Decode a namecycle "aap;2" into name "aap" and cycle "2". cycle = 9999; Int_t nch = buffer ? strlen(buffer) : 0; for (Int_t i = 0; i < nch; i++) { if (buffer[i] != ';') name[i] = buffer[i]; else { name[i] = 0; if (i < nch-1 ) if (buffer[i+1] == '*') { cycle = 10000; return; } sscanf(buffer+i+1, "%hd", &cycle); return; } } name[nch] = 0; } //______________________________________________________________________________ void TDirectory::RegisterContext(TContext *ctxt) { // Register a TContext pointing to this TDirectory object if (fContext) { TContext *current = fContext; while(current->fNext) { current = current->fNext; } current->fNext = ctxt; ctxt->fPrevious = current; } else { fContext = ctxt; } } //______________________________________________________________________________ Int_t TDirectory::WriteTObject(const TObject *obj, const char *name, Option_t * /*option*/, Int_t /*bufsize*/) { // See TDirectoryFile::WriteTObject for details const char *objname = "no name specified"; if (name) objname = name; else if (obj) objname = obj->GetName(); Error("WriteTObject","The current directory (%s) is not associated with a file. The object (%s) has not been written.",GetName(),objname); return 0; } //______________________________________________________________________________ void TDirectory::UnregisterContext(TContext *ctxt) { // UnRegister a TContext pointing to this TDirectory object if (ctxt==fContext) { fContext = ctxt->fNext; if (fContext) fContext->fPrevious = 0; ctxt->fPrevious = ctxt->fNext = 0; } else { TContext *next = ctxt->fNext; ctxt->fPrevious->fNext = next; if (next) next->fPrevious = ctxt->fPrevious; ctxt->fPrevious = ctxt->fNext = 0; } } //______________________________________________________________________________ void TDirectory::TContext::CdNull() { // Set the current directory to null. // This is called from the TContext destructor. Since the destructor is // inline, we do no want to have it use directly a global variable. gDirectory = 0; }