2 // Main authors: Matevz Tadel & Alja Mrak-Tadel: 2006, 2007
4 /**************************************************************************
5 * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
6 * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for *
7 * full copyright notice. *
8 **************************************************************************/
15 void alieve_init(const Text_t* path = ".", Int_t event=0,
16 const Text_t* esdfile = 0,
17 const Text_t* rawfile = 0,
18 const Text_t* cdburi = 0,
19 Bool_t assert_runloader = kFALSE,
20 Bool_t assert_esd = kFALSE,
21 Bool_t assert_raw = kFALSE)
23 Info("alieve_init", "Adding standard macros.");
24 TString hack = gSystem->pwd(); // Problem with TGFileBrowser cding
25 alieve_init_import_macros();
28 // TEveUtil::AssertMacro("region_marker.C");
30 gSystem->ProcessEvents();
32 AliEveEventManager::SetESDFileName(esdfile);
33 AliEveEventManager::SetRawFileName(rawfile);
34 AliEveEventManager::SetAssertElements(assert_runloader, assert_esd, assert_raw);
35 AliEveEventManager::SetCdbUri(cdburi);
40 printf("Opening event %d from '%s' ...", event, path); fflush(stdout);
41 gAliEveEvent = new AliEveEventManager(path, event);
43 gEve->AddEvent(gAliEveEvent);
47 void alieve_init_import_macros()
49 // Put macros in the list of browsables, add a macro browser to
52 TString macdir("$(ALICE_ROOT)/EVE/alice-macros");
53 gSystem->ExpandPathName(macdir);
55 TFolder* f = gEve->GetMacroFolder();
56 void* dirhandle = gSystem->OpenDirectory(macdir.Data());
60 std::list<string> names;
61 while((filename = gSystem->GetDirEntry(dirhandle)) != 0) {
62 if(re.Match(filename)) {
63 names.push_back(filename);
67 //PH The line below is replaced waiting for a fix in Root
68 //PH which permits to use variable siza arguments in CINT
69 //PH on some platforms (alphalinuxgcc, solariscc5, etc.)
70 // f->Add(new TEveMacro(Form("%s/%s", macdir.Data(), filename)));
72 for (std::list<string>::iterator si=names.begin(); si!=names.end(); ++si)
74 sprintf(fullName,"%s/%s", macdir.Data(), si->c_str());
75 f->Add(new TEveMacro(fullName));
78 gSystem->FreeDirectory(dirhandle);
80 gROOT->GetListOfBrowsables()->Add
81 // (new TSystemDirectory("alice-macros", macdir.Data())); // !!!! this spits blood, but then works
82 (new TSystemDirectory(macdir.Data(), macdir.Data()));
85 TEveBrowser *br = gEve->GetBrowser();
86 TGFileBrowser *fb = 0;
87 fb = br->GetFileBrowser();
90 br->StartEmbedding(0);
91 fb = br->MakeFileBrowser();
95 br->SetTabTitle("Macros", 0);