#if !defined (__CINT__) || defined (__MAKECINT__)
#include "THtml.h"
#include "TSystem.h"
#endif
//-----------------------------------------------------------------------------
// not functional until ROOT 3.00
//-----------------------------------------------------------------------------
//  class MyHtml: public THtml {

//  public:

//    MyHtml() {};
//    ~MyHtml() {};

//    void CreateIndex(char **names, Int_t n) {
//      THtml::CreateIndex((const char**) names,n);
//    }
//  };

//_____________________________________________________________________________
void make_html(const char* html_dir = "~/www/Stntuple/html",
	       const char* opt      = "") 
{
  // opt = "index" : index only

  THtml html;
  html.SetSourceDir("Stntuple/data:include/Stntuple/data:Stntuple/obj:include/Stntuple/obj:Stntuple/mod:include/Stntuple/mod:Stntuple/alg:include/Stntuple/alg:~cdfsoft/dist/releases/development/include");
  html.SetOutputDir(html_dir);

  char cmd[200];

  char* cl[] = { 
					// detectors
    "TCalTower", 
    "TClcChannel", "TClcLayer", "TClcModule", 
    "TCmudHit", 
    "TCmueHit",
    "TCmxdHit", 
    "TCesCluster",
    "TCprCluster",
    "TTdcHeader",
    "TTdcWord",
    "TCmpTdcWord",
    "TCmpTdcHeader",
    "TCspTdcWord",
    "TCspTdcHeader",
    "TTdcModule",
    "TTfrd", 
    "TTsid",
    "TTl1d",   "TPreFred", "TSumet", "TCaltrg", "TMutrg", "TBsctrg",
    "TTrktrg", "TMulti",
					// ****** utility classes
    "TBitset",
    "TStnArrayI",
					// raw data blocks
    "TCalDataBlock", 
    "TCesDataBlock", 
    "TClcDataBlock", 
    "TCmuDataBlock", 
    "TCmpDataBlock", 
    "TCmxDataBlock",
    "TCprDataBlock",
    "TGenParticle",
    "TGenpBlock",
					// Run I compatibility classes
    "THBookStnEvent", 
    "THBookStntuple",
    "TPesDataBlock",
    "TPesCluster",
    "TPi0", 

    "TStnAna", 
    "TStnClusterBlock", 
    "TStnDataBlock", 
    "TStnDileptonBlock",
    "TStnEleLinkBlock", 
    "TStnElectron", 
    "TStnElectronBlock", 
    "TStnFatJet",
    "TStnHeaderBlock",
    "TStnJet", 
    "TStnJetBlock", 
    "TStnLepton", 
    "TStnLinkBlock",
    "TStnMassBlock",
    "TStnMetBlock",
    "TStnModule", 
    "TStnMuon", 
    "TStnNode", 
    "TStnMuonBlock",
    "TStnPhoton", 
    "TStnPhotonBlock", 
    "TStnTag", 
    "TStnTagBlock",
    "TStnTau", 
    "TStnTauBlock", 
    "TStnTrack", 
    "TStnTrackBlock", 
    "TStnTriggerBlock",
    "TStnVertex", 
    "TStnVertexBlock", 
    "TStnEvent", 
					// reconstructed data blocks
					// algorithms
    "TStntuple",
					// modules

//      "FillStntupleModule",
//      "InitStntupleModule", 
//      "StntupleFilterModule",
//      "StntupleMakerModule",
//      "StntupleModule", 
					// Run1 code
    "TStnRun1Event", 
    "TStnRun1InputModule", 


    0};


  int ncl = 0;
  for (int i=0; cl[i] != 0; i++) {
    if (strcmp(opt,"index") != 0) {
      sprintf(cmd,"rm -f %s/%s.hh %s/%s.h",html_dir,cl[i],html_dir,cl[i]);
      gSystem->Exec(cmd);
      sprintf(cmd,"rm -f %s/%s.html",html_dir,cl[i]);
      gSystem->Exec(cmd);
      sprintf(cmd,"rm -f %s/%s.ps",html_dir,cl[i]);
      gSystem->Exec(cmd);
      sprintf(cmd,"rm -f %s/src/%s.cxx.html",html_dir,cl[i]);
      gSystem->Exec(cmd);
      html.MakeClass(cl[i]);
    }
    ncl++;
  }

  html.CreateIndex(cl,ncl);

  sprintf(cmd,"mv %s/ClassIndex.html %s/ClassIndex_Stntuple.html",
 	  html_dir,html_dir);
  gSystem->Exec(cmd);
  
}