
DIRECTORY
IO,
Rope USING [ Concat, Equal, Fetch, Length, ROPE, Substr ],
RuntimeError USING [ BoundsFault ],
Synthesizer,
VoiceUtils USING [ Report ]
;

SynthesizerImpl: CEDAR PROGRAM IMPORTS
Rope, RuntimeError, VoiceUtils
EXPORTS Synthesizer= {

BreakText: PUBLIC PROC [text: Rope.ROPE, maxlen: INT] RETURNS [packet, remainder: Rope.ROPE] = {
index: INT;  insidePhonemes: BOOL;
IF text.Length < maxlen THEN RETURN[packet: text, remainder: ""];
[index, insidePhonemes] м FindTextBreak[text, maxlen];
IF index=0 THEN {
index м maxlen;
VoiceUtils.Report[Rope.Concat["Warning: No good place to break following string.\n", text.Substr[len: index]], $Finch];
};
packet м text.Substr[len: index];
remainder м text.Substr[start: index];
IF insidePhonemes THEN {  -- close the current phoneme command, break, and reopen it
packet м Rope.Concat[packet, "\033\\"];
remainder м Rope.Concat["\033P;z", remainder];
};
};

FindTextBreak: PROC [text: Rope.ROPE, maxlen: INT] RETURNS [breakIndex: INT, indexInsidePhonemes: BOOL] = {
cmdBoundary, primaryBreak, secondaryBreak: INT м 0;
insidePhonemes, primInsidePhonemes, secInsidePhonemes: BOOL м FALSE;
prevc: CHAR м IO.SP;  -- i-2
c: CHAR м text.Fetch[0];  -- i-1
FOR i: INT IN [1..maxlen] DO
nextc: CHAR м ProtectFetch[text, i];  -- i
SELECT c FROM
IO.ESC => {
SELECT nextc FROM
'P => { -- c is the first character of a command; may be a phoneme command
cmdBoundary м i-1;
IF PhonemeCmd[text, i+1] THEN insidePhonemes м TRUE;
};
'\\ => { -- nextc is the end of a DECtalk command
cmdBoundary м i+1;
insidePhonemes м FALSE;
};
ENDCASE; -- c is some other ESC (what is this silly user doing??)
};
IO.SP, IO.TAB, IO.CR, IO.LF => {
secondaryBreak м i;
secInsidePhonemes м insidePhonemes;
SELECT prevc FROM
'. => IF NOT SpecialAbbrev[text, i-4] THEN {primaryBreak м i;
primInsidePhonemes м insidePhonemes};
', , ';, '!, '?, '), '}, '], '", '' => {primaryBreak м i;
primInsidePhonemes м insidePhonemes};
ENDCASE => {
SELECT nextc FROM
'(, '{, '[, '", '', '` => {primaryBreak м i;  -- the last one is an open quote
primInsidePhonemes м insidePhonemes};
ENDCASE;
};
};
ENDCASE;
prevc м c;  c м nextc;
ENDLOOP;
IF primaryBreak > 0 THEN
RETURN [primaryBreak, primInsidePhonemes]  -- could be inside a dict cmd, oh well
ELSE IF cmdBoundary > 0 THEN
RETURN [cmdBoundary, FALSE]
ELSE IF secondaryBreak > 0 THEN
RETURN [secondaryBreak, secInsidePhonemes]
ELSE
RETURN [0, insidePhonemes] -- this is a wierd string: no good place to break
};

PhonemeCmd: PROC [text: Rope.ROPE, i: INT] RETURNS [BOOL м FALSE] = {
nextw: Rope.ROPE м ProtectSubstr[text: text, start: i, len: 2];
IF Rope.Equal[s1: nextw, s2: ";z", case: TRUE] THEN RETURN[TRUE];
nextw м ProtectSubstr[text: text, start: i, len: 4];
IF Rope.Equal[s1: nextw, s2: "0;0z", case: TRUE] THEN RETURN[TRUE];
};

SpecialAbbrev: PROC [text: Rope.ROPE, i: INT] RETURNS [BOOL м FALSE] = {
prevw: Rope.ROPE м ProtectSubstr[text: text, start: i, len: 2];
prevc: CHAR м ProtectFetch[text, i-1];
SELECT prevc FROM
IO.SP, IO.TAB, IO.CR, IO.LF => NULL;
ENDCASE => RETURN[FALSE];
IF Rope.Equal[s1: prevw, s2: "ft", case: FALSE]
OR Rope.Equal[s1: prevw, s2: "st", case: FALSE]
OR Rope.Equal[s1: prevw, s2: "dr", case: FALSE] THEN
FOR j: INT м i+1, j+1 DO
scanc: CHAR м ProtectFetch[text: text, index: j, default: 'a];
SELECT scanc FROM
IN ['A..'Z] => RETURN[TRUE];
IN ['a..'z] => RETURN[FALSE];
ENDCASE;
ENDLOOP;
};

ProtectFetch: PROC [text: Rope.ROPE, index: INT, default: CHAR м IO.SP]
RETURNS [char: CHAR] ~ {
ENABLE RuntimeError.BoundsFault => {char м default; CONTINUE};
char м text.Fetch[index];
};

ProtectSubstr: PROC [text: Rope.ROPE, start: INT, len: INT] RETURNS [substr: Rope.ROPE м ""] ~ {
ENABLE RuntimeError.BoundsFault => CONTINUE;
substr м text.Substr[start, len];
};

}.
   Ў  
SynthesizerImpl.mesa 
Copyright ╙ 1986, 1987, 1992 by Xerox Corporation.  All rights reserved.
Polle Zellweger (PTZ) July 28, 1986 11:15:41 pm PDT
Swinehart, April 4, 1987 3:24:47 pm PST
This module is currently set up for the DECtalk.  July 17, 1986 PTZ

primary/secondaryBreak will be the first character of the next packet.  Returns breakIndex = 0 if there is no good place to break the string.
'[, 'c, IO.SP => c may be the first character of some other DECtalk command, but  the user is not permitted to send these commands.
Now choose an appropriate spot to break the text....
A DECtalk phoneme command looks like ESC P 0 ; 0 z phonemic text ESC \
The zeros are optional, but we only recognize the cases of both zeros there or both zeros missing.
DECtalk: St. followed by a capital letter = Saint; not followed by a capital letter = Street.  Dr. followed by a capital letter = Doctor; not followed by a capital letter = Drive.
Prose adds: Ft. followed by a capital letter = Fort; not followed by a capital letter = feet. (The DECtalk distinguishes between these latter two on the basis of capitalization: Ft. = Fort, ft. = feet.  But what about FT.?  Seems like a bug!)
If we run off the beginning of the string, there must have been a legal break there.
Polle Zellweger (PTZ) July 17, 1986 6:02:46 pm PDT
changes to: SynthesizerImpl, BreakText, FindTextBreak
Polle Zellweger (PTZ) July 18, 1986 11:41:44 am PDT
changes to: DIRECTORY, BreakText, FindTextBreak, PhonemeCmd, nextc (local of FindTextBreak), nextw (local of PhonemeCmd), prevw (local of SpecialAbbrev), SpecialAbbrev, scanc (local of SpecialAbbrev), SynthesizerImpl
Polle Zellweger (PTZ) July 18, 1986 5:17:06 pm PDT
changes to: BreakText, FindTextBreak, PhonemeCmd, prevw (local of SpecialAbbrev), prevc (local of SpecialAbbrev), SpecialAbbrev, nextw (local of PhonemeCmd)

Polle Zellweger (PTZ) July 28, 1986 8:57:29 pm PDT
changes to: nextc (local of FindTextBreak), nextw (local of PhonemeCmd), PhonemeCmd, prevw (local of SpecialAbbrev), prevc (local of SpecialAbbrev), scanc (local of SpecialAbbrev)
Polle Zellweger (PTZ) July 28, 1986 9:30:23 pm PDT
changes to: FindTextBreak, PhonemeCmd, SpecialAbbrev, ProtectFetch, ProtectSubstr
Polle Zellweger (PTZ) July 28, 1986 10:34:46 pm PDT
changes to: FindTextBreak

Э╩╧  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬЩIcodeЪЬ
╧eЬ=ЩHKЩ3KЩ'KШ ЧЪ╧k	Ш	KЪЮЬШKЪЬЮЬ!ЮЬШ:KЪЬЮЬШ#KЪЬШKЪЬЮЬШKШKШ ЧЪЬЮЬЮШ&KЪЬШKЪЮЬШKШ ЧKЩCKЩ Ъ╧n	ЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШ`KЪЬЮЬЮЬШ"KЪЮЬЮЬЮЬШAKШ6ЪЮЬЮЬШKШKЪЬwШwKШЧKШ!KШ&ЪЮЬЮЬ╧c:ШTKШ'KШ.KШЧKШЧKШ ЪЯЬЮЬЮЬ
ЮЬЮЬЮЬЮЬШkKЪЬНЩНKЪЬ+ЮЬШ3KЪЬ7ЮЬЮЬШDKЪЬЮЬЮЬЮЬаШKЪЬЮЬаШ ЪЮЬЮЬЮЬЮШKЪЬЮЬаШ*ЪЮЬЮШЪЮЬЮЬШЪЮЬЮШЪЬаCШJKШKЪЮЬЮЬЮЬШ4KШЧЪЬ	а(Ш1KШKЪЬЮШKШЧKЪЬЮЬЮЬvЩГKЪЮЬа8ШAЧKШЧЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ KШKШ#ЪЮЬЮШKЪЬЮЬЮЬЮЬ9ШcKШ_ЪЮЬШЪЮЬЮШKЪЬ.а Ь&ШtKЪЮЬШЧKШЧЧKШЧKЪЮЬШЧKШKЪЮЬШЧKЩ4ЪЮЬЮШKЪЮЬ%а&ШQЧЪЮЬЮЬЮШKЪЮЬЮЬШЧЪЮЬЮЬЮШKЪЮЬ$Ш*ЧЪЮШKЪЮЬа2ШLЧШKШ ЧЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬЮЬШEKЩFKЩbKЪЬЮЬ/Ш?KЪ
ЮЬ'ЮЬЮЬЮЬЮЬШAKШ4KЪ
ЮЬ)ЮЬЮЬЮЬЮЬШCKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШHKЩ│KЩЄKЪЬЮЬ/Ш?ЪЬЮЬШ&KЩTЧЪЮЬЮШKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ$KЪЮЬЮЬЮЬШЧЪЮЬ'ЮЬЮЬ'ЮЬЮЬ'ЮЬЮШФЪЮЬЮЬЮШKЪЬЮЬ3Ш>ЪЮЬЮШKЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЮЬШЧKЪЮЬШЧЧKШЧKШ ЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬШ`KЪЮЬ.ЮЬШ>KШKШKШ ЧЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬ
Ш`KЪЮЬЮ	Ш,KШ!KШЧKШ KШЩ2KЪЬ╧r)Щ5ЧЩ3KЪ
Ьб6ЬбЬбЬбЬбЩ╪ЧЩ2KЪЬб+ЬбЬбЬЩЬЧKЩ Щ2KЪЬбЬбЬбЬбЬбЬЩ│ЧЩ2KЪЬбEЩQЧЩ3KЪЬбЩЧKЩ Ч ЕЧ    м  q  