1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/*$Id: tcleci.cpp,v 1.8 1999/11/21 21:53:31 raman Exp $*/
/* Tcl ViaVoiceOutloud Interface program
(c) Copyright 1999 by Paige Phault
The author hereby grants permission to use, copy, modify, distribute, and
license this software for any purpose, provided that existing copyright notices
are retained in all copies and that this notice is included verbatim in any
distributions. No written agreement, license, or royalty fee is required for
any of the authorized uses. Modifications to this software may be copyrighted
by their authors and need not follow the licensing terms described here,
provided that the new terms are clearly indicated on the first page of each
file where they apply.
IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR
DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF,
EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING,
BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN
"AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE
MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
*/
/* TCL usage
package require tts
proc index x {
puts "I just played index $x"
}
synth "Hello world"
synth -index 0 "This is some" -index 1 "really wierd"
say -index 2 "text"
say -reset
The only difference bewtween say and synth is that synth calls
eciSynthesize and say doesn't. You can put as many text blocks as
you like after a command.
*/
#include <eci.h>
#include <tcl.h>
#define PACKAGENAME "tts"
#define PACKAGEVERSION "1.0"
#ifdef WIN32
#define EXPORT __declspec(dllexport)
#else
#define EXPORT
#endif
extern "C" EXPORT int Tcleci_Init(Tcl_Interp *interp);
int Say(ClientData, Tcl_Interp *, int, Tcl_Obj * CONST []);
int Stop(ClientData, Tcl_Interp *, int, Tcl_Obj * CONST []);
int Pause(ClientData, Tcl_Interp *, int, Tcl_Obj * CONST []);
int Resume(ClientData, Tcl_Interp *, int, Tcl_Obj * CONST []);
ECICallbackReturn eciCallback(ECIHand, ECIMessage, long, void *);
void TclEciFree(ClientData eciHandle) {
eciDelete(eciHandle);
}
int Tcleci_Init(Tcl_Interp *interp) {
int rc;
ECIHand eciHandle;
if (Tcl_PkgProvide(interp, PACKAGENAME, PACKAGEVERSION) != TCL_OK) {
Tcl_AppendResult(interp, "Error loading ", PACKAGENAME, NULL);
return TCL_ERROR;
}
eciHandle = eciNew();
if (eciHandle == NULL_ECI_HAND) {
Tcl_AppendResult(interp, "Could not open text-to-speech engine", NULL);
return TCL_ERROR;
}
if ( (eciSetParam(eciHandle, eciInputType, 1) == -1)
|| (eciSetParam(eciHandle, eciSynthMode, 1) == -1)) {
Tcl_AppendResult(interp, "Could not initialized tts", NULL);
eciDelete(eciHandle);
return TCL_ERROR;
}
Tcl_CreateObjCommand(interp, "say", Say, (ClientData) eciHandle, TclEciFree);
Tcl_CreateObjCommand(interp, "synth", Say, (ClientData)
eciHandle, NULL);
Tcl_CreateObjCommand(interp, "stop", Stop, (ClientData) eciHandle, TclEciFree);
Tcl_CreateObjCommand(interp, "pause", Pause, (ClientData)
eciHandle, TclEciFree);
Tcl_CreateObjCommand(interp, "resume", Resume, (ClientData) eciHandle, TclEciFree);
rc = Tcl_Eval(interp, "proc index x {}");
eciRegisterCallback( eciHandle, eciCallback, interp );
return rc;
}
ECICallbackReturn eciCallback(ECIHand eciHandle, ECIMessage msg, long lparam, void *data) {
int rc;
Tcl_Interp *interp = (Tcl_Interp *) data;
if (msg == eciIndexReply) {
char buffer[128];
sprintf(buffer, "index %d", lparam);
rc = Tcl_Eval(interp, buffer);
if (rc != TCL_OK) Tcl_BackgroundError(interp);
}
return eciDataProcessed;
}
int Say(ClientData eciHandle, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
int i, rc, index, length;
for (i=1; i<objc; i++) {
// if string begins with -, assume it is an index value
char *txt = Tcl_GetStringFromObj(objv[i], &length);
if (Tcl_StringMatch(txt, "-reset")) {
eciReset(eciHandle);
} else if (Tcl_StringMatch(txt, "-index")) {
i++;
if (i==objc) {
Tcl_AppendResult(interp, "missing index parameter", TCL_STATIC);
return TCL_ERROR;
}
rc = Tcl_GetIntFromObj(interp, objv[i], &index);
if (rc != TCL_OK) return rc;
rc = eciInsertIndex(eciHandle, index);
if (!rc) {
Tcl_AppendResult(interp, "Could not insert index", TCL_STATIC);
return TCL_ERROR;
}
} else {
// assume objv[i] is text to synthesize...
rc = eciAddText(eciHandle, Tcl_GetStringFromObj(objv[i],NULL));
if (!rc) {
Tcl_SetResult(interp, "Internal tts error", TCL_STATIC);
return TCL_ERROR;
}
}
}
if (Tcl_StringMatch(Tcl_GetStringFromObj(objv[0],NULL), "synth")) {
rc = eciSynthesize(eciHandle);
if (!rc) {
Tcl_SetResult(interp, "Internal tts synth error", TCL_STATIC);
return TCL_ERROR;
}
}
return TCL_OK;
}
int Stop(ClientData eciHandle, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
if (eciStop(eciHandle)) return TCL_OK;
Tcl_SetResult(interp, "Could not stop synthesis", TCL_STATIC);
return TCL_ERROR;
}
int Pause(ClientData eciHandle, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
if (eciPause(eciHandle, 1)) return TCL_OK;
Tcl_SetResult(interp, "Could not pause synthesis", TCL_STATIC);
return TCL_ERROR;
}
int Resume(ClientData eciHandle, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
if (eciPause(eciHandle, 0)) return TCL_OK;
Tcl_SetResult(interp, "Could not resume synthesis", TCL_STATIC);
return TCL_ERROR;
}
|
