[Voiceglue] Using text2wave from Festival as tts

[Carlos Alarcón]

Hi,
I has just joint into voiceglue users recently, and I was  needed it to 
work with text2wave from Festival TTS, so I did some modifications to 
/usr/bin/voiceglue_tts_gen, it is my final version:

   #!/usr/bin/perl --       -*-CPerl-*-
   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
   $file = $::ARGV[$#ARGV];
   open LOGGER, ">>", "/var/log/voiceglue/tts.log";
   print LOGGER $mday, "-", $mon+1, "-", $year+1900, " - ", $hour, ":",
   $min, ":", $sec, "-------> ", @::ARGV;
   print LOGGER "\n", $mday, "-", $mon+1, "-", $year+1900, " - ",
   $hour, ":", $min, ":", $sec, "-------> /usr/bin/text2wave ","-F 8000
   -o ", $file ," /tmp/tts.txt\n" ;
   close LOGGER;
   open SALIDA, ">", "/tmp/tts.txt";
   print SALIDA $::ARGV[1];
   close SALIDA;
   #print ("/usr/bin/text2wave","-F 8000 -otype ulaw -o", $file
   ,"/tmp/tts.txt");
   system ("/usr/bin/text2wave","-F 8000 -o", $file ,"/tmp/tts.txt ");

My knowledge of perl is almost none, so I guess there will be lots of 
different and better ways of doing it. I didn't know if there was any 
previous way, I didn't find it so far.
Just wanted to keep it avaliable in case it could be usefull to the 
other people.

Regards.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: carlos_alarcon.vcf
Type: text/x-vcard
Size: 267 bytes
Desc: not available
Url : http://www.voiceglue.org/pipermail/voiceglue/attachments/20090115/fad338e9/attachment.vcf