Bool_t MakeCosmicTriggersEntry(const char *fileName, const char* cdbUri)
{
const char* macroname = "MakeCosmicTriggersEntry.C";
if (gSystem->AccessPathName(fileName)) {
Error(macroname,Form("file (%s) not found", fileName));
return kFALSE;
}
ifstream *file = new ifstream(fileName);
if (!*file) {
Error(macroname,Form("Error opening file (%s) !",fileName));
file->close();
delete file;
return kFALSE;
}
THashTable *table = new THashTable();
table->SetName("List of defined cosmic triggers");
TString strLine;
while (strLine.ReadLine(*file)) {
if (strLine.BeginsWith("#")) continue;
strLine.ReplaceAll(" ","");
strLine.ReplaceAll("\t","");
if (strLine.IsNull()) continue;
TObjString *obj = new TObjString(strLine.Data());
table->Add(obj);
}
file->close();
delete file;
// create OCDB storage
TString Storage(cdbUri);
if(!Storage.BeginsWith("local://") && !Storage.BeginsWith("alien://")) {
Error(macroname,"STORAGE variable set to %s is not valid. Exiting\n",Storage.Data());
return kFALSE;
}
AliCDBManager* cdb = AliCDBManager::Instance();
AliCDBStorage* storage = cdb->GetStorage(Storage.Data());
if(!storage){
Error(macroname,"Unable to open storage %s\n",Storage.Data());
return kFALSE;
}
AliCDBMetaData* md = new AliCDBMetaData();
md->SetResponsible("Federico Antinori");
md->SetComment("List of the defined cosmic triggers. It is used in order to steer the reconstruction, namely in the selection of the proper event specie. It is maintained and updated by the trigger coordinator.");
// Get root and AliRoot versions and set them in the metadata
const char* rootv = gROOT->GetVersion();
TString av(ALIROOT_VERSION);
TString revnum(ALIROOT_REVISION);
av+=" - revision: ";
av+=revnum;
md->SetAliRootVersion(av.Data());
AliCDBId id("GRP/Calib/CosmicTriggers",0,AliCDBRunRange::Infinity());
Info(macroname,"Saving the list of defined cosmic triggers in the OCDB storage \"%s\"",Storage.Data());
storage->Put(table,id,md);
table->Delete();
delete table;
return kTRUE;
}
int runGetMissingDictionaries()
{
// Method to assert the dictionaries.
TClass* myClass = TClass::GetClass("TestClass");
if (myClass->HasDictionary())
Error("TClass::HasDictionary", "The class %s does not have a dictionary.", "TestClass");
THashTable expectedResult;
// Hard coded expected results.
expectedResult.Add(TClass::GetClass("NoDictClass"));
expectedResult.Add(TClass::GetClass("TestClass"));
expectedResult.Add(TClass::GetClass("MemberHidden"));
expectedResult.Add(TClass::GetClass("Tmplt<Tmplt<NoDictClass*> >"));
expectedResult.Add(TClass::GetClass("Tmplt<int>"));
expectedResult.Add(TClass::GetClass("Member"));
expectedResult.Add(TClass::GetClass("Tmplt<Member>"));
expectedResult.Add(TClass::GetClass("Tmplt<Base>"));
expectedResult.Add(TClass::GetClass("Outer<Double32_t>"));
expectedResult.Add(TClass::GetClass("Tmplt<TmpParam>"));
expectedResult.Add(TClass::GetClass("Tmplt<Tmplt<TmpTmpParam> >"));
expectedResult.Add(TClass::GetClass("Tmplt<Tmplt<Tmplt<ExtraTmp> > >"));
expectedResult.Add(TClass::GetClass("ParamList<ParamL1,ParamL2>"));
expectedResult.Add(TClass::GetClass("TypedefExample"));
expectedResult.Add(TClass::GetClass("BasicTests::TestAll"));
cerr<<"No recursion:"<<endl; // Write on the same stream of the errors below
THashTable missingDictClassesNoRecursion;
// Assert GetMissingDictionaries without recursion.
myClass->GetMissingDictionaries(missingDictClassesNoRecursion, false);
//missingDictClassesNoRecursion.Print();
if (!missingDictClassesNoRecursion.IsEmpty()) {
if (missingDictClassesNoRecursion.GetEntries() != expectedResult.GetEntries()) {
Error("TClass::GetMissingClassDictionaries", "The set of classes with missing dictionaries does not contain the correct number of elements (expected: %d got %d).",expectedResult.GetEntries(),missingDictClassesNoRecursion.GetEntries());
}
TIterator* it = missingDictClassesNoRecursion.MakeIterator();
TClass* cl = 0;
while ((cl = (TClass*)it->Next())) {
if (!expectedResult.FindObject(cl)) {
Error("TCling::GetMissingDictionaries", "Class %s is not in the expected set.", cl->GetName());
}
}
it = expectedResult.MakeIterator();
while ((cl = (TClass*)it->Next())) {
if (!missingDictClassesNoRecursion.FindObject(cl)) {
Error("TCling::GetMissingDictionaries", "Class %s with no dictionaries is not in the set.", cl->GetName());
}
}
} else {
Error("TClass::GetMissingClassDictionaries", "The set of missing classes is not created");
}
// Assert GetMissingDictionaries with recursion.
// Hard code expected results with recursion.
expectedResult.Add(TClass::GetClass("ArrayTry"));
expectedResult.Add(TClass::GetClass("NoA"));
expectedResult.Add(TClass::GetClass("vector<Tmplt<NoDictClass*> >"));
expectedResult.Add(TClass::GetClass("Tmplt<NoDictClass*>"));
expectedResult.Add(TClass::GetClass("vector<Member>"));
expectedResult.Add(TClass::GetClass("Base"));
expectedResult.Add(TClass::GetClass("vector<Base>"));
expectedResult.Add(TClass::GetClass("Inner<Double32_t>"));
expectedResult.Add(TClass::GetClass("TmpParam"));
expectedResult.Add(TClass::GetClass("TmpTmpParam"));
expectedResult.Add(TClass::GetClass("Tmplt<TmpTmpParam>"));
expectedResult.Add(TClass::GetClass("ExtraTmp"));
expectedResult.Add(TClass::GetClass("Tmplt<ExtraTmp>"));
expectedResult.Add(TClass::GetClass("Tmplt<Tmplt<ExtraTmp> >"));
expectedResult.Add(TClass::GetClass("vector<Tmplt<Tmplt<ExtraTmp> > >"));
expectedResult.Add(TClass::GetClass("vector<NoDictClass*> "));
expectedResult.Add(TClass::GetClass("vector<TmpTmpParam>"));
expectedResult.Add(TClass::GetClass("vector<Tmplt<ExtraTmp> >"));
expectedResult.Add(TClass::GetClass("vector<ExtraTmp> "));
expectedResult.Add(TClass::GetClass("vector<Tmplt<TmpTmpParam> >"));
expectedResult.Add(TClass::GetClass("vector<TmpParam>"));
expectedResult.Add(TClass::GetClass("vector<Double32_t>"));
expectedResult.Add(TClass::GetClass("ParamL1"));
expectedResult.Add(TClass::GetClass("ParamL2"));
expectedResult.Add(TClass::GetClass("vector<ParamL2*>"));
expectedResult.Add(TClass::GetClass("BasicTests::NoDictTypdefs"));
expectedResult.Add(TClass::GetClass("BasicTests::NoDict"));
expectedResult.Add(TClass::GetClass("BasicTests::HasVecDoubleTD32"));
expectedResult.Add(TClass::GetClass("BasicTests::HasVecDouble32"));
expectedResult.Add(TClass::GetClass("map<unsigned short,Double32_t>"));
cerr<<"With recursion:"<<endl; // Write on the same stream of the errors below
THashTable missingDictClassesRecursion;
myClass->GetMissingDictionaries(missingDictClassesRecursion, true);
//missingDictClassesRecursion.Print();
if (!missingDictClassesRecursion.IsEmpty()) {
if (missingDictClassesRecursion.GetEntries() != expectedResult.GetEntries()) {
Error("TClass::GetMissingClassDictionaries", "The set of classes with missing dictionaries does not contain the correct number of elements (expected: %d got %d).",expectedResult.GetEntries(),missingDictClassesRecursion.GetEntries());
// expectedResult.ls();
// missingDictClassesRecursion.ls();
}
TIterator* it = missingDictClassesRecursion.MakeIterator();
TClass* cl = 0;
while ((cl = (TClass*)it->Next())) {
if (!expectedResult.FindObject(cl)) {
Error("TCling::GetMissingDictionaries", "Class %s is not in the expected set.", cl->GetName());
}
}
it = expectedResult.MakeIterator();
while ((cl = (TClass*)it->Next())) {
if (!missingDictClassesRecursion.FindObject(cl)) {
Error("TCling::GetMissingDictionaries", "Class %s with no dictionaries is not in the set.", cl->GetName());
}
}
} else {
Error("TClass::GetMissingClassDictionaries", "The set of missing classes is not created");
}
return 0;
}
