Revert "Revert "FS-6967 New mod_say_es_AR to support Argentina Spanish variant.""

This reverts commit d9d9510c.

build/modules.conf.in

@@ -132,6 +132,7 @@ loggers/mod_syslog
 #say/mod_say_de
 say/mod_say_en
 #say/mod_say_es
+#say/mod_say_es_ar
 #say/mod_say_fa
 #say/mod_say_fr
 #say/mod_say_he

configure.ac

@@ -1587,6 +1587,7 @@ AC_CONFIG_FILES([Makefile
 		src/mod/say/mod_say_de/Makefile
 		src/mod/say/mod_say_en/Makefile
 		src/mod/say/mod_say_es/Makefile
+		src/mod/say/mod_say_es_ar/Makefile
 		src/mod/say/mod_say_fa/Makefile
 		src/mod/say/mod_say_fr/Makefile
 		src/mod/say/mod_say_he/Makefile

debian/control-modules

@@ -634,6 +634,10 @@ Module: say/mod_say_es
 Description: mod_say_es
  Adds mod_say_es.
 
+Module: say/mod_say_es_ar
+Description: mod_say_es_ar
+ Adds mod_say_es_ar.
+
 Module: say/mod_say_fa
 Description: mod_say_fa
  Adds mod_say_fa.

src/mod/say/mod_say_es_ar/Makefile.am

+include $(top_srcdir)/build/modmake.rulesam
+MODNAME=mod_say_es_ar
+
+mod_LTLIBRARIES = mod_say_es_ar.la
+mod_say_es_AR_la_SOURCES  = mod_say_es_ar.c
+mod_say_es_AR_la_CFLAGS   = $(AM_CFLAGS)
+mod_say_es_AR_la_LIBADD   = $(switch_builddir)/libfreeswitch.la
+mod_say_es_AR_la_LDFLAGS  = -avoid-version -module -no-undefined -shared

src/mod/say/mod_say_es_ar/mod_say_es_ar.c

+/*
+ * Copyright (c) 2007-2014, 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>
+ * Michael B. Murdock <mike@mmurdock.org>
+ * François Delawarde <fdelawarde@wirelessmundi.com>
+ * Joao Mesquita <jmesquita@freeswitch.org>
+ *
+ * mod_say_es_ar.c -- Say for Spanish (Argentina)
+ *
+ */
+
+#include <switch.h>
+#include <math.h>
+#include <ctype.h>
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_say_es_ar_load);
+SWITCH_MODULE_DEFINITION(mod_say_es_ar, mod_say_es_ar_load, NULL, NULL);
+
+
+#define say_num(_sh, 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 =													\
+			 es_say_general_count(_sh, tmp, say_args))					\
+			!= SWITCH_STATUS_SUCCESS) {									\
+			return tstatus;												\
+		}																\
+		say_args->method = smeth; say_args->type = stype;				\
+	}																	\
+
+
+
+static switch_status_t play_group(switch_say_method_t method, switch_say_gender_t gender, int a, int b, int c, char *what, switch_say_file_handle_t *sh)
+{
+
+	if (a) {
+		if (a == 1 && b == 0 && c == 0) {
+			switch_say_file(sh, "digits/hundred");
+		} else {
+			switch_say_file(sh, "digits/%d00", a);
+		}
+	}
+
+	if (b) {
+		if (method == SSM_COUNTED) {
+			/* Numeros no redondos es masculino siempre. */
+			if (gender == SSG_FEMININE && c == 0) {
+				switch_say_file(sh, "digits/h-%d0_a", b);
+
+			} else {
+				switch_say_file(sh, "digits/h-%d0", b);
+			}
+		} else {
+			/* Veinti */
+			if (b == 2) {
+				switch_say_file(sh, "digits/%d0_i", b);
+			} else if(b == 1) {
+				switch_say_file(sh, "digits/%d%d", b, c);
+			} else {
+				switch_say_file(sh, "digits/%d0", b);
+				if (c > 0) {
+					switch_say_file(sh, "digits/y");
+				}
+			}
+		}
+	}
+
+	if (c && b != 1) {
+		if (method == SSM_COUNTED) {
+			if (gender == SSG_FEMININE) {
+				switch_say_file(sh, "digits/h-%d_a", c);
+			} else {
+				switch_say_file(sh, "digits/h-%d", c);
+			}
+		} else {
+			if (c == 1) {
+				if (gender == SSG_NEUTER) {
+					switch_say_file(sh, "digits/%d_n", c);
+				} else if (gender == SSG_FEMININE) {
+					switch_say_file(sh, "digits/%d_a", c);
+				} else {
+					switch_say_file(sh, "digits/%d", c);
+				}
+			} else {
+				switch_say_file(sh, "digits/%d", c);
+			}
+		}
+	}
+
+	if (what && (a || b || c)) {
+		switch_say_file(sh, what);
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t es_say_general_count(switch_say_file_handle_t *sh, char *tosay, switch_say_args_t *say_args)
+{
+	int in;
+	int x = 0;
+	int places[9] = { 0 };
+	char sbuf[128] = "";
+	switch_status_t status;
+
+	if (say_args->method == SSM_ITERATED) {
+		if ((tosay = switch_strip_commas(tosay, sbuf, sizeof(sbuf)-1))) {
+			char *p;
+			for (p = tosay; p && *p; p++) {
+				char *n_p = p+1;
+				switch_say_file(sh, "digits/%c", *p);
+				if (n_p && *n_p) {
+					switch_say_file(sh, "silence_stream://100");
+				}
+			}
+		} else {
+			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Parse Error!\n");
+			return SWITCH_STATUS_GENERR;
+		}
+		return SWITCH_STATUS_SUCCESS;
+	}
+
+	if (!(tosay = switch_strip_commas(tosay, sbuf, sizeof(sbuf)-1)) || 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) {
+		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 (say_args->method) {
+		case SSM_PRONOUNCED_YEAR:
+			{
+				int num = atoi(tosay);
+				int a = num / 100;
+				int b = num % 100;
+
+				if (!b || !(a % 10)) {
+					say_num(sh, num, SSM_PRONOUNCED);
+					return SWITCH_STATUS_SUCCESS;
+				}
+
+				say_num(sh, a, SSM_PRONOUNCED);
+				say_num(sh, b, SSM_PRONOUNCED);
+
+				return SWITCH_STATUS_SUCCESS;
+			}
+			break;
+		case SSM_COUNTED:
+		case SSM_PRONOUNCED:
+			if ((status = play_group(SSM_PRONOUNCED, say_args->gender, places[8], places[7], places[6], "digits/million", sh)) != SWITCH_STATUS_SUCCESS) {
+				return status;
+			}
+			if ((status = play_group(SSM_PRONOUNCED, say_args->gender, places[5], places[4], places[3], "digits/thousand", sh)) != SWITCH_STATUS_SUCCESS) {
+				return status;
+			}
+			if ((status = play_group(say_args->method, say_args->gender, places[2], places[1], places[0], NULL, sh)) != SWITCH_STATUS_SUCCESS) {
+				return status;
+			}
+			break;
+		default:
+			break;
+		}
+	} else {
+		switch_say_file(sh, "digits/0");
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+static switch_status_t es_say_time(switch_say_file_handle_t *sh, char *tosay, switch_say_args_t *say_args)
+{
+	int32_t t;
+	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;
+	const char *tz = NULL;
+
+	tz = switch_say_file_handle_get_variable(sh, "timezone");		
+
+	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 = strdup(tosay);
+			char *p;
+
+			if ((p = strrchr(tme, ':'))) {
+				*p++ = '\0';
+				seconds = atoi(p);
+				if ((p = strchr(tme, ':'))) {
+					*p++ = '\0';
+					minutes = atoi(p);
+					hours = atoi(tme);
+				} else {
+					minutes = atoi(tme);
+				}
+			}
+			free(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;
+			}
+		}
+
+		if (hours) {
+			say_num(sh, hours, SSM_PRONOUNCED);
+			if (hours == 1) {
+				switch_say_file(sh, "time/hour");
+			} else {
+				switch_say_file(sh, "time/hours");
+			}
+		} else {
+			switch_say_file(sh, "digits/0");
+			switch_say_file(sh, "time/hours");
+		}
+
+		if (minutes) {
+			say_num(sh, minutes, SSM_PRONOUNCED);
+			if (minutes == 1) {
+				switch_say_file(sh, "time/minute");
+			} else {
+				switch_say_file(sh, "time/minutes");
+			}
+		} else {
+			switch_say_file(sh, "digits/0");
+			switch_say_file(sh, "time/minutes");
+		}
+
+		if (seconds) {
+			say_num(sh, seconds, SSM_PRONOUNCED);
+			if (seconds == 1) {
+				switch_say_file(sh, "time/second");
+			} else {
+				switch_say_file(sh, "time/seconds");
+			}
+		} else {
+			switch_say_file(sh, "digits/0");
+			switch_say_file(sh, "time/seconds");
+		}
+
+		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);
+		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "Timezone is [%s]\n", 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 (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;
+	case SST_SHORT_DATE_TIME:
+		say_time = 1;
+		//Time is in the future
+		if ((tm.tm_year > tm_now.tm_year) || 
+		    (tm.tm_year == tm_now.tm_year && tm.tm_mon > tm_now.tm_mon) || 
+		    (tm.tm_year == tm_now.tm_year && tm.tm_mon == tm_now.tm_mon && tm.tm_mday > tm_now.tm_mday))
+		{
+			say_date = 1;
+			break;
+		}
+		//Time is today or earlier
+		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) {
+		switch_say_file(sh, "time/today");
+	}
+	if (say_yesterday) {
+		switch_say_file(sh, "time/yesterday");
+	}
+	if (say_dow) {
+		switch_say_file(sh, "time/day-%d", tm.tm_wday);
+	}
+
+	if (say_date) {
+		say_year = say_month = say_day = say_dow = 1;
+		say_today = say_yesterday = 0;
+	}
+
+	if (say_day) {
+		if (tm.tm_mday == 1) {
+			say_num(sh, tm.tm_mday, SSM_COUNTED);
+		} else {
+			say_num(sh, tm.tm_mday, SSM_PRONOUNCED);
+		}
+		switch_say_file(sh, "time/de");
+	}
+	if (say_month) {
+		switch_say_file(sh, "time/mon-%d", tm.tm_mon);
+	}
+	if (say_year) {
+		switch_say_file(sh, "time/de");
+		say_num(sh, tm.tm_year + 1900, SSM_PRONOUNCED_YEAR);
+	}
+
+	if (say_time) {
+
+		if (say_date || say_today || say_yesterday || say_dow) {
+			switch_say_file(sh, "time/at");
+		}
+
+
+		if (tm.tm_hour == 1) {
+			switch_say_file(sh, "digits/1");
+			switch_say_file(sh, "time/hour");
+		} else {
+			say_num(sh, tm.tm_hour, SSM_PRONOUNCED);
+			switch_say_file(sh, "time/hours");
+		}
+
+		if (tm.tm_min == 1) {
+			switch_say_file(sh, "digits/1_1a");
+			switch_say_file(sh, "time/minute");
+		} else {
+			say_num(sh, tm.tm_min, SSM_PRONOUNCED);
+			switch_say_file(sh, "time/minutes");
+		}
+
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+
+static switch_status_t es_say_money(switch_say_file_handle_t *sh, char *tosay, switch_say_args_t *say_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 || !switch_strip_nonnumerics(tosay, sbuf, sizeof(sbuf)-1)) {
+		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] == '-') {
+		switch_say_file(sh, "currency/negative");
+		dollars++;
+	}
+
+	/* Say dollar amount */
+	es_say_general_count(sh, dollars, say_args);
+	if (atoi(dollars) == 1) {
+		switch_say_file(sh, "currency/dollar");
+	} else {
+		switch_say_file(sh, "currency/dollars");
+	}
+
+	/* Say cents */
+	if (cents) {
+		/* Say "and" */
+		switch_say_file(sh, "currency/and");
+
+		es_say_general_count(sh, cents, say_args);
+		if (atoi(cents) == 1) {
+			switch_say_file(sh, "currency/cent");
+		} else {
+			switch_say_file(sh, "currency/cents");
+		}
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+
+static switch_status_t say_ip(switch_say_file_handle_t *sh,
+							  char *tosay,
+							  switch_say_args_t *say_args)
+	
+{
+	char *a, *b, *c, *d;
+	switch_status_t status = SWITCH_STATUS_FALSE;
+	
+	if (!(a = strdup(tosay))) {
+		abort();
+	}
+
+	if (!(b = strchr(a, '.'))) {
+		goto end;
+	}
+
+	*b++ = '\0';
+
+	if (!(c = strchr(b, '.'))) {
+		goto end;
+	}
+
+	*c++ = '\0';
+
+	if (!(d = strchr(c, '.'))) {
+		goto end;
+	}
+
+	*d++ = '\0';
+
+	say_num(sh, atoi(a), say_args->method);
+	switch_say_file(sh, "digits/dot");
+	say_num(sh, atoi(b), say_args->method);
+	switch_say_file(sh, "digits/dot");
+	say_num(sh, atoi(c), say_args->method);
+	switch_say_file(sh, "digits/dot");
+	say_num(sh, atoi(d), say_args->method);
+
+ end:
+	
+	free(a);
+
+	return status;
+}
+
+
+static switch_status_t say_telephone_number(switch_say_file_handle_t *sh, char *tosay, switch_say_args_t *say_args)
+{
+	int silence = 0;
+	char *p;
+
+	for (p = tosay; !zstr(p); p++) {
+		int a = tolower((int) *p);
+		if (a >= '0' && a <= '9') {
+			switch_say_file(sh, "digits/%c", a);
+			silence = 0;
+		} else if (a == '+' || (a >= 'a' && a <= 'z')) {
+			switch_say_file(sh, "ascii/%d", a);
+			silence = 0;
+		} else if (!silence) {
+			switch_say_file(sh, "silence_stream://100");
+			silence = 1;
+		}
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+
+static switch_status_t say_spell(switch_say_file_handle_t *sh, char *tosay, switch_say_args_t *say_args)
+{
+	char *p;
+
+	for (p = tosay; p && *p; p++) {
+		int a = tolower((int) *p);
+		if (a >= '0' && a <= '9') {
+			switch_say_file(sh, "digits/%c", a);
+		} else {
+			if (say_args->type == SST_NAME_SPELLED) {
+				switch_say_file(sh, "ascii/%d", a);
+			} else if (say_args->type == SST_NAME_PHONETIC) {
+				switch_say_file(sh, "phonetic-ascii/%d", a);
+			}
+		}
+	}
+
+	return SWITCH_STATUS_SUCCESS;
+}
+
+
+static switch_new_say_callback_t choose_callback(switch_say_args_t *say_args)
+{
+	switch_new_say_callback_t say_cb = NULL;
+
+	switch (say_args->type) {
+	case SST_NUMBER:
+	case SST_ITEMS:
+	case SST_PERSONS:
+	case SST_MESSAGES:
+		say_cb = es_say_general_count;
+		break;
+	case SST_TIME_MEASUREMENT:
+	case SST_CURRENT_DATE:
+	case SST_CURRENT_TIME:
+	case SST_CURRENT_DATE_TIME:
+	case SST_SHORT_DATE_TIME:
+		say_cb = es_say_time;
+		break;
+	case SST_IP_ADDRESS:
+		say_cb = say_ip;
+		break;
+	case SST_NAME_SPELLED:
+	case SST_NAME_PHONETIC:
+		say_cb = say_spell;
+		break;
+	case SST_CURRENCY:
+		say_cb = es_say_money;
+		break;
+	case SST_TELEPHONE_NUMBER:
+		say_cb = say_telephone_number;
+		break;
+	default:
+		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unknown Say type=[%d]\n", say_args->type);
+		break;
+	}
+
+	return say_cb;
+}
+
+
+static switch_status_t run_callback(switch_new_say_callback_t say_cb, char *tosay, switch_say_args_t *say_args, switch_core_session_t *session, char **rstr)
+{
+	switch_say_file_handle_t *sh;
+	switch_status_t status = SWITCH_STATUS_FALSE;
+	switch_event_t *var_event = NULL;
+	
+	if (session) {
+		switch_channel_t *channel = switch_core_session_get_channel(session);
+		switch_channel_get_variables(channel, &var_event);
+	}
+
+	switch_say_file_handle_create(&sh, say_args->ext, &var_event);
+	
+	status = say_cb(sh, tosay, say_args);
+
+	if ((*rstr = switch_say_file_handle_detach_path(sh))) {
+		status = SWITCH_STATUS_SUCCESS;
+	}
+
+	switch_say_file_handle_destroy(&sh);
+
+	return status;
+}
+
+
+static switch_status_t es_say(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, switch_input_args_t *args)
+{
+
+	switch_new_say_callback_t say_cb = NULL;
+	char *string = NULL;
+
+	switch_status_t status = SWITCH_STATUS_FALSE;
+
+	say_cb = choose_callback(say_args);
+
+	if (say_cb) {
+		status = run_callback(say_cb, tosay, say_args, session, &string);
+		if (session && string) {
+			status = switch_ivr_play_file(session, NULL, string, args);
+		}
+		
+		switch_safe_free(string);
+	}
+
+	return status;
+}
+
+
+static switch_status_t es_say_string(switch_core_session_t *session, char *tosay, switch_say_args_t *say_args, char **rstr)
+{
+
+	switch_new_say_callback_t say_cb = NULL;
+	char *string = NULL;
+
+	switch_status_t status = SWITCH_STATUS_FALSE;
+
+	say_cb = choose_callback(say_args);
+
+	if (say_cb) {
+		status = run_callback(say_cb, tosay, say_args, session, &string);
+		if (string) {
+			status = SWITCH_STATUS_SUCCESS;
+			*rstr = string;
+		}
+	}
+
+	return status;
+}
+
+SWITCH_MODULE_LOAD_FUNCTION(mod_say_es_ar_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 = "es_ar";
+	say_interface->say_function = es_say;
+	say_interface->say_string_function = es_say_string;
+	
+	/* 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 noet:
+ */