/[PAMELA software]/DarthVader/AnticounterLevel2/src/AcCore.cpp
ViewVC logotype

Contents of /DarthVader/AnticounterLevel2/src/AcCore.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.18 - (show annotations) (download)
Wed Oct 10 16:01:28 2007 UTC (17 years, 3 months ago) by mocchiut
Branch: MAIN
CVS Tags: v5r00
Changes since 1.17: +7 -1 lines
Bug in ToFPMT fixed, set zerofill option as defatult, DV exit code changed, set time 0 on each DB connection

1 //
2 // C/C++ headers
3 //
4 #include <fstream>
5 #include <string.h>
6 //
7 // ROOT headers
8 //
9 #include <TTree.h>
10 #include <TClassEdit.h>
11 #include <TObject.h>
12 #include <TList.h>
13 #include <TArrayI.h>
14 #include <TSystem.h>
15 #include <TSystemDirectory.h>
16 #include <TString.h>
17 #include <TFile.h>
18 #include <TClass.h>
19 #include <TCanvas.h>
20 #include <TH1.h>
21 #include <TH1F.h>
22 #include <TH2D.h>
23 #include <TLatex.h>
24 #include <TPad.h>
25 #include <TSQLServer.h>
26 #include <TSQLRow.h>
27 #include <TSQLResult.h>
28 //#include <TClonesArray.h>
29 //
30 // RunInfo header
31 //
32 #include <RunInfo.h>
33 //
34 // YODA headers
35 //
36 #include <PamelaRun.h>
37 #include <physics/trigger/TriggerEvent.h>
38 #include <physics/anticounter/AnticounterEvent.h>
39 //
40 // RunInfo header
41 //
42 //#include <RunInfo.h>
43 //
44 // This program headers
45 //
46 #include <AcCore.h>
47 #include <AcLevel2.h>
48 #include <AcVerl2.h>
49 //
50 using namespace std;
51 //
52 // CORE ROUTINE
53 //
54 //
55 int AcCore(UInt_t run, TFile *file, GL_TABLES *glt, Int_t Acargc, char *Acargv[]){
56 Int_t i = 0;
57 Bool_t verbose = false;
58 Bool_t debug = false;
59 //
60 TString processFolder = Form("AcFolder_%u",run);
61 if ( Acargc > 0 ){
62 i = 0;
63 while ( i < Acargc ){
64 if ( !strcmp(Acargv[i],"-processFolder") ) {
65 if ( Acargc < i+1 ){
66 throw -3;
67 };
68 processFolder = (TString)Acargv[i+1];
69 i++;
70 };
71 if ( !strcmp(Acargv[i],"-v") || !strcmp(Acargv[i],"--verbose") ) {
72 verbose = true;
73 };
74 if ( !strcmp(Acargv[i],"-g") || !strcmp(Acargv[i],"--debug") ) {
75 verbose = true;
76 debug = true;
77 };
78 i++;
79 };
80 };
81 //
82 // Set these to true to have a very verbose output.
83 //
84 //
85 // Output directory is the working directoy.
86 //
87 const char* outdir = gSystem->DirName(gSystem->DirName(file->GetPath()));
88 //
89 // Variables for level2
90 //
91 TTree *ac = 0;
92 UInt_t nevents = 0;
93 //
94 // variables needed to reprocess data
95 //
96 TString acversion;
97 ItoRunInfo *runinfo = 0;
98 TArrayI *runlist = 0;
99 TTree *acclone = 0;
100 Bool_t reproc = false;
101 Bool_t reprocall = false;
102 UInt_t nobefrun = 0;
103 UInt_t noaftrun = 0;
104 UInt_t numbofrun = 0;
105 stringstream ftmpname;
106 TString fname;
107 UInt_t totfileentries = 0;
108 UInt_t idRun = 0;
109 //
110 // variables needed to handle error signals
111 //
112 Int_t code = 0;
113 Int_t sgnl;
114 //
115 // anticounter level2 classes
116 //
117 AcLevel2 *acl2 = new AcLevel2();
118 AcLevel2 *acl2clone = new AcLevel2();
119 // note: the string "mydect" is now "ac", "mydetector" is "anticounter" (mydectversion -> acversion, mydectclone -> acclone);
120 // the string "mydec" (without t) -> acl2 (acl2, acl2clone)
121 //
122 // define variables for opening and reading level0 file
123 //
124 TFile *l0File = 0;
125 TTree *l0tr = 0;
126 TBranch *l0head = 0;
127 TBranch *l0ac = 0;
128 pamela::EventHeader *eh = 0;
129 pamela::PscuHeader *ph = 0;
130 pamela::anticounter::AnticounterEvent *acc = 0;
131 //
132 // Define other basic variables
133 //
134 UInt_t procev = 0;
135 stringstream file2;
136 stringstream file3;
137 stringstream qy;
138 Int_t totevent = 0;
139 UInt_t atime = 0;
140 UInt_t re = 0;
141 //
142 // Working filename
143 //
144 TString outputfile;
145 stringstream name;
146 name.str("");
147 name << outdir << "/";
148 //
149 // temporary file and folder
150 //
151 TFile *tempfile = 0;
152 TTree *tempac = 0;
153 stringstream tempname;
154 stringstream acfolder;
155 Bool_t myfold = false;
156 tempname.str("");
157 tempname << outdir;
158 tempname << "/" << processFolder.Data();
159 acfolder.str("");
160 acfolder << tempname.str().c_str();
161 tempname << "/ac2tree_run";
162 tempname << run << ".root";
163 //
164 // DB classes
165 //
166 GL_ROOT *glroot = new GL_ROOT();
167 GL_TIMESYNC *dbtime = 0;
168 //
169 UShort_t CRCcheck[2]= {0,0};
170 UShort_t Status[2]= {0,0};
171 UShort_t Hitmap[2]= {0,0};
172 UShort_t Hitstatus[2]= {0,0};
173 UShort_t Trigger[2] = {0,0};
174 UShort_t Trigg_old[2] = {0,0};
175 UShort_t Counter[2][16];
176 UShort_t Counter_old[2][16];
177 UShort_t Shift[2][16];
178 Int_t vec[2][16][16];
179 Int_t tmp = 0;
180 memset(vec, 0, 2*16*16*sizeof(UShort_t));
181 memset(Shift, 0, 2*16*sizeof(UShort_t));
182 memset(Counter, 0, 2*16*sizeof(UShort_t));
183 memset(Counter_old, 0, 2*16*sizeof(UShort_t));
184 //
185 Long64_t maxsize = 10000000000LL;
186 TTree::SetMaxTreeSize(maxsize);
187 //
188 //
189 // Let's start!
190 //
191 //
192 // As a first thing we must check what we have to do: if run = 0 we must process all events in the file has been passed
193 // if run != 0 we must process only that run but first we have to check if the tree Anticounter already exist in the file
194 // if it exists we are reprocessing data and we must delete that entries, if not we must create it.
195 //
196 if ( run == 0 ) reproc = true;
197 //
198 // Output file is "outputfile"
199 //
200 outputfile = name.str().c_str();
201 if ( verbose ) printf("\n Output filename is: \n %s \n\n",outputfile.Data());
202 //
203 //
204 if ( !file->IsOpen() ){
205 if ( verbose ) printf(" ANTICOUNTER - ERROR: cannot open file for writing\n");
206 throw -701;
207 };
208 //
209 // Retrieve GL_RUN variables from the level2 file
210 //
211 acversion = AcInfo(false); // we should decide how to handle versioning system
212 //
213 // create an interface to RunInfo called "runinfo"
214 //
215 runinfo = new ItoRunInfo(file);
216 //
217 // open "Run" tree in level2 file, if not existing return an error (sngl != 0)
218 //
219 sgnl = 0;
220 sgnl = runinfo->Update(run,"AC",acversion);
221 if ( sgnl ){
222 if ( verbose ) printf(" ANTICOUNTER - ERROR: RunInfo exited with non-zero status\n");
223 code = sgnl;
224 goto closeandexit;
225 } else {
226 sgnl = 0;
227 };
228 //
229 // number of events in the file BEFORE the first event of our run
230 //
231 nobefrun = runinfo->GetFirstEntry();
232 //
233 // total number of events in the file
234 //
235 totfileentries = runinfo->GetFileEntries();
236 //
237 // first file entry AFTER the last event of our run
238 //
239 noaftrun = runinfo->GetLastEntry() + 1;
240 //
241 // number of run to be processed
242 //
243 numbofrun = runinfo->GetNoRun();
244 UInt_t totnorun = runinfo->GetRunEntries();
245 //
246 // Try to access the Anticounter tree in the file, if it exists we are reprocessing data if not we are processing a new run
247 //
248 acclone = (TTree*)file->Get("Anticounter");
249 //
250 if ( !acclone ){
251 //
252 // tree does not exist, we are not reprocessing
253 //
254 reproc = false;
255 if ( run == 0 && verbose ) printf(" ANTICOUNTER - WARNING: you are reprocessing data but AC tree does not exist!\n");
256 if ( verbose && runinfo->IsReprocessing() && run != 0 ) printf(" ANTICOUNTER - WARNING: it seems you are not reprocessing data but Anticounter\n versioning information already exists in RunInfo.\n");
257
258 } else {
259 //
260 // tree exists, we are reprocessing data. Are we reprocessing a single run or all the file?
261 //
262 acclone->SetAutoSave(900000000000000LL);
263 reproc = true;
264 //
265 //
266 if ( verbose ) printf("\n Preparing the pre-processing...\n");
267 //
268 if ( run == 0 || totnorun == 1 ){
269 //
270 // we are reprocessing all the file
271 // if we are reprocessing everything we don't need to copy any old event and we can just work with the new tree and delete the old one immediately
272 //
273 reprocall = true;
274 //
275 if ( verbose ) printf("\n ANTICOUNTER - WARNING: Reprocessing all runs\n");
276 //
277 } else {
278 //
279 // we are reprocessing a single run, we must copy to the new tree the events in the file which preceed the first event of the run
280 //
281 reprocall = false;
282 //
283 if ( verbose ) printf("\n ANTICOUNTER - WARNING: Reprocessing run number %u \n",run);
284 //
285 // copying old tree to a new file
286 //
287 gSystem->MakeDirectory(acfolder.str().c_str());
288 myfold = true;
289 tempfile = new TFile(tempname.str().c_str(),"RECREATE");
290 tempac = acclone->CloneTree(-1,"fast");
291 tempac->SetName("Anticounter-old");
292 tempfile->Write();
293 tempfile->Close();
294 }
295 //
296 // Delete the old tree from old file and memory
297 //
298 acclone->Delete("all");
299 //
300 if ( verbose ) printf(" ...done!\n");
301 //
302 };
303 //
304 // create anticounter tree ac
305 //
306 file->cd();
307 ac = new TTree("Anticounter-new","PAMELA Level2 Anticounter data");
308 ac->SetAutoSave(900000000000000LL);
309 ac->Branch("AcLevel2","AcLevel2",&acl2);
310 //
311 if ( reproc && !reprocall ){
312 //
313 // open new file and retrieve alo tree informations
314 //
315 tempfile = new TFile(tempname.str().c_str(),"READ");
316 acclone = (TTree*)tempfile->Get("Anticounter-old");
317 acclone->SetAutoSave(900000000000000LL);
318 acclone->SetBranchAddress("AcLevel2",&acl2clone);
319 //
320 if ( nobefrun > 0 ){
321 if ( verbose ) {
322 printf("\n Pre-processing: copying events from the old tree before the processed run\n");
323 printf(" Copying %u events in the file which are before the beginning of the run %u \n",nobefrun,run);
324 printf(" Start copying at event number 0, end copying at event number %u \n",nobefrun);
325 };
326 for (UInt_t j = 0; j < nobefrun; j++){
327 //
328 acclone->GetEntry(j);
329 //
330 // copy acl2clone to acl2
331 //
332 acl2->Clear();
333 //
334 memcpy(&acl2,&acl2clone,sizeof(acl2clone));
335 //
336 // Fill entry in the new tree
337 //
338 ac->Fill();
339 //
340 };
341 if ( verbose ) printf(" Finished successful copying!\n");
342 };
343 };
344 //
345 // Get the list of run to be processed, if only one run has to be processed the list will contain one entry only.
346 //
347 runlist = runinfo->GetRunList();
348 //
349 // Loop over the run to be processed
350 //
351 for (UInt_t irun=0; irun < numbofrun; irun++){
352 //
353 // retrieve the first run ID to be processed using the RunInfo list
354 //
355 idRun = runlist->At(irun);
356 if ( verbose ){
357 printf("\n\n\n ####################################################################### \n");
358 printf(" PROCESSING RUN NUMBER %u \n",idRun);
359 printf(" ####################################################################### \n\n\n");
360 };
361 //
362 runinfo->ID_ROOT_L0 = 0;
363 //
364 // store in the runinfo class the GL_RUN variables for our run
365 //
366 sgnl = 0;
367 sgnl = runinfo->GetRunInfo(idRun);
368 if ( sgnl ){
369 if ( verbose ) printf(" ANTICOUNTER - ERROR: RunInfo exited with non-zero status\n");
370 code = sgnl;
371 goto closeandexit;
372 } else {
373 sgnl = 0;
374 };
375 //
376 // now you can access that variables using the RunInfo class this way runinfo->ID_ROOT_L0
377 //
378 if ( runinfo->ID_ROOT_L0 == 0 ){
379 if ( verbose ) printf("\n ANTICOUNTER - ERROR: no run with ID_RUN = %u \n\n Exiting... \n\n",idRun);
380 code = -5;
381 goto closeandexit;
382 };
383 //
384 // prepare the timesync for the db
385 //
386 TString host = glt->CGetHost();
387 TString user = glt->CGetUser();
388 TString psw = glt->CGetPsw();
389 TSQLServer *dbc = TSQLServer::Connect(host.Data(),user.Data(),psw.Data());
390 if ( !dbc->IsConnected() ) throw -705;
391 stringstream myquery;
392 myquery.str("");
393 myquery << "SET time_zone='+0:00'";
394 dbc->Query(myquery.str().c_str());
395
396 dbtime = new GL_TIMESYNC(runinfo->ID_ROOT_L0,"ID",dbc);
397 //
398 // Search in the DB the path and name of the LEVEL0 file to be processed.
399 //
400 // if ( !dbc->IsConnected() ) throw -705;
401 glroot->Query_GL_ROOT(runinfo->ID_ROOT_L0,dbc);
402 //
403 ftmpname.str("");
404 ftmpname << glroot->PATH.Data() << "/";
405 ftmpname << glroot->NAME.Data();
406 fname = ftmpname.str().c_str();
407 //
408 // print out informations
409 //
410 totevent = runinfo->NEVENTS;
411 if ( verbose ) {
412 printf("\n LEVEL0 data file: %s \n",fname.Data());
413 printf(" RUN HEADER absolute time is: %u \n",runinfo->RUNHEADER_TIME);
414 printf(" RUN TRAILER absolute time is: %u \n",runinfo->RUNTRAILER_TIME);
415 printf(" %i events to be processed for run %u: from %i to %i \n\n",totevent,idRun,runinfo->EV_FROM,runinfo->EV_FROM+totevent);
416 };
417 //
418 // Open Level0 file
419 //
420 l0File = new TFile(fname.Data());
421 if ( !l0File ) {
422 if ( verbose ) printf(" ANTICOUNTER - ERROR: problems opening Level0 file\n");
423 code = -6;
424 goto closeandexit;
425 };
426 l0tr = (TTree*)l0File->Get("Physics");
427 if ( !l0tr ) {
428 if ( verbose ) printf(" ANTICOUNTER - ERROR: no Physics tree in Level0 file\n");
429 l0File->Close();
430 code = -7;
431 goto closeandexit;
432 };
433 l0head = l0tr->GetBranch("Header");
434 if ( !l0head ) {
435 if ( verbose ) printf(" ANTICOUNTER - ERROR: no Header branch in Level0 tree\n");
436 l0File->Close();
437 code = -8;
438 goto closeandexit;
439 };
440 l0ac = l0tr->GetBranch("Anticounter");
441 if ( !l0ac ) {
442 if ( verbose ) printf(" ANTICOUNTER - ERROR: no Anticounter branch in Level0 tree\n");
443 l0File->Close();
444 code = -704;
445 goto closeandexit;
446 };
447 //
448 l0tr->SetBranchAddress("Anticounter", &acc);
449 l0tr->SetBranchAddress("Header", &eh);
450 //
451 nevents = l0ac->GetEntries();
452 //
453 if ( nevents < 1 ) {
454 if ( verbose ) printf(" ANTICOUNTER - ERROR: Level0 file is empty\n\n");
455 l0File->Close();
456 code = -11;
457 goto closeandexit;
458 };
459 //
460 if ( runinfo->EV_TO > nevents-1 ) {
461 if ( verbose ) printf(" ANTICOUNTER - ERROR: too few entries in the tree\n");
462 l0File->Close();
463 code = -12;
464 goto closeandexit;
465 };
466 //
467 // run over all the events of the run
468 //
469 if ( dbc ){
470 dbc->Close();
471 delete dbc;
472 };
473 //
474 if ( verbose ) printf("\n Ready to start! \n\n Processed events: \n\n");
475 //
476 for ( re = runinfo->EV_FROM; re < (runinfo->EV_FROM+runinfo->NEVENTS); re++){
477 //
478 if ( procev%1000 == 0 && procev > 0 && verbose ) printf(" %iK \n",procev/1000);
479 //
480 l0head->GetEntry(re);
481 //
482 // absolute time of this event
483 //
484 ph = eh->GetPscuHeader();
485 atime = dbtime->DBabsTime(ph->GetOrbitalTime());
486 //
487 // paranoid check
488 //
489 if ( atime > runinfo->RUNTRAILER_TIME || atime < runinfo->RUNHEADER_TIME ) {
490 if ( verbose ) printf(" ANTICOUNTER - WARNING: event at time outside the run time window, skipping it atime %u HE %u TR %u \n",atime,runinfo->RUNTRAILER_TIME,runinfo->RUNHEADER_TIME);
491 if ( verbose ) printf(" %u %u %u %u \n",dbtime->GetTimesync(),dbtime->GetObt0(),dbtime->GetT0(),dbtime->GetType());
492 goto jumpev;
493 };
494 //
495 procev++;
496 //
497 // start processing
498 //
499 acl2->Clear();
500 //
501 l0ac->GetEntry(re);
502 //
503 /***********************************************/
504 // Here starts Anticounter specific code (Silvio)
505 //
506 memset(vec, 0, 2*16*16*sizeof(UShort_t));
507 memset(Shift, 0, 2*16*sizeof(UShort_t));
508 memset(Counter, 0, 2*16*sizeof(UShort_t));
509 memset(Counter_old, 0, 2*16*sizeof(UShort_t));
510 memset(CRCcheck, 0, 2*sizeof(UShort_t));
511 memset(Status, 0, 2*sizeof(UShort_t));
512 memset(Hitmap, 0, 2*sizeof(UShort_t));
513 memset(Hitstatus, 0, 2*sizeof(UShort_t));
514 memset(Trigger, 0, 2*sizeof(UShort_t));
515 memset(Trigg_old, 0, 2*sizeof(UShort_t));
516 tmp = 0;
517 //
518 for(Int_t gg = 0; gg < 2; gg++)
519 {
520 Hitstatus[gg] = 0;
521 }
522 //
523 //fetch data
524 //
525 for(Int_t kk = 0; kk < 2; kk++)
526 {
527 if(re>0)
528 {
529 Trigg_old[kk] = Trigger[kk];
530 for(Int_t jj = 0; jj < 16; jj++)
531 Counter_old[kk][jj] = Counter[kk][jj];
532 }
533
534 for(Int_t jj = 0; jj < 16; jj++)
535 {
536 Counter[kk][jj] = acc->counters[kk][jj];
537 Shift[kk][jj] = acc->shift[kk][jj];
538 }
539 Status[kk] = acc->status[kk];
540 Hitmap[kk] = acc->hitmap[kk];
541 Trigger[kk] = acc->trigg[kk];
542 CRCcheck[kk] = acc->CRCcheck[kk];
543 }
544
545 /***********************************************/
546 //process data
547 /***********************************************/
548 //shiftregisters
549 for(Int_t b = 0; b < 2; b++){ //card
550 for(Int_t k = 0; k < 16; k++){ //shift register
551 Int_t cnt=1;
552 for(Int_t l = 0; l < 16; l++){ //bin
553 tmp = ((Shift[b][k] & cnt) > 0 ? 1 : 0);
554 vec[b][k][l]=tmp;
555 cnt=cnt<<1;
556 }
557 //cnt=1;
558 }
559 }
560 //
561 //fill Level1 file
562 /************************************************/
563 for(Int_t s = 0; s < 2; s++) {
564 acl2->hitmap[s] = Hitmap[s];
565 acl2->trigger[s] = Trigger[s];
566 Int_t cnt=1;
567 for(Int_t k = 0; k < 16; k++) {
568 for(Int_t bin = 5; bin < 9; bin++) { //acceptance window
569 if(vec[s][bin][k]==1)
570 Hitstatus[s] = Hitstatus[s] | cnt;
571 }
572 cnt=cnt<<1;
573 }
574 acl2->hitstatus[s] = Hitstatus[s];
575 //
576 //Status
577 /****************************************/
578 if(s==0){
579 if(Trigger[0] != (Trigg_old[0]+1))
580 acl2->status[0] = acl2->status[0] | 0x1;
581 if(Status[0] & 0x001F < 0x001F)
582 acl2->status[0] = acl2->status[0] | 0x2;
583 if(CRCcheck[0] == 0)
584 acl2->status[0] = acl2->status[0] | 0x4;
585 for(Int_t gg = 0; gg < 16; gg++){
586 if((Counter[0][gg] == Counter_old[0][gg]) && re>0){
587 acl2->status[0] = acl2->status[0] | 0x8;
588 }
589 }
590 }
591 else {
592 if(Trigger[1] != (Trigg_old[1]+2))
593 acl2->status[1] = acl2->status[1] | 0x1;
594 if(Status[1] & 0x001F < 0x001F)
595 acl2->status[1] = acl2->status[1] | 0x2;
596 if(CRCcheck[1] == 0)
597 acl2->status[1] = acl2->status[1] | 0x4;
598 for(Int_t gg = 0; gg < 16; gg++){
599 if((Counter[1][gg] == Counter_old[1][gg]) && re>0)
600 acl2->status[1] = acl2->status[1] | 0x8;
601 }
602 }
603 }
604 //
605 // End Anticounter specific code
606 //
607 /************************************************/
608 acl2->unpackError = acc->unpackError;
609 //
610 // Fill the rootple
611 //
612 ac->Fill();
613 //
614 //
615 jumpev:
616 debug = false;
617 //
618 };
619 //
620 // Here you may want to clear some variables before processing another run
621 //
622 delete dbtime;
623 }; // process all the runs
624 //
625 if ( verbose ) printf("\n Finished processing data \n");
626 //
627 closeandexit:
628 //
629 // we have finished processing the run(s). If we processed a single run now we must copy all the events after our run from the old tree to the new one and delete the old tree.
630 //
631 if ( !reprocall && reproc && code >= 0 ){
632 if ( totfileentries > noaftrun ){
633 if ( verbose ){
634 printf("\n Post-processing: copying events from the old tree after the processed run\n");
635 printf(" Copying %i events in the file which are after the end of the run %i \n",(int)(totfileentries-noaftrun),(int)run);
636 printf(" Start copying at event number %i end copying at event number %i \n",(int)noaftrun,(int)totfileentries);
637 };
638 for (UInt_t j = noaftrun; j < totfileentries; j++ ){
639 //
640 // Get entry from old tree
641 //
642 acclone->GetEntry(j);
643 //
644 // copy acl2clone to acl2
645 //
646 acl2->Clear();
647 memcpy(&acl2,&acl2clone,sizeof(acl2clone));
648 //
649 // Fill entry in the new tree
650 //
651 ac->Fill();
652 };
653 if ( verbose ) printf(" Finished successful copying!\n");
654 };
655 };
656 //
657 // Close files, delete old tree(s), write and close level2 file
658 //
659 if ( l0File ) l0File->Close();
660 if ( tempfile ) tempfile->Close();
661 if ( myfold ) gSystem->Unlink(tempname.str().c_str());
662 //
663 if ( code < 0 && verbose ) printf("\n ANTICOUNTER - ERROR: an error occurred, try to save anyway...\n");
664 if ( verbose ) printf("\n Writing and closing rootple\n");
665 if ( runinfo ) runinfo->Close();
666 if ( ac ) ac->SetName("Anticounter");
667 if ( file ){
668 file->cd();
669 file->Write();
670 };
671 //
672 if ( myfold ) gSystem->Unlink(acfolder.str().c_str());
673 //
674 // the end
675 //
676 if ( verbose ) printf("\n Exiting...\n");
677 //
678 if( ac ) ac->Delete();
679 if ( acl2 ) delete acl2;
680 if ( acl2clone ) delete acl2clone;
681 if ( glroot ) delete glroot;
682 if ( runinfo ) delete runinfo;
683 //
684 if(code < 0) throw code;
685 return(code);
686 }
687
688

  ViewVC Help
Powered by ViewVC 1.1.23