/**
* @file media_plugin_example.cpp
* @brief Example plugin for LLMedia API plugin system
*
* @cond
* $LicenseInfo:firstyear=2008&license=viewerlgpl$
* Second Life Viewer Source Code
* Copyright (C) 2010, Linden Research, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation;
* version 2.1 of the License only.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*
* Linden Research, Inc., 945 Battery Street, San Francisco, CA  94111  USA
* $/LicenseInfo$
* @endcond
*/

#include "linden_common.h"

#include "llgl.h"
#include "llplugininstance.h"
#include "llpluginmessage.h"
#include "llpluginmessageclasses.h"
#include "media_plugin_base.h"

#include <time.h>

////////////////////////////////////////////////////////////////////////////////
//
class mediaPluginExample :
	public MediaPluginBase
{
public:
	mediaPluginExample(LLPluginInstance::sendMessageFunction host_send_func, void *host_user_data);
	~mediaPluginExample();

	/*virtual*/ void receiveMessage(const char* message_string);

private:
	bool init();
	void update(F64 milliseconds);
	bool mFirstTime;

	time_t mLastUpdateTime;
	enum Constants { ENumObjects = 64 };
	unsigned char* mBackgroundPixels;
	int mColorR[ENumObjects];
	int mColorG[ENumObjects];
	int mColorB[ENumObjects];
	int mXpos[ENumObjects];
	int mYpos[ENumObjects];
	int mXInc[ENumObjects];
	int mYInc[ENumObjects];
	int mBlockSize[ENumObjects];
};

////////////////////////////////////////////////////////////////////////////////
//
mediaPluginExample::mediaPluginExample(LLPluginInstance::sendMessageFunction host_send_func, void *host_user_data) :
MediaPluginBase(host_send_func, host_user_data)
{
	mFirstTime = true;
	mTextureWidth = 0;
	mTextureHeight = 0;
	mWidth = 0;
	mHeight = 0;
	mDepth = 4;
	mPixels = 0;
	mLastUpdateTime = 0;
	mBackgroundPixels = 0;
}

////////////////////////////////////////////////////////////////////////////////
//
mediaPluginExample::~mediaPluginExample()
{
}

////////////////////////////////////////////////////////////////////////////////
//
void mediaPluginExample::receiveMessage(const char* message_string)
{
	//  std::cerr << "MediaPluginWebKit::receiveMessage: received message: \"" << message_string << "\"" << std::endl;
	LLPluginMessage message_in;

	if (message_in.parse(message_string) >= 0)
	{
		std::string message_class = message_in.getClass();
		std::string message_name = message_in.getName();
		if (message_class == LLPLUGIN_MESSAGE_CLASS_BASE)
		{
			if (message_name == "init")
			{
				LLPluginMessage message("base", "init_response");
				LLSD versions = LLSD::emptyMap();
				versions[LLPLUGIN_MESSAGE_CLASS_BASE] = LLPLUGIN_MESSAGE_CLASS_BASE_VERSION;
				versions[LLPLUGIN_MESSAGE_CLASS_MEDIA] = LLPLUGIN_MESSAGE_CLASS_MEDIA_VERSION;
				versions[LLPLUGIN_MESSAGE_CLASS_MEDIA_BROWSER] = LLPLUGIN_MESSAGE_CLASS_MEDIA_BROWSER_VERSION;
				message.setValueLLSD("versions", versions);

				std::string plugin_version = "Example plugin 0.0.0";
				message.setValue("plugin_version", plugin_version);
				sendMessage(message);
			}
			else if (message_name == "idle")
			{
				// no response is necessary here.
				F64 time = message_in.getValueReal("time");

				// Convert time to milliseconds for update()
				update((int)(time * 1000.0f));
			}
			else if (message_name == "cleanup")
			{
				LLPluginMessage message("base", "goodbye");
				sendMessage(message);

				mDeleteMe = true;
			}
			else if (message_name == "force_exit")
			{
				mDeleteMe = true;
			}
			else if (message_name == "shm_added")
			{
				SharedSegmentInfo info;
				info.mAddress = message_in.getValuePointer("address");
				info.mSize = (size_t)message_in.getValueS32("size");
				std::string name = message_in.getValue("name");

				mSharedSegments.insert(SharedSegmentMap::value_type(name, info));

			}
			else if (message_name == "shm_remove")
			{
				std::string name = message_in.getValue("name");

				SharedSegmentMap::iterator iter = mSharedSegments.find(name);
				if (iter != mSharedSegments.end())
				{
					if (mPixels == iter->second.mAddress)
					{
						// This is the currently active pixel buffer.  Make sure we stop drawing to it.
						mPixels = NULL;
						mTextureSegmentName.clear();
					}
					mSharedSegments.erase(iter);
				}
				else
				{
					//                  std::cerr << "MediaPluginWebKit::receiveMessage: unknown shared memory region!" << std::endl;
				}

				// Send the response so it can be cleaned up.
				LLPluginMessage message("base", "shm_remove_response");
				message.setValue("name", name);
				sendMessage(message);
			}
			else
			{
				//              std::cerr << "MediaPluginWebKit::receiveMessage: unknown base message: " << message_name << std::endl;
			}
		}
		else if (message_class == LLPLUGIN_MESSAGE_CLASS_MEDIA)
		{
			if (message_name == "init")
			{
				// Plugin gets to decide the texture parameters to use.
				mDepth = 4;
				LLPluginMessage message(LLPLUGIN_MESSAGE_CLASS_MEDIA, "texture_params");
				message.setValueS32("default_width", 1024);
				message.setValueS32("default_height", 1024);
				message.setValueS32("depth", mDepth);
				message.setValueU32("internalformat", GL_RGB);
				message.setValueU32("format", GL_RGBA);
				message.setValueU32("type", GL_UNSIGNED_BYTE);
				message.setValueBoolean("coords_opengl", true);
				sendMessage(message);
			}
			else if (message_name == "size_change")
			{
				std::string name = message_in.getValue("name");
				S32 width = message_in.getValueS32("width");
				S32 height = message_in.getValueS32("height");
				S32 texture_width = message_in.getValueS32("texture_width");
				S32 texture_height = message_in.getValueS32("texture_height");

				if (!name.empty())
				{
					// Find the shared memory region with this name
					SharedSegmentMap::iterator iter = mSharedSegments.find(name);
					if (iter != mSharedSegments.end())
					{
						mPixels = (unsigned char*)iter->second.mAddress;
						mWidth = width;
						mHeight = height;

						mTextureWidth = texture_width;
						mTextureHeight = texture_height;
					};
				};

				LLPluginMessage message(LLPLUGIN_MESSAGE_CLASS_MEDIA, "size_change_response");
				message.setValue("name", name);
				message.setValueS32("width", width);
				message.setValueS32("height", height);
				message.setValueS32("texture_width", texture_width);
				message.setValueS32("texture_height", texture_height);
				sendMessage(message);

				mFirstTime = true;
				mLastUpdateTime = 0;

			}
			else if (message_name == "load_uri")
			{
			}
			else if (message_name == "mouse_event")
			{
				std::string event = message_in.getValue("event");
				if (event == "down")
				{

				}
				else if (event == "up")
				{
				}
				else if (event == "double_click")
				{
				}
			}
		}
		else
		{
		};
	}
}

////////////////////////////////////////////////////////////////////////////////
//
void mediaPluginExample::update(F64 milliseconds)
{
	if (mWidth < 1 || mWidth > 2048 || mHeight < 1 || mHeight > 2048)
		return;

	if (mPixels == 0)
		return;

	if (mFirstTime)
	{
		for (int n = 0; n < ENumObjects; ++n)
		{
			mXpos[n] = (mWidth / 2) + rand() % (mWidth / 16) - (mWidth / 32);
			mYpos[n] = (mHeight / 2) + rand() % (mHeight / 16) - (mHeight / 32);

			mColorR[n] = rand() % 0x60 + 0x60;
			mColorG[n] = rand() % 0x60 + 0x60;
			mColorB[n] = rand() % 0x60 + 0x60;

			mXInc[n] = 0;
			while (mXInc[n] == 0)
				mXInc[n] = rand() % 7 - 3;

			mYInc[n] = 0;
			while (mYInc[n] == 0)
				mYInc[n] = rand() % 9 - 4;

			mBlockSize[n] = rand() % 0x30 + 0x10;
		};

		delete[] mBackgroundPixels;

		mBackgroundPixels = new unsigned char[mWidth * mHeight * mDepth];

		mFirstTime = false;
	};

	if (time(NULL) > mLastUpdateTime + 3)
	{
		const int num_squares = rand() % 20 + 4;
		int sqr1_r = rand() % 0x80 + 0x20;
		int sqr1_g = rand() % 0x80 + 0x20;
		int sqr1_b = rand() % 0x80 + 0x20;
		int sqr2_r = rand() % 0x80 + 0x20;
		int sqr2_g = rand() % 0x80 + 0x20;
		int sqr2_b = rand() % 0x80 + 0x20;

		for (int y1 = 0; y1 < num_squares; ++y1)
		{
			for (int x1 = 0; x1 < num_squares; ++x1)
			{
				int px_start = mWidth * x1 / num_squares;
				int px_end = (mWidth * (x1 + 1)) / num_squares;
				int py_start = mHeight * y1 / num_squares;
				int py_end = (mHeight * (y1 + 1)) / num_squares;

				for (int y2 = py_start; y2 < py_end; ++y2)
				{
					for (int x2 = px_start; x2 < px_end; ++x2)
					{
						int rowspan = mWidth * mDepth;

						if ((y1 % 2) ^ (x1 % 2))
						{
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 0] = sqr1_r;
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 1] = sqr1_g;
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 2] = sqr1_b;
						}
						else
						{
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 0] = sqr2_r;
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 1] = sqr2_g;
							mBackgroundPixels[y2 * rowspan + x2 * mDepth + 2] = sqr2_b;
						};
					};
				};
			};
		};

		time(&mLastUpdateTime);
	};

	memcpy(mPixels, mBackgroundPixels, mWidth * mHeight * mDepth);

	for (int n = 0; n < ENumObjects; ++n)
	{
		if (rand() % 50 == 0)
		{
			mXInc[n] = 0;
			while (mXInc[n] == 0)
				mXInc[n] = rand() % 7 - 3;

			mYInc[n] = 0;
			while (mYInc[n] == 0)
				mYInc[n] = rand() % 9 - 4;
		};

		if (mXpos[n] + mXInc[n] < 0 || mXpos[n] + mXInc[n] >= mWidth - mBlockSize[n])
			mXInc[n] = -mXInc[n];

		if (mYpos[n] + mYInc[n] < 0 || mYpos[n] + mYInc[n] >= mHeight - mBlockSize[n])
			mYInc[n] = -mYInc[n];

		mXpos[n] += mXInc[n];
		mYpos[n] += mYInc[n];

		for (int y = 0; y < mBlockSize[n]; ++y)
		{
			for (int x = 0; x < mBlockSize[n]; ++x)
			{
				mPixels[(mXpos[n] + x) * mDepth + (mYpos[n] + y) * mDepth * mWidth + 0] = mColorR[n];
				mPixels[(mXpos[n] + x) * mDepth + (mYpos[n] + y) * mDepth * mWidth + 1] = mColorG[n];
				mPixels[(mXpos[n] + x) * mDepth + (mYpos[n] + y) * mDepth * mWidth + 2] = mColorB[n];
			};
		};
	};

	setDirty(0, 0, mWidth, mHeight);
};

////////////////////////////////////////////////////////////////////////////////
//
bool mediaPluginExample::init()
{
	LLPluginMessage message(LLPLUGIN_MESSAGE_CLASS_MEDIA, "name_text");
	message.setValue("name", "Example Plugin");
	sendMessage(message);

	return true;
};

////////////////////////////////////////////////////////////////////////////////
//
int init_media_plugin(LLPluginInstance::sendMessageFunction host_send_func,
	void* host_user_data,
	LLPluginInstance::sendMessageFunction *plugin_send_func,
	void **plugin_user_data)
{
	mediaPluginExample* self = new mediaPluginExample(host_send_func, host_user_data);
	*plugin_send_func = mediaPluginExample::staticReceiveMessage;
	*plugin_user_data = (void*)self;

	return 0;
}