#include <jni.h>
#include "irrlicht.h"
#include "../android/bufferio_android.h"
#include "../Classes/gframe/os.h"
#include <unistd.h>
#include <pthread.h>
#include <Android/CIrrDeviceAndroid.h>
#include "../android/YGOGameOptions.h"
#include "../Classes/gframe/game.h"
#include <android/log.h>

using namespace irr;
using namespace gui;

extern "C" {
#include "libbpg.h"
static void* s_init_param_buffer = NULL;

const static char access_key[] = "Cr0uGhF9SgYio-NN9N4qDhpNsZNTeTAkm2LAmKmg";
const static char secret_key[] = "O2zMfI3gqJYYJSAuCeUkH9J_vm5S_A4Yn8fhrjU3";

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeInsertText
 * Signature: (ILjava/lang/String;)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeInsertText(
		JNIEnv* env, jclass clazz, jlong handle, jstring textString) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		IGUIEnvironment* irrenv = device->getGUIEnvironment();
		IGUIElement* element = irrenv->getFocus();
		if (element && element->getType() == EGUIET_EDIT_BOX) {
			IGUIEditBox* editbox = (IGUIEditBox*) element;
			const char* text = env->GetStringUTFChars(textString, NULL);
			wchar_t content[256];
			BufferIO::DecodeUTF8(text, content);
			editbox->setText(content);
			irrenv->removeFocus(editbox);
			irrenv->setFocus(editbox->getParent());
			SEvent changeEvent;
			changeEvent.EventType = EET_GUI_EVENT;
			changeEvent.GUIEvent.Caller = editbox;
			changeEvent.GUIEvent.Element = 0;
			changeEvent.GUIEvent.EventType = EGET_EDITBOX_CHANGED;
			editbox->getParent()->OnEvent(changeEvent);
			SEvent enterEvent;
			enterEvent.EventType = EET_GUI_EVENT;
			enterEvent.GUIEvent.Caller = editbox;
			enterEvent.GUIEvent.Element = 0;
			enterEvent.GUIEvent.EventType = EGET_EDITBOX_ENTER;
			editbox->getParent()->OnEvent(enterEvent);
			env->DeleteLocalRef(textString);
		}
	}
}
JNIEXPORT jbyteArray JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeBpgImage(
	JNIEnv* env, jclass clazz, jbyteArray imgdata) {
	jsize len  = env->GetArrayLength(imgdata);   
	jbyte *jarr = (jbyte *)malloc(len * sizeof(jbyte));  
	env->GetByteArrayRegion(imgdata,0,len,jarr);  
	uint8_t *data = (uint8_t *)jarr;//uint8_t 就是byte  
	BPGDecoderContext *img;
	BPGImageInfo img_info_s, *img_info = &img_info_s;
	int w, h, i, y,size, bufferIncrement, rowspan;
	//加载文件
	img = bpg_decoder_open();
	if (bpg_decoder_decode(img, data, (int)len) < 0) {
		return 0;
	}
	//解析信息
	bpg_decoder_get_info(img, img_info);
	w = img_info->width;
	h = img_info->height;
	size = w * y;
	//*rgb_line的长度 rgb=3,argb=4
	if (img_info->format == BPG_FORMAT_GRAY) 
		rowspan = 1 * w;
	else
		rowspan = 3 * w;
	u8* rgb_line = new u8[rowspan];
	//输出到output
	unsigned int outBufLen = rowspan * h+8;
	u8* output = new u8[outBufLen];
	output[0] = (byte)(w & 0xFF);  
    output[1] = (byte)((w & 0xFF00) >> 8);  
    output[2] = (byte)((w & 0xFF0000) >> 16);  
    output[3] = (byte)((w >> 24) & 0xFF);  
	output[4] = (byte)(h & 0xFF);  
    output[5] = (byte)((h & 0xFF00) >> 8);  
    output[6] = (byte)((h & 0xFF0000) >> 16);  
    output[7] = (byte)((h >> 24) & 0xFF); 
	bpg_decoder_start(img, BPG_OUTPUT_FORMAT_RGB24);
	bufferIncrement = 8;
	for (y = 0; y < h; y++) {
		bpg_decoder_get_line(img, rgb_line);
		for(i=0; i<rowspan;i++){
			output[bufferIncrement + i] = rgb_line[i];
		}
		bufferIncrement += rowspan;
	}
	bpg_decoder_close(img);
	delete [] rgb_line;
	jbyteArray  jbarray = env->NewByteArray(outBufLen);
	jbyte *jy=(jbyte*)output;  //BYTE强制转换成Jbyte；
	env->SetByteArrayRegion(jbarray, 0, outBufLen, jy);            //将Jbyte 转换为jbarray数组
	env->DeleteLocalRef(imgdata);
	free(output);
	return jbarray;
}
/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeSetComboBoxSelection
 * Signature: (II)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeSetComboBoxSelection(
		JNIEnv* env, jclass clazz, jlong handle, jint idx) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		IGUIEnvironment* irrenv = device->getGUIEnvironment();
		IGUIElement* element = irrenv->getFocus();
		if (element && element->getParent()->getType() == EGUIET_COMBO_BOX) {
			IGUIComboBox* combo = (IGUIComboBox*) (element->getParent());
			core::list<IGUIElement*> children = combo->getChildren();
			core::list<IGUIElement*>::Iterator current = children.begin();
			do {
				if ((*current)->getType() == EGUIET_LIST_BOX) {
					break;
				}
				current++;
			} while (current != children.end());
			if (current == children.end()) {
				return;
			}
			IGUIListBox* list = (IGUIListBox*) *current;
			list->setSelected(idx);
			SEvent changeEvent;
			changeEvent.EventType = EET_GUI_EVENT;
			changeEvent.GUIEvent.Caller = list;
			changeEvent.GUIEvent.Element = 0;
			changeEvent.GUIEvent.EventType = EGET_LISTBOX_CHANGED;
			combo->OnEvent(changeEvent);
		}
	}
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeSetCheckBoxesSelection
 * Signature: (II)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeSetCheckBoxesSelection(
		JNIEnv* env, jclass clazz, jlong handle, jint idx) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		IGUIEnvironment* irrenv = device->getGUIEnvironment();
		IGUIElement* element = irrenv->getFocus();
		if (element) {
			IGUIWindow* window = (IGUIWindow*) (element);
			core::list<IGUIElement*> children = window->getChildren();
			core::list<IGUIElement*>::Iterator current = children.begin();
			int i = 0;
			do {
				if ((*current)->getType() == EGUIET_CHECK_BOX && i++ == idx) {
					break;
				}
				current++;
			} while (current != children.end());
			if (current == children.end()) {
				return;
			}
			IGUICheckBox* checkbox = (IGUICheckBox*) *current;
			checkbox->setChecked(true);
			SEvent e;
			e.EventType = EET_GUI_EVENT;
			e.GUIEvent.Caller = checkbox;
			e.GUIEvent.Element = 0;
			e.GUIEvent.EventType = EGET_CHECKBOX_CHANGED;
			window->OnEvent(e);
			irrenv->setFocus(window);
		}
	}
}

static void* join_game_thread(void* param) {
	ygo::mainGame->externalSignal.Wait();
	ygo::mainGame->gMutex.lock();
	if (ygo::mainGame->dInfo.isStarted) {
		ygo::mainGame->gMutex.unlock();
		return NULL;
	}
	//auto exit when join game by mycard.
	//exit_on_return = true;
	irr::android::YGOGameOptions options = irr::android::YGOGameOptions(param);
	irr::SEvent event;

	wchar_t wbuff[256];
	char linelog[256];
	BufferIO::DecodeUTF8(options.getIPAddr(), wbuff);
	ygo::mainGame->ebJoinHost->setText(wbuff);

	myswprintf(wbuff, L"%d", options.getPort());
	BufferIO::EncodeUTF8(wbuff, linelog);
	ygo::mainGame->ebJoinPort->setText(wbuff);

	irr::os::Printer::log(options.getUserName());
	BufferIO::DecodeUTF8(options.getUserName(), wbuff);
	ygo::mainGame->ebNickName->setText(wbuff);

	wmemset(wbuff, 0, 256);

	bool bRoomCreate = options.formatGameParams(wbuff);
	if (bRoomCreate) {
		BufferIO::EncodeUTF8(wbuff, linelog);
		irr::os::Printer::log(linelog);
		ygo::mainGame->ebJoinPass->setText(wbuff);
	}

	event.EventType = irr::EET_GUI_EVENT;
	event.GUIEvent.EventType = irr::gui::EGET_BUTTON_CLICKED;
	event.GUIEvent.Caller = ygo::mainGame->btnLanMode;
	ygo::mainGame->device->postEventFromUser(event);
//	if (bRoomCreate) {
 		//TODO: wait for wLanWindow show. if network connection faster than wLanWindow, wLanWindow will still show on duel scene.
 		usleep(500);
 		event.GUIEvent.Caller = ygo::mainGame->btnJoinHost;
 		ygo::mainGame->device->postEventFromUser(event);
 //	}
 	exit: ygo::mainGame->gMutex.unlock();

	free(param);
	return NULL;
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeRefreshTexture
 * Signature: (I)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeRefreshTexture(
		JNIEnv* env, jclass clazz, jlong handle) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;

		if (device->isWindowFocused()) {
			irr::os::Printer::log("before send refresh event");
			SEvent event;
			event.EventType = EET_KEY_INPUT_EVENT;
			//just cause a right up event to refresh texture
			event.KeyInput.PressedDown = true;
			event.KeyInput.Shift = false;
			event.KeyInput.Control = false;
			event.KeyInput.Key = KEY_KEY_R;
			device->postEventFromUser(event);
		}
	}
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeIgnoreChain
 * Signature: (IZ)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeIgnoreChain(
		JNIEnv* env, jclass clazz, jlong handle, jboolean begin) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		if (device->isWindowFocused()) {
			irr::os::Printer::log("before send ignore chain");
			SEvent event;
			event.EventType = EET_KEY_INPUT_EVENT;
			//just cause a right up event to refresh texture
			event.KeyInput.PressedDown = begin;
			event.KeyInput.Shift = false;
			event.KeyInput.Control = false;
			event.KeyInput.Key = KEY_KEY_S;
			device->postEventFromUser(event);
		}
	}
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeReactChain
 * Signature: (IZ)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeReactChain(
		JNIEnv* env, jclass clazz, jlong handle, jboolean begin) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		if (device->isWindowFocused()) {
			irr::os::Printer::log("before send react chain");
			SEvent event;
			event.EventType = EET_KEY_INPUT_EVENT;
			//just cause a right up event to refresh texture
			event.KeyInput.PressedDown = begin;
			event.KeyInput.Shift = false;
			event.KeyInput.Control = false;
			event.KeyInput.Key = KEY_KEY_A;
			device->postEventFromUser(event);
		}
	}
}

JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeSetInputFix(
		JNIEnv* env, jclass clazz, jlong handle, jint x, jint y) {
	if(ygo::mainGame) {
		ALOGD("setInputFix posX=%d, posY=%d", x, y);
		ygo::mainGame->setPositionFix(core::position2di(x, y));
	}
}

static void* cancel_chain_thread(void* param) {
	IrrlichtDevice* device = (IrrlichtDevice*) param;
	irr::os::Printer::log("before send cancel chain");
	SEvent downevent;
	downevent.EventType = EET_MOUSE_INPUT_EVENT;
	//just cause a right up event to refresh texture
	downevent.MouseInput.Event = EMIE_RMOUSE_PRESSED_DOWN;
	device->postEventFromUser(downevent);
	usleep(20 * 1000);
	SEvent upevent;
	upevent.EventType = EET_MOUSE_INPUT_EVENT;
	//just cause a right up event to refresh texture
	upevent.MouseInput.Event = EMIE_RMOUSE_LEFT_UP;
	device->postEventFromUser(upevent);
	return NULL;
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeCancelChain
 * Signature: (I)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeCancelChain(
		JNIEnv* env, jclass clazz, jlong handle) {
	if (handle) {
		IrrlichtDevice* device = (IrrlichtDevice*) handle;
		if (device->isWindowFocused()) {
			pthread_t cencelThread;
			pthread_attr_t cancelAttr;
			pthread_attr_init(&cancelAttr);
			pthread_create(&cencelThread, &cancelAttr, cancel_chain_thread,
					(void*) device);
			pthread_attr_destroy(&cancelAttr);
			pthread_detach(cencelThread);
		}
	}
}

/*
 * Class:     cn_garymb_ygomobile_core_IrrlichtBridge
 * Method:    nativeJoinGame
 * Signature: (ILjava/nio/ByteBuffer;I)V
 */JNIEXPORT void JNICALL Java_cn_garymb_ygomobile_core_IrrlichtBridge_nativeJoinGame(
		JNIEnv* env, jclass clazz, jlong handle, jobject buffer, jint length) {
	void* data = env->GetDirectBufferAddress(buffer);
	s_init_param_buffer = malloc(length);
	memcpy(s_init_param_buffer, data, length);
	pthread_t joinGameThread;
	pthread_attr_t joinGameAttr;
	pthread_attr_init(&joinGameAttr);
	pthread_create(&joinGameThread, &joinGameAttr, join_game_thread,
			s_init_param_buffer);
	pthread_attr_destroy(&joinGameAttr);
	pthread_detach(joinGameThread);
}

jint JNI_OnLoad(JavaVM* vm, void* reserved) {
	void *venv;
	if (vm->GetEnv((void**) &venv, JNI_VERSION_1_6) != JNI_OK) {
		return -1;
	}
	return JNI_VERSION_1_6;
}

}
