#include "geantdef.h"
#include "hgeomcreatesetup.h"
#include "hgeominterface.h"
#include "hgeomgeant3builder.h"
#include "hgeantinput.h"
#include "cfortran.h"

#ifdef WITHORACLE
#include "hgeomoraio.h"
#endif

void hgeomcreatesetup(int* runid) {
  extern HGeantInput geantInput;
  HGeomInterface interface;
  HGeomOraIo* oraInput=0;
  HGeomGeant3Builder* builder=new HGeomGeant3Builder();
  interface.setGeomBuilder(builder);
  if (geantInput.getDebugFile().Length()>0) {
    builder->openDebugFile(geantInput.getDebugFile().Data());
  }
  Int_t rid=geantInput.getSimulRefRunId();
#ifdef WITHORACLE
  if (strcmp(geantInput.getDbSupport(),"ON")==0) { 
    oraInput=new HGeomOraIo;
    oraInput->open();
    interface.setOracleInput(oraInput);
    if (geantInput.getHistoryDate().Length()>0) {
      oraInput->setHistoryDate(geantInput.getHistoryDate());
    }
    if (geantInput.getSimulRefRun().Length()>0) {
      oraInput->setSimulRefRun(geantInput.getSimulRefRun());
      rid=oraInput->getCurrentRunId();
    }
  } else {
    cout <<"*---------------------------------*\n";
    cout <<"|    Oracle Support is OFF        |\n";
    cout <<"*---------------------------------*\n";
  }
#endif
  for (int i=0;i<geantInput.getGeoNoFiles();i++)
    interface.addInputFile(geantInput.getGeoFileName(i));
  for (int i=0;i<geantInput.getHitNoFiles();i++)
    interface.addInputFile(geantInput.getHitFileName(i));
  interface.addSetupFile(geantInput.getDetSetupFile().Data());
  interface.createGeometry(kTRUE);
  *runid=rid;
}

// wrapping of the c++ routine as Fortran-subroutine using cfortran.h
// of Cern-library
FCALLSCSUB1(hgeomcreatesetup,HGEOMCREATESETUP,hgeomcreatesetup,PINT)