Method ScriptSetCallIn

src/lua/LuaHandle.cpp:580–616

int LuaHandle::ScriptSetCallIn(lua_State* L) {
  const std::string ciName = luaL_checkstring(L, 1);

  const int ciCode = luaCallInDB.GetCode(ciName);
  if (ciCode == 0) {
    if (devMode) {
      LuaLog(1, "Request to update an Unknown call-in (%s)\n", ciName.c_str());
    }
    return luaL_pushnil(L);
  }

  if (!L2H(L)->CanUseCallIn(ciName)) {
    return luaL_pushnil(L);
  }

  lua_settop(L, 2);
  const bool haveFunc = lua_isfunction(L, 2);

  lua_checkstack(L, 4);

  lua_pushvalue(L, 2); // make a copy
  lua_rawseti(L, LUA_CALLINSINDEX, ciCode);

  lua_pushstring(L, ciName.c_str());
  lua_pushvalue(L, 2); // make a copy
  lua_rawset(L, LUA_CALLINSINDEX);

  const std::string& eventName = luaCallInDB.GetEventName(ciName);
  if (eventHandler.IsManaged(eventName)) {
    lua_pushboolean(L, L2H(L)->UpdateCallIn(ciName, haveFunc));
  }
  else {
    lua_pushboolean(L, true);
  }

  return 1;
}


//============================================================================//