mirror of
https://github.com/rhasspy/espeak-ng.git
synced 2026-10-31 13:38:47 +00:00
jonsd
5bdf9d63ab
git-svn-id: https://espeak.svn.sourceforge.net/svnroot/espeak/trunk@93 d46cf337-b52f-0410-862d-fd96e6ae7743
979 lines
33 KiB
C++
979 lines
33 KiB
C++
/***************************************************************************
|
||
* Copyright (C) 2005 to 2007 by Jonathan Duddington *
|
||
* email: jonsd@users.sourceforge.net *
|
||
* *
|
||
* This program is free software; you can redistribute it and/or modify *
|
||
* it under the terms of the GNU General Public License as published by *
|
||
* the Free Software Foundation; either version 3 of the License, or *
|
||
* (at your option) any later version. *
|
||
* *
|
||
* This program is distributed in the hope that it will be useful, *
|
||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
||
* GNU General Public License for more details. *
|
||
* *
|
||
* You should have received a copy of the GNU General Public License *
|
||
* along with this program; if not, see: *
|
||
* <http://www.gnu.org/licenses/>. *
|
||
***************************************************************************/
|
||
|
||
#include "StdAfx.h"
|
||
|
||
#include <stdio.h>
|
||
#include <ctype.h>
|
||
#include <wctype.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
#include <locale.h>
|
||
|
||
#include <wctype.h>
|
||
|
||
#include "speak_lib.h"
|
||
#include "speech.h"
|
||
#include "phoneme.h"
|
||
#include "synthesize.h"
|
||
#include "translate.h"
|
||
#include "tr_languages.h"
|
||
|
||
|
||
|
||
#define L_qa 0x716100
|
||
#define L_grc 0x677263 // grc Ancient Greek
|
||
|
||
|
||
#define OFFSET_GREEK 0x380
|
||
#define OFFSET_CYRILLIC 0x420
|
||
#define OFFSET_DEVANAGARI 0x900
|
||
|
||
|
||
static const unsigned int replace_cyrillic_latin[] =
|
||
{0x430,'a',
|
||
0x431,'b',
|
||
0x446,'c',
|
||
0x45b,0x107,
|
||
0x447,0x10d,
|
||
0x45f,'d'+(0x17e<<16),
|
||
0x455,'d'+('z'<<16),
|
||
0x434,'d',
|
||
0x452,0x111,
|
||
0x435,'e',
|
||
0x444,'f',
|
||
0x433,'g',
|
||
0x445,'h',
|
||
0x438,'i',
|
||
0x458,'j',
|
||
0x43a,'k',
|
||
0x459,'l'+('j'<<16),
|
||
0x43b,'l',
|
||
0x43c,'m',
|
||
0x45a,'n'+('j'<<16),
|
||
0x43d,'n',
|
||
0x43e,'o',
|
||
0x43f,'p',
|
||
0x440,'r',
|
||
0x441,'s',
|
||
0x448,0x161,
|
||
0x442,'t',
|
||
0x443,'u',
|
||
0x432,'v',
|
||
0x437,'z',
|
||
0x436,0x17e,
|
||
0x453,0x111,
|
||
0x45c,0x107,
|
||
0}; // ѓ ѕ ќ
|
||
|
||
|
||
void SetupTranslator(Translator *tr, int *lengths, int *amps)
|
||
{//==========================================================
|
||
if(lengths != NULL)
|
||
memcpy(tr->stress_lengths,lengths,sizeof(tr->stress_lengths));
|
||
if(amps != NULL)
|
||
memcpy(tr->stress_amps,amps,sizeof(tr->stress_amps));
|
||
}
|
||
|
||
|
||
Translator *SelectTranslator(const char *name)
|
||
{//===========================================
|
||
int name2 = 0;
|
||
Translator *tr;
|
||
|
||
// convert name string into a word of up to 4 characters, for the switch()
|
||
while(*name != 0)
|
||
name2 = (name2 << 8) + *name++;
|
||
|
||
|
||
switch(name2)
|
||
{
|
||
case L('a','f'):
|
||
tr = new Translator_Afrikaans();
|
||
break;
|
||
|
||
case L('c','y'): // Welsh
|
||
{
|
||
static int stress_lengths_cy[8] = {170,230, 190,190, 0, 0, 250,270};
|
||
static int stress_amps_cy[8] = {16,15, 18,18, 0,0, 24,22 }; // 'diminished' is used to mark a quieter, final unstressed syllable
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_cy,stress_amps_cy);
|
||
|
||
tr->charset_a0 = charsets[14]; // ISO-8859-14
|
||
// tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
tr->langopts.stress_rule = 2;
|
||
|
||
// 'diminished' is an unstressed final syllable
|
||
tr->langopts.stress_flags = 0x6 | 0x10;
|
||
tr->langopts.word_gap = 0;
|
||
tr->langopts.vowel_pause = 0;
|
||
tr->langopts.unstressed_wd1 = 0;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
tr->langopts.param[LOPT_SONORANT_MIN] = 120; // limit the shortening of sonorants before short vowels
|
||
|
||
tr->langopts.numbers = 0x401;
|
||
|
||
SetLetterVowel(tr,'w'); // add letter to vowels and remove from consonants
|
||
SetLetterVowel(tr,'y');
|
||
}
|
||
break;
|
||
|
||
case L('d','e'):
|
||
{
|
||
static const int stress_lengths_de[8] = {150,130, 190,190, 0, 0, 260,275};
|
||
tr = new Translator();
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.word_gap = 0x2; // don't use linking phonemes
|
||
tr->langopts.vowel_pause = 0x30;
|
||
tr->langopts.param[LOPT_PREFIXES] = 1;
|
||
memcpy(tr->stress_lengths,stress_lengths_de,sizeof(tr->stress_lengths));
|
||
|
||
tr->langopts.numbers = 0x11c19 + NUM_ROMAN;
|
||
SetLetterVowel(tr,'y');
|
||
}
|
||
break;
|
||
|
||
case L('e','n'):
|
||
tr = new Translator_English();
|
||
break;
|
||
|
||
case L('e','l'): // Greek
|
||
case L_grc: // Ancient Greek
|
||
{
|
||
static int stress_lengths_el[8] = {155, 180, 210, 210, 0, 0, 270, 300};
|
||
static int stress_amps_el[8] = {15,12, 20,20, 20,24, 24,22 }; // 'diminished' is used to mark a quieter, final unstressed syllable
|
||
|
||
// character codes offset by 0x380
|
||
static const char el_vowels[] = {0x10,0x2c,0x2d,0x2e,0x2f,0x30,0x31,0x35,0x37,0x39,0x3f,0x45,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0};
|
||
static const char el_fvowels[] = {0x2d,0x2e,0x2f,0x35,0x37,0x39,0x45,0x4d,0}; // ε η ι υ έ ή ί ύ
|
||
static const char el_voiceless[]= {0x38,0x3a,0x3e,0x40,0x42,0x43,0x44,0x46,0x47,0}; // θ κ ξ π ς σ τ φ χ
|
||
static const char el_consonants[]={0x32,0x33,0x34,0x36,0x38,0x3a,0x3b,0x3c,0x3d,0x3e,0x40,0x41,0x42,0x43,0x44,0x46,0x47,0x48,0};
|
||
static const wchar_t el_char_apostrophe[] = {0x3c3,0}; // σ
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_el,stress_amps_el);
|
||
|
||
tr->charset_a0 = charsets[7]; // ISO-8859-7
|
||
tr->char_plus_apostrophe = el_char_apostrophe;
|
||
|
||
tr->letter_bits_offset = OFFSET_GREEK;
|
||
memset(tr->letter_bits,0,sizeof(tr->letter_bits));
|
||
SetLetterBits(tr,LETTERGP_A,el_vowels);
|
||
SetLetterBits(tr,LETTERGP_B,el_voiceless);
|
||
SetLetterBits(tr,LETTERGP_C,el_consonants);
|
||
SetLetterBits(tr,LETTERGP_Y,el_fvowels); // front vowels: ε η ι υ
|
||
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x6; // mark unstressed final syllables as diminished
|
||
tr->langopts.word_gap = 0;
|
||
tr->langopts.vowel_pause = 0;
|
||
tr->langopts.unstressed_wd1 = 0;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
tr->langopts.param[LOPT_SONORANT_MIN] = 130; // limit the shortening of sonorants before short vowels
|
||
|
||
tr->langopts.numbers = 0xb09;
|
||
tr->langopts.numbers2 = 0x2; // variant form of numbers before thousands
|
||
|
||
if(name2 == L_grc)
|
||
{
|
||
// ancient greek
|
||
tr->langopts.param[LOPT_UNPRONOUNCABLE] = 1;
|
||
}
|
||
}
|
||
break;
|
||
|
||
case L('e','o'):
|
||
{
|
||
static int stress_lengths_eo[8] = {145, 180, 200, 190, 0, 0, 300, 320};
|
||
static int stress_amps_eo[] = {16,14, 20,20, 20,24, 24,22 };
|
||
static const wchar_t eo_char_apostrophe[2] = {'l',0};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_eo,stress_amps_eo);
|
||
|
||
tr->charset_a0 = charsets[3]; // ISO-8859-3
|
||
tr->char_plus_apostrophe = eo_char_apostrophe;
|
||
|
||
tr->langopts.vowel_pause = 1;
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x6 | 0x10;
|
||
// tr->langopts.stress_flags = 0x1; // don't give full stress to monosyllables
|
||
tr->langopts.unstressed_wd1 = 1;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
|
||
tr->langopts.numbers = 0x1409;
|
||
}
|
||
break;
|
||
|
||
case L('e','s'): // Spanish
|
||
{
|
||
static int stress_lengths_es[8] = {170, 200, 180, 180, 0, 0, 220, 250};
|
||
static int stress_amps_es[8] = {16,12, 18,18, 20,22, 22,22 }; // 'diminished' is used to mark a quieter, final unstressed syllable
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_es,stress_amps_es);
|
||
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
tr->langopts.stress_rule = 2;
|
||
|
||
// stress last syllable if it doesn't end in vowel or "s" or "n"
|
||
// 'diminished' is an unstressed final syllable
|
||
tr->langopts.stress_flags = 0x200 | 0x6 | 0x10;
|
||
tr->langopts.word_gap = 0;
|
||
tr->langopts.vowel_pause = 0;
|
||
tr->langopts.unstressed_wd1 = 0;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
tr->langopts.param[LOPT_SONORANT_MIN] = 120; // limit the shortening of sonorants before short vowels
|
||
|
||
tr->langopts.numbers = 0x529 + NUM_ROMAN;
|
||
}
|
||
break;
|
||
|
||
|
||
case L('f','i'): // Finnish
|
||
{
|
||
static int stress_amps_fi[8] = {18,16, 22,22, 20,22, 22,22 };
|
||
static int stress_lengths_fi[8] = {150,170, 200,200, 0,0, 210,250};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_fi,stress_amps_fi);
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.stress_flags = 0x56; // move secondary stress from light to a following heavy syllable
|
||
tr->langopts.param[LOPT_IT_DOUBLING] = 1;
|
||
tr->langopts.long_stop = 140;
|
||
|
||
tr->langopts.numbers = 0x1009;
|
||
SetLetterVowel(tr,'y');
|
||
tr->langopts.max_initial_consonants = 2;
|
||
tr->langopts.spelling_stress = 1;
|
||
tr->punct_to_tone[0][1] = 0; // don't raise pitch for comma
|
||
// tr->punct_to_tone[0][2] = 0; // don't raise pitch for question
|
||
}
|
||
break;
|
||
|
||
case L('f','r'): // french
|
||
{
|
||
static int stress_lengths_fr[8] = {190, 170, 190, 200, 0, 0, 235, 235};
|
||
static int stress_amps_fr[8] = {16,14, 20,20, 20,24, 24,22 };
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_fr,stress_amps_fr);
|
||
tr->langopts.stress_rule = 3; // stress on final syllable
|
||
tr->langopts.stress_flags = 0x0024; // don't use secondary stress
|
||
tr->langopts.param[LOPT_IT_LENGTHEN] = 1; // remove lengthen indicator from unstressed syllables
|
||
|
||
tr->langopts.numbers = 0x1509;
|
||
SetLetterVowel(tr,'y');
|
||
}
|
||
break;
|
||
|
||
case L('h','i'):
|
||
{
|
||
static const char dev_consonants2[] = {0x02,0x03,0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f};
|
||
static int stress_lengths_hi[8] = {190, 190, 210, 210, 0, 0, 230, 250};
|
||
static int stress_amps_hi[8] = {17,14, 20,19, 20,24, 24,22 };
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_hi,stress_amps_hi);
|
||
tr->charset_a0 = charsets[19]; // ISCII
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
|
||
tr->langopts.stress_rule = 6; // stress on last heaviest syllable
|
||
tr->langopts.stress_flags = 0x10004; // use 'diminished' for unstressed final syllable
|
||
tr->langopts.numbers = 0x811;
|
||
tr->langopts.numbers2 = 0x100;
|
||
tr->letter_bits_offset = OFFSET_DEVANAGARI;
|
||
|
||
memset(tr->letter_bits,0,sizeof(tr->letter_bits));
|
||
SetLetterBitsRange(tr,LETTERGP_A,0x06,0x14); // vowel letters
|
||
SetLetterBitsRange(tr,LETTERGP_B,0x3e,0x4d); // vowel signs + virama
|
||
SetLetterBitsRange(tr,LETTERGP_C,0x15,0x39); // the main consonant range
|
||
SetLetterBits(tr,LETTERGP_C,dev_consonants2); // additional consonants
|
||
tr->langopts.param[LOPT_UNPRONOUNCABLE] = 1; // disable check for unpronouncable words
|
||
}
|
||
break;
|
||
|
||
|
||
case L('h','r'): // Croatian
|
||
case L('b','s'): // Bosnian
|
||
case L('s','r'): // Serbian
|
||
{
|
||
static int stress_amps_hr[8] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_hr[8] = {180,160, 200,200, 0,0, 220,230};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_hr,stress_amps_hr);
|
||
tr->charset_a0 = charsets[2]; // ISO-8859-2
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.stress_flags = 0x10;
|
||
tr->langopts.param[LOPT_REGRESSIVE_VOICING] = 0x3;
|
||
tr->langopts.max_initial_consonants = 5;
|
||
tr->langopts.spelling_stress = 1;
|
||
|
||
tr->langopts.numbers = 0x1c0d + 0x4000 + NUM_ROMAN_UC;
|
||
tr->langopts.numbers2 = 0x4a; // variant numbers before thousands,milliards
|
||
tr->langopts.replace_chars = replace_cyrillic_latin;
|
||
|
||
SetLetterVowel(tr,'y');
|
||
SetLetterVowel(tr,'r');
|
||
}
|
||
break;
|
||
|
||
|
||
case L('h','u'): // Hungarian
|
||
{
|
||
static int stress_amps_hu[8] = {17,17, 19,19, 20,24, 24,22 };
|
||
static int stress_lengths_hu[8] = {185,195, 195,190, 0,0, 210,220};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_hu,stress_amps_hu);
|
||
tr->charset_a0 = charsets[2]; // ISO-8859-2
|
||
|
||
tr->langopts.vowel_pause = 0x20;
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.stress_flags = 0x8036;
|
||
tr->langopts.unstressed_wd1 = 2;
|
||
// tr->langopts.param[LOPT_REGRESSIVE_VOICING] = 0x4; // don't propagate over word boundaries
|
||
tr->langopts.param[LOPT_IT_DOUBLING] = 1;
|
||
tr->langopts.param[LOPT_COMBINE_WORDS] = 99; // combine some prepositions with the following word
|
||
|
||
tr->langopts.numbers = 0x1809 + NUM_ROMAN;
|
||
SetLetterVowel(tr,'y');
|
||
tr->langopts.spelling_stress = 1;
|
||
SetLengthMods(tr,3); // all equal
|
||
}
|
||
break;
|
||
|
||
case L('i','s'): // Icelandic
|
||
{
|
||
static int stress_amps_is[] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_is[8] = {180,160, 200,200, 0,0, 240,250};
|
||
static const wchar_t is_lettergroup_B[] = {'c','f','h','k','p','t','x',0xfe,0}; // voiceless conants, including 'þ' ?? 's'
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_is,stress_amps_is);
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.stress_flags = 0x10;
|
||
tr->langopts.param[LOPT_IT_LENGTHEN] = 0x11; // remove lengthen indicator from unstressed vowels
|
||
tr->langopts.param[LOPT_REDUCE] = 2;
|
||
|
||
ResetLetterBits(tr,0x18);
|
||
SetLetterBits(tr,4,"kpst"); // Letter group F
|
||
SetLetterBits(tr,3,"jvr"); // Letter group H
|
||
tr->letter_groups[1] = is_lettergroup_B;
|
||
SetLetterVowel(tr,'y');
|
||
tr->langopts.numbers = 0xe9;
|
||
tr->langopts.numbers2 = 0x2;
|
||
}
|
||
break;
|
||
|
||
case L('i','t'): // Italian
|
||
{
|
||
static int stress_lengths_it[8] = {150, 140, 180, 180, 0, 0, 270, 320};
|
||
static int stress_amps_it[8] = {15,14, 19,19, 20,24, 24,22 };
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_it,stress_amps_it);
|
||
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.word_gap = 0;
|
||
tr->langopts.vowel_pause = 1;
|
||
tr->langopts.unstressed_wd1 = 2;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
tr->langopts.param[LOPT_IT_LENGTHEN] = 2; // remove lengthen indicator from unstressed or non-penultimate syllables
|
||
tr->langopts.param[LOPT_IT_DOUBLING] = 2; // double the first consonant if the previous word ends in a stressed vowel
|
||
tr->langopts.param[LOPT_SONORANT_MIN] = 130; // limit the shortening of sonorants before short vowels
|
||
tr->langopts.param[LOPT_REDUCE] = 1; // reduce vowels even if phonemes are specified in it_list
|
||
tr->langopts.numbers = 0x2709 + 0x800 + NUM_ROMAN;
|
||
}
|
||
break;
|
||
|
||
case L('l','a'): //Latin
|
||
{
|
||
tr = new Translator();
|
||
tr->charset_a0 = charsets[4]; // ISO-8859-4, includes a,e,i,o,u-macron
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x20;
|
||
tr->langopts.unstressed_wd1 = 0;
|
||
tr->langopts.unstressed_wd2 = 2;
|
||
tr->langopts.param[LOPT_DIERESES] = 1;
|
||
tr->langopts.numbers = 0x1 + NUM_ROMAN;
|
||
tr->langopts.max_roman = 5000;
|
||
}
|
||
break;
|
||
|
||
case L('m','k'): // Macedonian
|
||
{
|
||
static wchar_t vowels_cyrillic[] = {0x440, // also include 'р' [R]
|
||
0x430,0x435,0x438,0x439,0x43e,0x443,0x44b,0x44d,0x44e,0x44f,0x450,0x451,0x456,0x457,0x45d,0x45e,0};
|
||
static int stress_amps_mk[8] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_mk[8] = {180,160, 200,200, 0,0, 220,230};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_mk,stress_amps_mk);
|
||
tr->charset_a0 = charsets[5]; // ISO-8859-5
|
||
tr->letter_groups[0] = vowels_cyrillic;
|
||
|
||
tr->langopts.stress_rule = 4; // antipenultimate
|
||
tr->langopts.numbers = 0x0c29 + 0x4000;
|
||
tr->langopts.numbers2 = 0x8a; // variant numbers before thousands,milliards
|
||
}
|
||
break;
|
||
|
||
|
||
case L('n','l'): // Dutch
|
||
{
|
||
static const int stress_lengths_nl[8] = {160,135, 210,210, 0, 0, 260,280};
|
||
tr = new Translator();
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.word_gap = 0;
|
||
tr->langopts.vowel_pause = 1;
|
||
tr->langopts.param[LOPT_DIERESES] = 1;
|
||
tr->langopts.param[LOPT_PREFIXES] = 1;
|
||
SetLetterVowel(tr,'y');
|
||
|
||
tr->langopts.numbers = 0x11419;
|
||
memcpy(tr->stress_lengths,stress_lengths_nl,sizeof(tr->stress_lengths));
|
||
}
|
||
break;
|
||
|
||
case L('n','o'): // Norwegian
|
||
{
|
||
static int stress_amps_no[] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_no[8] = {160,140, 200,190, 0,0, 220,240};
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_no,stress_amps_no);
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
SetLetterVowel(tr,'y');
|
||
tr->langopts.numbers = 0x11049;
|
||
}
|
||
break;
|
||
|
||
case L('p','l'): // Polish
|
||
{
|
||
static int stress_lengths_pl[8] = {160, 180, 175, 175, 0, 0, 260, 290};
|
||
static int stress_amps_pl[8] = {17,14, 19,19, 20,24, 24,22 }; // 'diminished' is used to mark a quieter, final unstressed syllable
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_pl,stress_amps_pl);
|
||
|
||
tr->charset_a0 = charsets[2]; // ISO-8859-2
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x6; // mark unstressed final syllables as diminished
|
||
tr->langopts.param[LOPT_REGRESSIVE_VOICING] = 0x8;
|
||
tr->langopts.max_initial_consonants = 7; // for example: wchrzczony :)
|
||
tr->langopts.numbers=0x1809 + 0x4000;
|
||
tr->langopts.numbers2=0x40;
|
||
tr->langopts.param[LOPT_COMBINE_WORDS] = 2 + 0x100; // combine 'nie' (marked with $alt2) with some 1-syllable words (marked with $alt)
|
||
SetLetterVowel(tr,'y');
|
||
}
|
||
break;
|
||
|
||
case L('p','t'): // Portuguese
|
||
{
|
||
static int stress_lengths_pt[8] = {180, 125, 210, 210, 0, 0, 270, 295};
|
||
static int stress_amps_pt[8] = {16,13, 19,19, 20,24, 24,22 }; // 'diminished' is used to mark a quieter, final unstressed syllable
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_pt,stress_amps_pt);
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
|
||
// tr->langopts.vowel_pause = 1;
|
||
tr->langopts.stress_rule = 3; // stress on final syllable
|
||
tr->langopts.stress_flags = 0x6 | 0x10 | 0x20000;
|
||
tr->langopts.numbers = 0xa69 + 0x2000 + NUM_ROMAN;
|
||
tr->punct_to_tone[0][3] = 2; // use exclamation intonation
|
||
SetLetterVowel(tr,'y');
|
||
}
|
||
break;
|
||
|
||
case L('r','o'): // Romanian
|
||
{
|
||
static int stress_lengths_ro[8] = {170, 170, 180, 180, 0, 0, 240, 260};
|
||
static int stress_amps_ro[8] = {15,13, 18,18, 20,22, 22,22 };
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_ro,stress_amps_ro);
|
||
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x100 + 0x6;
|
||
|
||
tr->charset_a0 = charsets[2]; // ISO-8859-2
|
||
tr->langopts.numbers = 0x1829+0x6000 + NUM_ROMAN;
|
||
tr->langopts.numbers2 = 0x1e; // variant numbers before all thousandplex
|
||
}
|
||
break;
|
||
|
||
case L('r','u'): // Russian
|
||
tr = new Translator_Russian();
|
||
break;
|
||
|
||
case L('s','k'): // Slovak
|
||
case L('c','s'): // Czech
|
||
{
|
||
static int stress_amps_sk[8] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_sk[8] = {190,190, 210,210, 0,0, 210,210};
|
||
static char *sk_voiced = "bdgjlmnrvwzaeiouy";
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_sk,stress_amps_sk);
|
||
tr->charset_a0 = charsets[2]; // ISO-8859-2
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.stress_flags = 0x16;
|
||
tr->langopts.param[LOPT_REGRESSIVE_VOICING] = 0x3;
|
||
tr->langopts.max_initial_consonants = 5;
|
||
tr->langopts.spelling_stress = 1;
|
||
tr->langopts.param[LOPT_COMBINE_WORDS] = 4; // combine some prepositions with the following word
|
||
|
||
tr->langopts.numbers = 0x1c01 + 0x4000;
|
||
tr->langopts.numbers2 = 0x40;
|
||
tr->langopts.thousands_sep = 0; //no thousands separator
|
||
tr->langopts.decimal_sep = ',';
|
||
|
||
if(name2 == L('c','s'))
|
||
{
|
||
tr->langopts.numbers2 = 0x8; // variant numbers before milliards
|
||
}
|
||
|
||
SetLetterVowel(tr,'y');
|
||
SetLetterVowel(tr,'r');
|
||
ResetLetterBits(tr,0x2);
|
||
SetLetterBits(tr,5,sk_voiced);
|
||
}
|
||
break;
|
||
|
||
case L('s','v'): // Swedish
|
||
{
|
||
static int stress_amps_sv[] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_sv[8] = {160,135, 220,220, 0,0, 250,280};
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_sv,stress_amps_sv);
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
SetLetterVowel(tr,'y');
|
||
// SetLetterBits(tr,6,"eiyäö"); // soft vowels NOTE accented letters don't work in SetLetterBits
|
||
tr->langopts.numbers = 0x1109;
|
||
}
|
||
break;
|
||
|
||
case L('s','w'): // Swahili
|
||
{
|
||
static int stress_lengths_sw[8] = {160, 170, 200, 200, 0, 0, 320, 340};
|
||
static int stress_amps_sw[] = {16,12, 19,19, 20,24, 24,22 };
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_sw,stress_amps_sw);
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
|
||
tr->langopts.vowel_pause = 1;
|
||
tr->langopts.stress_rule = 2;
|
||
tr->langopts.stress_flags = 0x6 | 0x10;
|
||
|
||
tr->langopts.numbers = 0x8e1;
|
||
tr->langopts.numbers2 = 0x100;
|
||
}
|
||
break;
|
||
|
||
case L('t','r'): // Turkish
|
||
{
|
||
static int stress_amps_tr[8] = {16,16, 20,20, 20,24, 24,22 };
|
||
static int stress_lengths_tr[8] = {180,150, 200,180, 0,0, 230,270};
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_tr,stress_amps_tr);
|
||
tr->charset_a0 = charsets[9]; // ISO-8859-9 - Latin5
|
||
|
||
tr->langopts.stress_rule = 3; // stress on the last syllable
|
||
|
||
tr->langopts.numbers = 0x1009;
|
||
tr->langopts.max_initial_consonants = 2;
|
||
}
|
||
break;
|
||
|
||
case L('v','i'): // Vietnamese
|
||
{
|
||
static int stress_lengths_vi[8] = {150, 150, 180, 180, 210, 220, 220, 280};
|
||
static int stress_amps_vi[] = {16,16, 16,16, 24,24, 24,22 };
|
||
static wchar_t vowels_vi[] = {
|
||
0x61, 0xe0, 0xe1, 0x1ea3, 0xe3, 0x1ea1, // a
|
||
0x103, 0x1eb1, 0x1eaf, 0x1eb3, 0x1eb5, 0x1eb7, // ă
|
||
0xe2, 0x1ea7, 0x1ea5, 0x1ea9, 0x1eab, 0x1ead, // â
|
||
0x65, 0xe8, 0xe9, 0x1ebb, 0x1ebd, 0x1eb9, // e
|
||
0xea, 0x1ec1, 0x1ebf, 0x1ec3, 0x1ec5, 0x1ec7, // i
|
||
0x69, 0xec, 0xed, 0x1ec9, 0x129, 0x1ecb, // i
|
||
0x6f, 0xf2, 0xf3, 0x1ecf, 0xf5, 0x1ecd, // o
|
||
0xf4, 0x1ed3, 0x1ed1, 0x1ed5, 0x1ed7, 0x1ed9, // ô
|
||
0x1a1, 0x1edd, 0x1edb, 0x1edf, 0x1ee1, 0x1ee3, // ơ
|
||
0x75, 0xf9, 0xfa, 0x1ee7, 0x169, 0x1ee5, // u
|
||
0x1b0, 0x1eeb, 0x1ee9, 0x1eed, 0x1eef, 0x1ef1, // ư
|
||
0x79, 0x1ef3, 0xfd, 0x1ef7, 0x1ef9, 0x1e, 0 }; // y
|
||
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_vi,stress_amps_vi);
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.word_gap = 0x4; // length of a final vowel is less dependent on the next consonant
|
||
tr->langopts.vowel_pause = 4;
|
||
tr->letter_groups[0] = vowels_vi;
|
||
// tr->langopts.param[LOPT_UNPRONOUNCABLE] = 1; // disable check for unpronouncable words
|
||
tr->langopts.intonation = 1; // Tone language, use CalcPitches_Tone() rather than CalcPitches()
|
||
tr->langopts.unstressed_wd1 = 2;
|
||
|
||
}
|
||
break;
|
||
|
||
case L('z','h'):
|
||
case L_qa + 'a': // Test qaa
|
||
{
|
||
static int stress_lengths_qaa[8] = {200,200, 248,248, 248,0, 248,250};
|
||
static int stress_amps_qaa[] = {16,16, 20,20, 24,24, 24,22 };
|
||
tr = new Translator();
|
||
SetupTranslator(tr,stress_lengths_qaa,stress_amps_qaa);
|
||
|
||
tr->langopts.stress_rule = 0;
|
||
tr->langopts.vowel_pause = 0;
|
||
tr->langopts.intonation = 1; // Tone language, use CalcPitches_Tone() rather than CalcPitches()
|
||
tr->langopts.length_mods0 = tr->langopts.length_mods; // don't lengthen vowels in the last syllable
|
||
tr->langopts.tone_numbers = 9;
|
||
tr->langopts.ideographs = 1;
|
||
tr->langopts.word_gap = 0x5; // length of a final vowel is less dependent on the next consonant, don't merge consonant with next word
|
||
}
|
||
break;
|
||
|
||
default:
|
||
tr = new Translator();
|
||
break;
|
||
}
|
||
|
||
tr->translator_name = name2;
|
||
|
||
if(tr->langopts.numbers & 0x8)
|
||
{
|
||
// use . and ; for thousands and decimal separators
|
||
tr->langopts.thousands_sep = '.';
|
||
tr->langopts.decimal_sep = ',';
|
||
}
|
||
if(tr->langopts.numbers & 0x4)
|
||
{
|
||
tr->langopts.thousands_sep = 0; // don't allow thousands separator, except space
|
||
}
|
||
return(tr);
|
||
} // end of SelectTranslator
|
||
|
||
|
||
|
||
//**********************************************************************************************************
|
||
|
||
|
||
|
||
Translator_Russian::Translator_Russian() : Translator()
|
||
{//===================================
|
||
static int stress_amps_ru[] = {16,16, 18,18, 20,24, 24,22 };
|
||
static int stress_lengths_ru[8] = {150,140, 220,220, 0,0, 260,280};
|
||
|
||
|
||
// character codes offset by 0x420
|
||
static const char ru_vowels[] = {0x10,0x15,0x31,0x18,0x1e,0x23,0x2b,0x2d,0x2e,0x2f,0};
|
||
static const char ru_consonants[] = {0x11,0x12,0x13,0x14,0x16,0x17,0x19,0x1a,0x1b,0x1c,0x1d,0x1f,0x20,0x21,0x22,0x24,0x25,0x26,0x27,0x28,0x29,0x2a,0x2c,0};
|
||
static const char ru_soft[] = {0x2c,0x19,0x27,0x29,0}; // letter group B [k ts; s;]
|
||
static const char ru_hard[] = {0x2a,0x16,0x26,0x28,0}; // letter group H [S Z ts]
|
||
static const char ru_nothard[] = {0x11,0x12,0x13,0x14,0x17,0x19,0x1a,0x1b,0x1c,0x1d,0x1f,0x20,0x21,0x22,0x24,0x25,0x27,0x29,0x2c,0};
|
||
static const char ru_voiced[] = {0x11,0x12,0x13,0x14,0x16,0x17,0}; // letter group G (voiced obstruents)
|
||
static const char ru_ivowels[] = {0x2c,0x15,0x31,0x18,0x2e,0x2f,0}; // letter group Y (iotated vowels & soft-sign)
|
||
|
||
SetupTranslator(this,stress_lengths_ru,stress_amps_ru);
|
||
|
||
charset_a0 = charsets[18]; // KOI8-R
|
||
transpose_offset = 0x42f; // convert cyrillic from unicode into range 0x01 to 0x22
|
||
transpose_min = 0x430;
|
||
transpose_max = 0x451;
|
||
|
||
letter_bits_offset = OFFSET_CYRILLIC;
|
||
memset(letter_bits,0,sizeof(letter_bits));
|
||
SetLetterBits(this,0,ru_vowels);
|
||
SetLetterBits(this,1,ru_soft);
|
||
SetLetterBits(this,2,ru_consonants);
|
||
SetLetterBits(this,3,ru_hard);
|
||
SetLetterBits(this,4,ru_nothard);
|
||
SetLetterBits(this,5,ru_voiced);
|
||
SetLetterBits(this,6,ru_ivowels);
|
||
SetLetterBits(this,7,ru_vowels);
|
||
|
||
langopts.param[LOPT_UNPRONOUNCABLE] = 0x432; // [v] don't count this character at start of word
|
||
langopts.param[LOPT_REGRESSIVE_VOICING] = 1;
|
||
langopts.param[LOPT_REDUCE] = 2;
|
||
langopts.stress_rule = 5;
|
||
langopts.stress_flags = 0x0020; // waas 0x1010
|
||
|
||
langopts.numbers = 0x0409;
|
||
langopts.numbers2 = 0xc2; // variant numbers before thousands
|
||
langopts.phoneme_change = 1;
|
||
langopts.testing = 2;
|
||
|
||
} // end of Translator_Russian
|
||
|
||
|
||
#define PH(c1,c2) (c2<<8)+c1 // combine two characters into an integer for phoneme name
|
||
#define PY(c1,c2,c3) (c3<<16)+(c2<<8)+c1
|
||
|
||
/*
|
||
typedef struct {
|
||
int flags;
|
||
unsigned char stress; // stress level of this vowel
|
||
unsigned char stress_highest; // the highest stress level of a vowel in this word
|
||
unsigned char n_vowels; // number of vowels in the word
|
||
unsigned char vowel_this; // syllable number of this vowel (counting from 1)
|
||
unsigned char vowel_stressed; // syllable number of the highest stressed vowel
|
||
} CHANGEPH;
|
||
*/
|
||
|
||
|
||
#define RUSSIAN2
|
||
#ifdef RUSSIAN2
|
||
|
||
int Translator_Russian::ChangePhonemes(PHONEME_LIST2 *phlist, int n_ph, int index, PHONEME_TAB *ph, CHANGEPH *ch)
|
||
{//==============================================================================================================
|
||
// Called for each phoneme in the phoneme list, to allow a language to make changes
|
||
// ph The current phoneme
|
||
|
||
int variant;
|
||
int vowelix;
|
||
PHONEME_TAB *prev, *next;
|
||
|
||
if(ch->flags & 8)
|
||
return(0); // full phoneme translation has already been given
|
||
// Russian vowel softening and reduction rules
|
||
|
||
if(ph->type == phVOWEL)
|
||
{
|
||
int prestressed = ch->vowel_stressed==ch->vowel_this+1; // the next vowel after this has the main stress
|
||
|
||
#define N_VOWELS_RU 11
|
||
static unsigned int vowels_ru[N_VOWELS_RU] = {'a','V','O','I',PH('I','#'),PH('E','#'),PH('E','2'),
|
||
PH('V','#'),PH('I','3'),PH('I','2'),PH('E','3')};
|
||
|
||
|
||
static unsigned int vowel_replace[N_VOWELS_RU][6] = {
|
||
// stressed, soft, soft-stressed, j+stressed, j+soft, j+soft-stressed
|
||
/*0*/ {'A', 'I', PH('j','a'), 'a', 'a', 'a'}, // a Uses 3,4,5 columns.
|
||
/*1*/ {'A', 'V', PH('j','a'), 'a', 'V', 'a'}, // V Uses 3,4,5 columns.
|
||
/*2*/ {'o', '8', '8', 'o', '8', '8'}, // O
|
||
/*3*/ {'i', 'I', 'i', 'a', 'I', 'a'}, // I Uses 3,4,5 columns.
|
||
/*4*/ {'i', PH('I','#'), 'i', 'i', PH('I','#'), 'i'}, // I#
|
||
/*5*/ {'E', PH('E','#'), 'E', 'e', PH('E','#'), 'e'}, // E#
|
||
/*6*/ {'E', PH('E','2'), 'E', 'e', PH('E','2'), 'e'}, // E2 Uses 3,4,5 columns.
|
||
/*7*/ {PH('j','a'), 'V', PH('j','a'), 'A', 'V', 'A'}, // V#
|
||
/*8*/ {PH('j','a'), 'I', PH('j','a'), 'e', 'I', 'e'}, // I3 Uses 3,4,5 columns.
|
||
/*9*/ {'e', 'I', 'e', 'e', 'I', 'e'}, // I2
|
||
/*10*/ {'e', PH('E', '2'), 'e', 'e', PH('E','2'), 'e'} // E3
|
||
};
|
||
|
||
prev = phoneme_tab[phlist[index-1].phcode];
|
||
next = phoneme_tab[phlist[index+1].phcode];
|
||
|
||
// lookup the vowel name to get an index into the vowel_replace[] table
|
||
for(vowelix=0; vowelix<N_VOWELS_RU; vowelix++)
|
||
{
|
||
if(vowels_ru[vowelix] == ph->mnemonic)
|
||
break;
|
||
}
|
||
if(vowelix == N_VOWELS_RU)
|
||
return(0);
|
||
|
||
if(prestressed)
|
||
{
|
||
if((vowelix==6)&&(prev->mnemonic=='j'))
|
||
vowelix=8;
|
||
if(vowelix==1)
|
||
vowelix=0;
|
||
if(vowelix==4)
|
||
vowelix=3;
|
||
if(vowelix==6)
|
||
vowelix=5;
|
||
if(vowelix==7)
|
||
vowelix=8;
|
||
if(vowelix==10)
|
||
vowelix=9;
|
||
}
|
||
// do we need a variant of this vowel, depending on the stress and adjacent phonemes ?
|
||
variant = -1;
|
||
int stressed = ch->flags & 2;
|
||
int soft=prev->phflags & phPALATAL;
|
||
|
||
if (soft && stressed)
|
||
variant = 2; else
|
||
if (stressed)
|
||
variant = 0; else
|
||
if (soft)
|
||
variant = 1;
|
||
if(variant >= 0)
|
||
{
|
||
if(prev->mnemonic == 'j')
|
||
variant += 3;
|
||
|
||
phlist[index].phcode = PhonemeCode(vowel_replace[vowelix][variant]);
|
||
}
|
||
else
|
||
{
|
||
phlist[index].phcode = PhonemeCode(vowels_ru[vowelix]);
|
||
}
|
||
}
|
||
|
||
return(0);
|
||
}
|
||
#else
|
||
|
||
|
||
int Translator_Russian::ChangePhonemes(PHONEME_LIST2 *phlist, int n_ph, int index, PHONEME_TAB *ph, CHANGEPH *ch)
|
||
{//===============================================================================================================
|
||
// Called for each phoneme in the phoneme list, to allow a language to make changes
|
||
// flags: bit 0=1 last phoneme in a word
|
||
// bit 1=1 this is the highest stressed vowel in the current word
|
||
// bit 2=1 after the highest stressed vowel in the current word
|
||
// bit 3=1 the phonemes were specified explicitly, or found from an entry in the xx_list dictionary
|
||
// ph The current phoneme
|
||
|
||
int variant;
|
||
int vowelix;
|
||
PHONEME_TAB *prev, *next;
|
||
|
||
if(ch->flags & 8)
|
||
return(0); // full phoneme translation has already been given
|
||
|
||
// Russian vowel softening and reduction rules
|
||
if(ph->type == phVOWEL)
|
||
{
|
||
#define N_VOWELS_RU 7
|
||
static unsigned char vowels_ru[N_VOWELS_RU] = {'a','A','o','E','i','u','y'};
|
||
|
||
// each line gives: soft, reduced, soft-reduced, post-tonic
|
||
static unsigned short vowel_replace[N_VOWELS_RU][4] = {
|
||
{'&', 'V', 'I', 'V'}, // a
|
||
{'&', 'V', 'I', 'V'}, // A
|
||
{'8', 'V', 'I', 'V'}, // o
|
||
{'e', 'I', 'I', 'I'}, // E
|
||
{'i', 'I', 'I', 'I'}, // i
|
||
{'u'+('"'<<8), 'U', 'U', 'U'}, // u
|
||
{'y', 'Y', 'Y', 'Y'}}; // y
|
||
|
||
prev = phoneme_tab[phlist[index-1].phcode];
|
||
next = phoneme_tab[phlist[index+1].phcode];
|
||
|
||
if(prev->mnemonic == 'j')
|
||
return(0);
|
||
|
||
// lookup the vowel name to get an index into the vowel_replace[] table
|
||
for(vowelix=0; vowelix<N_VOWELS_RU; vowelix++)
|
||
{
|
||
if(vowels_ru[vowelix] == ph->mnemonic)
|
||
break;
|
||
}
|
||
if(vowelix == N_VOWELS_RU)
|
||
return(0);
|
||
|
||
// do we need a variant of this vowel, depending on the stress and adjacent phonemes ?
|
||
variant = -1;
|
||
if(ch->flags & 2)
|
||
{
|
||
// a stressed vowel
|
||
if((prev->phflags & phPALATAL) && ((next->phflags & phPALATAL) || phoneme_tab[phlist[index+2].phcode]->mnemonic == ';'))
|
||
{
|
||
// between two palatal consonants, use the soft variant
|
||
variant = 0;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
// an unstressed vowel
|
||
if(prev->phflags & phPALATAL)
|
||
{
|
||
variant = 2; // unstressed soft
|
||
}
|
||
else
|
||
if((ph->mnemonic == 'o') && ((prev->phflags & phPLACE) == phPLACE_pla))
|
||
{
|
||
variant = 2; // unstressed soft ([o] vowel following: ш ж
|
||
}
|
||
else
|
||
if(ch->flags & 4)
|
||
{
|
||
variant = 3; // post tonic
|
||
}
|
||
else
|
||
{
|
||
variant = 1; // unstressed
|
||
}
|
||
}
|
||
if(variant >= 0)
|
||
{
|
||
phlist[index].phcode = PhonemeCode(vowel_replace[vowelix][variant]);
|
||
}
|
||
}
|
||
|
||
return(0);
|
||
}
|
||
#endif
|
||
|
||
//**********************************************************************************************************
|
||
|
||
|
||
|
||
Translator_Afrikaans::Translator_Afrikaans() : Translator()
|
||
{//=========================================
|
||
// Initialise options for this language
|
||
|
||
static const int stress_lengths2[8] = {170,140, 220,220, 0, 0, 250,270};
|
||
langopts.stress_rule = 0;
|
||
langopts.word_gap = 0;
|
||
langopts.vowel_pause = 0x30;
|
||
langopts.param[LOPT_DIERESES] = 1;
|
||
langopts.param[LOPT_PREFIXES] = 1;
|
||
SetLetterVowel(this,'y'); // add 'y' to vowels
|
||
|
||
langopts.numbers = 0x0d1 + NUM_ROMAN;
|
||
memcpy(stress_lengths,stress_lengths2,sizeof(stress_lengths));
|
||
}
|
||
|
||
|
||
int Translator_Afrikaans::TranslateChar(char *ptr, int prev_in, unsigned int c, unsigned int next_in, int *insert)
|
||
{//===============================================================================================================
|
||
// look for 'n and replace by a special character (unicode: schwa)
|
||
|
||
if(!iswalpha(prev_in))
|
||
{
|
||
if((c == '\'') && (next_in == 'n'))
|
||
{
|
||
// n preceded by either apostrophe or U2019 "right single quotation mark"
|
||
ptr[0] = ' '; // delete the n
|
||
return(0x0259); // replace ' by unicode schwa character
|
||
}
|
||
}
|
||
return(c);
|
||
}
|
||
|
||
|