Speech synthesis: Difference between revisions

Programming note:   This REXX program uses a freeware program   NIRCMD   to interface with the Microsoft Windows speech synthesizer program   '''SAM''',   a text to speech using a male voice.   SamSAM can possibly be configured to use other voices with later releases of Windows.   More recent Microsoft Windows have another speech synthesizer program:   ANNA.

<lang rexx>/*REXX pgmprogram uses a CLIC.L. cmdcommand to invoke Windows/XP SAM for speech synthesis.*/

parse arg t; t=space(t) /*get the (optional) text from CLthe C.L.*/

if t=='' then exit signal done /*Nothing to say? Then exit pgmprogram.*/

tmp homedrive=value('TEMPHOMEDRIVE',,'SYSTEM') /*get " HOMEDRIVE location TEMPof directory name.\TEMP */

if tmphomedrive=='' then tmphomedrive=homedrive'\TEMPC:' /*use " " " " "the default if none was found. */

if tmp=='' then tmp=homedrive'\TEMP' /* " " " " " " " /*code could be added here to get*/

/*acode uniquecould namebe foradded thehere TEMPto get a file···*/

tFN='SPEAK_IT'; tFT='$$$' /*use this··· unique name for the TEMP's fileID file.*/

tFIDtFN=homedrive||'\TEMP\SPEAK_IT'; || tFN"."tFT='$$$' /*createuse tempthis name for the output TEMP's fileID.*/

call lineout tFID ,t /*closewrite thetext file──► justtemporary tooutput be neatfile.*/

'NIRCMD'call lineout tFID "speak file" tFID /*NIRCMD invokesclose the MSoutput file just to Sambe voiceneat*/

'ERASENIRCMD' tfid "speak file" tFID /*cleanNIRCMD up (delete)invokes theMicrosoft's TEMPSam filevoice*/

'ERASE' tFID /*clean up (delete) the TEMP /*stick a fork in it, we're donefile.*/</lang>

<pre>speak This is an example of speech synthesis.