#$Id$
/fit frequency:/ {
  #print "freq: channel", $13, $16
  split($13, tmp, ":");
  freq[tmp[1]] = $16;
} 
/fit amplitude:/ {
  #print "amp: channel", $13, $16
  split($13, tmp, ":");
  amp[tmp[1]] = $16;
} 
/fit offset/ {
  #print "offs: channel", $13, $16
  split($13, tmp, ":");
  offset[tmp[1]] = $16;
}
END {
  print "F:", FILENAME;
  FILEIN = gensub(/0x[0-9A-Fa-f]+x[0-9A-Fa-f]+\.log/,"trd_X_n.xml", g, FILENAME);
  FILEOUT = gensub(/0x[0-9A-Fa-f]+x[0-9A-Fa-f]+\.log/,"trd_X_n_a.xml", g, FILENAME);
  print "Fi:", FILEIN;
  print "Fo:", FILEOUT;
  while ((getline aline < FILEIN) > 0)
  {
    where = match(aline, /<\/ADC>/);
    if (where != 0)
    {
      for (i in amp)
      {
        print "<DATACHANNEL" i ">">FILEOUT;
	print "  <freq>" freq[i] "</freq>">FILEOUT;
	print "  <amplitude>" amp[i] "</amplitude>">FILEOUT;
	print "  <offset>" offset[i] "</offset>">FILEOUT;
	print "</DATACHANNEL"i">">FILEOUT;
      }
    }
    print aline >FILEOUT;
  }
}