Method Len

MonaServer/sources/LUAPersistentTable.cpp:35–155

}

int	LUAPersistentTable::Len(lua_State* pState) {
	SCRIPT_CALLBACK(LUAPersistentTable,table)
		SCRIPT_WRITE_NUMBER(table.count)
	SCRIPT_CALLBACK_RETURN
}

int LUAPersistentTable::Get(lua_State *pState) {
	SCRIPT_CALLBACK(LUAPersistentTable, table)
		const char* name = SCRIPT_READ_STRING(NULL);
		if (name) {
			lua_getmetatable(pState, 1);
			lua_getfield(pState, -1, "|items");
			lua_replace(pState, -2);
			lua_getfield(pState, -1, name);
			lua_replace(pState, -2);
			if (lua_isnil(pState,-1) && strcmp(name, "count") == 0)
				SCRIPT_WRITE_NUMBER(table.count)
		}
	SCRIPT_CALLBACK_RETURN
}

int LUAPersistentTable::Set(lua_State *pState) {
	SCRIPT_CALLBACK(LUAPersistentTable, table);
		const char* name = SCRIPT_READ_STRING(NULL);
		if (name) {
			Int8 removing = SCRIPT_NEXT_TYPE==LUA_TNIL ? 1 : 0;
			string path;
			FileSystem::MakeFolder(String::Format(path, table.path, '/', name));

			lua_getmetatable(pState, 1);
			lua_getfield(pState, -1, "|items");
			lua_getfield(pState, -1, name); // old value

			if (!removing) {
				if (lua_istable(pState, -1)) {
					SCRIPT_ERROR("Complex type exists already on ", path, ", for secure reasons delete explicitly this entry with a nil assignation before override")
					removing = -1;
				}
			}
				
			if (removing>=0) {
				if (SCRIPT_NEXT_TYPE==LUA_TTABLE) {

					lua_pushvalue(pState, 2); // name
					Script::NewObject<LUAPersistentTable,LUAPersistentTable>(pState,*new LUAPersistentTable(table.persistentData, path));

					// table iteration
					lua_pushnil(pState);  // first key 
					while (Script::Next(pState, 3) != 0) {
						// uses 'key' (at index -2) and 'value' (at index -1) 
						lua_pushvalue(pState, -2); // duplicate key
						lua_pushvalue(pState, -2); // duplicate value
						lua_settable(pState, -5);
						lua_pop(pState, 1);
					}

					// memory
					lua_rawset(pState, -4);