Speech synthesis: Difference between revisions

{{trans|Nim}}

 

 

=={{header|AmigaBASIC}}==

 

 

=={{header|AppleScript}}==

Probably the only language where output to console is harder than output to a sound device.

say "This is an example of speech synthesis"

 

=={{header|AutoHotkey}}==

{{works with|AutoHotkey_L}}

 

 

=={{header|AutoIt}}==

 

 

=={{header|BASIC256}}==

 

 

=={{header|Batch File}}==

Sorry for cheating. This is Batch/JScript hybrid.

::Batch File section

@echo off

//The JScript section

var objVoice = new ActiveXObject("SAPI.SpVoice");

{{Out}}

Saved as SPEAK.BAT

{{works with|BBC BASIC for Windows}}

This calls the SAPI5 API directly, it does not need an external program.

ON ERROR SYS `CoUninitialize` : PRINT 'REPORT$ : END

ON CLOSE SYS `CoUninitialize` : QUIT

DEF PROC_voice_free(V%)

SYS !(!V%+8), V%

 

=={{header|C}}==

 

{{libheader|POSIX}}

#include <stdio.h>

#include <stdlib.h>

talk("This is an example of speech synthesis.");

return 0;

 

=={{header|C sharp|C#}}==

You need to 'Add Reference' to the COM "Microsoft Speech Object Library" in your Preferences.

 

namespace Speaking_Computer

}

}

 

=={{header|Clojure}}==

{{libheader|facts/speech-synthesis}}

 

 

 

We are going to invoke vbscript directly

 

Sub speak(texto As String)

speak "Vamos a contar " + str(123456)

speak "This is an example of speech synthesis."

 

 

=={{header|GlovePIE}}==

var.number=1

say("This is an example of speech synthesis.")

 

=={{header|Go}}==

Here's a library solution, but using a library written from scratch in Go.

 

import (

synthesized := gospeech.DefaultVoice.Synthesize(phonetics)

wav.WriteFile(synthesized, "output.wav")

 

=={{header|Groovy}}==

Mac only:

 

=={{header|Haskell}}==

import System.Process (callProcess) -- From “process” library

 

 

main = say "This is an example of speech synthesis."

 

=={{header|JavaScript}}==

This should work in most major browsers

{{works with|Javascript}}

var utterance = new SpeechSynthesisUtterance("This is an example of speech synthesis.");

window.speechSynthesis.speak(utterance);

 

Windows only:

{{works with|JScript}}

 

=={{header|Julia}}==

It seems that this and similar tasks can reduce to how the language can call an external program. Using the Julia REPL:

julia> a = "hello world"

"hello world"

 

julia> run(`espeak $a`)

 

=={{header|Kotlin}}==

Whilst it is often possible to wrap such macros in 'ordinary' C functions and then expose the latter to Kotlin via a .klib, it is not worth the effort here. I have therefore confined myself to simply reporting a non-zero error status.

 

 

import kotlinx.cinterop.*

fun main(args: Array<String>) {

talk("This is an example of speech synthesis.")

 

=={{header|Liberty BASIC}}==

Assumes that 'espeak' is available at the path shown.

nomainwin

run "C:\Program Files\eSpeak\command_line\espeak "; chr$( 34); "This is an example of speech synthesis."; chr$( 34)

end

Another dll has been posted to do the same job, at [http://basic.wikispaces.com/SpeechLibrary LB Community Wiki]

 

Both hardware and software-only speech synthesizers exist for the CPC. A software-only solution, [http://www.cpc-power.com/index.php?page=detail&num=4372 Speech 1.1] by Superior Software (1986), supplies three BASIC extension commands (RSXes), "|say", "|speak", and "|pitch":

 

 

=={{header|M2000 Interpreter}}==

 

===Using Statement Speech===

Module UsingStatementSpeech {

Volume 100

}

UsingStatementSpeech

===Print each word as speak===

Module UsingEvents {

Declare WithEvents sp "SAPI.SpVoice"

}

UsingEvents

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

 

=={{header|Nim}}==

Using same method as Julia.

 

 

=={{header|PARI/GP}}==

 

Define a function that is using espeak package from Linux.

 

Now let it speak:

 

A monster speech tongue-twister:

 

A foreign language "Zungenbrecher":

 

=={{header|Perl}}==

 

 

($engine) = Speech::Synthesis->InstalledEngines();

Speech::Synthesis

->new(engine => $engine, voice => $voice->{id})

 

=={{header|Phix}}==

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Speak.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Speak.exw

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

Note that speech synthesis has refused to operate in a browser without user activation since 2018, hence the tiny GUI with a button.<br>

Should you for some strange reason want it on desktop/Phix without any GUI, you'd need to arrange for COM initialisation etc yourself.

 

{{works with|Mac OS & Linux OS}}

<?php

<?php

// Save it to a File

exec("$voice '$statement' $save_file_args");

 

 

{{works with|Windows OS}}

<?php

 

// Have $voice (Zira) announce file stream completion

$voice->Speak('File stream complete');

 

=={{header|PicoLisp}}==

 

=={{header|PowerShell}}==

Add-Type -AssemblyName System.Speech

 

$anna.Speak("I'm sorry Dave, I'm afraid I can't do that.")

$anna.Dispose()

 

=={{header|Python}}==

import pyttsx

 

engine.say("It was all a dream.")

engine.runAndWait()

 

=={{header|Racket}}==

Should work on all platforms.

#lang racket

(require racket/lazy-require)

[else (error 'speak "I'm speechless!")]))

(speak "This is an example of speech synthesis.")

 

=={{header|Raku}}==

(formerly Perl 6)

 

=={{header|REXX}}==

{{works with|Windowx/XP or later}}

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

parse arg t /*get the (optional) text from the C.L.*/

if t='' then exit /*Nothing to say? Then exit program.*/

/* [↓] where the rubber meets the road*/

'NIRCMD' "speak text" dquote t dquote rate /*NIRCMD invokes Microsoft's Sam voice*/

Note: &nbsp; The name of the above REXX program is &nbsp; '''speak.rex'''<br>

'''usage''' &nbsp; using the command:

 

=={{header|Ring}}==

 

load "guilib.ring"

}

 

 

{{out}}

 

=={{header|Ring}}==

load "guilib.ring"

load "stdlib.ring"

Func pClose

MyApp.quit()

{{out}}

<pre>

=={{header|Ruby}}==

Using this module to encapsulate operating system lookup

require 'rbconfig'

module_function

def windows?; operating_system == :windows; end

def mac?; operating_system == :mac; end

 

{{libheader|win32-utils}}

{{works with|Ruby|1.9}}

Uses <code>espeak</code> on Linux, <code>say</code> on Mac, and the win32 SAPI library on Windows.

 

def speak(text)

end

 

 

=={{header|Scala}}==

{{libheader|FreeTTS|1.2}}

import javax.speech.synthesis.{Synthesizer, SynthesizerModeDesc}

 

|with its lapping disasters

|is feared and hearkened.""".stripMargin)

 

=={{header|Sidef}}==

Sys.run("espeak -v #{lang} -w /dev/stdout #{text.escape} | aplay");

}

 

=={{header|Swift}}==

OS X comes with a program called "say," that does speech.

 

let task = NSTask()

task.launchPath = "/usr/bin/say"

task.arguments = ["This is an example of speech synthesis."]

 

=={{header|Tcl}}==

This just passes the string into the Festival system:

Alternatively, on MacOS X, you'd use the system <code>say</code> program:

On Windows, there is a service available by COM for speech synthesis:

{{libheader|tcom}}

 

set msg "This is an example of speech synthesis."

set voice [::tcom::ref createobject Sapi.SpVoice]

Putting these together into a helper procedure, we get:

global tcl_platform

if {$tcl_platform(platform) eq "windows"} {

}

}

 

=={{header|UNIX Shell}}==

 

{{works with|Bourne Shell}} {{works with|bash}}

 

=={{header|VBScript}}==

Dim message, sapi

message = "This is an example of speech synthesis."

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak message

 

=={{header|Wren}}==

The ability to call external processes such as ''espeak'' is expected to be added to Wren-cli in the next release. In the meantime, we embed the following Wren script in a minimal C host (no error checking) to complete this task.

 

class C {

System.write("Enter something to say (up to 100 characters) : ")

var s = C.getInput(100)

<br>

We now embed this in the following C program, compile and run it.

#include <stdio_ext.h>

#include <stdlib.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

wrenInterpret(vm, module, script);

free(script);

return 0;

 

=={{header|Zoomscript}}==

For typing:

For importing:

 

This example makes use of the Currah Speech Synthesizer peripheral device.

 

{{omit from|TI-83 BASIC}}

{{omit from|Maxima}}