From 01cc1a1e535c3318b4f2cb0d26540a944886897e Mon Sep 17 00:00:00 2001 From: Buklov Boris Vladimirovich Date: Thu, 9 Apr 2009 19:56:08 +0000 Subject: [PATCH] first release git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12966 d0543943-73ff-0310-b7d9-9358b9ac24b2 --- src/mod/say/mod_say_ru/mod_say_ru.c | 1509 +++++++++++++++++++++++++++ 1 file changed, 1509 insertions(+) create mode 100644 src/mod/say/mod_say_ru/mod_say_ru.c diff --git a/src/mod/say/mod_say_ru/mod_say_ru.c b/src/mod/say/mod_say_ru/mod_say_ru.c new file mode 100644 index 0000000000..754c29968a --- /dev/null +++ b/src/mod/say/mod_say_ru/mod_say_ru.c @@ -0,0 +1,1509 @@ +/* + * Copyright (c) 2007, Anthony Minessale II + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * + * * Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * + * * Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * * Neither the name of the original author; nor the names of any contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS + * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT + * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR + * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * + * The Initial Developer of the Original Code is + * Anthony Minessale II + * Portions created by the Initial Developer are Copyright (C) + * the Initial Developer. All Rights Reserved. + * + * Contributor(s): + * + * Anthony Minessale II + * Michael B. Murdock + * Oleg Dolya + * Boris Buklov + * + * mod_say_ru.c -- Say for Russian + * + */ + +#include +#include +#include + +typedef enum { + male, //мужского пола + female, //женского + it //оно +} sex_t; + + + +typedef enum { + how_much, //сколько с полом + when, //какого - когда -- без пола + what_ //какая/какой/какое с полом +} question_t; //вопрос + + + +SWITCH_MODULE_LOAD_FUNCTION(mod_say_ru_load); +SWITCH_MODULE_DEFINITION(mod_say_ru, mod_say_ru_load, NULL, NULL); + +#define say_num(num, t) { \ + char tmp[80];\ + switch_status_t tstatus;\ + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)num); \ + if ((tstatus = ru_say_general_count(session, tmp, SST_ITEMS, t, args)) != SWITCH_STATUS_SUCCESS) {\ + return tstatus;\ + }}\ + +#define say_file(...) {\ + char tmp[80];\ + switch_status_t tstatus;\ + switch_snprintf(tmp, sizeof(tmp), __VA_ARGS__);\ + if ((tstatus = switch_ivr_play_file(session, NULL, tmp, args)) != SWITCH_STATUS_SUCCESS){ \ + return tstatus;\ + }\ + if (!switch_channel_ready(switch_core_session_get_channel(session))) {\ + return SWITCH_STATUS_FALSE;\ + }}\ + + +static switch_status_t ru_spell(switch_core_session_t *session, char *tosay, switch_say_type_t type, switch_say_method_t method, switch_input_args_t *args) +{ + char *p; + + for (p = tosay; p && *p; p++) { + int a = tolower((int) *p); + if (a >= 48 && a <= 57) { + say_file("digits/%d.wav", a - 48); + } else { + if (type == SST_NAME_SPELLED) { + say_file("ascii/%d.wav", a); + } else if (type == SST_NAME_PHONETIC) { + say_file("phonetic-ascii/%d.wav", a); + } + } + } + + return SWITCH_STATUS_SUCCESS; +} + +//воспроизводить по 3 цифры +static switch_status_t play_group( sex_t sex,question_t question, int a, int b, int c, + char *what,int last, switch_core_session_t *session, switch_input_args_t *args) +{ + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group %d %d %d sex=%d q=%d last=%d\n", a,b,c,sex,question,last); + if (a) { + if ((b==0)||(c==0)) { // если b и с равны 0 то сказать шестьсот, сестисотый, шестисотая + switch (question) { +//------------------------------------------------------ + case how_much: //сколько когда дальше нету цифр например 100 200... + switch (sex) { //пол + case male: //мужчина + say_file("digits/%d00.wav", a); //сто + if (what=="thousand") { + say_file("digits/thousands.wav");//тысяч + } + else if (what=="million") { + say_file("digits/millions.wav");//миллионов + } + //------------- + break; + + case female: //женщина + say_file("digits/%d00.wav", a);//сто + if (what=="thousand") { + say_file("digits/thousands.wav");//тысяч + } + else if (what=="million") { + say_file("digits/millions.wav");//миллионов + } + break; + //------------- + case it: //оно + say_file("digits/%d00.wav", a);//сто + if (what=="thousand") { + say_file("digits/thousands.wav"); //тысяч + } + else if (what=="million") { + say_file("digits/millions.wav");//миллионов + } + break; + //------------- + } + break; +//------------------------------------------------------ + case what_: //какой/я/ое + switch (sex) { //пол + case male: //мужчина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionx.wav");//тысячный + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/thousands.wav");//тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionm.wav");//Миллионный + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/millions.wav");//миллионов + } + } + else { + say_file("digits/h-%d00m.wav", a);//сотый двухсотый + } + break; + + case female: //женщина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionf.wav");//тысячная + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/thousands.wav");//тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionf.wav");//Миллионная + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/millions.wav");//миллионов + } + } + else { + say_file("digits/h-%d00f.wav", a);//сотая двухсотая + } + break; + case it: //оно + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionn.wav");//тысячное + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/thousands.wav");//тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionn.wav");//Миллионное + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/millions.wav");//миллионов + } + } + else { + say_file("digits/h-%d00n.wav", a);//сотого + } + break; + } + break; +//------------------------------------------------------- + case when: //какого - когда без пола + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionx.wav");//тысячного + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/thousands.wav");//тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d00xx.wav", a);//двухсот + say_file("digits/h-millionx.wav");//Миллионного + } + else { + say_file("digits/%d00.wav", a);//двести + say_file("digits/millions.wav");//миллионов + } + } + else { + say_file("digits/h-%d00x.wav", a);//сотого + } + break; + } //end switch (question) + }//end if ((b==0)||(c==0)) + else // если есть ещё цифры + { + switch (question) { + case how_much: + say_file("digits/%d00.wav", a); //просто сто и тд + break; + case what_: + if (last==0) { + say_file("digits/h-%d00xx.wav", a); + } + else { + say_file("digits/%d00.wav", a); //сто + } + break; + case when: + if (last==0) { + say_file("digits/h-%d00xx.wav", a); + } + else { + say_file("digits/%d00.wav", a); //сто + } + break; + } + } + }//end if (a) + if (b) // если b больше 0 + { + if (b > 1) { //если цифры больше 19 + if (c==0) { // если c == нолю 20-30-40-50 + switch (question) { +//------------------------------------------------------ + case how_much: //сколько когда дальше нету цифр например 10 20... + switch (sex) { //пол + case male: //мужчина + say_file("digits/%d0.wav", b); //двадцать + if (what=="thousand") { + say_file("digits/thousands.wav", b); //тысяч + } + else if (what=="millon") { + say_file("digits/millions.wav", b); //миллионов + } + //------------- + break; + + case female: //женщина + say_file("digits/%d0.wav", b);//двадцать + if (what=="thousand") { + say_file("digits/thousands.wav", b); //тысяч + } + else if (what=="millon") { + say_file("digits/millions.wav", b); //миллионов + } + break; + //------------- + case it: //оно + say_file("digits/%d0.wav", b);// двадцать + if (what=="thousand") { + say_file("digits/thousands.wav", b); //тысяч + } + else if (what=="millon") { + say_file("digits/millions.wav", b); //миллионов + } + break; + //------------- + } + break; +//------------------------------------------------------ + case what_: //какой/я/ое >19 и c==0 20-30-40 + switch (sex) { //пол + case male: //мужчина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-thousandm.wav", b); //тысячный + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-millionm.wav", b); //миллионный + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d0m.wav", b);//двадцатый + } + else { + say_file("digits/%d0.wav", b);//двадцать + } + } + break; + case female: //женщина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-thousandf.wav", b); //тысячная + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-millionf.wav", b); //миллионная + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d0f.wav", b);//двадцатая + } + else { + say_file("digits/%d0.wav", b);//двадцать + } + } + break; + case it: //оно + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-thousandn.wav", b); //тысячное + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-millionn.wav", b); //миллионное + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d0n.wav", b);//двадцатое + } + else { + say_file("digits/%d0.wav", b);//двадцать + } + } + break; + } + break; +//------------------------------------------------------- + case when: //какого - когда без пола + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-thousandx.wav", b); //тысячного + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d0xx.wav", b);//двадцати + say_file("digits/h-millionx.wav", b); //миллионного + } + else { + say_file("digits/%d0.wav", b);//двадцать + say_file("digits/h-thousand.wav", b); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d0x.wav", b);//двадцатого + } + else { + say_file("digits/%d0.wav", b);//двадцать + } + } + break; + } + }//конец если c == нолю + else + { + say_file("digits/%d0.wav", b); // иначе просто двадцать .. и тд + } + }//конец если больше 19 + else { //если цифры меньше 20 + switch (question) { +//------------------------------------------------------ + case how_much: //сколько когда от 10 до 19 + switch (sex) { //пол + case male: //мужчина + say_file("digits/%d%d.wav",b ,c); //девятнадцать + if (what=="thousand") { + say_file("digits/thousands.wav"); //тысяч + } + else if (what=="million") { + say_file("digits/millions.wav"); //миллионов + } + //------------- + break; + case female: //женщина + say_file("digits/%d%d.wav",b ,c);//девятнадцать + if (what=="thousand") { + say_file("digits/thousands.wav"); //тысяч + } + else if (what=="million") { + say_file("digits/millions.wav"); //миллионов + } + break; + //------------- + case it: //оно + say_file("digits/%d%d.wav",b ,c);// девятнадцать + if (what=="thousand") { + say_file("digits/thousands.wav"); //тысяч + } + else if (what=="million") { + say_file("digits/millions.wav"); //миллионов + } + break; + //------------- + } + break; +//------------------------------------------------------ + case what_: //какой/я/ое + switch (sex) { //пол + case male: //женщина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-thousandm.wav"); //тысячный + } + else { + say_file("digits/%d%d.wav", b,c);//девятнацать + say_file("digits/h-thousand.wav"); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-millionm.wav"); //миллионный + } + else { + say_file("digits/%d%d.wav", b,c);//девятнадцать + say_file("digits/h-thousand.wav"); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d%dm.wav", b,c);//девятнадцатый + } + else { + say_file("digits/%d%d.wav");//девятнадцать + } + } + case female: //женщина + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-thousandf.wav"); //тысячная + } + else { + say_file("digits/%d%d.wav", b,c);//девятнацать + say_file("digits/h-thousand.wav"); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-millionf.wav"); //миллионная + } + else { + say_file("digits/%d%d.wav", b,c);//девятнадцать + say_file("digits/h-thousand.wav"); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d%df.wav", b,c);//девятнадцатая + } + else { + say_file("digits/%d%d.wav");//девятнадцать + } + } + break; + case it: //оно + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-thousandn.wav"); //тысячное + } + else { + say_file("digits/%d%d.wav", b,c);//девятнацать + say_file("digits/h-thousand.wav"); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-millionn.wav"); //миллионное + } + else { + say_file("digits/%d%d.wav", b,c);//девятнадцать + say_file("digits/h-thousand.wav"); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d%dn.wav", b,c);//девятнадцатое + } + else { + say_file("digits/%d%d.wav");//девятнадцать + } + } + break; + } + break; +//------------------------------------------------------- + case when: //какого - когда без пола + if (what=="thousand") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-thousandx.wav"); //тысячного + } + else { + say_file("digits/%d%d.wav", b,c);//девятнацать + say_file("digits/h-thousand.wav"); //тысяч + } + } + else if (what=="million") { + if (last==0) { + say_file("digits/h-%d%dxx.wav", b,c);//десяти, пятнадцати .. + say_file("digits/h-millionx.wav"); //миллионного + } + else { + say_file("digits/%d%d.wav", b,c);//девятнадцать + say_file("digits/h-thousand.wav"); //миллионов + } + } + else { //без миллионов и тысяч + if (last==0) { + say_file("digits/h-%d%dx.wav", b,c);//девятнадцатого + } + else { + say_file("digits/%d%d.wav");//девятнадцать + } + } + + break; + }//конец если c == нолю + c=0; //что бы не проговаривать c + }// конец //если цифры меньше 20 + }//конец if (b) + + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group c \n"); + + + + if ((c)||(what=="zero")) {// последняя цифра (самая сложная) или проговорить ноль , для случает когда первые цифры нули + if (c>2||c==0) {//0 и 3-9 + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group c 1\n"); + + switch (question) + { +//------------------------------------------------------ + case how_much: //сколько 3-9 + switch (sex) + { //пол + case male: //мужчина + if (what=="thousand") { //тысяч + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три - четыре + say_file("digits/thousands-i.wav"); //тысячи + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/thousands.wav"); //тысяч + } + } + else if (what=="million") { //миллионов + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три четыре + say_file("digits/million-a.wav"); //миллиона + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/millions.wav"); //миллионов + } + } + else { + say_file("digits/%d.wav", c);// три девять ноль + } + break; + + case female: //женщина + if (what=="thousand") { //тысяч + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три - четыре + say_file("digits/thousands-i.wav"); //тысячи + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/thousands.wav"); //тысяч + } + } + else if (what=="million") { //миллионов + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три четыре + say_file("digits/million-a.wav"); //миллиона + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/millions.wav"); //миллионов + } + } + else { + say_file("digits/%d.wav", c);// три девять ноль + } + break; + + //------------- + case it: //оно + if (what=="thousand") { //тысяч + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три - четыре + say_file("digits/thousands-i.wav"); //тысячи + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/thousands.wav"); //тысяч + } + } + else if (what=="million") { //миллионов + if ((c>2)&&(c<5)) { + say_file("digits/%d.wav", c);// три четыре + say_file("digits/million-a.wav"); //миллиона + } + else{ + say_file("digits/%d.wav", c);// пять .. девять + say_file("digits/millions.wav"); //миллионов + } + } + else { + say_file("digits/%d.wav", c);// три девять ноль + } + break; + } + break; +//------------------------------------------------------ + case what_: //какой/я/ое + switch (sex) + { //пол + case male: //мужчина + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-thousandm.wav"); //тысячный + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-millionm.wav"); //миллионный + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dm.wav", c);//третий нулевой .. + } + break; + case female: //женщина + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-thousandf.wav"); //тысячная + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-millionf.wav"); //миллионная + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%df.wav", c);//третья нулевая .. + } + break; + case it: //оно + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-thousandn.wav"); //тысячное + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-millionn.wav"); //миллионное + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dn.wav", c);//третье нулевое .. + } + break; + } + break; +//------------------------------------------------------- + case when: //какого - когда без пола + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-thousandx.wav"); //тысячного + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + say_file("digits/h-millionx.wav"); //миллионого + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dx.wav", c);//третьего нулевого .. + } + break; + }//конец switch (question) + } //конец //0 и 3-9 + else if ((c==2)||(c==1)) { //1 2 + switch (question) { +//------------------------------------------------------ + case how_much: // + switch (sex) + { //пол + case male: //мужчина + if (what=="thousand") { + if (c==1) { + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousand.wav"); //тысяча + } + else{ + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + say_file("digits/%d.wav", c); // один два + if (c==1) { + say_file("digits/million.wav", c); //миллион + } + else { //один два + say_file("digits/million-a.wav"); // миллиона + } + } + else { //просто один два + say_file("digits/%d.wav", c); // один два + } + break; + //------------- + case female: //женщина + if (what=="thousand") { + if (c==1) { + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousand.wav"); //тысяча + } + else{ + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + say_file("digits/%d.wav", c); // один два + if (c==1) { + say_file("digits/million.wav"); //миллион + } + else { //один два + say_file("digits/million-a.wav"); // миллиона + } + } + else { //просто одна две + say_file("digits/%df.wav", c); // одна две + } + break; + //------------- + case it: //оно + if (what=="thousand") { + if (c==1) { + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousand.wav"); //тысяча + } + else{ + say_file("digits/%df.wav", c); // одна две + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + say_file("digits/%d.wav", c); // один два + if (c==1) { + say_file("digits/million.wav"); //миллион + } + else { //один два + say_file("digits/million-a.wav"); // миллиона + } + } + else { //просто одно две + say_file("digits/%dn.wav", c); // одна две + } + break; + } + break; +//------------------------------------------------------ + case what_: //какой/я/ое + switch (sex) + { //пол + case male: //мужчина + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух,одна 2-х, ... + if (c!=1) { //не произность одна тысячный + say_file("digits/h-%dxx.wav", c);//одна, двух + } + say_file("digits/h-thousandm.wav"); //тысячный + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%df.wav", c);//одна две + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + if (c!=1) { + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + } + say_file("digits/h-millionm.wav"); //миллионный + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand-a.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dm.wav", c);//третий нулевой .. + } + break; + case female: //женщина + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 1-х, 2-х ... + if (c!=1) { //не произность одна тысячная + say_file("digits/h-%dxx.wav", c);//одна, двух + } + say_file("digits/h-thousandf.wav"); //тысячная + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%df.wav", c);//две четыре .. + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + if (c!=1) { + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + } + say_file("digits/h-millionf.wav"); //миллионная + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand-a.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%df.wav", c);//третья нулевая .. + } + break; + case it: //оно + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 1-х, 2-х ... + if (c!=1) { //не произность одна тысячное + say_file("digits/h-%dxx.wav", c);//одна, двух + } + say_file("digits/h-thousandn.wav"); //тысячное + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%df.wav", c);//две .. + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + if (c!=1) { + say_file("digits/h-%dxx.wav", c);//одна, двух + } + say_file("digits/h-millionn.wav"); //миллионное + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand-a.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dn.wav", c);//третье нулевое .. + } + break; + } + break; +//------------------------------------------------------- + case when: //какого - когда без пола + if (what=="thousand") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + if (c!=1) { //не произность одна тысячного + say_file("digits/h-%dxx.wav", c);//одна, двух + } + say_file("digits/h-thousandx.wav"); //тысячного + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%df.wav", c);//две четыре .. + say_file("digits/thousands-i.wav"); //тысячи + } + } + else if (what=="million") { + if (last==0) {// если дальше нету цифр значит говорить двух, 3-х, 4-х ... + if (c!=1) { + say_file("digits/h-%dxx.wav", c);//одна, двух, трёх + } + say_file("digits/h-millionx.wav"); //миллионного + } + else { //если есть дальше цифры меньше 1000 + say_file("digits/%d.wav", c);//три четыре .. + say_file("digits/thousand-a.wav"); //миллиона + } + }//просто цифры без тысяч + else{ + say_file("digits/h-%dx.wav", c);//третьего нулевого .. + } + break; + } + }//else if ((c==2)||(c==1)) { //1 2 + + }//конец if ((c)||(what=="zero")) + return SWITCH_STATUS_SUCCESS; +} + + + + +static char *strip_commas(char *in, char *out, switch_size_t len) +{ + char *p = in, *q = out; + char *ret = out; + switch_size_t x = 0; + + for (; p && *p; p++) { + if ((*p > 47 && *p < 58)) { + *q++ = *p; + } else if (*p != ',') { + ret = NULL; + break; + } + + if (++x > len) { + ret = NULL; + break; + } + } + + return ret; +} + +static char *strip_nonnumerics(char *in, char *out, switch_size_t len) +{ + char *p = in, *q = out; + char *ret = out; + switch_size_t x = 0; + // valid are 0 - 9, period (.), minus (-), and plus (+) - remove all others + for (; p && *p; p++) { + if ((*p > 47 && *p < 58) || *p == '.' || *p == '-' || *p == '+') { + *q++ = *p; + } + + if (++x > len) { + ret = NULL; + break; + } + } + + return ret; +} + + +static switch_status_t ru_say_count(switch_core_session_t *session, + char *tosay, sex_t sex, question_t question, switch_input_args_t *args) +{ + int in; + int x = 0; + int places[9] = { 0 }; + char sbuf[13] = ""; + + switch_status_t status; + + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "ru_say_count %d %d %d other!\n", places[2], places[1], places[0]); + + if (!(tosay = strip_commas(tosay, sbuf, sizeof(sbuf))) || strlen(tosay) > 9) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Parse Error!\n"); + return SWITCH_STATUS_GENERR; + } + + in = atoi(tosay); + int in_ = in; + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "int in=%d!\n", in); + if (in != 0) { + for (x = 8; x >= 0; x--) { + int num = (int) pow(10, x); + if ((places[(uint32_t) x] = in / num)) { + in -= places[(uint32_t) x] * num; + } + } + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "int in=%d \n", in); + + if ((status = play_group(sex,question, places[8], places[7], places[6], "million",in%1000000, session, args)) != SWITCH_STATUS_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group %d %d %d million!\n", places[8], places[7], places[6]); + return status; + } + if ((status = play_group(sex,question, places[5], places[4], places[3], "thousand",in_%1000,session, args)) != SWITCH_STATUS_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group %d %d %d thousand!\n", places[5], places[4], places[3]); + return status; + } + if ((status = play_group(sex,question, places[2], places[1], places[0], NULL, 0,session, args)) != SWITCH_STATUS_SUCCESS) + { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group %d %d %d other!\n", places[2], places[1], places[0]); + return status; + } + } else { //если ноль что бы и его проговаривать в правильных падежах + if ((status = play_group(sex,question, places[2], places[1], places[0], "zero",0, session, args)) != SWITCH_STATUS_SUCCESS) + { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "play group %d %d %d other!\n", places[2], places[1], places[0]); + return status; + } + } + + return SWITCH_STATUS_SUCCESS; +} + + +static switch_status_t ru_say_general_count(switch_core_session_t *session, + char *tosay, switch_say_type_t type, switch_say_method_t method, switch_input_args_t *args) +{ + switch_status_t status; + sex_t sex; + question_t question; + + if (type== SST_MESSAGES) + { + sex=it; + question=how_much; + } + else if (type== SST_NUMBER||type==SST_PERSONS) + { + sex=male; + question=how_much; + } + else if (type== SST_ITEMS) + { + sex=male; + question=what_; + } + else + { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unknown Say type=[%d]\n", type); + return SWITCH_STATUS_FALSE; + } + status=ru_say_count(session,tosay,sex,question,args); + return SWITCH_STATUS_SUCCESS; +} + + + +static switch_status_t ru_say_money(switch_core_session_t *session, char *tosay, switch_say_type_t type, + switch_say_method_t method,switch_input_args_t *args) +{ + char sbuf[16] = ""; + char *dollars = NULL; + char *cents = NULL; + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, " ru_say_money %s\n",tosay ); + if (strlen(tosay) > 15 || !(tosay = strip_nonnumerics(tosay, sbuf, sizeof(sbuf)))) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Parse Error!\n"); + return SWITCH_STATUS_GENERR; + } + dollars = sbuf; + + if ((cents = strchr(sbuf, '.'))) { + *cents++ = '\0'; + if (strlen(cents) > 2) { + cents[2] = '\0'; + } + } + if (sbuf[0] == '+') { + dollars++; + } + + if (sbuf[0] == '-') { + say_file("currency/minus.wav"); + dollars++; + } + ru_say_count(session,dollars ,male,how_much,args); + int idollars = atoi(dollars)%100; + int idollar = atoi(dollars)%10; + if (idollars == 1 || (idollars > 20 && idollar == 1)) {/* рубль */ + say_file("currency/dollar.wav"); + } + else if ((idollars > 1 && idollars < 5) || (idollars > 20 && idollar > 1 && idollar < 5)) { /*рубля */ + say_file("currency/dollar1.wav"); + } + else { /*рублей */ + say_file("currency/dollar2.wav"); + } + /* Say cents */ + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, " %s\n",cents ); + ru_say_count(session,cents ,female,how_much,args); + int icents = atoi(cents)%100; + int icent = atoi(cents)%10; + if (icents == 1 || (icents > 20 && icent == 1)) + { + /* копейка */ + say_file("currency/cent.wav"); + } + else if ((icents > 1 && icents < 5) || (icents > 20 && icent > 1 && icent < 5)) + { + /* копейки */ + say_file("currency/cent1.wav"); + } + else + { + /* копеек */ + say_file("currency/cents.wav"); + } + return SWITCH_STATUS_SUCCESS; +} + + +static switch_status_t ru_say_time(switch_core_session_t *session, char *tosay, switch_say_type_t type, switch_say_method_t method, + switch_input_args_t *args) +{ + int32_t t; + char tmp[80]; + switch_time_t target = 0, target_now = 0; + switch_time_exp_t tm, tm_now; + uint8_t say_date = 0, say_time = 0, say_year = 0, say_month = 0, say_dow = 0, say_day = 0, say_yesterday = 0, say_today = 0; + switch_channel_t *channel = switch_core_session_get_channel(session); + const char *tz = switch_channel_get_variable(channel, "timezone"); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, " ru_say_time %s type=%d method=%d\n",tosay, type,method ); + + if (type == SST_TIME_MEASUREMENT) { + int64_t hours = 0; + int64_t minutes = 0; + int64_t seconds = 0; + int64_t r = 0; + + if (strchr(tosay, ':')) { + char *tme = switch_core_session_strdup(session, tosay); + char *p; + + if ((p = strrchr(tme, ':'))) { + *p++ = '\0'; + seconds = atoi(p); + if ((p = strchr(tme, ':'))) { + *p++ = '\0'; + minutes = atoi(p); + if (tme) { + hours = atoi(tme); + } + } else { + minutes = atoi(tme); + } + } + } else { + if ((seconds = atol(tosay)) <= 0) { + seconds = (int64_t) switch_epoch_time_now(NULL); + } + + if (seconds >= 60) { + minutes = seconds / 60; + r = seconds % 60; + seconds = r; + } + + if (minutes >= 60) { + hours = minutes / 60; + r = minutes % 60; + minutes = r; + } + } + + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)hours); + ru_say_count(session,tmp ,male,how_much,args); + if (((hours%10) == 1) && (hours!=11)) { + /* час */ + say_file("time/hour.wav"); + } + else if (((hours%10>1)&&(hours%10<5)) &&((hours<12)||(hours>14))) { + say_file("time/hours-a.wav"); /* часа */ + } + else { + say_file("time/hours.wav"); /* часов*/ + } + + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)minutes); //перевести минуты в *char + ru_say_count(session,tmp ,female,how_much,args); + if (((minutes%10) == 1) && (minutes!=11)) { + say_file("time/minute.wav"); //минута + } + else if (((minutes%10>1)&&(minutes%10<5))&&((minutes<12)||(minutes>14))){ + say_file("time/minutes-i.wav"); // минуты + } + else { + say_file("time/minutes.wav"); //минут + } + + if (seconds!=0) { + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)seconds); + ru_say_count(session,tmp ,female,how_much,args); + if (((seconds%10) == 1) && (seconds!=11)) { + say_file("time/second.wav"); // секунда + } + else if (((seconds%10>1)&&(seconds%10<5))&&((seconds<12)||(seconds>14))) { + say_file("time/seconds-i.wav"); // секуны + } + else { + say_file("time/seconds.wav"); //секунд + } + } + + return SWITCH_STATUS_SUCCESS; + } + + if ((t = atol(tosay)) > 0) { + target = switch_time_make(t, 0); + target_now = switch_micro_time_now(); + } else { + target = switch_micro_time_now(); + target_now = switch_micro_time_now(); + } + + if (tz) { + int check = atoi(tz); + if (check) { + switch_time_exp_tz(&tm, target, check); + switch_time_exp_tz(&tm_now, target_now, check); + } else { + switch_time_exp_tz_name(tz, &tm, target); + switch_time_exp_tz_name(tz, &tm_now, target_now); + } + } else { + switch_time_exp_lt(&tm, target); + switch_time_exp_lt(&tm_now, target_now); + } + switch (type) { + case SST_CURRENT_DATE_TIME: + say_date = say_time = 1; + break; + case SST_CURRENT_DATE: + say_date = 1; + break; + case SST_CURRENT_TIME: + say_time = 1; + break; + case SST_SHORT_DATE_TIME: + say_time = 1; + if (tm.tm_year != tm_now.tm_year) { + say_date = 1; + break; + } + if (tm.tm_yday == tm_now.tm_yday) { + say_today = 1; + break; + } + if (tm.tm_yday == tm_now.tm_yday - 1) { + say_yesterday = 1; + break; + } + if (tm.tm_yday >= tm_now.tm_yday - 5) { + say_dow = 1; + break; + } + if (tm.tm_mon != tm_now.tm_mon) { + say_month = say_day = say_dow = 1; + break; + } + + say_month = say_day = say_dow = 1; + + break; + default: + break; + } + + if (say_today) { + say_file("time/today.wav"); + } + if (say_yesterday) { + say_file("time/yesterday.wav"); + } + if (say_dow) { + say_file("time/day-%d.wav", tm.tm_wday); + } + if (say_date) { + say_year = say_month = say_day = say_dow = 1; + say_today = say_yesterday = 0; + } + if (say_day) { + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)tm.tm_mday); + ru_say_count(session,tmp ,male,when,args); + } + if (say_month) { + say_file("time/mon-%d.wav", tm.tm_mon); + } + if (say_year) { + switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)(tm.tm_year + 1900)); + ru_say_count(session,tmp ,male,when,args); + say_file("time/h-year.wav"); + } + if (say_month||say_year||say_date||say_dow) + { + say_file("time/at.wav"); + } + if (say_time) { + switch_snprintf(tmp, sizeof(tmp), "%d:%d:%d",tm.tm_hour+1,tm.tm_min,tm.tm_sec); + ru_say_time(session, tmp, SST_TIME_MEASUREMENT, method, args); + } + return SWITCH_STATUS_SUCCESS; +} + + + +static switch_status_t ru_say(switch_core_session_t *session, char *tosay, switch_say_type_t type, switch_say_method_t method, switch_input_args_t *args) +{ + switch_say_callback_t say_cb = NULL; + + + switch (type) { + case SST_NUMBER: + case SST_ITEMS: + case SST_PERSONS: + case SST_MESSAGES: + say_cb = ru_say_general_count; + break; + case SST_TIME_MEASUREMENT: + say_cb = ru_say_time; + break; + + case SST_CURRENT_DATE: + say_cb = ru_say_time; + break; + + case SST_CURRENT_TIME: + say_cb = ru_say_time; + break; + + case SST_CURRENT_DATE_TIME: + say_cb = ru_say_time; + break; + case SST_IP_ADDRESS: +// say_cb = ru_ip; + break; + case SST_NAME_SPELLED: + case SST_NAME_PHONETIC: + say_cb = ru_spell; + break; + case SST_CURRENCY: + say_cb = ru_say_money; + break; + default: + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unknown Say type=[%d]\n", type); + break; + } + if (say_cb) { + return say_cb(session, tosay, type, method, args); + } + return SWITCH_STATUS_FALSE; +} + + + +SWITCH_MODULE_LOAD_FUNCTION(mod_say_ru_load) +{ + switch_say_interface_t *say_interface; + /* connect my internal structure to the blank pointer passed to me */ + *module_interface = switch_loadable_module_create_module_interface(pool, modname); + say_interface = switch_loadable_module_create_interface(*module_interface, SWITCH_SAY_INTERFACE); + say_interface->interface_name = "ru"; + say_interface->say_function = ru_say; + + /* indicate that the module should continue to be loaded */ + return SWITCH_STATUS_SUCCESS; +} + +/* For Emacs: + * Local Variables: + * mode:c + * indent-tabs-mode:t + * tab-width:4 + * c-basic-offset:4 + * End: + * For VIM: + * vim:set softtabstop=4 shiftwidth=4 tabstop=4: + */