added a dummy header extraction routine

src/tests/PsiRoot/TPsiRunHeader.cpp

@@ -137,6 +137,7 @@ TPsiRunHeader::~TPsiRunHeader()
 TObjArray* TPsiRunHeader::GetHeader()
 {
   // make sure that previous header is removed
+  fHeader.Delete();
   fHeader.Expand(0);
 
   char str[1024], fmt[1024];
@@ -202,6 +203,20 @@ TObjArray* TPsiRunHeader::GetHeader()
   return &fHeader;
 }
 
+//--------------------------------------------------------------------------
+// ExtractHeaderInformation (public)
+//--------------------------------------------------------------------------
+/**
+  * <p> Extracts from an array of TObjStrings containing the header information
+  * all the necessary parameters.
+  *
+  * \param runHeader an array of TObjStrings containing the header information
+  */
+Bool_t TPsiRunHeader::ExtractHeaderInformation(TObjArray *runHeader)
+{
+  return true;
+}
+
 //--------------------------------------------------------------------------
 // AddProperty (public)
 //--------------------------------------------------------------------------

src/tests/PsiRoot/TPsiRunHeader.h

@@ -81,6 +81,7 @@ public:
   virtual vector<TPsiRunProperty> *GetProperties() { return &fProperties; }
 
   virtual TObjArray *GetHeader();
+  virtual Bool_t ExtractHeaderInformation(TObjArray *runHeader);
 
   virtual void SetRunTitle(TString runTitle) { fRunTitle = runTitle; }
   virtual void SetRunNumber(Int_t runNumber) { fRunNumber = runNumber; }

src/tests/PsiRoot/psi_runHeader_test.cpp

@@ -77,8 +77,16 @@ int main(int argc, char *argv[])
     return -1;
   }
 
-  f->mkdir("RunHeader");
-  f->cd("RunHeader");
+  // root file header related things
+/*
+  TFolder *runInfo = gROOT->GetRootFolder()->AddFolder("RunInfo", "PSI RunInfo");
+  gROOT->GetListOfBrowsables()->Add(runInfo, "RunInfo");
+  runInfo->Add(header->GetHeader());
+  runInfo->Write();
+*/
+
+  f->mkdir("RunInfo");
+  f->cd("RunInfo");
   header->GetHeader()->Write();
 
   f->Close();