1 |
/** @file |
/** @file |
2 |
* $Source: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v $ |
* $Source: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v $ |
3 |
* $Id: CalibTrk1Reader.cpp,v 2.2 2004/12/03 22:08:00 kusanagi Exp $ |
* $Id: CalibTrk1Reader.cpp,v 2.6 2005/01/13 14:48:04 kusanagi Exp $ |
4 |
* $Author: kusanagi $ |
* $Author: kusanagi $ |
5 |
* |
* |
6 |
* Implementation of the LogReader class. |
* Implementation of the LogReader class. |
67 |
*/ |
*/ |
68 |
std::string CalibTrk1Reader::GetVersionInfo(void) const { |
std::string CalibTrk1Reader::GetVersionInfo(void) const { |
69 |
return |
return |
70 |
"$Header: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v 2.2 2004/12/03 22:08:00 kusanagi Exp $\n"; |
"$Header: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v 2.6 2005/01/13 14:48:04 kusanagi Exp $\n"; |
71 |
} |
} |
72 |
|
|
73 |
/** |
/** |
92 |
|
|
93 |
//Scrivo un file temporaneo per passarlo alla routine |
//Scrivo un file temporaneo per passarlo alla routine |
94 |
//Speriamo di cambiare la routine per passargli un buffer..... |
//Speriamo di cambiare la routine per passargli un buffer..... |
95 |
DIR *dirp; |
oss.str(""); |
96 |
std::string pathDir((char*)getenv("YODA_DATA")); |
oss << getenv("YODA_DATA") << "/" << time(NULL) << "trc1.dat"; |
|
pathDir = pathDir + "/todatemp.dat";; |
|
97 |
FILE *pfile; |
FILE *pfile; |
98 |
pfile = fopen((char*)pathDir.c_str(), "wb"); |
pfile = fopen(oss.str().c_str(), "wb"); |
99 |
fwrite(subData, 1, dataLength, pfile); |
fwrite(subData, 1, dataLength, pfile); |
100 |
fclose(pfile); |
fclose(pfile); |
101 |
|
|
102 |
//Call to the FORTRAN routin that unpack tracker events |
//Call to the FORTRAN routin that unpack tracker events |
103 |
trkcalibpkt_(&ERROR, (char*)pathDir.c_str()); |
trkcalibpkt_(&ERROR, (char*)oss.str().c_str()); |
104 |
|
|
105 |
|
calibTrk1->unpackError = ERROR; |
106 |
|
remove(oss.str().c_str()); |
107 |
if (ERROR != 0) { |
if (ERROR != 0) { |
108 |
oss.str(""); |
oss.str(""); |
109 |
oss << "Fortran77 function trkcalibpkt error code = " << ERROR; |
oss << "Fortran77 function trkcalibpkt error code = " << ERROR; |
110 |
logger->warn(oss.str().c_str()); |
logger->warn(oss.str().c_str()); |
111 |
} |
} |
112 |
|
|
113 |
remove((char*)pathDir.c_str()); |
remove((char*)oss.str().c_str()); |
114 |
|
|
115 |
//Store the unpacked data |
//Store the unpacked data |
116 |
memcpy(calibTrk1->DAQmode, trkcalib_.DAQmode, sizeof(calibTrk1->DAQmode)); |
memcpy(calibTrk1->DAQmode, trkcalib_.DAQmode, sizeof(calibTrk1->DAQmode)); |