Method FillCollection

MonaServer/sources/Script.cpp:183–244

}

void Script::FillCollection(lua_State* pState, UInt32 size) {
	int index = -1-(size<<1); // index collection (-1-2*size)

	if (!lua_getmetatable(pState, index)) {
		SCRIPT_BEGIN(pState)
			SCRIPT_ERROR("Invalid collection to fill, no metatable")
		SCRIPT_END
		return;
	}

	lua_getfield(pState, -1, "|items");
	if (!lua_istable(pState, -1)) {
		lua_pop(pState, 2);
		SCRIPT_BEGIN(pState)
			SCRIPT_ERROR("Invalid collection to fill, no |items field in metatable")
		SCRIPT_END
		return;
	}

	lua_insert(pState, index-1); // insert |item to the collection index, just before keys/values
	lua_insert(pState, index-1); // insert metatable just before |items

	int count(0);
	while (size-- > 0) {
		
		if (lua_isstring(pState, -2)) { // key
			const char* key(lua_tostring(pState, -2));
			const char* sub(strchr(key, '.'));
			if (sub) {
				*(char*)sub = '\0';
				Collection(pState, index-2, key);
				*(char*)sub = '.';
				lua_pushstring(pState, sub + 1);
				lua_pushvalue(pState, -3); // value
				FillCollection(pState, 1);
				lua_pop(pState, 1);
			}
		}

		// check if key exists already to update count
		lua_pushvalue(pState, -2); // key
		lua_rawget(pState, index-1);
		if (!lua_isnil(pState, -1)) { // if old value exists
			if (lua_isnil(pState, -2)) // if new value is nil (erasing)
				--count;
		} else if (lua_isnil(pState, -1))  // if old value doesn't exists
			++count;
		lua_pop(pState, 1);

		lua_rawset(pState,index);
		index += 2;
	}

	lua_pop(pState, 1); // remove |items

	lua_getfield(pState,-1,"|count");
	lua_pushnumber(pState,lua_tonumber(pState,-1)+count);
	lua_replace(pState, -2);