Function l_siplua_moduleFunc

modules/lua/sipapi.c:794–894

}

static int l_siplua_moduleFunc(lua_State *L)
{
  struct sipapi_object *o;
  const char *func;
  int n, nargs;
  const cmd_export_t *exp_func_struct;
  action_elem_t elems[MAX_ACTION_ELEMS];
  const char *msg;
  int i;
  struct action *act;
  int retval, rc;
  pv_spec_t *specs[MAX_CMD_PARAMS];
  const struct cmd_param *param;
  char *largs[MAX_CMD_PARAMS];
  str s;

  o = luaL_checkudata(L, 1, "siplua.api");
  func = luaL_checkstring(L, 2);
  n = lua_gettop(L);
  nargs = n - 2;
  if (n - 1 > MAX_ACTION_ELEMS)
    return luaL_error(L, "function '%s' called with too many arguments [%d > %d]",
	       func, nargs, MAX_ACTION_ELEMS - 1);

  exp_func_struct = find_cmd_export_t((char *)func, 0);
  if (!exp_func_struct)
    return luaL_error(L, "function '%s' called, but not available", func);

  elems[0].type = CMD_ST;
  elems[0].u.data_const = exp_func_struct;

  for (i = 0; i < nargs; ++i) {
    if (lua_isnil(L, 3 + i)) {
      elems[i+1].type = NULLV_ST;
      largs[i] = NULL;
    } else {
      largs[i] = (char*)lua_tostring(L, 3 + i);
      if (!largs[i]) {
	      msg = lua_pushfstring(L, "%s expected, got %s",
				lua_typename(L, LUA_TSTRING), luaL_typename(L, 3 + i));
	      return luaL_argerror(L, 3 + i, msg);
	    }
      elems[i+1].type = NOSUBTYPE;
    }
    specs[i] = NULL;
  }

  retval = check_cmd_call_params(exp_func_struct, elems, nargs);
  if (retval == -1 || retval == -2)
      return luaL_error(L, "to few or too many parameters for function '%s'", func);
  else if (retval == -3)
      return luaL_error(L, "mandatory parameter ommited for function '%s'", func);

  for (param=exp_func_struct->params, i=1; param->flags; param++, i++) {
    if (!largs[i-1])
      continue;

    if (param->flags & CMD_PARAM_INT) {