HtmlCore.cxx

 
#include "HtmlCore.h"
 
 
#include <TCanvas.h>
#include <TGraph.h>
#include <TH1.h>
#include <TH2.h>
#include <TH3.h>
#include <TList.h>
#include <TObjArray.h>
#include <TObjString.h>
#include <TROOT.h>
#include <TSystem.h>
#include <TVector2.h>
#include <iostream>
#include <vector>
 
#include "Cout.h"
#include "HtmlFile.h"
#include "HtmlTable.h"
#include "Object.h"
#include "Package.h"
#include "Package2HTML.h"
#include "Std.h"
#include "StdString.h"
 
namespace Hal {
  HtmlCore* HtmlCore::fgInstance = NULL;
  TString HtmlCore::fMainDir     = "";
  Bool_t HtmlCore::fgOnline      = kFALSE;
 
  void HtmlCore::CopyCss(TString path, TString css_name) {
    TString workdir    = Hal::Std::GetHalrootPlus();
    TString filetocopy = Form("%s/html/%s", workdir.Data(), css_name.Data());
    TString outPath    = Form("%s/table.css", path.Data());
    if (path.Length() == 0) outPath = "table.css";  // to copy into this dir
    gSystem->CopyFile(filetocopy, outPath, kTRUE);
  }
 
  void HtmlCore::CopyJs(TString path) {
    TString workdir    = Hal::Std::GetHalrootPlus();
    TString filetocopy = Form("%s/html/hal_js.js", workdir.Data());
    if (path.Length() != 0) {
      gSystem->CopyFile(filetocopy, Form("%s/hal_js.js", path.Data()), kTRUE);
    } else {
      gSystem->CopyFile(filetocopy, "hal_js.js", kTRUE);
    }
 
    if (fgOnline) return;
    filetocopy = Hal::Std::GetJsRoot();
    if (path.Length() != 0) {
      gSystem->mkdir(Form("%s/hal_js", path.Data()));
      gSystem->mkdir(Form("%s/hal_js/img", path.Data()));
      gSystem->mkdir(Form("%s/hal_js/scripts", path.Data()));
      gSystem->mkdir(Form("%s/hal_js/style", path.Data()));
      Hal::Std::CopyFiles(Form("%s/img", filetocopy.Data()), Form("%s/hal_js/img", path.Data()), kFALSE);
      Hal::Std::CopyFiles(Form("%s/scripts", filetocopy.Data()), Form("%s/hal_js/scripts", path.Data()), kFALSE);
      Hal::Std::CopyFiles(Form("%s/style", filetocopy.Data()), Form("%s/hal_js/style", path.Data()), kFALSE);
    } else {
      gSystem->mkdir("hal_js");
      gSystem->mkdir("hal_js/img");
      gSystem->mkdir("hal_js/scripts");
      gSystem->mkdir("hal_js/style");
      Hal::Std::CopyFiles(Form("%s/img", filetocopy.Data()), "hal_js/img", kFALSE);
      Hal::Std::CopyFiles(Form("%s/scripts", filetocopy.Data()), "hal_js/scripts", kFALSE);
      Hal::Std::CopyFiles(Form("%s/style", filetocopy.Data()), "hal_js/style", kFALSE);
    }
  }
 
  HtmlCore::HtmlCore() {
    if (fgInstance != NULL) {
      Cout::PrintInfo("Overwriting HalHTML !", Hal::EInfo::kError);
      return;
    } else {
      fMainDir   = "";
      fgInstance = this;
    }
  }
 
  HtmlCore* HtmlCore::Instance() {
    if (fgInstance != NULL) {
    } else {
      fgInstance = new HtmlCore();
    }
    return fgInstance;
  }
 
  void HtmlCore::SetMainDir(TString name) {
    if (name.Length() == 0) { Cout::PrintInfo("SetMainDir as null", Hal::EInfo::kLowWarning); }
    fMainDir = name;
    FixAddress(fMainDir);
  }
 
  void HtmlCore::SetMainDirAndExtract(TString name) {
    SetMainDir(name);
    CopyJs(name);
    CopyCss(name);
  }
 
  void HtmlCore::FixAddress(TString& address) {
    address.ReplaceAll("//", "/");
    if (address.EndsWith(".js") || address.EndsWith(".html") || address.EndsWith(".htm")) return;
    if (address.Length() > 0) {
      if (!address.EndsWith("/")) { address = address + "/"; }
    }
  }
 
  void
  HtmlCore::HTMLExtractIntoTable(TObject* /*obj*/, Int_t /*no*/, HtmlTable& /*table*/, TString /*dir*/, TString /*rel_dir*/) {
    return;
  }
 
  Bool_t HtmlCore::CanBeTableElement(TObject* /*obj*/) { return kFALSE; }
 
  TString HtmlCore::GetUrl(TString adress, TString text) { return Form("<a href=\"%s\">%s</a>", adress.Data(), text.Data()); }
 
  TString HtmlCore::ClickablePic(TString id_name, TObjArray* strings, Int_t width, Int_t height) {
    TString url = "<img border=\"0\" ";
    if (width > 0) { url = url + Form("width=\"%i\" ", width); }
    if (height > 0) { url = url + Form("height=\"%i\" ", height); }
    for (int i = 0; i < strings->GetEntries(); i++) {
      TObjString* current_name = (TObjString*) strings->UncheckedAt(i);
      TString capt             = current_name->String();
      if (i == 0) {
        url = url + Form("src=\"%s\" ", capt.Data());
        url = url + Form("id=\"%s\" onclick=\"changeImage('%s',['%s'", id_name.Data(), id_name.Data(), capt.Data());
      } else {
        url = url + Form(",'%s'", capt.Data());
      }
    }
    url = url + "])\" />";
    return url;
  }
 
  TString HtmlCore::GetRelativePath(TString path) {
    FixAddress(path);
    if (path.EqualTo(fMainDir)) { return ""; }
    TString relative_path = "";
    TString temp          = path(fMainDir.Length(), path.Length() - fMainDir.Length());
 
    if (temp.EndsWith("/")) { temp.Remove(temp.Length() - 1); }
 
    std::vector<TString> vec = Hal::Std::ExplodeString(temp, '/');
 
    if (vec.size() == 0) return "";
    for (unsigned int i = 0; i < vec.size() - 1; i++) {
      relative_path = relative_path + "../";
    }
    if (temp.Length() != 0) { relative_path = relative_path + "../"; }
    return relative_path;
  }
 
  TString HtmlCore::CheckBr(TString text) {
    if (text.Contains("\n")) {
      // text = text.ReplaceAll()
      return Form("<pre>%s</pre>", text.Data());
    }
    return text;
  }
 
  TString HtmlCore::GetLastDir(TString name, Int_t i) {
    if (name.EndsWith("/")) name = name(0, name.Length() - 1);
    Int_t cut_pos = -1;
    Int_t count   = 0;
    for (int j = name.Length() - 1; j >= 0; j--) {
      if (name[j] == '/') {
        count++;
        cut_pos = j;
      }
      if (count == i) break;
    }
    name = name(cut_pos + 1, name.Length());
    if (name.Length() > 0) name = name + "/";
    return name;
  }
 
  TString HtmlCore::GetJsDiv(TString root_file, TString object_name, TString draw_opt, TString draw_div_name) {
    TString res;
    if (Hal::Std::GetJsRootVer() == 5) {
      res = "<script type='text/javascript'>\n";
      res = res + Form("var filename = \"%s\";\n", root_file.Data());
      res = res + " JSROOT.OpenFile(filename, function(file) {\n";
      res = res + " JSROOT.gStyle.Palette= 50;\n";
      res = res + Form("file.ReadObject(\"%s\", function(obj) {\n", object_name.Data());
      res = res + Form("JSROOT.draw(\"%s\", obj, \"%s\");\n;", draw_div_name.Data(), draw_opt.Data());
      res = res + "});\n;});\n";
      res = res + "</script>\n<div id=\"" + draw_div_name + "\" style=\"width:90%;height:900px\"></div>\n";
    } else {  // JSROOT ver 6
      res = "<script type='module'>\n";
      res = res + Form("var filename = \"%s\";\n", root_file.Data());
      res = res + "JSROOT.settings.Palette= 50;\n";
      res = res + "JSROOT.openFile(filename)\n";
      res = res + "\t.then(file=> file.readObject(\"" + object_name + "\"))\n";
      res = res + "\t.then(obj=> JSROOT.draw(\"" + draw_div_name.Data() + "\",obj,\"" + draw_opt.Data() + "\"));\n";
      res = res + "</script>\n<div id=\"" + draw_div_name + "\" style=\"width:90%;height:900px\"></div>\n";
    }
    return res;
  }
 
  TString HtmlCore::GetHideButtonTable(TString tableName, TString text) {
    return Form("<button onclick=\"setTable('%s')\">%s</button>", tableName.Data(), text.Data());
  }
 
  TString HtmlCore::GetHideButtonRow(TString listName, TString text) {
    return Form("<button onclick=\"setRow('%s')\">%s</button>", listName.Data(), text.Data());
  }
 
  TString HtmlCore::GetLinkToHistogram(TH1* h, Int_t no, TString path) {
    TString drawOpt = "";
    if (h->InheritsFrom("TH3")) {
      drawOpt = "box1";
    } else if (h->InheritsFrom("TH2")) {
      drawOpt = "colz";
    }
    Bool_t batch = gROOT->IsBatch();
    gROOT->SetBatch(kTRUE);
    path = Form("%s/th_%i", path.Data(), no);
    gSystem->mkdir(path);
    TCanvas* c1 = new TCanvas("canvas", "canvas", 0, 0, 800, 600);
    TH1* histo  = (TH1*) h;
    histo->Draw(drawOpt);
    c1->SaveAs(Form("%s/histo.root", path.Data()));
    delete c1;
    gROOT->SetBatch(batch);
    HtmlFile file(Form("%s/histo.html", path.Data()), kFALSE);
    file.AddStringContent(HtmlCore::GetJsDiv("histo.root", "canvas;1"));
    file.Save();
    TString filename = Form("%s/histo.html", path.Data());
    gROOT->SetBatch(batch);
    return HtmlCore::GetUrl(Form("th_%i/histo.html", no), h->ClassName());
  }
 
  TString HtmlCore::HTMLExtract(TObject* obj, Int_t no, TString dir) {
    TString className = obj->ClassName();
    if (className.EqualTo("TObjString")) { return static_cast<TObjString*>(obj)->GetString(); }
    if (className.EqualTo("TVector2")) { return GetLinkVector(static_cast<TVector2*>(obj)); }
    if (className.EqualTo("Hal::Package")) {
      Package2HTML* pack = new Package2HTML(static_cast<Package*>(obj), Form("%s/pack_%i", dir.Data(), no), kFALSE);
      delete pack;
      return HtmlCore::GetUrl(Form("pack_%i/index.html", no), "Hal::Package");
    }
    if (obj->InheritsFrom("Hal::Object")) { return static_cast<Object*>(obj)->HTMLExtract(no, dir); }
    if (obj->InheritsFrom("TList")) { return GetLinkList(static_cast<TList*>(obj), no, dir); };
    if (obj->InheritsFrom("TH1")) { return GetLinkTH1(static_cast<TH1*>(obj), no, dir); }
    if (obj->InheritsFrom("TGraph")) { return GetLinkGraph(static_cast<TGraph*>(obj), no, dir); };
    return "";
  }
 
  TString HtmlCore::GetLinkVector(TVector2* vect) {
    TString stringA = Hal::Std::RoundToString(vect->Px(), 1);
    TString stringB = Hal::Std::RoundToString(vect->Py(), 1);
    stringA         = stringA + " ";
    return stringA + stringB;
  }
 
  TString HtmlCore::GetLinkTH1(TH1* h1, Int_t no, TString path) {
    while (path.Contains("//")) {
      path.ReplaceAll("//", "/");
    }
    TString rootFileName = "histo1d.root";
    TString opt          = "";
    TString pattern      = "th1";
    if (h1->InheritsFrom("TH2")) {
      rootFileName = "histo2d.root";
      opt          = "colz";
      pattern      = "th2";
    }
    if (h1->InheritsFrom("TH3")) {
      rootFileName = "histo3d.root";
      opt          = "box2";
      pattern      = "th3";
    }
    Bool_t batch = gROOT->IsBatch();
    gROOT->SetBatch(kTRUE);
    path = Form("%s/%s_%i", path.Data(), pattern.Data(), no);
    gSystem->mkdir(path);
    TCanvas* c1 = new TCanvas("canvas", "canvas", 0, 0, 800, 600);
    TH1* histo  = (TH1*) h1;
    histo->Draw(opt);
    c1->SaveAs(Form("%s/%s", path.Data(), rootFileName.Data()));
    delete c1;
    gROOT->SetBatch(batch);
    HtmlFile file(Form("%s/histo.html", path.Data()), kFALSE);
    file.AddStringContent(HtmlCore::GetJsDiv(rootFileName, "canvas;1"));
    file.Save();
    TString filename = Form("%s/histo.html", path.Data());
    gROOT->SetBatch(batch);
    return HtmlCore::GetUrl(Form("%s_%i/histo.html", pattern.Data(), no), h1->ClassName());
  }
 
  TString HtmlCore::GetLinkGraph(TGraph* h, Int_t no, TString path) {
    TString classname = h->ClassName();
    Bool_t batch      = gROOT->IsBatch();
    gROOT->SetBatch(kTRUE);
    path = Form("%s/graph_%i", path.Data(), no);
    gSystem->mkdir(path);
    TCanvas* c1 = new TCanvas("canvas", "canvas", 0, 0, 800, 600);
    h->Draw("EP");
    c1->SaveAs(Form("%s/graph.root", path.Data()));
    delete c1;
    HtmlFile F(Form("%s/graph.html", path.Data()), kFALSE);
    F.AddStringContent(HtmlCore::GetJsDiv("graph.root", "canvas;1", "EP"));
    F.Save();
    gROOT->SetBatch(batch);
    return HtmlCore::GetUrl(Form("graph_%i/graph.html", no), h->ClassName());
  }
 
  TString HtmlCore::GetLinkList(TList* list, Int_t no, TString path) {
    TString filename = Form("%s/list_%i/list.html", path.Data(), no);
    TString linkname = Form("list_%i.html", no);
    HtmlFile file(filename, kFALSE);
    file.AddStringContent(Form("<h1>Name %s </h1>", list->GetName()));
    file.AddStringContent("<div  id=\"main_table\">");
    HtmlTable table("", "haltable", "");
    HtmlRow row("", Hal::HtmlTableRowClass::TitleStyle(), "");
    row.AddContent(HtmlCell("No"));
    row.AddContent(HtmlCell("ClassName"));
    row.AddContent(HtmlCell("Value"));
    row.AddContent(HtmlCell("Name"));
    table.AddContent(row);
    TString list_dir = Form("list_%i/", no);
    path             = Form("%s/list_%i/", path.Data(), no);
    auto addToUrl    = [](TString add_dir, TString url) {
      if (!url.Contains("href")) { return url; }
      Int_t start_url = url.First("=") + 2;
      TString first   = url(0, start_url);
      TString end     = url(start_url, url.Length());
      TString output  = Form("%s%s%s", first.Data(), add_dir.Data(), end.Data());
      output.ReplaceAll("//", "/");
      return output;
    };
    for (int i = 0; i < list->GetEntries(); i++) {
      TObject* object        = list->At(i);
      TString name           = object->ClassName();
      TString oryginal_class = object->GetName();
      HtmlRow row2("", Hal::HtmlTableRowClass::DefStyle(), "");
      table.AddContent(HtmlCell(Hal::Std::RoundToString(i)));
      table.AddContent(HtmlCell(object->ClassName()));
 
      table.AddContent(HtmlCell(addToUrl(list_dir, HTMLExtract(object, i, path))));
      if (name == "Hal::Package") {
        oryginal_class = ((Package*) object)->GetName();
        oryginal_class = Form("%s </br> [%s]", object->ClassName(), oryginal_class.Data());
        table.AddContent(HtmlCell(oryginal_class));
      } else {
        table.AddContent(HtmlCell(object->GetName()));
      }
      table.AddContent(row2);
    }
    file.AddContent(table);
    file.Save();
    return HtmlCore::GetUrl(linkname, list->ClassName());
  }
}  // namespace Hal