app_python3: updates to use generic kemi function execution from core

- replaced code to retrieve the function parameters from python to be
  more compact by walking the tuples list

src/modules/app_python3/apy_kemi.c

@@ -158,6 +158,14 @@ PyObject *sr_kemi_apy_return_int(sr_kemi_t *ket, int rval)
 	return PyLong_FromLong((long)rval);
 }
 
+/**
+ *
+ */
+PyObject *sr_kemi_apy_return_long(sr_kemi_t *ket, long rval)
+{
+	return PyLong_FromLong(rval);
+}
+
 /**
  *
  */
@@ -176,6 +184,8 @@ PyObject *sr_kemi_apy_return_xval(sr_kemi_t *ket, sr_kemi_xval_t *rx)
 			return sr_apy_kemi_return_none();
 		case SR_KEMIP_INT:
 			return sr_kemi_apy_return_int(ket, rx->v.n);
+		case SR_KEMIP_LONG:
+			return sr_kemi_apy_return_long(ket, rx->v.l);
 		case SR_KEMIP_STR:
 			return sr_apy_kemi_return_str(ket, rx->v.s.s, rx->v.s.len);
 		case SR_KEMIP_BOOL:
@@ -211,10 +221,13 @@ PyObject *sr_apy_kemi_exec_func_ex(sr_kemi_t *ket, PyObject *self, PyObject *arg
 	str fname;
 	int i;
 	int ret;
-	sr_kemi_val_t vps[SR_KEMI_PARAMS_MAX];
+	sr_kemi_xval_t vps[SR_KEMI_PARAMS_MAX];
 	sr_apy_env_t *env_P;
 	sip_msg_t *lmsg = NULL;
 	sr_kemi_xval_t *xret;
+	Py_ssize_t slen;
+	Py_ssize_t alen;
+	PyObject *pobj;
 
 	env_P = sr_apy_env_get();
 
@@ -247,1558 +260,71 @@ PyObject *sr_apy_kemi_exec_func_ex(sr_kemi_t *ket, PyObject *self, PyObject *arg
 		}
 	}
 
-	memset(vps, 0, SR_KEMI_PARAMS_MAX*sizeof(sr_kemi_val_t));
-	if(ket->ptypes[1]==SR_KEMIP_NONE) {
-		i = 1;
-		if(ket->ptypes[0]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "i:kemi-param-n", &vps[0].n)) {
-				LM_ERR("unable to retrieve int param %d\n", 0);
-				return sr_kemi_apy_return_false();
-			}
-			LM_DBG("param[%d] for: %.*s is int: %d\n", i,
-				fname.len, fname.s, vps[0].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "s:kemi-param-s", &vps[0].s.s)) {
-				LM_ERR("unable to retrieve str param %d\n", 0);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			LM_DBG("param[%d] for: %.*s is str: %.*s\n", i,
-				fname.len, fname.s, vps[0].s.len, vps[0].s.s);
-		} else {
-			LM_ERR("not implemented yet\n");
-			return sr_kemi_apy_return_false();
-		}
-	} else if(ket->ptypes[2]==SR_KEMIP_NONE) {
-		i = 2;
-		if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ii:kemi-param-nn", &vps[0].n, &vps[1].n)) {
-				LM_ERR("unable to retrieve int-int params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			LM_DBG("params[%d] for: %.*s are int-int: [%d] [%d]\n", i,
-				fname.len, fname.s, vps[0].n, vps[1].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "is:kemi-param-ns", &vps[0].n, &vps[1].s.s)) {
-				LM_ERR("unable to retrieve int-str params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			LM_DBG("params[%d] for: %.*s are int-str: [%d] [%.*s]\n", i,
-				fname.len, fname.s, vps[0].n, vps[1].s.len, vps[1].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "si:kemi-param-sn", &vps[0].s.s, &vps[1].n)) {
-				LM_ERR("unable to retrieve str-int params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			LM_DBG("params[%d] for: %.*s are str-int: [%.*s] [%d]\n", i,
-				fname.len, fname.s, vps[0].s.len, vps[0].s.s, vps[1].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ss:kemi-param-ss", &vps[0].s.s, &vps[1].s.s)) {
-				LM_ERR("unable to retrieve str-str param %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			LM_DBG("params[%d] for: %.*s are str: [%.*s] [%.*s]\n", i,
-				fname.len, fname.s, vps[0].s.len, vps[0].s.s,
-				vps[1].s.len, vps[1].s.s);
-		} else {
-			LM_ERR("not implemented yet\n");
-			return sr_kemi_apy_return_false();
-		}
+	if(!PyTuple_Check(args)) {
+		LM_ERR("invalid arguments from Python\n");
+		return sr_kemi_apy_return_false();
 
-	} else if(ket->ptypes[3]==SR_KEMIP_NONE) {
-		i = 3;
-		if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "iii:kemi-param-nnn", &vps[0].n,
-						&vps[1].n, &vps[2].n)) {
-				LM_ERR("unable to retrieve int-int-int params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			LM_DBG("params[%d] for: %.*s are int-int-int: [%d] [%d] [%d]\n",
-					i, fname.len, fname.s, vps[0].n, vps[1].n, vps[2].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "iis:kemi-param-nns", &vps[0].n,
-						&vps[1].n, &vps[2].s.s)) {
-				LM_ERR("unable to retrieve int-int-str params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-			LM_DBG("params[%d] for: %.*s are int-int-str: [%d] [%d] [%.*s]\n", i,
-					fname.len, fname.s, vps[0].n, vps[1].n, vps[2].s.len, vps[2].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "isi:kemi-param-nsn", &vps[0].n,
-						&vps[1].s.s, &vps[2].n)) {
-				LM_ERR("unable to retrieve int-str-int params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			LM_DBG("params[%d] for: %.*s are int-str-int: [%d] [%.*s] [%d]\n", i,
-				fname.len, fname.s, vps[0].n, vps[1].s.len, vps[1].s.s, vps[2].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT && ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "iss:kemi-param-nss", &vps[0].n,
-						&vps[1].s.s, &vps[2].s.s)) {
-				LM_ERR("unable to retrieve int-str-str param %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			LM_DBG("params[%d] for: %.*s are int-str-str: [%d] [%.*s]"
-					" [%.*s]\n", i, fname.len, fname.s,
-					vps[0].n, vps[1].s.len, vps[1].s.s, vps[2].s.len, vps[2].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "sii:kemi-param-snn", &vps[0].s.s,
-						&vps[1].n, &vps[2].n)) {
-				LM_ERR("unable to retrieve str-int-int params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			LM_DBG("params[%d] for: %.*s are str-int: [%.*s] [%d] [%d]\n", i,
-					fname.len, fname.s, vps[0].s.len, vps[0].s.s, vps[1].n,
-					vps[2].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "sis:kemi-param-ssn", &vps[0].s.s,
-						&vps[1].n, &vps[2].s.s)) {
-				LM_ERR("unable to retrieve str-int-str param %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			LM_DBG("params[%d] for: %.*s are str-str-int: [%.*s] [%d] [%.*s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.len, vps[0].s.s,
-					vps[1].n, vps[2].s.len, vps[2].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ssi:kemi-param-ssn", &vps[0].s.s,
-						&vps[1].s.s, &vps[2].n)) {
-				LM_ERR("unable to retrieve str-str-int param %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			LM_DBG("params[%d] for: %.*s are str-str-int: [%.*s] [%.*s]"
-					" [%d]\n", i, fname.len, fname.s,
-					vps[0].s.len, vps[0].s.s,
-					vps[1].s.len, vps[1].s.s, vps[2].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR && ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "sss:kemi-param-sss", &vps[0].s.s,
-						&vps[1].s.s, &vps[2].s.s)) {
-				LM_ERR("unable to retrieve str-str-str param %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			LM_DBG("params[%d] for: %.*s are str-str-str: [%.*s] [%.*s]"
-					" [%.*s]\n", i, fname.len, fname.s,
-					vps[0].s.len, vps[0].s.s,
-					vps[1].s.len, vps[1].s.s, vps[2].s.len, vps[2].s.s);
-		} else {
-			LM_ERR("not implemented yet\n");
-			return sr_kemi_apy_return_false();
-		}
-	} else if(ket->ptypes[4]==SR_KEMIP_NONE) {
-		i = 4;
-		if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ssss:kemi-param-ssss",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve ssss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "sssn:kemi-param-sssn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].n)) {
-				LM_ERR("unable to retrieve sssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ssns:kemi-param-ssns",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve ssns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ssnn:kemi-param-ssnn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].n)) {
-				LM_ERR("unable to retrieve ssnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snss:kemi-param-snss",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve snss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snsn:kemi-param-snsn",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].n)) {
-				LM_ERR("unable to retrieve snsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snns:kemi-param-snns",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve snns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snnn:kemi-param-snnn",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].n)) {
-				LM_ERR("unable to retrieve snnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nsss:kemi-param-nsss",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve nsss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nssn:kemi-param-nssn",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].n)) {
-				LM_ERR("unable to retrieve nssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nsns:kemi-param-nsns",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve nsns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nsnn:kemi-param-nsnn",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].n)) {
-				LM_ERR("unable to retrieve nsnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnss:kemi-param-nnss",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve nnss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnsn:kemi-param-nnsn",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].n)) {
-				LM_ERR("unable to retrieve nnsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnns:kemi-param-nnns",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].s.s)) {
-				LM_ERR("unable to retrieve nnns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnnn:kemi-param-nnnn",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].n)) {
-				LM_ERR("unable to retrieve nnnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
+	}
+	memset(vps, 0, SR_KEMI_PARAMS_MAX*sizeof(sr_kemi_xval_t));
 
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].n);
-		} else {
-			LM_ERR("invalid parameters for: %.*s\n", fname.len, fname.s);
-			return sr_kemi_apy_return_false();
-		}
-	} else if(ket->ptypes[5]==SR_KEMIP_NONE) {
-		i = 5;
-		if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "sssss:kemi-param-sssss",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve sssss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ssssn:kemi-param-ssssn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve ssssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "sssns:kemi-param-sssns",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve sssns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "sssnn:kemi-param-sssnn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve sssnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].s.s, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ssnss:kemi-param-ssnss",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve ssnss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ssnsn:kemi-param-ssnsn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve ssnsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ssnns:kemi-param-ssnns",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve ssnns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "ssnnn:kemi-param-ssnnn",
-					&vps[0].s.s, &vps[1].s.s, &vps[2].n, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve ssnnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%s] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].s.s, vps[2].n, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snsss:kemi-param-snsss",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve snsss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snssn:kemi-param-snssn",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve snssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snsns:kemi-param-snsns",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve snsns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snsnn:kemi-param-snsnn",
-					&vps[0].s.s, &vps[1].n, &vps[2].s.s, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve snsnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].s.s, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snnss:kemi-param-snnss",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve snnss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snnsn:kemi-param-snnsn",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve snnsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "snnns:kemi-param-snnns",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve snnns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "snnnn:kemi-param-snnnn",
-					&vps[0].s.s, &vps[1].n, &vps[2].n, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve snnnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%s] [%d] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].s.s, vps[1].n, vps[2].n, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nssss:kemi-param-nssss",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nssss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nsssn:kemi-param-nsssn",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve nsssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nssns:kemi-param-nssns",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nssns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nssnn:kemi-param-nssnn",
-					&vps[0].n, &vps[1].s.s, &vps[2].s.s, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve nssnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].s.s, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nsnss:kemi-param-nsnss",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nsnss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nsnsn:kemi-param-nsnsn",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve nsnsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nsnns:kemi-param-nsnns",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nsnns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nsnnn:kemi-param-nsnnn",
-					&vps[0].n, &vps[1].s.s, &vps[2].n, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve nsnnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[1].s.len = strlen(vps[1].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%s] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].s.s, vps[2].n, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnsss:kemi-param-nnsss",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nnsss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnssn:kemi-param-nnssn",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve nnssn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnsns:kemi-param-nnsns",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nnsns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnsnn:kemi-param-nnsnn",
-					&vps[0].n, &vps[1].n, &vps[2].s.s, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve nnsnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[2].s.len = strlen(vps[2].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%s] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].s.s, vps[3].n, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnnss:kemi-param-nnnss",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].s.s, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nnnss params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%s] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].s.s, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnnsn:kemi-param-nnnsn",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].s.s, &vps[4].n)) {
-				LM_ERR("unable to retrieve nnnsn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[3].s.len = strlen(vps[3].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%s] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].s.s, vps[4].n);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "nnnns:kemi-param-nnnns",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].n, &vps[4].s.s)) {
-				LM_ERR("unable to retrieve nnnns params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[4].s.len = strlen(vps[4].s.s);
-
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%d] [%s]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].n, vps[4].s.s);
-		} else if(ket->ptypes[0]==SR_KEMIP_INT
-				&& ket->ptypes[1]==SR_KEMIP_INT
-				&& ket->ptypes[2]==SR_KEMIP_INT
-				&& ket->ptypes[3]==SR_KEMIP_INT
-				&& ket->ptypes[4]==SR_KEMIP_INT) {
-			if(!PyArg_ParseTuple(args, "nnnnn:kemi-param-nnnnn",
-					&vps[0].n, &vps[1].n, &vps[2].n, &vps[3].n, &vps[4].n)) {
-				LM_ERR("unable to retrieve nnnnn params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
+	alen = PyTuple_Size(args);
+	LM_DBG("number of arguments: %d\n", (int)alen);
 
-			LM_DBG("params[%d] for: %.*s are: [%d] [%d] [%d] [%d] [%d]\n",
-					i, fname.len, fname.s,
-					vps[0].n, vps[1].n, vps[2].n, vps[3].n, vps[4].n);
-		} else {
-			LM_ERR("invalid parameters for: %.*s\n", fname.len, fname.s);
+	for(i=0; i<SR_KEMI_PARAMS_MAX; i++) {
+		if(ket->ptypes[i]==SR_KEMIP_NONE) {
+			break;
+		}
+		if(i>=alen) {
+			LM_ERR("invalid number of parameters - idx: %d argc: %d\n", i, (int)alen);
 			return sr_kemi_apy_return_false();
 		}
-	} else {
-		i = 6;
-		if(ket->ptypes[0]==SR_KEMIP_STR
-				&& ket->ptypes[1]==SR_KEMIP_STR
-				&& ket->ptypes[2]==SR_KEMIP_STR
-				&& ket->ptypes[3]==SR_KEMIP_STR
-				&& ket->ptypes[4]==SR_KEMIP_STR
-				&& ket->ptypes[5]==SR_KEMIP_STR) {
-			if(!PyArg_ParseTuple(args, "ssssss:kemi-param-ssssss",
-						&vps[0].s.s, &vps[1].s.s, &vps[2].s.s, &vps[3].s.s,
-						&vps[4].s.s, &vps[5].s.s)) {
-				LM_ERR("unable to retrieve str-str-str-str params %d\n", i);
-				return sr_kemi_apy_return_false();
-			}
-			vps[0].s.len = strlen(vps[0].s.s);
-			vps[1].s.len = strlen(vps[1].s.s);
-			vps[2].s.len = strlen(vps[2].s.s);
-			vps[3].s.len = strlen(vps[3].s.s);
-			vps[4].s.len = strlen(vps[4].s.s);
-			vps[5].s.len = strlen(vps[5].s.s);
-			LM_DBG("params[%d] for: %.*s are str: [%.*s] [%.*s]"
-					" [%.*s] [%.*s] [%.*s] [%.*s]\n", i,
-				fname.len, fname.s, vps[0].s.len, vps[0].s.s,
-				vps[1].s.len, vps[1].s.s, vps[2].s.len, vps[2].s.s,
-				vps[3].s.len, vps[3].s.s, vps[4].s.len, vps[4].s.s,
-				vps[5].s.len, vps[5].s.s);
-		} else {
-			LM_ERR("not implemented yet\n");
+		pobj = PyList_GetItem(args, i);
+		if(pobj==NULL) {
+			LM_ERR("null parameter - func: %.*s idx: %d argc: %d\n",
+					fname.len, fname.s, i, (int)alen);
 			return sr_kemi_apy_return_false();
 		}
-	}
-
-	switch(i) {
-		case 1:
-			if(ket->ptypes[0]==SR_KEMIP_INT) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmn_f)(ket->func))(lmsg, vps[0].n);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmn_f)(ket->func))(lmsg, vps[0].n);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_STR) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfms_f)(ket->func))(lmsg, &vps[0].s);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fms_f)(ket->func))(lmsg, &vps[0].s);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
+		if(ket->ptypes[i]==SR_KEMIP_STR) {
+			if(!PyUnicode_Check(pobj)) {
+				LM_ERR("non-string parameter - func: %.*s idx: %d argc: %d\n",
+						fname.len, fname.s, i, (int)alen);
+				return sr_kemi_apy_return_false();
+			}
+			vps[i].v.s.s = (char*)PyUnicode_AsUTF8AndSize(pobj, &slen);
+			if(vps[i].v.s.s==NULL) {
+				LM_ERR("null-string parameter - func: %.*s idx: %d argc: %d\n",
+						fname.len, fname.s, i, (int)alen);
+				return sr_kemi_apy_return_false();
+			}
+			vps[i].v.s.len = (int)slen;
+			vps[i].vtype = SR_KEMIP_STR;
+		} else if((ket->ptypes[i]==SR_KEMIP_INT) || (ket->ptypes[i]==SR_KEMIP_LONG)) {
+			if(PyLong_Check(pobj)) {
+				vps[i].v.l = PyLong_AsLong(pobj);
+			} else if(pobj==Py_True) {
+				vps[i].v.l = 1;
+			} else if(pobj==Py_False) {
+				vps[i].v.l = 0;
 			} else {
-				LM_ERR("invalid parameters for: %.*s\n",
-						fname.len, fname.s);
+				LM_ERR("non-number parameter - func: %.*s idx: %d argc: %d\n",
+						fname.len, fname.s, i, (int)alen);
 				return sr_kemi_apy_return_false();
 			}
-		break;
-		case 2:
-			if(ket->ptypes[0]==SR_KEMIP_INT) {
-				if(ket->ptypes[1]==SR_KEMIP_INT) {
-					if(ket->rtype==SR_KEMIP_XVAL) {
-						xret = ((sr_kemi_xfmnn_f)(ket->func))(lmsg, vps[0].n, vps[1].n);
-						return sr_kemi_apy_return_xval(ket, xret);
-					} else {
-						ret = ((sr_kemi_fmnn_f)(ket->func))(lmsg, vps[0].n, vps[1].n);
-						return sr_kemi_apy_return_int(ket, ret);
-					}
-				} else if(ket->ptypes[1]==SR_KEMIP_STR) {
-					if(ket->rtype==SR_KEMIP_XVAL) {
-						xret = ((sr_kemi_xfmns_f)(ket->func))(lmsg, vps[0].n, &vps[1].s);
-						return sr_kemi_apy_return_xval(ket, xret);
-					} else {
-						ret = ((sr_kemi_fmns_f)(ket->func))(lmsg, vps[0].n, &vps[1].s);
-						return sr_kemi_apy_return_int(ket, ret);
-					}
-				} else {
-					LM_ERR("invalid parameters for: %.*s\n",
-							fname.len, fname.s);
-					return sr_kemi_apy_return_false();
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_STR) {
-				if(ket->ptypes[1]==SR_KEMIP_INT) {
-					if(ket->rtype==SR_KEMIP_XVAL) {
-						xret = ((sr_kemi_xfmsn_f)(ket->func))(lmsg, &vps[0].s, vps[1].n);
-						return sr_kemi_apy_return_xval(ket, xret);
-					} else {
-						ret = ((sr_kemi_fmsn_f)(ket->func))(lmsg, &vps[0].s, vps[1].n);
-						return sr_kemi_apy_return_int(ket, ret);
-					}
-				} else if(ket->ptypes[1]==SR_KEMIP_STR) {
-					if(ket->rtype==SR_KEMIP_XVAL) {
-						xret = ((sr_kemi_xfmss_f)(ket->func))(lmsg, &vps[0].s, &vps[1].s);
-						return sr_kemi_apy_return_xval(ket, xret);
-					} else {
-						ret = ((sr_kemi_fmss_f)(ket->func))(lmsg, &vps[0].s, &vps[1].s);
-						return sr_kemi_apy_return_int(ket, ret);
-					}
-				} else {
-					LM_ERR("invalid parameters for: %.*s\n",
-							fname.len, fname.s);
-					return sr_kemi_apy_return_false();
-				}
+			if(ket->ptypes[i]==SR_KEMIP_INT) {
+				vps[i].vtype = SR_KEMIP_INT;
+				vps[i].v.n = (int)vps[i].v.l;
 			} else {
-				LM_ERR("invalid parameters for: %.*s\n",
-						fname.len, fname.s);
-				return sr_kemi_apy_return_false();
+				vps[i].vtype = SR_KEMIP_LONG;
 			}
-		break;
-		case 3:
-			if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmsss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmsss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmssn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmssn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmsns_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmsns_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmsnn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmsnn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmnss_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmnss_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmnsn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmnsn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmnns_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmnns_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT) {
-				if(ket->rtype==SR_KEMIP_XVAL) {
-					xret = ((sr_kemi_xfmnnn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n);
-					return sr_kemi_apy_return_xval(ket, xret);
-				} else {
-					ret = ((sr_kemi_fmnnn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n);
-					return sr_kemi_apy_return_int(ket, ret);
-				}
-			} else {
-				LM_ERR("invalid parameters for: %.*s\n", fname.len, fname.s);
-				return sr_kemi_apy_return_false();
-			}
-		break;
-		case 4:
-			if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmssss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsssn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmssns_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmssnn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnss_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnsn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnns_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnnn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnsss_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnssn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnsns_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnsnn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnss_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnsn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnns_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, &vps[3].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnnn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, vps[3].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else {
-				LM_ERR("invalid parameters for: %.*s\n", fname.len, fname.s);
-				return sr_kemi_apy_return_false();
-			}
-		break;
-		case 5:
-			if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsssss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmssssn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsssns_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsssnn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmssnss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmssnsn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmssnns_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmssnnn_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, vps[2].n, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnsss_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnssn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnsns_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnsnn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, &vps[2].s, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnnss_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnnsn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmsnnns_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmsnnnn_f)(ket->func))(lmsg,
-						&vps[0].s, vps[1].n, vps[2].n, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnssss_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnsssn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnssns_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnssnn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, &vps[2].s, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnsnss_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnsnsn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnsnns_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnsnnn_f)(ket->func))(lmsg,
-						vps[0].n, &vps[1].s, vps[2].n, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnsss_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnssn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnsns_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnsnn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, &vps[2].s, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnnss_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, &vps[3].s, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnnsn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, &vps[3].s, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_STR) {
-				ret = ((sr_kemi_fmnnnns_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, vps[3].n, &vps[4].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else if(ket->ptypes[0]==SR_KEMIP_INT
-					&& ket->ptypes[1]==SR_KEMIP_INT
-					&& ket->ptypes[2]==SR_KEMIP_INT
-					&& ket->ptypes[3]==SR_KEMIP_INT
-					&& ket->ptypes[4]==SR_KEMIP_INT) {
-				ret = ((sr_kemi_fmnnnnn_f)(ket->func))(lmsg,
-						vps[0].n, vps[1].n, vps[2].n, vps[3].n, vps[4].n);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else {
-				LM_ERR("invalid parameters for: %.*s\n", fname.len, fname.s);
-				return sr_kemi_apy_return_false();
-			}
-		break;
-		case 6:
-			if(ket->ptypes[0]==SR_KEMIP_STR
-					&& ket->ptypes[1]==SR_KEMIP_STR
-					&& ket->ptypes[2]==SR_KEMIP_STR
-					&& ket->ptypes[3]==SR_KEMIP_STR
-					&& ket->ptypes[4]==SR_KEMIP_STR
-					&& ket->ptypes[5]==SR_KEMIP_STR) {
-				/* ssssss */
-				ret = ((sr_kemi_fmssssss_f)(ket->func))(lmsg,
-						&vps[0].s, &vps[1].s, &vps[2].s, &vps[3].s,
-						&vps[4].s, &vps[5].s);
-				return sr_kemi_apy_return_int(ket, ret);
-			} else {
-				LM_ERR("invalid parameters for: %.*s\n",
-						fname.len, fname.s);
-				return sr_kemi_apy_return_false();
-			}
-		break;
-		default:
-			LM_ERR("invalid parameters for: %.*s\n",
-					fname.len, fname.s);
+		} else {
+			LM_ERR("invalid parameter type - func: %.*s idx: %d argc: %d\n",
+					fname.len, fname.s, i, (int)alen);
 			return sr_kemi_apy_return_false();
+		}
 	}
+
+	xret = sr_kemi_exec_func(ket, lmsg, i, vps);
+	return sr_kemi_apy_return_xval(ket, xret);;
 }
 
 /**