Added option to avoid exceptions during event open as an argument and enabled it...
[u/mrichter/AliRoot.git] / EVE / macros / alieve_init.C
1 // $Header$
2
3 void alieve_init(const Text_t* path=".", Int_t event=0,
4                  Bool_t use_runloader=kTRUE, Bool_t use_esd=kTRUE,
5                  Bool_t avoid_exceptions_on_open=kTRUE)
6 {
7
8   // Set-up environment, load libraries.
9
10   Reve::SetupEnvironment();
11   // alieve executable linked against ALICE nad EVE shared libraries.
12   // Reve::AssertMacro("alieve_loadlibs.C");
13
14
15   // Put macros in the list of browsables, spawn a browser.
16
17   TString macdir("$(REVESYS)/alice-macros");
18   gSystem->ExpandPathName(macdir);
19
20   TFolder* f = gReve->GetMacroFolder();
21   void* dirhandle = gSystem->OpenDirectory(macdir.Data());
22   if(dirhandle != 0) {
23     char* filename;
24     TPRegexp re("\.C$");
25     while((filename = gSystem->GetDirEntry(dirhandle)) != 0) {
26       if(re.Match(filename)) {
27         printf("Adding macro '%s'\n", filename);
28         f->Add(new Reve::RMacro(Form("%s/%s", macdir.Data(), filename)));
29       }
30     }
31   }
32   gSystem->FreeDirectory(dirhandle);
33
34   gROOT->GetListOfBrowsables()->Add
35     // (new TSystemDirectory("alice-macros", macdir.Data())); // !!!! this spits blood, but then works
36     (new TSystemDirectory(macdir.Data(), macdir.Data()));
37
38   new TBrowser;
39
40   Reve::AssertMacro("region_marker.C");
41
42   // Open event
43   if(path != 0) {
44     Alieve::Event::Initialize(use_runloader, use_esd, avoid_exceptions_on_open);
45
46     printf("Opening event %d from '%s' ...", event, path); fflush(stdout);
47     Alieve::gEvent = new Alieve::Event(path, event);
48     printf(" done.\n");
49     gReve->AddEvent(Alieve::gEvent);
50   }
51 }