doc/v620/importCode_8C.html

#include "TFile.h"

#include "TSystem.h"

#include "TMacro.h"


void importdir(const char *dirname) {

   char *slash = (char*)strrchr(dirname,'/');

   char *locdir;

   if (slash) locdir = slash+1;

   else       locdir = (char*)dirname;

   printf("processing dir %s\n",dirname);

   TDirectory *savdir = gDirectory;

   TDirectory *adir = savdir->mkdir(locdir);

   adir->cd();

   void *dirp = gSystem->OpenDirectory(dirname);

   if (!dirp) return;

   char *direntry;

   Long_t id, size,flags,modtime;

   //loop on all entries of this directory

   while ((direntry=(char*)gSystem->GetDirEntry(dirp))) {

      TString afile = Form("%s/%s",dirname,direntry);

      gSystem->GetPathInfo(afile,&id,&size,&flags,&modtime);

      if (direntry[0] == '.')             continue; //forget the "." and ".." special cases

      if (!strcmp(direntry,"CVS"))        continue; //forget some special directories

      if (!strcmp(direntry,"htmldoc"))    continue;

      if (strstr(dirname,"root/include")) continue;

      if (strstr(direntry,"G__"))         continue;

      if (strstr(direntry,".c")    ||

          strstr(direntry,".h")    ||

          strstr(direntry,".dat")  ||

          strstr(direntry,".py")   ||

          strstr(direntry,".C")) {

         TMacro *m = new TMacro(afile);

         m->Write(direntry);

         delete m;

      } else {

         if (flags != 3)                     continue; //must be a directory

         //we have found a valid sub-directory. Process it

         importdir(afile);

     }

  }

  gSystem->FreeDirectory(dirp);

  savdir->cd();

}

void importCode() {

   TFile *f = new TFile("code.root","recreate");

   TString dir = gROOT->GetTutorialDir();

   importdir(gSystem->UnixPathName(dir.Data())); //change the directory as you like

   delete f;

}

f
#define f(i)
Definition: RSha256.hxx:104

Long_t
long Long_t
Definition: RtypesCore.h:50

gDirectory
#define gDirectory
Definition: TDirectory.h:223

TFile.h

id
XFontStruct * id
Definition: TGX11.cxx:108

TMacro.h

gROOT
#define gROOT
Definition: TROOT.h:415

Form
char * Form(const char *fmt,...)

TSystem.h

gSystem
R__EXTERN TSystem * gSystem
Definition: TSystem.h:560

TDirectory
Describe directory structure in memory.
Definition: TDirectory.h:34

TDirectory::mkdir
virtual TDirectory * mkdir(const char *name, const char *title="", Bool_t returnExistingDirectory=kFALSE)
Create a sub-directory "a" or a hierarchy of sub-directories "a/b/c/...".
Definition: TDirectory.cxx:1041

TDirectory::cd
virtual Bool_t cd(const char *path=nullptr)
Change current directory to "this" directory.
Definition: TDirectory.cxx:497

TFile
A ROOT file is a suite of consecutive data records (TKey instances) with a well defined format.
Definition: TFile.h:48

TMacro
Class supporting a collection of lines with C++ code.
Definition: TMacro.h:31

TString
Basic string class.
Definition: TString.h:131

TString::Data
const char * Data() const
Definition: TString.h:364

TSystem::FreeDirectory
virtual void FreeDirectory(void *dirp)
Free a directory.
Definition: TSystem.cxx:853

TSystem::OpenDirectory
virtual void * OpenDirectory(const char *name)
Open a directory. Returns 0 if directory does not exist.
Definition: TSystem.cxx:844

TSystem::GetPathInfo
int GetPathInfo(const char *path, Long_t *id, Long_t *size, Long_t *flags, Long_t *modtime)
Get info about a file: id, size, flags, modification time.
Definition: TSystem.cxx:1389

TSystem::GetDirEntry
virtual const char * GetDirEntry(void *dirp)
Get a directory entry. Returns 0 if no more entries.
Definition: TSystem.cxx:861

TSystem::UnixPathName
virtual const char * UnixPathName(const char *unixpathname)
Convert from a Unix pathname to a local pathname.
Definition: TSystem.cxx:1054

slash
TCanvas * slash()
Definition: slash.C:1

m
auto * m
Definition: textangle.C:8