#!/usr/bin/perl
use locale;

# praat2ag.pl
# (c) Lauri Carlson 2000

# GRID PROLOG

print '<?xml version="1.0"?>
<!DOCTYPE AGSet SYSTEM "ag.dtd">
<AGSet id="G0">
  <Metadata>
    <MetadataElement name="TextGrid"<![CDATA[
';

while(<>) { 

    print;
    last if (/item \[\]/);
}

print "\
    ]]></MetadataElement>\
    </Metadata>\
\
    <Timeline T1=\"id\">\
      <Signal id=\"S1\" mimeClass=\"audio\" mimeType=\"wav\" encoding=\"wav\"
        unit=\"s\" xlink:href=$ARGV.wav\"/>\
    </Timeline>\
";

$_ = <>;

LOOP: { # TIERS

if (/item \[([0-9]+)\]/){ $item = $1;  print "\
  <AG id=\"I$item\">\
    <Metadata>\
      <MetadataElement name=\"TextGrid\"<![CDATA[\
";
			  print;
					      };

while(<>) { # TIER PROLOG

       print;

   	if (/intervals:/) {

      print '      ]]></MetadataElement>
    </Metadata>
'; last;
}
   }

while(<>) { # ITEMS

    SWITCH: for ($_) {
                       /xmin = ([0-9.]+)/        && do { $start = $1; last; };
                       /xmax = ([0-9.]+)/        && do { $end = $1; last; };
                       /text = (.*)/             && do { $text = $1; 
print "\
    <Anchor id=\"A$start\" signals=\"S1\" offset=\"$start\" unit=\"s\"/>
    <Annotation type=\"interval\" start=\"A$start\" end=\"A$end\"><Feature name=\"text\">$text</Feature></Annotation>\
";
last; };
                   }
    if (/item/) {  print '</AG>'; goto LOOP; } 
	 }
    }
print '  </AG>
</AGSet>
';