#!/usr/bin/perl

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

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

&make_input_data();

$com = "$prog -C $conf < $input_text";
#print "$com\n";
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 = foo.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 File = data/sentence4.data\n";

#	print OUT "set Text = ϲǤ\n";
#	print OUT "set Text = <SILENCE/>Ǥ\n";
#	print OUT "set Text = <SILENCE MSEC=\"2000\"/>Ǥ\n";

#	print OUT "set Speaker = female01\n";
#	print OUT "set Text = ϲǤ\n";
#	print OUT "set Speaker = male02\n";
#	print OUT "set Text = <VOICE OPTIONAL=\"female01\">ϲǤ</VOICE>\n";
#	print OUT "set Text = ϡ<VOICE OPTIONAL=\"female01\">ϲǤ</VOICE>ȸޤ\n";

#	print OUT "set Text = <VOICE ALPHA=\"0.3\">ϲǤ</VOICE>\n";
#	print OUT "set Text = <VOICE ALPHA=\"0.6\">ϲǤ</VOICE>\n";
#	print OUT "set Text = ϡ<VOICE OPTIONAL=\"female01\" ALPHA=\"0.6\">ϲǤ</VOICE>ȸޤ\n";

#	print OUT "set Text = <RATE SPEED=\"2.0\"></RATE>Ǥ\n";
#	print OUT "set Text = <VOLUME LEVEL=\"2.0\"></VOLUME>Ǥ\n";
#	print OUT "set Text = <PITCH LEVEL=\"1.5\"></PITCH>Ǥ\n";
#	print OUT "set Text = <PITCH RANGE=\"1.5\"></PITCH>Ǥ\n";

#	print OUT "set Text = <EMPH></EMPH>Ǥ\n";
#	print OUT "set Text = Ԥ<EMPH></EMPH>Ǥ\n";
#	print OUT "set Text = <EMPH>Ԥ褬</EMPH>ԤǤ\n";


#	print OUT "set Text = ǴؤŤǤ\n";
#	print OUT "set Text = Ǵؤ<PRON SYM=\"ߥʥߥǥ\"></PRON>Ǥ\n";
#	print OUT "set Text = GtalkǤ\n";
#	print OUT "set Text = <PRON SYM=\"ȡ\">Gtalk</PRON>Ǥ\n";

#	print OUT "set Text = SMARTȽ񤤤<SPELL>SMART</SPELL>ɤߤޤ\n";
#	print OUT "set Text = 123Ǥ\n";
#	print OUT "set Text = <SPELL>123</SPELL>Ǥ\n";

#	print OUT "set Text = <CONTEXT TYPE=\"NUMBER\">123</CONTEXT>Ǥ\n";
#	print OUT "set Text = <CONTEXT TYPE=\"DIGITS\">123</CONTEXT>Ǥ\n";

#	print OUT "set Text = <CONTEXT TYPE=\"DATE\">2003-8-22</CONTEXT>Ǥ\n";
#	print OUT "set Text = <CONTEXT TYPE=\"DATE\" DELIM=\"/\">2003/8/22</CONTEXT>Ǥ\n";
#	print OUT "set Text = <CONTEXT TYPE=\"DATE\">2003/8/22</CONTEXT>Ǥ\n";

#	print OUT "set Text = <CONTEXT TYPE=\"TIME\">12:34</CONTEXT>Ǥ\n";
#	print OUT "set Text = <CONTEXT TYPE=\"TIME\">12:34:56</CONTEXT>Ǥ\n";

#	print OUT "set Text = ֹ<CONTEXT TYPE=\"PHONE\">0120-123-4567</CONTEXT>Ǥ\n";


	print OUT "set Text = βϡꤹ뤳ȤˤꡢäԡɤѤꡢι⤵Ѥꡢ礭Ѥꤹ뤳ȤǤޤ\n";

	print OUT "set Speak = NOW\n";

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


