#!/usr/bin/perl

$input_text = "/tmp/gtalk$$.input";

$prog = "./gtalk";
$conf = "./ssm.conf";

&make_input_data();

$com = "$prog -C $conf < $input_text";
system( $com );
unlink( $input_text );
exit;


sub make_input_data {
	open( OUT, "> $input_text" ) || die "Can't open ... $input_text";
	select( OUT );

	print OUT "prop Text.text = NoAutoOutput\n";
	print OUT "prop Text.pho = NoAutoOutput\n";
	print OUT "prop Text.dur = NoAutoOutput\n";
	print OUT "set Log = CONSOLE\n";
#	print OUT "set Log = ssm.log\n";
#	print OUT "set Log.conf = YES\n";
#	print OUT "set Log.text = YES\n";
#	print OUT "set Log.arrangedText = YES\n";
#	print OUT "set Log.chasen = YES\n";
#	print OUT "set Log.tag = YES\n";
#	print OUT "set Log.phoneme = YES\n";
#	print OUT "set Log.mora = YES\n";
#	print OUT "set Log.morph = YES\n";
#	print OUT "set Log.aphrase = YES\n";
#	print OUT "set Log.breath = YES\n";
#	print OUT "set Log.sentence = YES\n";

#	print OUT "set Text = βϡꤹ뤳ȤˤꡢäԡɤѤꡢι⤵Ѥꡢ礭Ѥꤹ뤳ȤǤޤ\n";
	print OUT "set Text = ʤϡ֤Ϥפȸޤ\n";
	print OUT "set Speak = NOW\n";

	print OUT "set Run = EXIT\n";
	close( OUT );
}


