--- /dev/null
+/*
+ * 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 <anthm@freeswitch.org>
+ * Portions created by the Initial Developer are Copyright (C)
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ *
+ * Anthony Minessale II <anthm@freeswitch.org>
+ * Braga Bruno <bruno.braga@gmail.com>
+ *
+ *
+ * mod_say_ja.c -- Say for Japanese.
+ *
+ */
+
+#include <switch.h>
+#include <math.h>
+#include <ctype.h>
+#include <string.h>
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_say_ja_load);
+SWITCH_MODULE_DEFINITION(mod_say_ja, mod_say_ja_load, NULL, NULL);
+
+#define say_num(num, meth) { \
+ char tmp[80]; \
+ switch_status_t tstatus; \
+ switch_say_method_t smeth = say_args->method; \
+ switch_say_type_t stype = say_args->type; \
+ say_args->type = SST_ITEMS; say_args->method = meth; \
+ switch_snprintf(tmp, sizeof(tmp), "%u", (unsigned)num); \
+ if ((tstatus = \
+ ja_say_general_count(session, tmp, say_args, args)) \
+ != SWITCH_STATUS_SUCCESS) { \
+ return tstatus; \
+ } \
+ say_args->method = smeth; say_args->type = stype; \
+ } \
+
+#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 ja_say_general_count(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, switch_input_args_t *args)
+{
+ int in;
+ char sbuf[13] = "";
+ char digits[11];
+ int i;
+
+ if (!(tosay = switch_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);
+
+ if (in != 0) {
+ snprintf(digits, sizeof(digits), "%10.10d", in);
+ switch (say_args->method) {
+ case SSM_COUNTED:
+ say_file("digits/ordinal.wav");
+ /* Fall through */
+ case SSM_PRONOUNCED:
+ for (i = 0; i <= 9; i++) {
+ switch (i) {
+ case 0:
+ /* Billions column */
+ if (digits[i] != '0') {
+ if (digits[i] != '1')
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/10.wav");
+ if (memcmp(digits + 1, "0", 1) == 0)
+ say_file("digits/100000000.wav", digits[i]);
+ }
+ break;
+ case 1:
+ /* Hundred millions columns */
+ if (digits[i] != '0') {
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/100000000.wav", digits[i]);
+ }
+ break;
+ case 2:
+ /* Ten millions column */
+ if (digits[i] != '0') {
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/1000.wav");
+ if (memcmp(digits + 3, "000", 3) == 0)
+ say_file("digits/10000.wav", digits[i]);
+ }
+ break;
+ case 3:
+ /* Millions column */
+ if (digits[i] != '0') {
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/100.wav");
+ if (memcmp(digits + 4, "00", 2) == 0)
+ say_file("digits/10000.wav", digits[i]);
+ }
+ break;
+ case 4:
+ /* Hundred thousands column */
+ if (digits[i] != '0') {
+ if (digits[i] != '1')
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/10.wav");
+ if (memcmp(digits + 5, "0", 1) == 0)
+ say_file("digits/10000.wav", digits[i]);
+ }
+ break;
+
+ case 5:
+ /* Ten thousands column */
+ if (digits[i] != '0') {
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/10000.wav");
+ }
+ break;
+ case 6:
+ /* thousands column */
+ if (digits[i] != '0') {
+
+ switch (digits[i]) {
+ case '1':
+ if (memcmp(digits, "000000", 6) != 0) {
+ say_file("digits/1000s.wav");
+ } else {
+ say_file("digits/1000.wav");
+ }
+ break;
+ case '3':
+ say_file("digits/3000.wav");
+ break;
+ default:
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/1000.wav");
+ break;
+ }
+ }
+ break;
+ case 7:
+ /* hundreds column */
+ if (digits[i] != '0') {
+ switch (digits[i]) {
+ case '1':
+ say_file("digits/100.wav");
+ break;
+ case '3':
+ say_file("digits/300.wav");
+ break;
+ case '6':
+ say_file("digits/600.wav");
+ break;
+ case '8':
+ say_file("digits/800.wav");
+ break;
+ default:
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/100.wav");
+ break;
+ }
+ }
+ break;
+ case 8:
+ /* Tens column */
+ if (digits[i] != '0') {
+ if (digits[i] != '1')
+ say_file("digits/%c.wav", digits[i]);
+ say_file("digits/10.wav");
+ }
+ break;
+ case 9:
+ /* Units column */
+ if (digits[i] != '0')
+ say_file("digits/%c.wav", digits[i]);
+ break;
+ }
+ }
+ break;
+ case SSM_ITERATED:
+ {
+ char *p;
+ for (p = tosay; p && *p; p++)
+ say_file("digits/%c.wav", *p);
+ }
+ break;
+ default:
+ break;
+ }
+ } else {
+ say_file("digits/0.wav");
+ }
+
+ return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t ja_say_time(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, switch_input_args_t *args)
+{
+ int32_t t;
+ switch_time_t target = 0;
+ switch_time_exp_t tm;
+ uint8_t say_date = 0;
+ uint8_t say_time = 0;
+
+ int mod_min;
+ char buffer[3];
+
+
+ if (say_args->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 = atoi(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;
+ }
+ }
+
+ if (hours) {
+ say_num(hours, SSM_PRONOUNCED);
+ say_file("time/hours.wav");
+ }
+ if (minutes) {
+ say_num(minutes, SSM_PRONOUNCED);
+ say_file("time/minute.wav");
+ } else {
+ if (hours) {
+ say_file("digits/0.wav");
+ say_file("time/minute.wav");
+ }
+ }
+
+ if (seconds) {
+ say_num(hours, SSM_PRONOUNCED);
+ say_file("time/seconds.wav");
+ } else {
+ if (hours || minutes) {
+ say_file("digits/0.wav");
+ say_file("time/second.wav");
+ }
+ }
+
+ return SWITCH_STATUS_SUCCESS;
+ }
+
+ if ((t = atoi(tosay)) > 0)
+ target = switch_time_make(t, 0);
+ else
+ target = switch_micro_time_now();
+ switch_time_exp_lt(&tm, target);
+
+ switch (say_args->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;
+ default:
+ break;
+ }
+
+ if (say_date) {
+ say_num(tm.tm_year + 1900, SSM_PRONOUNCED);
+ say_file("time/year.wav");
+ say_file("time/month-%d.wav", tm.tm_mon);
+ say_file("time/day-%d.wav", tm.tm_mday);
+ }
+
+ if (say_time) {
+ int32_t hour = tm.tm_hour;
+
+ if (hour < 12) {
+ say_file("time/am.wav");
+ } else {
+ say_file("time/pm.wav");
+ }
+ say_file("time/hour-%d.wav", tm.tm_hour);
+ if (tm.tm_min > 10) {
+ int temp;
+ char tch[1+1];
+ mod_min = tm.tm_min % 10;
+ memset(buffer,0,sizeof(buffer));
+ memset(tch,0,sizeof(tch));
+ sprintf(buffer, "%d", tm.tm_min);
+ memcpy(tch,buffer,1);
+ temp = atoi(tch);
+ if (temp > 1){
+ say_num(temp,SSM_PRONOUNCED);
+ }
+ if (mod_min != 0){
+ say_file("digits/10.wav");
+ }
+ else{
+ mod_min = 10;
+ }
+ } else {
+ mod_min = tm.tm_min;
+ }
+ switch(mod_min) {
+ case 0:
+ say_file("time/oclock.wav", mod_min);
+ break;
+ case 1:
+ case 3:
+ case 4:
+ case 6:
+ case 8:
+ case 10:
+ say_file("time/min-%d.wav", mod_min);
+ break;
+ default:
+ say_num(mod_min, SSM_PRONOUNCED);
+ say_file("time/minute.wav");
+ break;
+ }
+ }
+ return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t ja_say_money(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, switch_input_args_t *args)
+{
+ char sbuf[16] = ""; /* enough for 999,999,999,999.99 (w/o the commas or leading $) */
+ char *dollars = NULL;
+ char *cents = NULL;
+
+ if (strlen(tosay) > 15 || !(tosay = switch_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 positive sign - skip over" */
+ if (sbuf[0] == '+') {
+ dollars++;
+ }
+
+ /* If negative say "negative" */
+ if (sbuf[0] == '-') {
+ say_file("currency/negative.wav");
+ dollars++;
+ }
+
+ /* Say dollar amount */
+ ja_say_general_count(session, dollars, say_args, args);
+ say_file("currency/dollar.wav");
+
+ /* Say cents */
+ if (cents) {
+ ja_say_general_count(session, cents, say_args, args);
+ } else {
+ say_file("digits/0.wav");
+ }
+ say_file("currency/cent.wav");
+
+ return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t ja_say(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, switch_input_args_t *args)
+{
+ switch_say_callback_t say_cb = NULL;
+
+ switch (say_args->type) {
+ case SST_NUMBER:
+ case SST_ITEMS:
+ case SST_PERSONS:
+ case SST_MESSAGES:
+ say_cb = ja_say_general_count;
+ break;
+ case SST_TIME_MEASUREMENT:
+ case SST_CURRENT_DATE:
+ case SST_CURRENT_TIME:
+ case SST_CURRENT_DATE_TIME:
+ say_cb = ja_say_time;
+ break;
+ case SST_IP_ADDRESS:
+ return switch_ivr_say_ip(session, tosay, ja_say_general_count, say_args, args);
+ break;
+ case SST_NAME_SPELLED:
+ case SST_NAME_PHONETIC:
+ return switch_ivr_say_spell(session, tosay, say_args, args);
+ break;
+ case SST_CURRENCY:
+ say_cb = ja_say_money;
+ break;
+ default:
+ switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unknown Say type=[%d]\n", say_args->type);
+ break;
+ }
+
+ if (say_cb) {
+ return say_cb(session, tosay, say_args, args);
+ }
+
+ return SWITCH_STATUS_FALSE;
+}
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_say_ja_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 = "ja";
+ say_interface->say_function = ja_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:
+ */
projects / thirdparty / freeswitch.git / commitdiff
