St_base/StAutoBrowse.cxx

#include <stdio.h>
#include <stdlib.h>
#include "TROOT.h"
#include "TClass.h"
#include "TBaseClass.h"
#include "TDataMember.h"
#include "TMethod.h"
#include "TMethodArg.h"
#include "TDataType.h"
#include "Api.h"
#include "TBrowser.h"
#include "TMemberInspector.h"
#include "TError.h"
#include "StAutoBrowse.h"

class StAutoInspector : public TMemberInspector {
public:
StAutoInspector(TBrowser *b){fBrowser=b;fCount=0;};
virtual ~StAutoInspector(){};
virtual void Inspect(TClass* cl, const char* parent, const char* name, const void* addr);

Int_t fCount;
TBrowser *fBrowser;
};      
//______________________________________________________________________________
void StAutoInspector::Inspect(TClass* kl, const char* tit , const char* name, const void* addr)
{
  if(tit && strchr(tit,'.'))    return ;
  if (fCount && !fBrowser) return;

  TString ts;

  if (!kl) return;
  if (*(kl->GetName()) == 'T') return;
  if (*name == '*') name++;
  int ln = strcspn(name,"[ ");
  TString iname(name,ln);
  
  G__ClassInfo *classInfo = (G__ClassInfo*) kl->GetClassInfo();         
  if (!classInfo)               return;
  G__ClassInfo &cl = *classInfo;


//              Browse data members
  G__DataMemberInfo m(cl);
  TString mname;

  int found=0;
  while (m.Next()) {    // MemberLoop
     mname = m.Name();
     mname.ReplaceAll("*","");
     if ((found = (iname==mname))) break;
  }     
  assert(found);

  // we skip: non TObjects
  //  - the member G__virtualinfo inserted by the CINT RTTI system

  long prop = m.Property() | m.Type()->Property();
  if (prop & G__BIT_ISSTATIC)   return;
  if (prop & G__BIT_ISFUNDAMENTAL)      return;
  if (prop & G__BIT_ISENUM)             return;
  if (strcmp(m.Type()->Fullname(),"TObject") && !m.Type()->IsBase("TObject"))
                                        return;
  if (mname == "G__virtualinfo")        return;

  int  size = sizeof(void*);
  if (!(prop&G__BIT_ISPOINTER)) size = m.Type()->Size(); 

  int nmax = 1;
  if (prop & G__BIT_ISARRAY) {
    for (int dim = 0; dim < m.ArrayDim(); dim++) nmax *= m.MaxIndex(dim);
  }

  for(int i=0; i<nmax; i++) {
    char *ptr = (char*)addr + i*size;
    TObject *obj = (prop&G__BIT_ISPOINTER) ? *((TObject**)ptr) : (TObject*)ptr;
    if (!obj)           continue;
    fCount++;
    if (!fBrowser)      return;
    const char *bwname = obj->GetName();
    if (!bwname[0] || strcmp(bwname,obj->ClassName())==0) {
      bwname = name;
      if (strcmp(bwname,"fOrBrowser")==0) {
        ts.Replace(0,999,tit,strlen(tit)-1);
        bwname = (const char*)ts;
      } else {
        int l = strcspn(bwname,"[ ");
        if (bwname[l]=='[') {
          char cbuf[12]; sprintf(cbuf,"[%02d]",i);
          ts.Replace(0,999,bwname,l);
          ts += cbuf;
          bwname = (const char*)ts;
        }
      }  
    }  
   
    fBrowser->Add(obj,bwname);
  }

}    

//______________________________________________________________________________
Int_t StAutoBrowse::Browse(TObject *obj,TBrowser *browser)
{
  if(!obj)      return 0;
  char cbuf[1000]; *cbuf=0;

  StAutoInspector insp(browser);
  ((TObject*)obj)->ShowMembers(insp,cbuf);
  return insp.fCount;
}

---