--- /dev/null
+/*
+ * 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... */
+
+
+
+
--- /dev/null
+
+Mathematical functions application
+
+Yeah, I thought it was a little insane too..
+
+adds:
+
+Sum, Multiply, Divide, Subtract, Modulus, GT, LT, GTE, LTE, EQ functions to asterisk
+
+All functions follow the same basic pattern for parameters:
+
+parameter 1 = the name of the return variable
+parameter 2 = the first number
+parameter 3 = the second number
+
+Each action is perfromed as
+
+ Action param1 on param2
+
+eg:
+
+ Action = Divide
+ Param1 = 10
+ Param2 = 2
+
+Results in
+
+ Divide 10 by 2
+
+
+Example dialplan:
+
+exten => 11099,1,SUM(RV,1,20)
+exten => 11099,2,NOOP(${RV})
+exten => 11099,3,MULTIPLY(RV,10,2)
+exten => 11099,4,NOOP(${RV})
+exten => 11099,5,DIVIDE(RV,10,2)
+exten => 11099,6,NOOP(${RV})
+exten => 11099,7,SUBTRACT(RV,10,2)
+exten => 11099,8,NOOP(${RV})
+exten => 11099,9,MODULUS(RV,2,10)
+exten => 11099,10,NOOP(${RV})
+exten => 11099,11,DIVIDE(RV,10,0)
+exten => 11099,12,NOOP(${RV})
+exten => 11099,13,SUBTRACT(RV,10,200)
+exten => 11099,14,NOOP(${RV})
+exten => 11099,15,DIVIDE(RV,1,20)
+exten => 11099,16,NOOP(${RV})
+exten => 11099,17,LT(RV,1,20)
+exten => 11099,18,NOOP(${RV})
+exten => 11099,19,GTE(RV,1,20)
+exten => 11099,20,NOOP(${RV})
+exten => 11099,21,GT(RV,101,20)
+exten => 11099,22,NOOP(${RV})
+exten => 11099,23,EQ(RV,1,20)
+exten => 11099,24,NOOP(${RV})
+exten => 11099,25,LTE(RV,20,20)
+exten => 11099,26,NOOP(${RV})
+
+
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+Makefile stuff:
+
+
+APPS+=app_math.so
+
+
+app_math.so: app_math.c
+ $(CC) -D_GNU_SOURCE -shared -Xlinker -x -o $@ $< -lz -L/usr/lib
+
projects / thirdparty / asterisk.git / commitdiff
