/********************************************************************\

Name: analyzer.c

Created by: Stefan Ritt

Contents: System part of Analyzer code for sample experiment

$Id: analyzer.c 4732 2010-06-02 09:41:08Z ritt $

modified by Joe Nash for MSCB

\********************************************************************/

/* standard includes */

#include <stdio.h>

#include <string.h>

#include <time.h>

/* midas includes */

#include "midas.h"

#include "experim.h"

#include "analyzer.h"

/* my includes */

#include "TEnvi.h"

/* cernlib includes */

#ifdef OS_WINNT

#define VISUAL_CPLUSPLUS

#endif

#ifdef __linux__

#define f2cFortran

#endif

#ifdef HAVE_HBOOK

#include <cfortran.h>

#include <hbook.h>

PAWC_DEFINE(1000000);

#endif /* HAVE_HBOOK */

/*-- Globals -------------------------------------------------------*/

/* The analyzer name (client name) as seen by other MIDAS clients */

char *analyzer_name = "Analyzer";

/* analyzer_loop is called with this interval in ms (0 to disable) */

INT analyzer_loop_period = 0;

/* default ODB size */

INT odb_size = DEFAULT_ODB_SIZE;

/* Global repository for data produced by modules to be used by downstream modules */

TEnvi* gData;

/* ODB structures */

RUNINFO runinfo;

GLOBAL_PARAM global_param;

EXP_PARAM exp_param;

TRIGGER_SETTINGS trigger_settings;

/*-- Module declarations -------------------------------------------*/

extern ANA_MODULE envi_module;

ANA_MODULE *periodic_module[] = {

&envi_module,

NULL

};

/*-- Bank definitions ----------------------------------------------*/

ASUM_BANK_STR(asum_bank_str);

BANK_LIST ana_mscb_bank_list[] = {

/* online banks */

{"INPT", TID_FLOAT, N_TEMP, NULL},

/* calculated banks */

{"TEMP", TID_FLOAT, N_TEMP, NULL},

{""},

};

/*-- Event request list --------------------------------------------*/

ANALYZE_REQUEST analyze_request[] = {

{"Analyzer", /* equipment name */

{11, /* event ID */

TRIGGER_ALL, /* trigger mask */

GET_ALL, /* get all events */

"SYSTEM", /* event buffer */

TRUE, /* enabled */

"", "",}

,

NULL, /* analyzer routine */

periodic_module, /* module list */

ana_mscb_bank_list, /* bank list */

100, /* RWNT buffer size */

}

,

{""}

,

};

/*-- Analyzer Init -------------------------------------------------*/

INT analyzer_init()

{

HNDLE hDB, hKey;

char str[80];

RUNINFO_STR(runinfo_str);

EXP_PARAM_STR(exp_param_str);

GLOBAL_PARAM_STR(global_param_str);

TRIGGER_SETTINGS_STR(trigger_settings_str);

/* open ODB structures */

cm_get_experiment_database(&hDB, NULL);

db_create_record(hDB, 0, "/Runinfo", strcomb((const char **)runinfo_str));

db_find_key(hDB, 0, "/Runinfo", &hKey);

if (db_open_record(hDB, hKey, &runinfo, sizeof(runinfo), MODE_READ, NULL, NULL) !=

DB_SUCCESS) {

cm_msg(MERROR, "analyzer_init", "Cannot open \"/Runinfo\" tree in ODB");

return 0;

}

db_create_record(hDB, 0, "/Experiment/Run Parameters", strcomb((const char **)exp_param_str));

db_find_key(hDB, 0, "/Experiment/Run Parameters", &hKey);

if (db_open_record(hDB, hKey, &exp_param, sizeof(exp_param), MODE_READ, NULL, NULL) !=

DB_SUCCESS) {

cm_msg(MERROR, "analyzer_init",

"Cannot open \"/Experiment/Run Parameters\" tree in ODB");

return 0;

}

sprintf(str, "/%s/Parameters/Global", analyzer_name);

db_create_record(hDB, 0, str, strcomb((const char **)global_param_str));

db_find_key(hDB, 0, str, &hKey);

if (db_open_record

(hDB, hKey, &global_param, sizeof(global_param), MODE_READ, NULL,

NULL) != DB_SUCCESS) {

cm_msg(MERROR, "analyzer_init", "Cannot open \"%s\" tree in ODB", str);

return 0;

}

db_create_record(hDB, 0, "/Equipment/Trigger/Settings", strcomb((const char **)trigger_settings_str));

db_find_key(hDB, 0, "/Equipment/Trigger/Settings", &hKey);

if (db_open_record

(hDB, hKey, &trigger_settings, sizeof(trigger_settings), MODE_READ, NULL,

NULL) != DB_SUCCESS) {

cm_msg(MERROR, "analyzer_init",

"Cannot open \"/Equipment/Trigger/Settings\" tree in ODB");

return 0;

}

//Initialize gData

gData = new TEnvi();

return SUCCESS;

}

/*-- Analyzer Exit -------------------------------------------------*/

INT analyzer_exit()

{

return CM_SUCCESS;

}

/*-- Begin of Run --------------------------------------------------*/

INT ana_begin_of_run(INT run_number, char *error)

{

return CM_SUCCESS;

}

/*-- End of Run ----------------------------------------------------*/

INT ana_end_of_run(INT run_number, char *error)

{

FILE *f;

time_t now;

char str[256];

int size;

double n;

HNDLE hDB;

BOOL flag;

cm_get_experiment_database(&hDB, NULL);

/* update run log if run was written and running online */

size = sizeof(flag);

db_get_value(hDB, 0, "/Logger/Write data", &flag, &size, TID_BOOL, TRUE);

if (flag && runinfo.online_mode == 1) {

/* update run log */

size = sizeof(str);

str[0] = 0;

db_get_value(hDB, 0, "/Logger/Data Dir", str, &size, TID_STRING, TRUE);

if (str[0] != 0)

if (str[strlen(str) - 1] != DIR_SEPARATOR)

strcat(str, DIR_SEPARATOR_STR);

strcat(str, "runlog.txt");

f = fopen(str, "a");

time(&now);

strcpy(str, ctime(&now));

str[10] = 0;

fprintf(f, "%s\t%3d\t", str, runinfo.run_number);

strcpy(str, runinfo.start_time);

str[19] = 0;

fprintf(f, "%s\t", str + 11);

strcpy(str, ctime(&now));

str[19] = 0;

fprintf(f, "%s\t", str + 11);

size = sizeof(n);

db_get_value(hDB, 0, "/Equipment/Trigger/Statistics/Events sent", &n, &size,

TID_DOUBLE, TRUE);

fprintf(f, "%5.1lfk\t", n / 1000);

fprintf(f, "%s\n", exp_param.comment);

fclose(f);

}

return CM_SUCCESS;

}

/*-- Pause Run -----------------------------------------------------*/

INT ana_pause_run(INT run_number, char *error)

{

return CM_SUCCESS;

}

/*-- Resume Run ----------------------------------------------------*/

INT ana_resume_run(INT run_number, char *error)

{

return CM_SUCCESS;

}

/*-- Analyzer Loop -------------------------------------------------*/

INT analyzer_loop()

{

return CM_SUCCESS;

}

/*------------------------------------------------------------------*/