yoda/techmodel/CalibCalPulse1Reader.cpp


// Implementation of the CalibCalPulse1Reader class.
 

#define UINT unsigned int
#define BYTE  unsigned char
#include <string>
#include <log4cxx/logger.h>
extern "C" {
#include "CRC.h"  
    //Struct per il passaggio di dati da e verso la chiamata fortran
extern struct {
        int   iev;
        int   pstwerr[4];
        float pperror[4];
        float calpuls[4][11][96];
    } calpul_; 
    
    //external declaration of the Fortran function 
    void calpulse_(char*, long int*, int*);
}

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

#include "event/CalibCalPulse1Event.h"

using namespace pamela;
using namespace pamela::techmodel;

static log4cxx::LoggerPtr logger = log4cxx::Logger::getLogger(_T("pamela.techmodel.CalibCalPulse1Reader"));

/**
 * Constructor. 
 */
CalibCalPulse1Reader::CalibCalPulse1Reader(void): 
  TechmodelAlgorithm(PacketType::CalibCalPulse1, "TechmodelCalibCalPulse1Reader") { 
  logger->debug(_T("Constructor"));
  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 2.3 2005/02/09 22:20:48 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) {
  logger->debug(_T("Initialize"));
  SetInputStream(run);
  run->WriteSubPacket(this, &calibCalPulse1, calibCalPulse1->Class());
}

/**
 * Unpack the CalibCalPulse1 event from an input file.
 */
void CalibCalPulse1Reader::RunEvent(int EventNumber, long int dataLength) throw (Exception){
    std::stringstream oss;       
    char        packetData[dataLength];
    int         ERROR;
    InputFile->read(packetData, sizeof(packetData));

    calpulse_(packetData, &dataLength, &ERROR);
    
    calibCalPulse1->unpackError = ERROR;
    oss.str("");    
    if (ERROR != 0) {
        char *errmsg;
        switch (ERROR){
            case 1: errmsg = "CALORIMETER NOT FOUND";
        }
        oss << "Fortran77 function calpulse error code = " << ERROR
            <<  " " << errmsg;
        logger->warn(oss.str().c_str());
    } else {
      //Store the unpacked data
        calibCalPulse1->iev = calpul_.iev;
        memcpy(calibCalPulse1->pstwerr, calpul_.pstwerr, sizeof(calibCalPulse1->pstwerr));
        memcpy(calibCalPulse1->pperror, calpul_.pperror, sizeof(calibCalPulse1->pperror));
    //--------have to invert array because of FORTRAN <-> C different management of the indexes
        float tempCalpuls[96][11][4];
        memcpy(tempCalpuls, calpul_.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->calpuls[i][j][z]  = tempCalpuls[z][j][i];
                }
            }
        }
   //-----------------------------------------------------------------------------------------
    }
}

1	kusanagi	1.1
2			// Implementation of the CalibCalPulse1Reader class.
3
4
5			#define UINT unsigned int
6			#define BYTE unsigned char
7			#include <string>
8	kusanagi	1.4	#include <log4cxx/logger.h>
9	kusanagi	1.1	extern "C" {
10			#include "CRC.h"
11			//Struct per il passaggio di dati da e verso la chiamata fortran
12			extern struct {
13	kusanagi	2.1	int iev;
14			int pstwerr[4];
15			float pperror[4];
16			float calpuls[4][11][96];
17			} calpul_;
18	kusanagi	1.1
19			//external declaration of the Fortran function
20	kusanagi	2.1	void calpulse_(char, long int, int*);
21	kusanagi	1.1	}
22
23			#include <fstream>
24			#include "stdio.h"
25			#include "ReaderAlgorithms.h"
26
27			#include "event/CalibCalPulse1Event.h"
28
29			using namespace pamela;
30			using namespace pamela::techmodel;
31
32	kusanagi	1.4	static log4cxx::LoggerPtr logger = log4cxx::Logger::getLogger(_T("pamela.techmodel.CalibCalPulse1Reader"));
33	kusanagi	1.1
34			/**
35			* Constructor.
36			*/
37			CalibCalPulse1Reader::CalibCalPulse1Reader(void):
38			TechmodelAlgorithm(PacketType::CalibCalPulse1, "TechmodelCalibCalPulse1Reader") {
39	kusanagi	1.4	logger->debug(_T("Constructor"));
40	kusanagi	1.1	calibCalPulse1 = new CalibCalPulse1Event();
41			}
42
43			/**
44			* Get a string with the version info of the algorithm.
45			*/
46			std::string CalibCalPulse1Reader::GetVersionInfo(void) const {
47			return
48	kusanagi	3.0	"$Header: /home/cvsmanager/yoda/techmodel/CalibCalPulse1Reader.cpp,v 2.3 2005/02/09 22:20:48 kusanagi Exp $\n";
49	kusanagi	1.1	}
50
51			/**
52			* Initialize the algorithm with a special run. This will initialize the
53			* event reader routines for all packet types.
54			*/
55			void CalibCalPulse1Reader::Init(PamelaRun *run) {
56	kusanagi	1.4	logger->debug(_T("Initialize"));
57	kusanagi	1.1	SetInputStream(run);
58			run->WriteSubPacket(this, &calibCalPulse1, calibCalPulse1->Class());
59			}
60
61			/**
62			* Unpack the CalibCalPulse1 event from an input file.
63			*/
64	kusanagi	2.1	void CalibCalPulse1Reader::RunEvent(int EventNumber, long int dataLength) throw (Exception){
65	kusanagi	1.4	std::stringstream oss;
66	kusanagi	2.1	char packetData[dataLength];
67	kusanagi	1.1	int ERROR;
68			InputFile->read(packetData, sizeof(packetData));
69
70	kusanagi	2.1	calpulse_(packetData, &dataLength, &ERROR);
71	kusanagi	1.1
72	kusanagi	2.2	calibCalPulse1->unpackError = ERROR;
73	kusanagi	2.1	oss.str("");
74			if (ERROR != 0) {
75			char *errmsg;
76			switch (ERROR){
77			case 1: errmsg = "CALORIMETER NOT FOUND";
78			}
79			oss << "Fortran77 function calpulse error code = " << ERROR
80	kusanagi	2.3	<< " " << errmsg;
81	kusanagi	2.1	logger->warn(oss.str().c_str());
82			} else {
83			//Store the unpacked data
84			calibCalPulse1->iev = calpul_.iev;
85			memcpy(calibCalPulse1->pstwerr, calpul_.pstwerr, sizeof(calibCalPulse1->pstwerr));
86			memcpy(calibCalPulse1->pperror, calpul_.pperror, sizeof(calibCalPulse1->pperror));
87			//--------have to invert array because of FORTRAN <-> C different management of the indexes
88			float tempCalpuls[96][11][4];
89			memcpy(tempCalpuls, calpul_.calpuls, sizeof(tempCalpuls));
90			for (int i = 0; i < 4; i++){
91			for (int j = 0; j <11; j++){
92			for (int z = 0; z < 96; z++){
93			calibCalPulse1->calpuls[i][j][z] = tempCalpuls[z][j][i];
94	kusanagi	1.2	}
95	kusanagi	1.1	}
96			}
97	kusanagi	2.1	//-----------------------------------------------------------------------------------------
98	kusanagi	1.1	}
99			}
100