yoda/techmodel/CalibCalPulse1Reader.cpp


// Implementation of the CalibCalPulse1Reader class.
 

#define UINT unsigned int
#define BYTE  unsigned char
#include <string>
#include <log4cpp/Category.hh>
extern "C" {
#include "CRC.h"  
    //Struct per il passaggio di dati da e verso la chiamata fortran
extern struct {
        int IEV2;
        int calped[4][11][96];
        int calgood[4][11][96];
        int calthr[4][11][6];
        int calrms[4][11][96];
        int calbase[4][11][6];
        int calvar[4][11][6];
        int calpuls[4][11][96];
    } calib_; 
    
    //external declaration of the Fortran function 
    void calpulse_(short[], long int*, int*);
}

#include <fstream>
#include "stdio.h"
#include "ReaderAlgorithms.h"

#include "event/CalibCalPulse1Event.h"

using namespace pamela;
using namespace pamela::techmodel;

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

/**
 * Constructor. 
 */
CalibCalPulse1Reader::CalibCalPulse1Reader(void): 
  TechmodelAlgorithm(PacketType::CalibCalPulse1, "TechmodelCalibCalPulse1Reader") { 
  cat <<  log4cpp::Priority::DEBUG
      <<  "Constructor "
      <<  "\n " << log4cpp::CategoryStream::ENDLINE;
  calibCalPulse1 = new CalibCalPulse1Event();
}

/**
 * Get a string with the version info of the algorithm.
 */
std::string CalibCalPulse1Reader::GetVersionInfo(void) const {
  return 
    "$Header: /home/cvsmanager/yoda/techmodel/CalibCalPulse1Reader.cpp,v 1.1.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 CalibCalPulse1Reader::Init(PamelaRun *run) {
  SetInputStream(run);
  run->WriteSubPacket(this, &calibCalPulse1, calibCalPulse1->Class());
}

/**
 * Unpack the CalibCalPulse1 event from an input file.
 */
void CalibCalPulse1Reader::RunEvent(int EventNumber, long int length) {
    
    char        packetData[length-2];
    char        CRCevent[2];
    UINT16      calculatedCRC    = 0;   //calculated CRC
    UINT16      readCRC          = 0;   //read CRC
    long int    dataLength;
    int         ERROR;

    dataLength = length - 2;
    InputFile->read(packetData, sizeof(packetData));
    InputFile->read(CRCevent, sizeof(CRCevent));

    calculatedCRC = CM_Compute_CRC16(0, (BYTE*)packetData, dataLength);
    readCRC = ((UINT16)(CRCevent[0]<<8)&0xFF00) + ((UINT16)(CRCevent[1])&0x00FF);
    
    if (calculatedCRC == readCRC) {
            calpulse_((short*)packetData, &dataLength, &ERROR);
  //Store the unpacked data
    calibCalPulse1->IEV2 = calib_.IEV2;
//--------have to invert array because of FORTRAN <-> C different management of the indexes
    int tempCalped[96][11][4];
    int tempCalgood[96][11][4];
    int tempCalthr[6][11][4];
    int tempCalrms[96][11][4];
    int tempCalbase[6][11][4];
    int tempCalvar[6][11][4];
    int tempCalpuls[96][11][4];

    memcpy(tempCalped,  calib_.calped,  sizeof(tempCalped));
    memcpy(tempCalgood, calib_.calgood, sizeof(tempCalgood));
    memcpy(tempCalthr,  calib_.calthr,  sizeof(tempCalthr));
    memcpy(tempCalrms,  calib_.calrms,  sizeof(tempCalrms));
    memcpy(tempCalbase, calib_.calbase, sizeof(tempCalbase));
    memcpy(tempCalvar,  calib_.calvar,  sizeof(tempCalvar));
    memcpy(tempCalpuls, calib_.calpuls, sizeof(tempCalpuls));

    for (int i = 0; i < 4; i++){
        for (int j = 0; j <11; j++){
            for (int z = 0; z < 96; z++){
                calibCalPulse1->calped[i][j][z]    = tempCalped[z][j][i];
                calibCalPulse1->calgood[i][j][z]   = tempCalgood[z][j][i];
                calibCalPulse1->calrms[i][j][z]    = tempCalrms[z][j][i];
                calibCalPulse1->calpuls[i][j][z]  = tempCalpuls[z][j][i];
            }
        }
    }

    for (int i = 0; i < 4; i++){
        for (int j = 0; j <11; j++){
            for (int z = 0; z < 6; z++){
                calibCalPulse1->calthr[i][j][z]    = tempCalthr[z][j][i];
                calibCalPulse1->calbase[i][j][z]   = tempCalbase[z][j][i];
                calibCalPulse1->calvar[i][j][z]    = tempCalvar[z][j][i];
            }
        }
    }
//-----------------------------------------------------------------------------------------
    
    cat <<  log4cpp::Priority::ERROR
        <<  "Fortran77 function calpulse error code = " << ERROR
        <<  "\n " << log4cpp::CategoryStream::ENDLINE;
    } else {
            cat <<  log4cpp::Priority::ERROR
            <<  "The test of calculated CRC with one wrote on file FAILED!!"
            <<  "\n " << log4cpp::CategoryStream::ENDLINE;    
    }
    free(packetData);
}

1
2	// Implementation of the CalibCalPulse1Reader class.
3
4
5	#define UINT unsigned int
6	#define BYTE unsigned char
7	#include <string>
8	#include <log4cpp/Category.hh>
9	extern "C" {
10	#include "CRC.h"
11	//Struct per il passaggio di dati da e verso la chiamata fortran
12	extern struct {
13	int IEV2;
14	int calped[4][11][96];
15	int calgood[4][11][96];
16	int calthr[4][11][6];
17	int calrms[4][11][96];
18	int calbase[4][11][6];
19	int calvar[4][11][6];
20	int calpuls[4][11][96];
21	} calib_;
22
23	//external declaration of the Fortran function
24	void calpulse_(short[], long int, int);
25	}
26
27	#include <fstream>
28	#include "stdio.h"
29	#include "ReaderAlgorithms.h"
30
31	#include "event/CalibCalPulse1Event.h"
32
33	using namespace pamela;
34	using namespace pamela::techmodel;
35
36	static log4cpp::Category& cat = log4cpp::Category::getInstance("pamela.techmodel.CalibCalPulse1Reader");
37
38	/**
39	* Constructor.
40	*/
41	CalibCalPulse1Reader::CalibCalPulse1Reader(void):
42	TechmodelAlgorithm(PacketType::CalibCalPulse1, "TechmodelCalibCalPulse1Reader") {
43	cat << log4cpp::Priority::DEBUG
44	<< "Constructor "
45	<< "\n " << log4cpp::CategoryStream::ENDLINE;
46	calibCalPulse1 = new CalibCalPulse1Event();
47	}
48
49	/**
50	* Get a string with the version info of the algorithm.
51	*/
52	std::string CalibCalPulse1Reader::GetVersionInfo(void) const {
53	return
54	"$Header: /home/cvsmanager/yoda/techmodel/CalibCalPulse1Reader.cpp,v 1.1.1.1 2004/07/06 12:20:23 kusanagi Exp $\n";
55	}
56
57	/**
58	* Initialize the algorithm with a special run. This will initialize the
59	* event reader routines for all packet types.
60	*/
61	void CalibCalPulse1Reader::Init(PamelaRun *run) {
62	SetInputStream(run);
63	run->WriteSubPacket(this, &calibCalPulse1, calibCalPulse1->Class());
64	}
65
66	/**
67	* Unpack the CalibCalPulse1 event from an input file.
68	*/
69	void CalibCalPulse1Reader::RunEvent(int EventNumber, long int length) {
70
71	char packetData[length-2];
72	char CRCevent[2];
73	UINT16 calculatedCRC = 0; //calculated CRC
74	UINT16 readCRC = 0; //read CRC
75	long int dataLength;
76	int ERROR;
77
78	dataLength = length - 2;
79	InputFile->read(packetData, sizeof(packetData));
80	InputFile->read(CRCevent, sizeof(CRCevent));
81
82	calculatedCRC = CM_Compute_CRC16(0, (BYTE*)packetData, dataLength);
83	readCRC = ((UINT16)(CRCevent[0]<<8)&0xFF00) + ((UINT16)(CRCevent[1])&0x00FF);
84
85	if (calculatedCRC == readCRC) {
86	calpulse_((short*)packetData, &dataLength, &ERROR);
87	//Store the unpacked data
88	calibCalPulse1->IEV2 = calib_.IEV2;
89	//--------have to invert array because of FORTRAN <-> C different management of the indexes
90	int tempCalped[96][11][4];
91	int tempCalgood[96][11][4];
92	int tempCalthr[6][11][4];
93	int tempCalrms[96][11][4];
94	int tempCalbase[6][11][4];
95	int tempCalvar[6][11][4];
96	int tempCalpuls[96][11][4];
97
98	memcpy(tempCalped, calib_.calped, sizeof(tempCalped));
99	memcpy(tempCalgood, calib_.calgood, sizeof(tempCalgood));
100	memcpy(tempCalthr, calib_.calthr, sizeof(tempCalthr));
101	memcpy(tempCalrms, calib_.calrms, sizeof(tempCalrms));
102	memcpy(tempCalbase, calib_.calbase, sizeof(tempCalbase));
103	memcpy(tempCalvar, calib_.calvar, sizeof(tempCalvar));
104	memcpy(tempCalpuls, calib_.calpuls, sizeof(tempCalpuls));
105
106	for (int i = 0; i < 4; i++){
107	for (int j = 0; j <11; j++){
108	for (int z = 0; z < 96; z++){
109	calibCalPulse1->calped[i][j][z] = tempCalped[z][j][i];
110	calibCalPulse1->calgood[i][j][z] = tempCalgood[z][j][i];
111	calibCalPulse1->calrms[i][j][z] = tempCalrms[z][j][i];
112	calibCalPulse1->calpuls[i][j][z] = tempCalpuls[z][j][i];
113	}
114	}
115	}
116
117	for (int i = 0; i < 4; i++){
118	for (int j = 0; j <11; j++){
119	for (int z = 0; z < 6; z++){
120	calibCalPulse1->calthr[i][j][z] = tempCalthr[z][j][i];
121	calibCalPulse1->calbase[i][j][z] = tempCalbase[z][j][i];
122	calibCalPulse1->calvar[i][j][z] = tempCalvar[z][j][i];
123	}
124	}
125	}
126	//-----------------------------------------------------------------------------------------
127
128	cat << log4cpp::Priority::ERROR
129	<< "Fortran77 function calpulse error code = " << ERROR
130	<< "\n " << log4cpp::CategoryStream::ENDLINE;
131	} else {
132	cat << log4cpp::Priority::ERROR
133	<< "The test of calculated CRC with one wrote on file FAILED!!"
134	<< "\n " << log4cpp::CategoryStream::ENDLINE;
135	}
136	free(packetData);
137	}
138