#!/usr/local/bin/perl
#
# phn2lola
#
#   converts timit phn files to 3 ms frame lola files
#

if( $#ARGV >= 0 ) {
	open( PHNIN, "$ARGV[0]" ) || die "could not open $ARGV[0]";
	open( STDIN, "<&PHNIN" );
}

if( $#ARGV == 1 ) {
	open( LOLAOUT, ">$ARGV[1]" ) || die "could not open $ARGV[1]";
	open( STDOUT, ">&LOLAOUT" );
}

#
# Print out header
#
print STDOUT "MillisecondsPerFrame: 3.0\n";
print STDOUT "END OF HEADER\n";

while( $_ = <STDIN> ) {

	chop;
	@tmp = split;

	$tmp[0] = int( $tmp[0] / 48 );
	$tmp[1] = int( $tmp[1] / 48 );

	print STDOUT "$tmp[0] $tmp[1] $tmp[2]\n";

}

if( $#ARGV >= 0 ) {
	close( PHNIN );
}

if( $#ARGV == 1 ) {
	close( LOLAOUT );
}

exit( 0 );
