// Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// Extracted from DEBLOGWN.CPP

// Code to run the WIN32 windows with the output

// 

//

#include <e32std.h>

#include <e32base.h>

#include <emulator.h>

#include "LOGWIN.H"

GLDEF_D struct TSharedMemory GSharedMemory;

//GLDEF_D struct HWND__ *Hwnd;

//LOCAL_D RSemaphore Sem;

const TUint KHeapSize=0x8000;

TInt numLines(const CArrayVarSeg<TText> &aTextArray, TBool aOutOfMemory)

	{

	return (TInt)(aOutOfMemory)?

				aTextArray.Count():

				aTextArray.Count()-1;

	}

TInt numVisibleLines(TInt aHeight, TInt aTextHeight)

	{

	return aHeight/aTextHeight;

	}

TInt32 __stdcall WndProc(struct HWND__ *aHwnd, TUint aMessage, TUint wParam, TInt32 lParam)

    {

    HDC hdc;

    PAINTSTRUCT ps;

	HFONT hfont;

    RECT rect;

	TInt i,

		paintMin,

		paintMax;

	static LOGFONT logFont;

	static TEXTMETRIC tm;

	static TInt textHeight,

		width,

		height,

		scrollMin=0,

		scrollMax,

		numLinesAbove=scrollMin,

		prevNumLinesAbove;

	static CArrayVarSeg<TText> *pmsg;

	static TBool outOfMemory=EFalse;

    switch (aMessage)

        {

    case WM_CREATE:

		hdc=GetDC(aHwnd);

		pmsg=new(ELeave) CArrayVarSeg<TText>(20);

		{

		TBuf<0x20> errorMsg;

		errorMsg=_L("ERROR: out of memory");

		errorMsg.ZeroTerminate();

		TRAPD(err,pmsg->AppendL(*errorMsg.Ptr(), (errorMsg.Length()+1)*sizeof(TText)));

		if (err!=KErrNone)

			return(err);

		}

		GetTextMetrics(hdc, &tm);

		textHeight=tm.tmHeight+tm.tmExternalLeading;

        GetClientRect(aHwnd, &rect);

		width=rect.right;

		height=rect.bottom;

		scrollMax=numLines(*pmsg, outOfMemory);

		SetScrollPos(aHwnd, SB_VERT, numLinesAbove, TRUE);

		SetScrollRange(aHwnd, SB_VERT, scrollMin, scrollMax, FALSE);

		logFont.lfHeight=8;

		wsprintf(logFont.lfFaceName, (LPCTSTR)_S("courier"));

		ReleaseDC(aHwnd, hdc);

		return 0;

	case WM_USER+EAppendText:

		{

		TRAPD(err,pmsg->InsertL(pmsg->Count()-1, *(TText *)lParam, wParam));

		if (err!=KErrNone)

			{

			pmsg->Delete(0, Max(0, (TInt)pmsg->Count()-1));

			numLinesAbove=scrollMax=scrollMin;

			SetScrollPos(aHwnd, SB_VERT, numLinesAbove, TRUE);

			SetScrollRange(aHwnd, SB_VERT, scrollMin, scrollMax, FALSE);

			hdc=GetDC(aHwnd);

			PatBlt(hdc, 0, 0, width, height, WHITENESS);

			ReleaseDC(aHwnd, hdc);

			return(err);

			}

		// adjust the scroll position so that the last line added is visible

		if (numLinesAbove<numLines(*pmsg, outOfMemory)-numVisibleLines(height, textHeight))

			{

			prevNumLinesAbove=numLinesAbove;

			numLinesAbove=numLines(*pmsg, outOfMemory)-numVisibleLines(height, textHeight);

			scrollMax=numLines(*pmsg, outOfMemory);

			SendMessage(aHwnd, WM_USER+EScrollToPos, 0, 0L);

			}

		else

			{

			hdc=GetDC(aHwnd);

			hfont=(HFONT)SelectObject(hdc, CreateFontIndirect(&logFont));

			TText *text=&((*pmsg)[scrollMax]);

			TextOut(hdc, 0, (scrollMax-numLinesAbove)*textHeight, (LPCTSTR)text, User::StringLength(text));

			scrollMax=numLines(*pmsg, outOfMemory);

			ReleaseDC(aHwnd, hdc);

			}

		return KErrNone;

		}

	case WM_USER+EScrollToPos:

		SetScrollPos(aHwnd, SB_VERT, numLinesAbove, TRUE);

		SetScrollRange(aHwnd, SB_VERT, scrollMin, scrollMax, FALSE);

		hdc=GetDC(aHwnd);

		hfont=(HFONT)SelectObject(hdc, CreateFontIndirect(&logFont));

		if (numLinesAbove>prevNumLinesAbove)

		// scrolling towards end, therefore text moves up on screen

			{

			TInt numLinesToDraw=numLinesAbove-prevNumLinesAbove;

			TInt numLinesToBlt=numVisibleLines(height, textHeight)-numLinesToDraw;

			if (numLinesToBlt>0)

				ScrollWindow(aHwnd, 0, -numLinesToDraw*textHeight, NULL, NULL);

			PatBlt(hdc, 0, numLinesToBlt*textHeight, width, numLinesToDraw*textHeight, WHITENESS);

			paintMin=Max(Min(numLinesAbove+numLinesToBlt, scrollMax), scrollMin);

			paintMax=Min(paintMin+numLinesToDraw, scrollMax);

			for (i=paintMin; i<paintMax; i++)

				{

				TText *text=&((*pmsg)[i]);

				TextOut(hdc, 0, (i-numLinesAbove)*textHeight, (LPCTSTR)text, User::StringLength(text));

				}

			}

		else

		// scrolling towards beginning, therefore text moves down on screen

			{

			TInt numLinesToDraw=prevNumLinesAbove-numLinesAbove;

			TInt numLinesToBlt=numVisibleLines(height, textHeight)-numLinesToDraw;

			if (numLinesToBlt>0)

				ScrollWindow(aHwnd, 0, numLinesToDraw*textHeight, NULL, NULL);

			PatBlt(hdc, 0, 0, width, numLinesToDraw*textHeight, WHITENESS);

			paintMin=Max(Min(numLinesAbove, scrollMax), scrollMin);

			paintMax=Min(paintMin+numLinesToDraw, scrollMax);

			for (i=paintMin; i<paintMax; i++)

				{

				TText *text=&((*pmsg)[i]);

				TextOut(hdc, 0, (i-numLinesAbove)*textHeight, (LPCTSTR)text, User::StringLength(text));

				}

			}

		DeleteObject(hfont);

		ReleaseDC(aHwnd, hdc);

		return 0;

    case WM_PAINT:

		hdc=BeginPaint(aHwnd, &ps);

		hfont=(HFONT)SelectObject(hdc, CreateFontIndirect(&logFont));

		paintMin=Max(scrollMin, numLinesAbove);

		paintMax=Min(numLines(*pmsg, outOfMemory), numLinesAbove+numVisibleLines(height, textHeight));

		for (i=paintMin; i<paintMax; i++)

				{

				TText *text=&((*pmsg)[i]);

				TextOut(hdc, 0, (i-numLinesAbove)*textHeight, (LPCTSTR)text, User::StringLength(text));

				}

		DeleteObject(hfont);

		EndPaint(aHwnd, &ps);

        return 0;

    case WM_SIZE:

        width=LOWORD(lParam);

        height=HIWORD(lParam);

		return 0;

    case WM_VSCROLL:

		prevNumLinesAbove=numLinesAbove;

        switch (LOWORD(wParam))

			{

		case SB_TOP:

			numLinesAbove=scrollMin;

			break;

		case SB_BOTTOM:

			numLinesAbove=scrollMax;

			break;

		case SB_LINEUP:

			numLinesAbove--;

			break;

		case SB_LINEDOWN:

			numLinesAbove++;

			break;

		case SB_PAGEUP:

			numLinesAbove-=numVisibleLines(height, textHeight);

			break;

		case SB_PAGEDOWN:

			numLinesAbove+=numVisibleLines(height, textHeight);

			break;

		case SB_THUMBTRACK:

			numLinesAbove=HIWORD(wParam);

			break;

			}

		numLinesAbove=max(scrollMin, min(numLinesAbove, scrollMax));

		if (numLinesAbove!=prevNumLinesAbove)

			SendMessage(aHwnd, WM_USER+EScrollToPos, 0, 0L);

		return 0;

    case WM_KEYDOWN:

		switch (wParam)

			{

		case VK_HOME:

			SendMessage(aHwnd, WM_VSCROLL, SB_TOP, 0L);

			break;

		case VK_END:

			SendMessage(aHwnd, WM_VSCROLL, SB_BOTTOM, 0L);

			break;

		case VK_PRIOR:

			SendMessage(aHwnd, WM_VSCROLL, SB_PAGEUP, 0L);

			break;

		case VK_NEXT:

			SendMessage(aHwnd, WM_VSCROLL, SB_PAGEDOWN, 0L);

			break;

		case VK_UP:

			SendMessage(aHwnd, WM_VSCROLL, SB_LINEUP, 0L);

			break;

		case VK_DOWN:

			SendMessage(aHwnd, WM_VSCROLL, SB_LINEDOWN, 0L);

			break;

			}

		return 0;

	case WM_DESTROY:

		delete pmsg;

		PostQuitMessage(0);

		return 0;

		}

	return DefWindowProc(aHwnd, aMessage, wParam, lParam);

	}

TInt logWinMain(TAny *)

    {

    MSG msg;

    WNDCLASS wndclass;

    const TText *szAppName=_S("Window Server Log");

    wndclass.style=CS_HREDRAW|CS_VREDRAW;

    wndclass.lpfnWndProc=WndProc;

    wndclass.cbClsExtra=0;

    wndclass.cbWndExtra=0;

    wndclass.hInstance=NULL;

    wndclass.hIcon=LoadIcon(NULL, IDI_APPLICATION);

    wndclass.hCursor=LoadCursor(NULL, IDC_ARROW);

	//wndclass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);

	wndclass.hbrBackground=(HBRUSH)GetSysColorBrush(COLOR_BTNFACE);

    wndclass.lpszMenuName=NULL;

    wndclass.lpszClassName=(LPCTSTR)szAppName;

    RegisterClass(&wndclass);

	GSharedMemory.iHwnd=CreateWindow((LPCTSTR)szAppName,

                    (LPCTSTR)szAppName,

					WS_OVERLAPPEDWINDOW,

					//WS_OVERLAPPEDWINDOW|WS_VSCROLL|WS_MINIMIZE,

                    CW_USEDEFAULT,

                    CW_USEDEFAULT,

                    CW_USEDEFAULT,

                    CW_USEDEFAULT,

                    NULL,

                    NULL,

                    NULL,

                    NULL);

	ShowWindow(GSharedMemory.iHwnd, SW_SHOWMINNOACTIVE);

	//ShowWindow(GSharedMemory.iHwnd, SW_MINIMIZE);

	UpdateWindow(GSharedMemory.iHwnd);

	GSharedMemory.iStartSemaphore.Signal(); // allows logging to start now that the window, etc. has been set up

	Emulator::Escape();

    while (GetMessage(&msg, NULL, 0, 0))

        {

        TranslateMessage(&msg);

        DispatchMessage(&msg);

        }

	Emulator::Reenter();

    return msg.wParam;

    }

GLDEF_C void CreateLogWinThreadL()

	{

	_LIT(KLogWin,"LogingWindow");

	RThread wsThread;

	GSharedMemory.iStartSemaphore.CreateLocal(0);

	User::LeaveIfError(wsThread.Create(KLogWin,logWinMain,KDefaultStackSize,KHeapSize,KHeapSize,NULL));

	wsThread.Resume();

	GSharedMemory.iStartSemaphore.Wait();

	}