#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include <fcntl.h>
#include <unistd.h>

Include dependency graph for odbhist.cxx:

Go to the source code of this file.

Classes
struct	EVENT_HEADER

Macros
#define	SUCCESS 1

#define	TRUE 1

#define	FALSE 0

#define	EVENTID_BOR ((short int) 0x8000)

#define	EVENTID_EOR ((short int) 0x8001)

#define	EVENTID_MESSAGE ((short int) 0x8002)

Typedefs
typedef unsigned int	DWORD

typedef int	INT

typedef int	BOOL

typedef char	str[256]

Functions
BOOL	equal_ustring (char str1, char str2)

int	odb_hist (char file_name, int run_number, char var_name, int quiet, double *value, int eoln, int boln, int print)

int	load_pars_from_file (char filename[256])

int	extract (char mid_file, char odb_file)

int	main (int argc, char *argv[])

Variables
str	var_params [100]

DWORD	status

DWORD	start_run

DWORD	end_run

DWORD	run

INT	i

INT	quiet

INT	add

INT	j

INT	k

INT	eoln

INT	boln

char	file_name [256]

char	var_name [256]

char	mid_name [256]

double	total [100]

double	value [100]

Macro Definition Documentation

◆ EVENTID_BOR

#define EVENTID_BOR ((short int) 0x8000)

Begin-of-run

Definition at line 348 of file odbhist.cxx.

◆ EVENTID_EOR

#define EVENTID_EOR ((short int) 0x8001)

End-of-run

Definition at line 349 of file odbhist.cxx.

◆ EVENTID_MESSAGE

#define EVENTID_MESSAGE ((short int) 0x8002)

Message events

Definition at line 350 of file odbhist.cxx.

◆ FALSE

#define FALSE 0

Definition at line 28 of file odbhist.cxx.

◆ SUCCESS

#define SUCCESS 1

Definition at line 26 of file odbhist.cxx.

◆ TRUE

#define TRUE 1

Definition at line 27 of file odbhist.cxx.

Typedef Documentation

◆ BOOL

typedef int BOOL

Definition at line 32 of file odbhist.cxx.

◆ DWORD

typedef unsigned int DWORD

Definition at line 30 of file odbhist.cxx.

◆ INT

typedef int INT

Definition at line 31 of file odbhist.cxx.

◆ str

typedef char str[256]

Definition at line 33 of file odbhist.cxx.

Function Documentation

◆ equal_ustring()

BOOL equal_ustring	(	char *	str1,
		char *	str2
	)

Definition at line 46 of file odbhist.cxx.

{
   if (str1 == NULL && str2 != NULL)
      return FALSE;
   if (str1 != NULL && str2 == NULL)
      return FALSE;
   if (str1 == NULL && str2 == NULL)
      return TRUE;
 
   while (*str1)
      if (toupper(*str1++) != toupper(*str2++))
         return FALSE;
 
   if (*str2)
      return FALSE;
 
   return TRUE;
}

Here is the call graph for this function:

Here is the caller graph for this function:

◆ extract()

int extract	(	char *	mid_file,
		char *	odb_file
	)

Definition at line 352 of file odbhist.cxx.

{
   int fhm, fho, run_number;
   unsigned int n;
   EVENT_HEADER header;
   char *buffer, *p, odb_name[256];
 
   fhm = open(mid_file, O_RDONLY, 0644);
   if (fhm < 0) {
      printf("Cannot open file \"%s\"\n", mid_file);
      return 0;
   }
 
   if (strchr(odb_file, '%')) {
      p = mid_file;
      while (*p && !isdigit(*p))
         p++;
      run_number = atoi(p);
      snprintf(odb_name, sizeof(odb_name), odb_file, run_number);
   } else
      strcpy(odb_name, odb_file);
 
   fho = open(odb_name, O_WRONLY | O_CREAT | O_APPEND, 0644);
   if (fho < 0) {
      printf("Cannot open file \"%s\"\n", odb_name);
      return 0;
   }
 
   n = read(fhm, &header, sizeof(header));
   if (n != sizeof(header)) {
      printf("Cannot read event header from file \"%s\"\n", mid_file);
      return 0;
   }
 
   if (header.event_id != EVENTID_BOR) {
      printf("First event in \"%s\" is not a BOR event\n", mid_file);
      return 0;
   }
 
   buffer = (char*)malloc(header.data_size);
 
   n = read(fhm, buffer, header.data_size);
   if (n < header.data_size) {
      printf("Cannot read %d bytes from \"%s\"\n", header.data_size, mid_file);
      return 0;
   }
 
   n = write(fho, buffer, header.data_size);
   if (n < header.data_size) {
      printf("Cannot write %d bytes to \"%s\"\n", header.data_size, odb_name);
      return 0;
   }
 
   close(fhm);
   close(fho);
   free(buffer);
 
   printf("\"%s\" successfully created\n", odb_name);
   return 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

◆ load_pars_from_file()

int load_pars_from_file ( char filename[256] )

Definition at line 212 of file odbhist.cxx.

{
   FILE *f1;
   char line[256];
   int result;
   int getstr;
 
   getstr = 1;
 
   f1 = fopen(filename, "r");
   if (f1 != NULL) {
      result = 1;
      while (result != 0) {
         if (getstr) {
            if (fgets(line, sizeof(line), f1) == NULL)
               break;
         } else
            getstr = 1;
 
         if (line[0] == '[') {
            switch (line[1]) {
            case 'a':
               if (fgets(line, sizeof(line), f1) != NULL) {
                  switch (line[0]) {
                  case '1':
                     add = TRUE;
                     break;
                  case '0':
                     add = FALSE;
                     break;
                  default:
                     result = 0;
                  }
               } else
                  result = 0;
               break;
 
            case 'q':
               if (fgets(line, sizeof(line), f1) != NULL) {
                  switch (line[0]) {
                  case '1':
                     quiet = TRUE;
                     break;
                  case '0':
                     quiet = FALSE;
                     break;
                  default:
                     result = 0;
                  }
               } else
                  result = 0;
               break;
 
            case 'f':
               if ((fgets(line, sizeof(line), f1) != NULL) && (line[0] != '['))
                  strcpy(file_name, line);
               else
                  result = 0;
               break;
 
            case 'v':
               j = -1;
               while (fgets(line, sizeof(line), f1) != NULL && line[0] != '[') {
                  if (line[0] != '\n')
                     strcpy(var_params[++j], line);
               }
               if (j == -1)
                  result = 0;
               else
                  getstr = 0;
 
               /* to get correct number of variables in "j" global variable */
               if (line[0] != '[')
                  j--;
               break;
 
            case 'r':
               if ((fgets(line, sizeof(line), f1) != NULL) && (line[0] != '['))
                  start_run = atoi(line);
               else {
                  result = 0;
                  break;
               }
               if ((fgets(line, sizeof(line), f1) != NULL) && (line[0] != '['))
                  end_run = atoi(line);
               else {
                  result = 0;
                  break;
               }
 
               break;
 
            default:
               result = 0;
            }
         }
      }                         /* while */
   } /* if */
   else {
      result = 0;
      printf("\n ERROR:\nCan't open file %s\n", filename);
   }
   if (result != 0)
      if (fclose(f1))
         result = 0;
 
   return result;
}

Here is the call graph for this function:

Here is the caller graph for this function:

◆ main()

int main	(	int	argc,
		char *	argv[]
	)

Definition at line 430 of file odbhist.cxx.

{
   int cfg, print, n_files;
 
   strcpy(var_name, "/Runinfo/Run number");
   strcpy(file_name, "run%05d.odb");
   start_run = end_run = 0;
   quiet = FALSE;
   add = FALSE;
   print = 1;                   /* print = 1 means that variable will be printed */
 
   k = 0;
   cfg = 0;
   j = -1;
   n_files = 0;
   mid_name[0] = 0;
 
   /* parse command line parameters */
 
   for (i = 1; i < argc; i++) {
      if (argv[i][0] == '-')
         if (argv[i][1] == 'c') {
            printf("%s", argv[i + 1]);
            printf("\n");
            if (!(load_pars_from_file(argv[i + 1])))
               goto usage;
            else
               cfg = 1;
         }
   }
 
   if (argc <= 1)
      goto usage;
 
   for (i = 1; i < argc; i++) {
      if (argv[i][0] == '-') {
         if (argv[i][1] == 'q')
            quiet = TRUE;
         else if (argv[i][1] == 'a')
            add = TRUE;
         else {
            if (i + 1 >= argc || argv[i + 1][0] == '-')
               goto usage;
            if (argv[i][1] == 'r') {
               start_run = atoi(argv[++i]);
               end_run = atoi(argv[++i]);
            } else if (argv[i][1] == 'v') {
               j = -1;
               while (i + 1 < argc && argv[i + 1][0] != '-')
                  if (argv[i + 1][0] != '-') {
                     i++;
                     j++;
                     if (argv[i][0] != '-')
                        strcpy(var_params[j], argv[i]);
                  }
            } else if (argv[i][1] == 'f')
               strcpy(file_name, argv[++i]);
            else if (argv[i][1] == 'e')
               strcpy(mid_name, argv[++i]);
            else
               goto usage;
         }
      } else if (!cfg) {
 
       usage:
         printf("\nusage: odbhist -r <run1> <run2> -v <varname>[index]\n");
         printf("       [-f <filename>] [-q] [-a] [-c <file>] [-e <file>]\n");
         printf("       <run1> <run2>    Range of run numbers (inclusive)\n");
         printf
             ("       <varname>        ODB variable name like \"/Runinfo/Run number\"\n");
         printf("       [index]          Index if <varname> is an array\n");
         printf("       <filename>       run%%05d.odb by default\n");
         printf("       -e <file>        Extract ODB file from MID file\n");
         printf("       -q               Don't display run number\n");
         printf("       -a               Add numbers for all runs\n");
         printf("       -c               load configuration from file\n");
         printf("                        (parameters loaded from cfg file will be\n");
         printf("                        overwriten by parameters from command line)\n");
         return 0;
 
      }
   }
 
   if (mid_name[0]) {
      extract(mid_name, file_name);
      return 1;
   }
 
   if (end_run < start_run) {
      printf("Second run is %d and must be larger or equal than first run %d\n",
             end_run, start_run);
      return 0;
   }
 
   if (j == -1)
      goto usage;
 
   /* printing of header is needed here */
   for (run = start_run; run <= end_run; run++) {
      for (k = 0; k <= j; k++) {
         if (k == j)
            eoln = 1;
         else
            eoln = 0;
 
         if (k == 0)
            boln = 1;
         else
            boln = 0;
 
         strcpy(var_name, var_params[k]);
         value[k] = 0;
 
         status = odb_hist(file_name, run, var_name, quiet, &value[k], eoln, boln, print);
         if (status != SUCCESS)
            break;
 
         total[k] += value[k];
         n_files++;
      }                         /*for k */
   }                            /* for run */
 
   if (add) {
      printf("\nTotal: ");
      if (quiet)
         printf("\n");
      for (k = 0; k <= j; k++)
         printf("%lf\t", total[k]);
      printf("\n");
   }
 
   if (n_files == 0) {
      printf("No files found in selected range\n");
   }
 
   return 1;
}

Here is the call graph for this function:

◆ odb_hist()

int odb_hist	(	char *	file_name,
		int	run_number,
		char *	var_name,
		int	quiet,
		double *	value,
		int	eoln,
		int	boln,
		int	print
	)

Definition at line 67 of file odbhist.cxx.

{
   FILE *f;
   char str[256], path[256], key_name[256], line[256];
   int i, index, a, k;
 
   /* assemble file name */
   snprintf(str, sizeof(str), file_name, run_number);
 
   /* split var_name into path and key with index */
   strcpy(path, "");
   for (i = strlen(var_name) - 1; i >= 0 && var_name[i] != '/'; i--);
   if (var_name[i] == '/') {
      strcpy(path, "[");
      strcat(path, var_name);
      path[i + 1] = 0;
      strcat(path, "]\n");
      strcpy(key_name, var_name + i + 1);
   }
   if (strchr(key_name, '[')) {
      index = atoi(strchr(key_name, '[') + 1);
      *strchr(key_name, '[') = 0;
   } else
      index = -1;
 
   f = fopen(str, "r");
   if (f == NULL)
      return 0;
 
   if ((!quiet) && boln && print)
      printf("%5d: ", run_number);
 
   /* search path */
   do {
      char* s;
      s = fgets(line, sizeof(line), f);
      if (s == NULL)
         break;
      if (line[0] == '[')
         if (equal_ustring(line, path)) {
            /* look for key */
            do {
               s = fgets(line, sizeof(line), f);
               if (s == NULL)
                  break;
               if (strchr(line, '=') != NULL) {
                  strcpy(str, line);
                  *(strchr(str, '=') - 1) = 0;
 
                  /* check if key name matches */
                  if (equal_ustring(str, key_name)) {
                     if (index == -1) {
                        /* non-arrays */
                        strcpy(str, strchr(line, '=') + 2);
                        if (strchr(str, ':') != NULL) {
                           strcpy(str, strchr(str, ':') + 2);
                           if (strchr(str, '\n') != NULL)
                              *strchr(str, '\n') = 0;
                           if (str[0] == '[' && strchr(str, ']') != NULL)
                              strcpy(str, strchr(str, ']') + 2);
                           if (print)
                              printf("%s", str);
                           *value = strtod(str, NULL);
                           goto finish;
                        }
                     } else {
                        /* arrays */
                        for (i = 0; i <= index; i++) {
                           s = fgets(line, sizeof(line), f);
                           if (s == NULL)
                              break;
                        }
                        if (line[0] == '[' && atoi(line + 1) == index) {
                           strcpy(str, strchr(line, ']') + 2);
                           if (strchr(str, '\n') != NULL)
                              *strchr(str, '\n') = 0;
                           if (print)
                              printf("%s", str);
                           *value = strtod(str, NULL);
                        }
                        goto finish;
                     }
 
                  }
               }
 
            } while (line[0] != '[' || line[1] != '/');
 
         }
   } while (!feof(f));
 
 finish:
   if (print) {
      if (eoln)
         printf("\n");
      else {
         a = 0;
         while (str[a] != '\0')
            a++;
         k = a;
         while ((str[k] != '.') && (k >= 0))
            k--;
         for (i = 0; i < (10 - (a - k)); i++)
            printf(" ");
         printf("\t");
      }
      fclose(f);
   }
 
   return SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ add

INT add

Definition at line 40 of file odbhist.cxx.

◆ boln

INT boln

Definition at line 40 of file odbhist.cxx.

◆ end_run

DWORD end_run

Definition at line 39 of file odbhist.cxx.

◆ eoln

INT eoln

Definition at line 40 of file odbhist.cxx.

◆ file_name

char file_name[256]

Definition at line 41 of file odbhist.cxx.

◆ i

INT i

Definition at line 40 of file odbhist.cxx.

◆ j

INT j

Definition at line 40 of file odbhist.cxx.

◆ k

INT k

Definition at line 40 of file odbhist.cxx.

◆ mid_name

char mid_name[256]

Definition at line 41 of file odbhist.cxx.

◆ quiet

INT quiet

Definition at line 40 of file odbhist.cxx.

◆ run

DWORD run

Definition at line 39 of file odbhist.cxx.

◆ start_run

DWORD start_run

Definition at line 39 of file odbhist.cxx.

◆ status

DWORD status

Definition at line 39 of file odbhist.cxx.

◆ total

double total[100]

Definition at line 42 of file odbhist.cxx.

◆ value

double value[100]

Definition at line 42 of file odbhist.cxx.

◆ var_name

char var_name[256]

Definition at line 41 of file odbhist.cxx.

◆ var_params

str var_params[100]

Definition at line 37 of file odbhist.cxx.

Classes

Macros

Typedefs

Functions

Variables

Macro Definition Documentation

◆ EVENTID_BOR

◆ EVENTID_EOR

◆ EVENTID_MESSAGE

◆ FALSE

◆ SUCCESS

◆ TRUE

Typedef Documentation

◆ BOOL

◆ DWORD

◆ INT

◆ str

Function Documentation

◆ equal_ustring()

◆ extract()

◆ load_pars_from_file()

◆ main()

◆ odb_hist()

Variable Documentation

◆ add

◆ boln

◆ end_run

◆ eoln

◆ file_name

◆ i

◆ j

◆ k

◆ mid_name

◆ quiet

◆ run

◆ start_run

◆ status

◆ total

◆ value

◆ var_name

◆ var_params