#! /usr/bin/gawk -f 
# Last edited on 1998-07-09 15:40:21 by stolfi

# Filter that converts ".evt" format to something more readable:

BEGIN{para = 1;}

/^[#]/{
  para = 0;
  print; 
  next;
}

/^ *$/{
  if (! para) { print ""; }
  para = 1;
  next;  
}

/./{
  lin = $0; loc = "";
  if (match(lin, /^<f[^ >]*> */))
    { loc = substr(lin, RSTART, RLENGTH); 
      lin = substr(lin, RLENGTH+1);
    }
  gsub(/[-.,]/, " ", lin);
  gsub(/{[^{}]*}/, "", lin);
  gsub(/[*?]/, "*", lin);
  gsub(/[!%]/, "", lin);
  gsub(/[ ][ ][ ]*/, " ", lin);
  gsub(/[ ][ ]*$/, "", lin);
  gsub(/^[ ][ ]*/, "", lin);
  if (lin == "") 
    { # handle like blank line, ignoring location:
      if (! para) { print ""; } 
      para = 1; next; 
    }
  else 
    { 
      para = 0;
      if (match(lin, /[=]/)) 
        { gsub(/=/, "\n", lin); para = 1; }
      printf "%s%s\n", loc, lin
    }
}