odbhist.cxx File Reference

#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 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 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 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.