FROOT/froot.cxx Source File

00001 // @(#)fROOT/FROOT:$Name:  $:$Id: froot.cxx,v 1.3 2007/09/05 09:34:34 Diego_Faso Exp $
00002 // Revision Author: Diego Faso <mailto:faso@to.infn.it>, 2005/06/24
00003 // Original Author: Piergiorgio Cerello <mailto:cerello@to.infn.it>, year 2001
00004 
00005 #include <TROOT.h>
00006 #include <TRint.h>
00007 #include <TApplication.h>
00008 
00009 #include "FROOT.h"
00010 
00011 #if defined __linux
00012 //On linux Fortran wants this, so we give to it!
00013 int xargv=0;
00014 int xargc=0;
00015 #endif
00016 
00017 #if defined WIN32 
00018   extern "C" int __fastflag=0; 
00019   extern "C" int _pctype=0; 
00020   extern "C" int __mb_cur_max=0; 
00021 #endif 
00022 
00023 int gcbank_[3000000];
00024 
00025 //Initialise the Root environment
00026 //extern void InitGui();
00027 //VoidFuncPtr_t initfuncs[] = { InitGui, 0 };
00028 //TROOT root("Rint","The FINUDA/ROOT Interctive interface",initfuncs);
00029 
00030 int main(int argc, char **argv) {
00031   TRint *theApp = new TRint("froot",&argc,argv,NULL,0,1);
00032   theApp->ProcessFile(FROOT::ExpandPathName("$FROOTSYS/mcr_called/frootlogon.C"));
00033   theApp->SetPrompt("# froot > ");
00034   theApp->Run();
00035   theApp->Terminate(0);
00036   delete theApp;
00037   return(0);
00038 }
00039   
00040