Function Serialize

source/serialization.cpp:353–440

// ***********************************************************************

i32 Serialize(lua_State* L) {
	bool isStore = false;
	if (lua_isstring(L, 1))
		isStore = true;

	i32 mode = (i32)luaL_checknumber(L, isStore ? 3 : 2);

	String metaData;

	if (lua_gettop(L) > (isStore ? 3 : 2)) {
		StringBuilder builder(g_pArenaFrame);
		SerializeTextRecursive(L, builder, true);
		metaData = builder.CreateString(g_pArenaFrame);
	}

	// put the value on the top of the stack for the following functions
	lua_pushvalue(L, isStore ? 2:1);

	// Text serialization
	if (mode == 0x0) {
		StringBuilder builder(g_pArenaFrame);

		if (metaData.length != 0)
			builder.Append(metaData);

		SerializeTextRecursive(L, builder);

		String result = builder.CreateString(g_pArenaFrame);

		// return string of serialized code
		lua_pushstring(L, result.pData);
		return 1;
	}

	ResizableArray<u8> output(g_pArenaFrame);

	// if binary, then serialize to cbor into output
	if (mode & 0x1 || mode & 0x2 || mode & 0x4) {
		output.Reserve(output.GrowCapacity(1));
		output.PushBack(0xBD); // identifier

		SerializeCborRecursive(L, output);
	}

	// if compressed, then compress output and resize
	if (mode & 0x2) {
		i64 srcSize = output.count - 1;
		i64 compressBound = LZ4_compressBound((i32)srcSize);
		u8* pData = output.pData + 1; // skip the binary identifier bit

		u8* stagingUserData = New(g_pArenaFrame, u8, compressBound);

		i32 compressedSize = LZ4_compress_HC((char*)pData, (char*)stagingUserData, (i32)srcSize, (i32)compressBound, LZ4HC_CLEVEL_MAX);
		if (compressedSize == 0) {
			luaL_error(L, "Compression failed");
		}	

		output.Reserve(output.GrowCapacity(9 + compressedSize));