// macro for initialization of Go4 communication classes

void go4Init()
{
gSystem->Load("libThread.so");
gSystem->Load("libMinuit.so");
gSystem->Load("$GO4SYS/lib/libGo4Base.so");
gSystem->Load("$GO4SYS/lib/libGo4Fit.so");
gSystem->Load("$GO4SYS/lib/libGo4ThreadManager.so");
gSystem->Load("$GO4SYS/lib/libGo4TaskHandler.so");
gSystem->Load("$GO4SYS/lib/libGo4AnalBase.so");
gSystem->Load("$GO4SYS/lib/libGo4Analysis.so");
go4StartServer();
}

void go4StartServer()
{
    TDirectory *savdir = gDirectory;
    TGo4Log::Instance(); // init logger object
    TGo4Log::SetIgnoreLevel(1); // set this to 1 to suppress detailed debug output
                               // set this to 2 to get warnings and errors only
                               // set this to 3 to get errors only
    TGo4Log::LogfileEnable(kFALSE); // will enable or disable logging all messages to file

    TGo4Analysis *go4 = nullptr;

    if (TGo4Analysis::Exists()) {
       go4 = TGo4Analysis::Instance();
       go4->CloseAnalysis(); // make this macro reentrant: cleanup dynamic list, etc
       go4->InitEventClasses(); // dito, initialize compiled analysis if there is one
    } else {
       new TGo4AnalysisClient("Go4CintServer", // name
                              0, // external analysis (use internal if 0)
                              "localhost", // node (dummy)
                              1234, // port (dummy)
                              0,  // histogram server on/off
                              "", // histogram server basename
                              "", // histogram server passwd
                              kTRUE, // start this slave as server
                              kFALSE, // do not autorun analysis
                              kTRUE); // use in CINT enviroment
       go4 = TGo4Analysis::Instance();
   }
   if(savdir) savdir->cd();
}

void go4RegisterAll()
{
   TGo4Analysis *go4 = TGo4Analysis::Instance();
   TDirectory *gdir = gDirectory;
   //   TIter caniter(gROOT->GetListOfCanvases());
   //   TCanvas *can = nullptr;
   //   while (can = caniter())
   //      go4->AddCanvas(can);

   //   go4->DeleteObjects("Histograms");

   if (gdir) {
      gdir->cd();
      TIter iter(gdir->GetList());
      TObject *obj = nullptr;
      while ((obj = iter()) != nullptr) {
         if (obj->InheritsFrom(TH1::Class()))
           go4->AddHistogram((TH1 *)obj);
      }
   }
}