Add (heavily modified) math application (bug #2534)

git-svn-id: http://svn.digium.com/svn/asterisk/trunk@3892 f38db490-d61c-443f-a65b-d21fe96a405b

1 files changed, 289 insertions, 0 deletions

diff --git a/apps/app_math.c b/apps/app_math.c
new file mode 100755
index 000000000..481146dcb
--- /dev/null
+++ b/apps/app_math.c
@@ -0,0 +1,289 @@
+/*
+ * Asterisk -- A telephony toolkit for Linux.
+ *
+ * simple maths application
+ * 
+ * Copyright (C) 2004, Andy Powell 
+ *
+ * Updated by Mark Spencer <markster@digium.com>
+ *
+ */
+
+#include <asterisk/lock.h>
+#include <asterisk/file.h>
+#include <asterisk/logger.h>
+#include <asterisk/channel.h>
+#include <asterisk/channel_pvt.h>
+#include <asterisk/pbx.h>
+#include <asterisk/options.h>
+#include <asterisk/config.h>
+#include <asterisk/say.h>
+#include <asterisk/module.h>
+#include <asterisk/app.h>
+#include <asterisk/manager.h>
+#include <asterisk/localtime.h>
+#include <asterisk/cli.h>
+#include <asterisk/utils.h>
+#include <stdlib.h>
+#include <errno.h>
+#include <unistd.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <sys/time.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <time.h>
+#include <dirent.h>
+#include <asterisk/module.h>
+#include <asterisk/translate.h>
+#include <ctype.h>
+#include <sys/file.h>
+#include "../astconf.h"
+
+
+
+static char *tdesc = "Basic maths functions";
+
+static char *app_math = "Math";
+
+static char *math_synopsis = "Performs Mathematical Functions";
+
+
+static char *math_descrip =
+"Math(returnvar,<number1><op><number 2>\n\n"
+"Perform floating point calculation on number 1 to number 2 and \n"
+"store the result in returnvar.  Valid ops are: \n"
+"    +,-,/,*,%,<,>,>=,<=,==\n"
+"and behave as their C equivalents.  Always returns 0.\n";
+
+
+#define ADDFUNCTION 0
+#define DIVIDEFUNCTION 1
+#define MULTIPLYFUNCTION 2
+#define SUBTRACTFUNCTION 3
+#define MODULUSFUNCTION 4
+
+#define GTFUNCTION 5
+#define LTFUNCTION 6
+#define GTEFUNCTION 7
+#define LTEFUNCTION 8
+#define EQFUNCTION 9
+
+
+
+STANDARD_LOCAL_USER;
+
+LOCAL_USER_DECL;
+
+static int math_exec(struct ast_channel *chan, void *data) {
+
+        float fnum1;
+        float fnum2;
+	float ftmp = 0;
+	char *op;
+	int iaction=-1;
+
+	/* dunno, big calulations :D */
+	char user_result[30];
+
+        char *s;
+        char *mvar, *mvalue1, *mvalue2=NULL;
+		
+        struct localuser *u;
+
+        if (!data) {
+                ast_log(LOG_WARNING, "No parameters passed. !\n");
+                return -1;
+        }
+						
+        LOCAL_USER_ADD(u);
+		
+
+
+	s = ast_strdupa((void *) data);
+      
+        mvar          = strsep(&s, "|");
+        mvalue1       = strsep(&s, "|");
+	
+	
+	if ((op = strchr(mvalue1, '+'))) {
+		iaction = ADDFUNCTION;
+		*op = '\0';
+	} else if ((op = strchr(mvalue1, '-'))) {
+		iaction = SUBTRACTFUNCTION;
+		*op = '\0';
+	} else if ((op = strchr(mvalue1, '*'))) {
+		iaction = MULTIPLYFUNCTION;
+		*op = '\0';
+	} else if ((op = strchr(mvalue1, '/'))) {
+		iaction = DIVIDEFUNCTION;
+		*op = '\0';
+	} else if ((op = strchr(mvalue1, '>'))) {
+		iaction = GTFUNCTION;
+		*op = '\0';
+		if (*(op+1) == '=') {
+			op++;
+			*op = '\0';
+			iaction = GTEFUNCTION;
+		}
+	} else if ((op = strchr(mvalue1, '<'))) {
+		iaction = LTFUNCTION;
+		*op = '\0';
+		if (*(op+1) == '=') {
+			op++;
+			*op = '\0';
+			iaction = LTEFUNCTION;
+		}
+	} else if ((op = strchr(mvalue1, '='))) {
+		iaction = GTFUNCTION;
+		*op = '\0';
+		if (*(op+1) == '=') {
+			op++;
+			*op = '\0';
+			iaction = EQFUNCTION;
+		} else
+			op = NULL;
+	} 
+	
+	if (op) 
+		mvalue2 = op + 1;
+		
+	
+	if (!mvar || !mvalue1 || !mvalue2) {
+                ast_log(LOG_WARNING, "Supply all the parameters - just this once, please\n");
+	        LOCAL_USER_REMOVE(u);
+	        return -1;
+	}
+
+	if (!strcmp(mvar,"")) {
+                ast_log(LOG_WARNING, "No return variable set.\n");
+                LOCAL_USER_REMOVE(u);
+		return -1;
+	}
+
+
+        if (sscanf(mvalue1, "%f", &fnum1) != 1) {
+                        ast_log(LOG_WARNING, "'%s' is not a valid number\n", mvalue1);
+                        LOCAL_USER_REMOVE(u);
+                        return -1;
+        }
+
+        if (sscanf(mvalue2, "%f", &fnum2) != 1) {
+                        ast_log(LOG_WARNING, "'%s' is not a valid number\n", mvalue2);
+                        LOCAL_USER_REMOVE(u);
+                        return -1;
+        }
+
+
+        switch (iaction) {
+	        case ADDFUNCTION :
+			ftmp = fnum1 + fnum2;
+			break;
+
+        	case DIVIDEFUNCTION :
+			if (fnum2 <=0)
+				ftmp = 0; /* can't do a divide by 0 */
+			else
+				ftmp = (fnum1 / fnum2);
+			break;
+	        case MULTIPLYFUNCTION :
+			ftmp = (fnum1 * fnum2);
+			break;
+        	case SUBTRACTFUNCTION :
+			ftmp = (fnum2 - fnum1);
+			break;
+	        case MODULUSFUNCTION : {
+			int inum1 = fnum1;
+			int inum2 = fnum2;
+			
+			ftmp = (inum1 % inum2);
+			
+			break;
+			}
+		case GTFUNCTION :
+			if (fnum1 > fnum2)
+				strncpy (user_result, "TRUE", sizeof (user_result) - 1);
+			else
+				strncpy (user_result, "FALSE", sizeof (user_result) - 1);
+			break;
+                case LTFUNCTION :
+                        if (fnum1 < fnum2)
+				strncpy (user_result, "TRUE", sizeof (user_result) - 1);
+                        else
+				strncpy (user_result, "FALSE", sizeof (user_result) - 1);
+			break;
+                case GTEFUNCTION :
+                        if (fnum1 >= fnum2)
+				strncpy (user_result, "TRUE", sizeof (user_result) - 1);
+                        else
+				strncpy (user_result, "FALSE", sizeof (user_result) - 1);
+			break;
+                case LTEFUNCTION :
+                        if (fnum1 <= fnum2)
+				strncpy (user_result, "TRUE", sizeof (user_result) - 1);
+                        else
+				strncpy (user_result, "FALSE", sizeof (user_result) - 1);
+			break;					
+                case EQFUNCTION :
+                        if (fnum1 == fnum2)
+				strncpy (user_result, "TRUE", sizeof (user_result) - 1);
+                        else
+				strncpy (user_result, "FALSE", sizeof (user_result) - 1);
+			break;
+		default :
+			ast_log(LOG_WARNING, "Something happened that neither of us should be proud of %d\n", iaction);
+                        LOCAL_USER_REMOVE(u);
+                        return -1;
+									
+        }
+
+	if (iaction < GTFUNCTION || iaction > EQFUNCTION) 
+		snprintf(user_result,sizeof(user_result),"%f",ftmp);
+		
+	pbx_builtin_setvar_helper(chan, mvar, user_result);	
+	
+	LOCAL_USER_REMOVE(u);
+        return 0;
+}
+
+int unload_module(void)
+{
+     int res;
+     STANDARD_HANGUP_LOCALUSERS;
+     
+     res  = ast_unregister_application(app_math);     
+     return res;
+}
+
+int load_module(void)
+{
+     int res;
+     res = ast_register_application(app_math, math_exec, math_synopsis, math_descrip);
+     return res;
+}
+
+char *description(void)
+{
+	return tdesc;
+}
+
+int usecount(void)
+{
+	int res;
+	STANDARD_USECOUNT(res);
+	return res;
+}
+
+char *key()
+{
+	return ASTERISK_GPL_KEY;
+}
+
+
+
+/* Fading everything to black and blue... */
+
+
+
+