#include "Local.h"

#include "Telpp.brc"


#ifdef GUI_TELPP

NAMESPACE_UPP

#define LLOG(x)  //  DLOG(x)
#define LDUMP(x) // DDUMP(x)
#define LTIMING(x)

static Point MousePos;

TcpSocket   server;
TcpSocket   socket;

Size   DesktopSize = Size(1000, 1000);

StaticRect& Desktop()
{
	static StaticRect x;
	return x;
}


void Ctrl::InitTelpp()
{
	if(!server.Listen(8000, 10)) {
		LOG("Cannot open server port for listening\r\n");
		return;
	}

	Ctrl::GlobalBackBuffer();
	Ctrl::InitTimer();

#ifdef PLATFORM_POSIX
	SetStdFont(ScreenSans(12)); //FIXME general handling
#endif
	ChStdSkin();

	Desktop().Color(Cyan());
	Desktop().SetRect(0, 0, DesktopSize.cx, DesktopSize.cy);
	SetDesktop(Desktop());
}

Point GetMousePos() {
	return MousePos;
}

dword lastbdowntime[8] = {0};
dword isdblclick[8] = {0};

void Ctrl::MouseEventFB(Ptr<Ctrl> t, int event, Point p, int zdelta)
{
	if(!t->IsEnabled())
		return;
	Rect rr = t->GetRect();
	if((event & Ctrl::ACTION) == DOWN) {
		Ptr<Ctrl> q = t;
		TopWindowFrame *wf = dynamic_cast<TopWindowFrame *>(~t);
		if(wf)
			q = wf->window;			
		if(q) q->ClickActivateWnd();
		if(q) q->SetForeground();
		if(ignoreclick)
			return;
	}
	if(t)
		t->DispatchMouse(event, p - rr.TopLeft(), zdelta);
	if(t)
		t->PostInput();
}

Ctrl *Ctrl::FindMouseTopCtrl()
{
	for(int i = topctrl.GetCount() - 1; i >= 0; i--) {
		Ctrl *t = topctrl[i];
		if(t->GetRect().Contains(MousePos))
			return t->IsEnabled() ? t : NULL;
	}
	return desktop->IsEnabled() ? desktop : NULL;
}

void Ctrl::SetCaret(int x, int y, int cx, int cy)
{
	GuiLock __;
	caretx = x;
	carety = y;
	caretcx = cx;
	caretcy = cy;
	fbCaretTm = GetTickCount();
	SyncCaret();
}

void Ctrl::SyncCaret()
{
	CursorSync();
}

void Ctrl::CursorSync()
{
//	LLOG("@ CursorSync");
	Point p = GetMousePos() - fbCursorImage.GetHotSpot();
	Rect cr = Null;
	if(focusCtrl && (((GetTickCount() - fbCaretTm) / 500) & 1) == 0)
		cr = (RectC(focusCtrl->caretx, focusCtrl->carety, focusCtrl->caretcx, focusCtrl->caretcy)
		      + focusCtrl->GetScreenView().TopLeft()) & focusCtrl->GetScreenView();
	if(fbCursorPos != p && !SystemCursor || cr != fbCaretRect) {
		fbCaretRect = cr;
		fbCursorPos = p;
		Invalidate();
	}
}

String content;

void Ctrl::PaintScene(SystemDraw& draw)
{
	if(!desktop)
		return;
	LLOG("@ DoPaint");
	LTIMING("DoPaint paint");
	draw.Init(DesktopSize);
	draw.Begin();
	Vector<Rect> invalid;
	invalid.Add(DesktopSize); _TODO_
	for(int i = topctrl.GetCount() - 1; i >= 0; i--) {
		Rect r = topctrl[i]->GetRect();
		Rect ri = GetClipBound(invalid, r);
		if(!IsNull(ri)) {
			draw.Clipoff(r);
			topctrl[i]->UpdateArea(draw, ri - r.TopLeft());
			draw.End();
			Subtract(invalid, r);
			draw.ExcludeClip(r);
		}
	}
	Rect ri = GetClipBound(invalid, desktop->GetRect().GetSize());
	if(!IsNull(ri))
		desktop->UpdateArea(draw, ri);
	draw.End();
}

void Ctrl::PaintCaretCursor(SystemDraw& draw)
{
	if(!IsNull(fbCaretRect))
		draw.DrawRect(fbCaretRect, InvertColor);
	int64 q = fbCursorImage.GetAuxData();
	if(q) {
		draw.Put8(SystemDraw::STD_CURSORIMAGE);
		draw.Put8(clamp((int)q, 1, 16));
	}
	else {
		String h;
		Point p = fbCursorImage.GetHotSpot();
		h << "url('data:image/png;base64,"
		  << Base64Encode(PNGEncoder().SaveString(fbCursorImage))
		  << "') " << p.x << ' ' << p.y << ", default";
		draw.Put8(SystemDraw::SETCURSORIMAGE);
		draw.Put16(0); // _TODO_ Cursor cache
		draw.Put(h);
		draw.Put8(SystemDraw::CURSORIMAGE);
		draw.Put16(0); // _TODO_ Cursor cache
	}
}

void Ctrl::DoPaint()
{ 
	if(!PaintLock) {
		if(invalid && desktop) {
			invalid = false;
			SystemDraw draw;
			PaintScene(draw);
			PaintCaretCursor(draw);
			content << String(draw.result);
		}
	}
}

bool keyShift;
bool keyCtrl;
bool keyAlt;

bool GetShift()       { return keyShift; }
bool GetCtrl()        { return keyCtrl; }
bool GetAlt()         { return keyAlt; }
bool GetCapsLock()    { return false; } // Impossible to implement

dword fbKEYtoK(dword chr) {
	chr = chr + K_DELTA;
	if(chr == K_ALT_KEY || chr == K_CTRL_KEY || chr == K_SHIFT_KEY)
		return chr;
	if(GetCtrl()) chr |= K_CTRL;
	if(GetAlt()) chr |= K_ALT;
	if(GetShift()) chr |= K_SHIFT;
	return chr;
/*
	if(chr == SDLK_TAB)
		chr = K_TAB;
	else
	if(chr == SDLK_SPACE)
		chr = K_SPACE;
	else
	if(chr == SDLK_RETURN)
		chr = K_RETURN;
	else
		chr = chr + K_DELTA;
*/
}

void Ctrl::ReadKeyMods(CParser& p)
{
	const char *s = p.GetPtr();
	if(*s)
		keyShift = *s++ == '1';
	if(*s)
		keyCtrl = *s++ == '1';
	if(*s)
		keyAlt = *s++ == '1';
}

bool Ctrl::DoKeyFB(dword key, int cnt)
{
	LLOG("DoKeyFB [" << GetKeyDesc(key) << "] " << key << ", " << cnt);

	bool b = DispatchKey(key, cnt);
	SyncCaret();
	Ctrl *desktop = GetDesktop();
	if(desktop)
		desktop->PostInput();
	return b;
}


bool  mouseLeft, mouseMiddle, mouseRight;
Point mouseDownPos;
int64 mouseDownTime;

bool GetMouseLeft()   { return mouseLeft; }
bool GetMouseRight()  { return mouseRight; }
bool GetMouseMiddle() { return mouseMiddle; }

void Ctrl::DoMouseFB(int event, Point p, int zdelta, CParser& cp)
{
	ReadKeyMods(cp);
	MousePos = p;
	int a = event & ACTION;
	if(a == UP && Ctrl::ignoreclick) {
		EndIgnore();
		return;
	}
	else
	if(a == DOWN && ignoreclick)
		return;
	LLOG("### Mouse event: " << event << " position " << p << " zdelta " << zdelta << ", capture " << Upp::Name(captureCtrl));
	if(captureCtrl)
		MouseEventFB(captureCtrl->GetTopCtrl(), event, p, zdelta);
	else
		for(int i = topctrl.GetCount() - 1; i >= 0; i--) {
			Ptr<Ctrl> t = topctrl[i];
			Rect rr = t->GetRect();
			if(rr.Contains(p)) {
				MouseEventFB(t, event, p, zdelta);
				return;
			}
		}
	Ctrl *desktop = GetDesktop();
	if(desktop) {
		desktop->DispatchMouse(event, p, zdelta);
		desktop->PostInput();
	}
}

static int sDistMax(Point a, Point b)
{
	return IsNull(a) ? INT_MAX : max(abs(a.x - b.x), abs(a.y - b.y));
}

Point ReadPoint(CParser& p)
{
	Point pt;
	pt.x = p.ReadInt();
	pt.y = p.ReadInt();
	return pt;
}

void Ctrl::DoMouseButton(int event, CParser& p)
{
	int button = p.ReadInt();
	Point pt = ReadPoint(p);
	int64 tm = p.ReadInt64();
	(button == 0 ? mouseLeft : button == 2 ? mouseRight : mouseMiddle) = event == DOWN;
	if(event == DOWN)
		if(sDistMax(mouseDownPos, pt) < GUI_DragDistance() && tm - mouseDownTime < 800) {
			event = DOUBLE;
			mouseDownTime = 0;
		}
		else {
			mouseDownPos = pt;
			mouseDownTime = tm;
		}
	DoMouseFB(decode(button, 0, LEFT, 2, RIGHT, MIDDLE)|event, pt, 0, p);
}

bool Ctrl::ProcessEventQueue(const String& event_queue)
{
	StringStream ss(event_queue);
	while(!ss.IsEof()) {
		String s = ss.GetLine();
		CParser p(s);
		try {
			if(p.Id("I"))
				SystemDraw::ResetI();
			else
			if(p.Id("R")) {
				DesktopSize = ReadPoint(p);
				Desktop().SetRect(0, 0, DesktopSize.cx, DesktopSize.cy);				
			}
			if(p.Id("M")) {
				Point pt = ReadPoint(p);
				int64 tm = p.ReadInt64();
				DoMouseFB(MOUSEMOVE, pt, 0, p);
			}
			else
			if(p.Id("W")) {
				double w = p.ReadDouble();
				Point pt = ReadPoint(p);
				int64 tm = p.ReadInt64();
				DoMouseFB(MOUSEWHEEL, pt, w < 0 ? 120 : -120, p);
			}
			else
			if(p.Id("O")) {
				mouseLeft = mouseMiddle = mouseRight = false;
				mouseDownTime = 0;
			}
			else
			if(p.Id("D")) {
				DoMouseButton(DOWN, p);
			}
			else
			if(p.Id("U")) {
				DoMouseButton(UP, p);
			}
			else
			if(p.Id("K")) {
				int code = p.ReadInt();
				int which = p.ReadInt();
				ReadKeyMods(p);
				DoKeyFB(fbKEYtoK(which), 1);
			}
			else
			if(p.Id("k")) {
				int code = p.ReadInt();
				int which = p.ReadInt();
				ReadKeyMods(p);
				DoKeyFB(K_KEYUP|fbKEYtoK(which), 1);
			}
			else
			if(p.Id("C")) {
				int code = p.ReadInt();
				int which = p.ReadInt();
				ReadKeyMods(p);
				if(which && !keyAlt && !keyCtrl)
					DoKeyFB(which, 1);
			}
		}
		catch(CParser::Error) {}
	}
	return true;
}

HttpHeader http;

void Ctrl::Reply()
{
	GuiLock __;
	if(socket.IsOpen()) {
		TimerProc(GetTickCount());
		DefferedFocusSync();
		SyncCaret();
		SyncTopWindows();
		SweepMkImageCache();
		DoPaint();
		if(http.GetURI().GetCount() < 2)
			HttpResponse(socket, http.scgi, 200, "OK", "text/html", String(telpp_html, telpp_html_length)); // This is weird place, but whatever
		else {
			String s = GZCompress(content);
			HttpResponse(socket, http.scgi, 200, "OK", "text/plain; charset=x-user-defined",
			             s, "U++ Tel++ server", true);
		}
		socket.Close();
	}
}

bool Ctrl::IsWaitingEvent()
{
	GuiLock __;
	Reply();
	return socket.Timeout(0).Accept(server);
}

bool Ctrl::ProcessEvents(bool *quit)
{
	GuiLock __;
	LLOG("ProcessEvents");
	if(!IsWaitingEvent())
		return false;

	TimeStop tm;
	LLOG("Trying to read socket");
	socket.Timeout(20000);
	if(!http.Read(socket)) {
		LLOG("Header failed to read");
		socket.Close();
		return false;
	}
	String event_queue = socket.Get((int)http.GetContentLength());
	LLOG("---- Process events");
	if(event_queue.GetCount())
		LOG(event_queue);
	content.Clear();
	bool r = ProcessEventQueue(event_queue);
	_TODO_ // Resolve eventloop exit issue
	Reply();
	return r;
}

void Ctrl::EventLoop(Ctrl *ctrl)
{
	GuiLock __;
	Reply();
	ASSERT(IsMainThread());
	ASSERT(LoopLevel == 0 || ctrl);
	LoopLevel++;
	LLOG("Entering event loop at level " << LoopLevel << LOG_BEGIN);
	Ptr<Ctrl> ploop;
	if(ctrl) {
		ploop = LoopCtrl;
		LoopCtrl = ctrl;
		ctrl->inloop = true;
	}

	bool quit = false;
	int64 loopno = ++EventLoopNo;
	ProcessEvents(&quit);
	while(loopno > EndSessionLoopNo && !quit && (ctrl ? ctrl->IsOpen() && ctrl->InLoop() : GetTopCtrls().GetCount()))
	{
//		LLOG(GetSysTime() << " % " << (unsigned)msecs() % 10000 << ": EventLoop / GuiSleep");
		SyncCaret();
		GuiSleep(20);
//		LLOG(GetSysTime() << " % " << (unsigned)msecs() % 10000 << ": EventLoop / ProcessEvents");
		ProcessEvents(&quit);
//		LLOG(GetSysTime() << " % " << (unsigned)msecs() % 10000 << ": EventLoop / after ProcessEvents");
//		LDUMP(loopno);
	}

	if(ctrl)
		LoopCtrl = ploop;
	LoopLevel--;
	LLOG(LOG_END << "Leaving event loop ");
}

void Ctrl::GuiSleep(int ms)
{
	GuiLock __;
	Reply();
	ASSERT(IsMainThread());
//	LLOG("GuiSleep");
	int level = LeaveGuiMutexAll();
	Sleep(ms); _TODO_
	EnterGuiMutex(level);
}

END_UPP_NAMESPACE

#endif