]>
Commit | Line | Data |
---|---|---|
5c75ba4f | 1 | /** |
2 | * @file CheckQAFile.C | |
3 | * @author Christian Holm Christensen <cholm@master.hehi.nbi.dk> | |
4 | * @date Fri Jan 6 11:39:22 2012 | |
5 | * | |
6 | * @brief Script to check a QA file | |
7 | * | |
bd6f5206 | 8 | * @ingroup pwglf_forward_qa_scripts |
5c75ba4f | 9 | */ |
10 | /** | |
11 | * Script to check a QA file. Note that this terminates the ROOT session. | |
12 | * | |
13 | * @param filename File to read | |
14 | * | |
bd6f5206 | 15 | * @ingroup pwglf_forward_qa_scripts |
5c75ba4f | 16 | */ |
17 | void CheckQAFile(const char* filename) | |
18 | { | |
19 | int ret = 0; | |
20 | TFile* file = TFile::Open(filename, "READ"); | |
21 | if (!file) { | |
22 | Error("CheckQAFile", "No such file %s", filename); | |
23 | exit(1); | |
24 | } | |
25 | TObject* forward1 = file->Get("Forward"); | |
26 | if (!forward1) { | |
27 | Error("CheckQAFile", "No Forward object found in %s", filename); | |
28 | ret |= 2; | |
29 | } | |
30 | TObject* forward2 = file->Get("ForwardResults"); | |
31 | if (!forward2) { | |
32 | Error("CheckQAFile", "No ForwardResults object found in %s", filename); | |
33 | ret |= 4; | |
34 | } | |
35 | file->Close(); | |
36 | exit(ret); | |
37 | } | |
38 | // | |
39 | // EOF | |
40 | // |