yoda/techmodel/CalibTrkReader.cpp

/** @file
 * $Source: /home/cvsmanager/yoda/techmodel/CalibTrkReader.cpp,v $
 * $Id: CalibTrkReader.cpp,v 1.1 2004/07/06 12:20:23 kusanagi Exp $
 * $Author: kusanagi $
 * 
 * Implementation of the LogReader class.
* ToBeDone:
* Control the CRC for the entire data Packet not just for single records
 */

#define UINT unsigned int
#define BYTE  unsigned char
#include <string>
#include <log4cpp/Category.hh>
extern "C" {
    //The int* return the error code
    //The char* is the path to the temporary file
    extern void trkcalibpkt_(int*, char*); 

    //Struct per il passaggio di dati da e verso la chiamata fortran
    extern struct {
      int   DAQmode[6];
      int   DSPnumber[6];
      int   calibnumber[6];
      int   ncalib_event[6];
      int   ped_l1[6];
      int   ped_l2[6];
      int   ped_l3[6];
      int   sig_l1[6];
      int   sig_l2[6];
      int   sig_l3[6];
      int   nbad_l1[6];
      int   nbad_l2[6];
      int   nbad_l3[6];
      int   cal_flag[6];
      int   checksum[6];
      int   DSPbad_par[6][3072];
      float DSPped_par[6][3072];
      float DSPsig_par[6][3072];
    } trkcalib_;

#include <dirent.h>
}

#include <fstream>
#include "stdio.h"
#include "ReaderAlgorithms.h"
#include "event/PamelaRun.h"

#include "event/CalibTrkEvent.h"

using namespace pamela;
using namespace pamela::techmodel;

static log4cpp::Category& cat = log4cpp::Category::getInstance("pamela.techmodel.CalibTrkReader");  

/**
 * Constructor. 
 */
CalibTrkReader::CalibTrkReader(void): 
  TechmodelAlgorithm(PacketType::CalibTrk, "TechmodelCalibTrkReader") { 
  cat <<  log4cpp::Priority::DEBUG
      <<  "Constructor "
      <<  "\n " << log4cpp::CategoryStream::ENDLINE;
  calibTrk = new CalibTrkEvent();
}

/**
 * Get a string with the version info of the algorithm.
 */
std::string CalibTrkReader::GetVersionInfo(void) const {
  return 
    "$Header: /home/cvsmanager/yoda/techmodel/CalibTrkReader.cpp,v 1.1 2004/07/06 12:20:23 kusanagi Exp $\n";
}

/**
 * Initialize the algorithm with a special run. This will initialize the
 * event reader routines for all packet types.
 */
void CalibTrkReader::Init(PamelaRun *run) {
  SetInputStream(run);
  run->WriteSubPacket(this, &calibTrk, calibTrk->Class());
}

/**
 * Unpack the CalibTrk event from an input file.
 */
//void CalibTrkReader::RunEvent(int EventNumber, long int length, char *subData) {
void CalibTrkReader::RunEvent(int EventNumber, long int length) {
    int       ERROR;
    
    //the 2 bytes subtracted belong to the final event CRC bytes
    long int dataLength = length;// - (long int)2;

    char *subData = new char[dataLength];
    InputFile->read(subData, sizeof(unsigned char)*dataLength);

    //Skip the last two crc bytes already checked in UnpackPscu
    //This part have to be refactored!!!! too bad......
    InputFile->seekg((long int)2, std::ios::cur);

    //Scrivo un file temporaneo per passarlo alla routine
    //Speriamo di cambiare la routine per passargli un buffer.....
    DIR *dirp;
    std::string pathDir((char*)getenv("YODA_DATA"));
    pathDir = pathDir + "/";
    pathDir = pathDir + PamelaRun::GetRunName(EventNumber) + "/todatemp.dat";
    FILE *pfile;
    pfile = fopen((char*)pathDir.c_str(), "wb");
    fwrite(subData, 1, dataLength, pfile);
    fclose(pfile);

    //Call to the FORTRAN routin that unpack tracker events
    trkcalibpkt_(&ERROR, (char*)pathDir.c_str());
    
    remove((char*)pathDir.c_str());
    
    //Store the unpacked data
    memcpy(calibTrk->DAQmode,     trkcalib_.DAQmode,     sizeof(calibTrk->DAQmode));
    memcpy(calibTrk->DSPnumber,   trkcalib_.DSPnumber,   sizeof(calibTrk->DSPnumber));
    memcpy(calibTrk->calibnumber, trkcalib_.calibnumber, sizeof(calibTrk->calibnumber));
    memcpy(calibTrk->DSPnumber, trkcalib_.ncalib_event,  sizeof(calibTrk->ncalib_event));
    memcpy(calibTrk->ped_l1,    trkcalib_.ped_l1,     sizeof(calibTrk->ped_l1));
    memcpy(calibTrk->ped_l2,    trkcalib_.ped_l2,     sizeof(calibTrk->ped_l2));
    memcpy(calibTrk->ped_l3,    trkcalib_.ped_l3,     sizeof(calibTrk->ped_l3));
    memcpy(calibTrk->sig_l1,    trkcalib_.sig_l1,     sizeof(calibTrk->sig_l1));
    memcpy(calibTrk->sig_l2,    trkcalib_.sig_l2,     sizeof(calibTrk->sig_l2));
    memcpy(calibTrk->sig_l3,    trkcalib_.sig_l3,     sizeof(calibTrk->sig_l3));
    memcpy(calibTrk->nbad_l1,   trkcalib_.nbad_l1,    sizeof(calibTrk->nbad_l1));
    memcpy(calibTrk->nbad_l2,   trkcalib_.nbad_l2,    sizeof(calibTrk->nbad_l2));
    memcpy(calibTrk->nbad_l3,   trkcalib_.nbad_l3,    sizeof(calibTrk->nbad_l3));
    memcpy(calibTrk->cal_flag,  trkcalib_.cal_flag,   sizeof(calibTrk->cal_flag));      
    memcpy(calibTrk->checksum,  trkcalib_.checksum,   sizeof(calibTrk->checksum));      
    memcpy(calibTrk->DSPbad_par,trkcalib_.DSPbad_par, sizeof(calibTrk->DSPbad_par));      
    memcpy(calibTrk->DSPped_par,trkcalib_.DSPped_par, sizeof(calibTrk->DSPped_par));      
    memcpy(calibTrk->DSPsig_par,trkcalib_.DSPsig_par, sizeof(calibTrk->DSPsig_par));      

        cat <<  log4cpp::Priority::ERROR
        <<  "Fortran77 function trkcalibpkt error code = " << ERROR
        <<  "\n " << log4cpp::CategoryStream::ENDLINE;
    free(subData);    
}

1	kusanagi	1.1	/** @file
2	kusanagi	1.2	* $Source: /home/cvsmanager/yoda/techmodel/CalibTrkReader.cpp,v $
3			* $Id: CalibTrkReader.cpp,v 1.1 2004/07/06 12:20:23 kusanagi Exp $
4			* $Author: kusanagi $
5	kusanagi	1.1	*
6			* Implementation of the LogReader class.
7			* ToBeDone:
8			* Control the CRC for the entire data Packet not just for single records
9			*/
10
11			#define UINT unsigned int
12			#define BYTE unsigned char
13			#include <string>
14			#include <log4cpp/Category.hh>
15			extern "C" {
16			//The int* return the error code
17			//The char* is the path to the temporary file
18			extern void trkcalibpkt_(int, char);
19
20			//Struct per il passaggio di dati da e verso la chiamata fortran
21			extern struct {
22			int DAQmode[6];
23			int DSPnumber[6];
24			int calibnumber[6];
25			int ncalib_event[6];
26			int ped_l1[6];
27			int ped_l2[6];
28			int ped_l3[6];
29			int sig_l1[6];
30			int sig_l2[6];
31			int sig_l3[6];
32			int nbad_l1[6];
33			int nbad_l2[6];
34			int nbad_l3[6];
35			int cal_flag[6];
36			int checksum[6];
37			int DSPbad_par[6][3072];
38			float DSPped_par[6][3072];
39			float DSPsig_par[6][3072];
40			} trkcalib_;
41
42			#include <dirent.h>
43			}
44
45			#include <fstream>
46			#include "stdio.h"
47			#include "ReaderAlgorithms.h"
48			#include "event/PamelaRun.h"
49
50			#include "event/CalibTrkEvent.h"
51
52			using namespace pamela;
53			using namespace pamela::techmodel;
54
55			static log4cpp::Category& cat = log4cpp::Category::getInstance("pamela.techmodel.CalibTrkReader");
56
57			/**
58			* Constructor.
59			*/
60			CalibTrkReader::CalibTrkReader(void):
61			TechmodelAlgorithm(PacketType::CalibTrk, "TechmodelCalibTrkReader") {
62			cat << log4cpp::Priority::DEBUG
63			<< "Constructor "
64			<< "\n " << log4cpp::CategoryStream::ENDLINE;
65			calibTrk = new CalibTrkEvent();
66			}
67
68			/**
69			* Get a string with the version info of the algorithm.
70			*/
71			std::string CalibTrkReader::GetVersionInfo(void) const {
72			return
73	kusanagi	1.2	"$Header: /home/cvsmanager/yoda/techmodel/CalibTrkReader.cpp,v 1.1 2004/07/06 12:20:23 kusanagi Exp $\n";
74	kusanagi	1.1	}
75
76			/**
77			* Initialize the algorithm with a special run. This will initialize the
78			* event reader routines for all packet types.
79			*/
80			void CalibTrkReader::Init(PamelaRun *run) {
81			SetInputStream(run);
82			run->WriteSubPacket(this, &calibTrk, calibTrk->Class());
83			}
84
85			/**
86			* Unpack the CalibTrk event from an input file.
87			*/
88			//void CalibTrkReader::RunEvent(int EventNumber, long int length, char *subData) {
89			void CalibTrkReader::RunEvent(int EventNumber, long int length) {
90			int ERROR;
91
92			//the 2 bytes subtracted belong to the final event CRC bytes
93			long int dataLength = length;// - (long int)2;
94
95			char *subData = new char[dataLength];
96			InputFile->read(subData, sizeof(unsigned char)*dataLength);
97
98			//Skip the last two crc bytes already checked in UnpackPscu
99			//This part have to be refactored!!!! too bad......
100			InputFile->seekg((long int)2, std::ios::cur);
101
102			//Scrivo un file temporaneo per passarlo alla routine
103			//Speriamo di cambiare la routine per passargli un buffer.....
104			DIR *dirp;
105			std::string pathDir((char*)getenv("YODA_DATA"));
106			pathDir = pathDir + "/";
107			pathDir = pathDir + PamelaRun::GetRunName(EventNumber) + "/todatemp.dat";
108			FILE *pfile;
109			pfile = fopen((char*)pathDir.c_str(), "wb");
110			fwrite(subData, 1, dataLength, pfile);
111			fclose(pfile);
112
113			//Call to the FORTRAN routin that unpack tracker events
114			trkcalibpkt_(&ERROR, (char*)pathDir.c_str());
115
116			remove((char*)pathDir.c_str());
117
118			//Store the unpacked data
119			memcpy(calibTrk->DAQmode, trkcalib_.DAQmode, sizeof(calibTrk->DAQmode));
120			memcpy(calibTrk->DSPnumber, trkcalib_.DSPnumber, sizeof(calibTrk->DSPnumber));
121			memcpy(calibTrk->calibnumber, trkcalib_.calibnumber, sizeof(calibTrk->calibnumber));
122			memcpy(calibTrk->DSPnumber, trkcalib_.ncalib_event, sizeof(calibTrk->ncalib_event));
123			memcpy(calibTrk->ped_l1, trkcalib_.ped_l1, sizeof(calibTrk->ped_l1));
124			memcpy(calibTrk->ped_l2, trkcalib_.ped_l2, sizeof(calibTrk->ped_l2));
125			memcpy(calibTrk->ped_l3, trkcalib_.ped_l3, sizeof(calibTrk->ped_l3));
126			memcpy(calibTrk->sig_l1, trkcalib_.sig_l1, sizeof(calibTrk->sig_l1));
127			memcpy(calibTrk->sig_l2, trkcalib_.sig_l2, sizeof(calibTrk->sig_l2));
128			memcpy(calibTrk->sig_l3, trkcalib_.sig_l3, sizeof(calibTrk->sig_l3));
129			memcpy(calibTrk->nbad_l1, trkcalib_.nbad_l1, sizeof(calibTrk->nbad_l1));
130			memcpy(calibTrk->nbad_l2, trkcalib_.nbad_l2, sizeof(calibTrk->nbad_l2));
131			memcpy(calibTrk->nbad_l3, trkcalib_.nbad_l3, sizeof(calibTrk->nbad_l3));
132			memcpy(calibTrk->cal_flag, trkcalib_.cal_flag, sizeof(calibTrk->cal_flag));
133			memcpy(calibTrk->checksum, trkcalib_.checksum, sizeof(calibTrk->checksum));
134			memcpy(calibTrk->DSPbad_par,trkcalib_.DSPbad_par, sizeof(calibTrk->DSPbad_par));
135			memcpy(calibTrk->DSPped_par,trkcalib_.DSPped_par, sizeof(calibTrk->DSPped_par));
136			memcpy(calibTrk->DSPsig_par,trkcalib_.DSPsig_par, sizeof(calibTrk->DSPsig_par));
137
138			cat << log4cpp::Priority::ERROR
139			<< "Fortran77 function trkcalibpkt error code = " << ERROR
140			<< "\n " << log4cpp::CategoryStream::ENDLINE;
141			free(subData);
142			}
143