yoda/techmodel/CalibTrk1Reader.cpp

/** @file
 * $Source: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v $
 * $Id: CalibTrk1Reader.cpp,v 1.4 2004/08/19 15:24:46 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" {
    #include "CRC.h"
    //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   DSPped_par[6][3072];
      float DSPsig_par[6][3072];
      float DSPbad_par[6][3072];
    } trkcalib_;

#include <dirent.h>
}

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

#include "event/CalibTrk1Event.h"

using namespace pamela;
using namespace pamela::techmodel;

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

/**
 * Constructor. 
 */
CalibTrk1Reader::CalibTrk1Reader(void): 
  TechmodelAlgorithm(PacketType::CalibTrk1, "TechmodelCalibTrk1Reader") { 
  cat <<  log4cpp::Priority::DEBUG
      <<  "Constructor "
      <<  "\n " << log4cpp::CategoryStream::ENDLINE;
  calibTrk1 = new CalibTrk1Event();
}

/**
 * Get a string with the version info of the algorithm.
 */
std::string CalibTrk1Reader::GetVersionInfo(void) const {
  return 
    "$Header: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v 1.4 2004/08/19 15:24:46 kusanagi Exp $\n";
}

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

/**
 * Unpack the CalibTrk event from an input file.
 */
//void CalibTrkReader::RunEvent(int EventNumber, long int length, char *subData) {
void CalibTrk1Reader::RunEvent(int EventNumber, long int length) {

    char     *subData;
    char      eventCRC[2];
    UINT16    subCRC;      //CRC of the data
    UINT16    readCRC;     //CRC read from the end of the subpacket
    long int  dataLength;
 
    //the 2 bytes subtracted belong to the final event CRC bytes
    dataLength = length - (long int)2;

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

    //took the final CRC to compare it with the previous calculated CRC of the data
    InputFile->read(eventCRC, sizeof(eventCRC));
    readCRC = (((UINT16)(eventCRC[0]<<8))&0xFF00) + (((UINT16)eventCRC[1])&0x00FF);
    
    if (subCRC == readCRC){
        int       ERROR;
        //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 + "/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(calibTrk1->DAQmode,     trkcalib_.DAQmode,     sizeof(calibTrk1->DAQmode));
        memcpy(calibTrk1->DSPnumber,   trkcalib_.DSPnumber,   sizeof(calibTrk1->DSPnumber));
        memcpy(calibTrk1->calibnumber, trkcalib_.calibnumber, sizeof(calibTrk1->calibnumber));
        memcpy(calibTrk1->DSPnumber, trkcalib_.ncalib_event,  sizeof(calibTrk1->ncalib_event));
        memcpy(calibTrk1->ped_l1,    trkcalib_.ped_l1,     sizeof(calibTrk1->ped_l1));
        memcpy(calibTrk1->ped_l2,    trkcalib_.ped_l2,     sizeof(calibTrk1->ped_l2));
        memcpy(calibTrk1->ped_l3,    trkcalib_.ped_l3,     sizeof(calibTrk1->ped_l3));
        memcpy(calibTrk1->sig_l1,    trkcalib_.sig_l1,     sizeof(calibTrk1->sig_l1));
        memcpy(calibTrk1->sig_l2,    trkcalib_.sig_l2,     sizeof(calibTrk1->sig_l2));
        memcpy(calibTrk1->sig_l3,    trkcalib_.sig_l3,     sizeof(calibTrk1->sig_l3));
        memcpy(calibTrk1->nbad_l1,   trkcalib_.nbad_l1,    sizeof(calibTrk1->nbad_l1));
        memcpy(calibTrk1->nbad_l2,   trkcalib_.nbad_l2,    sizeof(calibTrk1->nbad_l2));
        memcpy(calibTrk1->nbad_l3,   trkcalib_.nbad_l3,    sizeof(calibTrk1->nbad_l3));
        memcpy(calibTrk1->cal_flag,  trkcalib_.cal_flag,   sizeof(calibTrk1->cal_flag));      

//--------have to invert array because of FORTRAN <-> C different management of the indexes
        int tempBad_par[3072][6];
        int tempPed_par[3072][6];
        int tempSig_par[3072][6];
        memcpy(calibTrk1->DSPbad_par,trkcalib_.DSPbad_par, sizeof(calibTrk1->DSPbad_par));      
        memcpy(calibTrk1->DSPped_par,trkcalib_.DSPped_par, sizeof(calibTrk1->DSPped_par));      
        memcpy(calibTrk1->DSPsig_par,trkcalib_.DSPsig_par, sizeof(calibTrk1->DSPsig_par));      

        for (int i = 0; i < 6; i++){
            for (int j = 0; j < 3072; j++){
                calibTrk1->DSPbad_par[i][j] = tempBad_par[j][i];
                calibTrk1->DSPped_par[i][j] = tempPed_par[j][i];
                calibTrk1->DSPsig_par[i][j] = tempSig_par[j][i];
            }
        }
//-----------------------------------------------------------------------------------------
        

        cat <<  log4cpp::Priority::ERROR
        <<  "Fortran77 function trkcalibpkt error code = " << ERROR
        <<  "\n " << log4cpp::CategoryStream::ENDLINE;
    } else {
        cat <<  log4cpp::Priority::ERROR
            <<  "Wrong CRC for CalibTrk1 Packet "
            <<  "\n " << log4cpp::CategoryStream::ENDLINE;
    }
    delete [] subData;
}

1	/** @file
2	* $Source: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v $
3	* $Id: CalibTrk1Reader.cpp,v 1.4 2004/08/19 15:24:46 kusanagi Exp $
4	* $Author: kusanagi $
5	*
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	#include "CRC.h"
17	//The int* return the error code
18	//The char* is the path to the temporary file
19	extern void trkcalibpkt_(int, char);
20
21	//Struct per il passaggio di dati da e verso la chiamata fortran
22	extern struct {
23	int DAQmode[6];
24	int DSPnumber[6];
25	int calibnumber[6];
26	int ncalib_event[6];
27	int ped_l1[6];
28	int ped_l2[6];
29	int ped_l3[6];
30	int sig_l1[6];
31	int sig_l2[6];
32	int sig_l3[6];
33	int nbad_l1[6];
34	int nbad_l2[6];
35	int nbad_l3[6];
36	int cal_flag[6];
37	int DSPped_par[6][3072];
38	float DSPsig_par[6][3072];
39	float DSPbad_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/CalibTrk1Event.h"
51
52	using namespace pamela;
53	using namespace pamela::techmodel;
54
55	static log4cpp::Category& cat = log4cpp::Category::getInstance("pamela.techmodel.CalibTrk1Reader");
56
57	/**
58	* Constructor.
59	*/
60	CalibTrk1Reader::CalibTrk1Reader(void):
61	TechmodelAlgorithm(PacketType::CalibTrk1, "TechmodelCalibTrk1Reader") {
62	cat << log4cpp::Priority::DEBUG
63	<< "Constructor "
64	<< "\n " << log4cpp::CategoryStream::ENDLINE;
65	calibTrk1 = new CalibTrk1Event();
66	}
67
68	/**
69	* Get a string with the version info of the algorithm.
70	*/
71	std::string CalibTrk1Reader::GetVersionInfo(void) const {
72	return
73	"$Header: /home/cvsmanager/yoda/techmodel/CalibTrk1Reader.cpp,v 1.4 2004/08/19 15:24:46 kusanagi Exp $\n";
74	}
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 CalibTrk1Reader::Init(PamelaRun *run) {
81	SetInputStream(run);
82	run->WriteSubPacket(this, &calibTrk1, calibTrk1->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 CalibTrk1Reader::RunEvent(int EventNumber, long int length) {
90
91	char *subData;
92	char eventCRC[2];
93	UINT16 subCRC; //CRC of the data
94	UINT16 readCRC; //CRC read from the end of the subpacket
95	long int dataLength;
96
97	//the 2 bytes subtracted belong to the final event CRC bytes
98	dataLength = length - (long int)2;
99
100	subData = new char[dataLength];
101	InputFile->read(subData, sizeof(unsigned char)*dataLength);
102	subCRC = CM_Compute_CRC16(0, (BYTE*)subData, dataLength);
103
104	//took the final CRC to compare it with the previous calculated CRC of the data
105	InputFile->read(eventCRC, sizeof(eventCRC));
106	readCRC = (((UINT16)(eventCRC[0]<<8))&0xFF00) + (((UINT16)eventCRC[1])&0x00FF);
107
108	if (subCRC == readCRC){
109	int ERROR;
110	//Scrivo un file temporaneo per passarlo alla routine
111	//Speriamo di cambiare la routine per passargli un buffer.....
112	DIR *dirp;
113	std::string pathDir((char*)getenv("YODA_DATA"));
114	pathDir = pathDir + "/todatemp.dat";;
115	FILE *pfile;
116	pfile = fopen((char*)pathDir.c_str(), "wb");
117	fwrite(subData, 1, dataLength, pfile);
118	fclose(pfile);
119
120	//Call to the FORTRAN routin that unpack tracker events
121	trkcalibpkt_(&ERROR, (char*)pathDir.c_str());
122
123	remove((char*)pathDir.c_str());
124
125	//Store the unpacked data
126	memcpy(calibTrk1->DAQmode, trkcalib_.DAQmode, sizeof(calibTrk1->DAQmode));
127	memcpy(calibTrk1->DSPnumber, trkcalib_.DSPnumber, sizeof(calibTrk1->DSPnumber));
128	memcpy(calibTrk1->calibnumber, trkcalib_.calibnumber, sizeof(calibTrk1->calibnumber));
129	memcpy(calibTrk1->DSPnumber, trkcalib_.ncalib_event, sizeof(calibTrk1->ncalib_event));
130	memcpy(calibTrk1->ped_l1, trkcalib_.ped_l1, sizeof(calibTrk1->ped_l1));
131	memcpy(calibTrk1->ped_l2, trkcalib_.ped_l2, sizeof(calibTrk1->ped_l2));
132	memcpy(calibTrk1->ped_l3, trkcalib_.ped_l3, sizeof(calibTrk1->ped_l3));
133	memcpy(calibTrk1->sig_l1, trkcalib_.sig_l1, sizeof(calibTrk1->sig_l1));
134	memcpy(calibTrk1->sig_l2, trkcalib_.sig_l2, sizeof(calibTrk1->sig_l2));
135	memcpy(calibTrk1->sig_l3, trkcalib_.sig_l3, sizeof(calibTrk1->sig_l3));
136	memcpy(calibTrk1->nbad_l1, trkcalib_.nbad_l1, sizeof(calibTrk1->nbad_l1));
137	memcpy(calibTrk1->nbad_l2, trkcalib_.nbad_l2, sizeof(calibTrk1->nbad_l2));
138	memcpy(calibTrk1->nbad_l3, trkcalib_.nbad_l3, sizeof(calibTrk1->nbad_l3));
139	memcpy(calibTrk1->cal_flag, trkcalib_.cal_flag, sizeof(calibTrk1->cal_flag));
140
141	//--------have to invert array because of FORTRAN <-> C different management of the indexes
142	int tempBad_par[3072][6];
143	int tempPed_par[3072][6];
144	int tempSig_par[3072][6];
145	memcpy(calibTrk1->DSPbad_par,trkcalib_.DSPbad_par, sizeof(calibTrk1->DSPbad_par));
146	memcpy(calibTrk1->DSPped_par,trkcalib_.DSPped_par, sizeof(calibTrk1->DSPped_par));
147	memcpy(calibTrk1->DSPsig_par,trkcalib_.DSPsig_par, sizeof(calibTrk1->DSPsig_par));
148
149	for (int i = 0; i < 6; i++){
150	for (int j = 0; j < 3072; j++){
151	calibTrk1->DSPbad_par[i][j] = tempBad_par[j][i];
152	calibTrk1->DSPped_par[i][j] = tempPed_par[j][i];
153	calibTrk1->DSPsig_par[i][j] = tempSig_par[j][i];
154	}
155	}
156	//-----------------------------------------------------------------------------------------
157
158
159	cat << log4cpp::Priority::ERROR
160	<< "Fortran77 function trkcalibpkt error code = " << ERROR
161	<< "\n " << log4cpp::CategoryStream::ENDLINE;
162	} else {
163	cat << log4cpp::Priority::ERROR
164	<< "Wrong CRC for CalibTrk1 Packet "
165	<< "\n " << log4cpp::CategoryStream::ENDLINE;
166	}
167	delete [] subData;
168	}
169