#include "hgeocreatesetup.h"

#define GEONOSETS 8

void hgeocreatesetup() {
  HGeoInfo geoInfo;
  HGeoMedia geoMedia;
  HGeoShapes geoShapes;
  int medShow=0;

  if ((geoInfo.connectInput("media")==HSUCCESS) &&
      (geoInfo.getinputFlag()=='f')) {
    if (geoMedia.readFileMedia(geoInfo)==HFAILURE) exit(1);
  }
  if ((geoInfo.connectInput("usermed")==HSUCCESS) &&
      (geoInfo.getinputFlag()=='f')) {
    if (geoMedia.readFileMedia(geoInfo)==HFAILURE) exit(1);
  }
#ifdef ILSESHOW
  geoMedia.showMembers();
  geoMedia.showAll();
#endif

  HString setup[GEONOSETS]={"cave","rich","sect","mdc","coils","tof",
                            "shower","usergeo"};
  HGeoSet *pSet=0;
  for(int i=0;i<GEONOSETS;i++) {
    if (geoInfo.connectInput(setup[i])==HSUCCESS) {
      delete pSet;
      switch(i) {
        case 0 :
          pSet=new HGeoCave(geoShapes);
          break;
        case 1 :
          pSet=new HGeoRich(geoShapes);
          break;
        case 2 :
          pSet=new HGeoSect(geoShapes);
          break;
        case 3 :
          pSet=new HGeoMdc(geoShapes);
          break;
        case 4 :
          pSet=new HGeoCoils(geoShapes);
          break;
        case 5 :
          pSet=new HGeoTof(geoShapes);
          break;
        case 6 :
          pSet=new HGeoShower(geoShapes);
          break;
        case 7 :
          pSet=new HGeoUser(geoShapes);
          break;
        default:
          cerr << "set number " << i << "not defined" << endl;
          return;
      }
      if (pSet) {
        cout << "reading set " << i << ":   " << setup[i] << endl;
        if (geoInfo.getinputFlag()=='f') {
          pSet->readDet(geoInfo);
        }
#ifdef WITHORACLE
        else pSet->readDet(geoInfo,geoMedia);
#endif
#ifdef ILSESHOW
        pSet->showMembers();
#endif
        cout << "creating set " << i << ":   " << setup[i] << endl;
        pSet->createDet(geoInfo,geoMedia);
        cout << setup[i] << " created " << endl;
      }
      else { cerr << setup[i] << " not defined in programm" << endl; }
    }
  }
}

#ifdef WITHGEANT
// wrapping of the c++ routine as Fortran-subroutine using cfortran.h
// of Cern-library
FCALLSCSUB0(hgeocreatesetup,HGEOCREATESETUP,hgeocreatesetup)
#endif