#!/bin/awk -f

BEGIN {
  start = 0;
}

/[do_production_exe]/ {
  if (start == 0) {
    start = 1 ;
    nevents_defined      = 1;
    n_output_files       = 0;
    n_severe_errors      = 0;
    crash_record_defined = 0;
    cpu_total            = "0.0";
    clk_total            = "0.0";
    split($NF,a,"@");
    node_name            = a[2];
  }
}

#-----------------------------------------------------------------------
#  define name of the input file
#-----------------------------------------------------------------------
/Opened input file:/ {
  input_file = substr($5,3,17);
#  printf "input file = %s\n", input_file ;
}

/%ERLOG-s/ {
  n_severe_errors = n_severe_errors+1;
}

/During Event Processing/ {
  nevents_defined = 0;
}

/BMU_DtoEModule/ {
  if (nevents_defined == 0) {
    nevents_defined = 1;
    nevents     = $2;
  }
}

/Mean Cpu total/ {
  if (cpu_total_defined == 0) {
    cpu_total_defined = 1;
    len=length($5);
    cpu_total         = substr($5,1,len-1);
    clk_total         = $10;
  }
}

/Closing output file/ {
  fn[n_output_files] = substr($5,3,17);
}

/records, with a total size of/ {
  n_written_records[n_output_files] = $3;
}

/of those records were phyics events/ {
  n_written_events[n_output_files] = $2;
}

/average size/ {
  average_size[n_output_files] = $6;
  n_output_files = n_output_files+1;
}

/crashRecord/ {
  if (crash_record_analysed == 0) {
    crash_record_analysed = 1;
    n_crashes=split($0,a,"|")-1;
    for (i=0; i<n_crashes; i++) {
      split(a[i+2],b,",");
      crash_run  [i] = b[1];
      crash_event[i] = b[2];
    }
#    print $0;
    
  } 
}

END {
  printf "%17s %5i %5i %s %5i %s %s %2i\n", 
    input_file, nevents, n_severe_errors, node_name, n_crashes, 
    cpu_total, clk_total, n_output_files;

  for (i=0; i<n_output_files; i++) {
    printf "      %17s %5i %5i %5i\n", fn[i], n_written_records[i], n_written_events[i], average_size[i];
  }

  for (i=0; i<n_crashes; i++) { printf "                  %8i %8i\n", crash_run[i], crash_event[i]; }
}