// Copyright (c) 1995-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:

// code for the Windows-dependent derived class 

// 

//

#include "../SERVER/w32cmd.h"

#include <emulator.h>

#include "_windows.h"

#include "DEBLOGWN.H"

// static container for sharing data between Symbian & Windows threads

struct TSharedMemory

	{

	RSemaphore		iStartSemaphore;

	struct HWND__*	iHwnd;

	};

static struct TSharedMemory GSharedMemory;

enum TWindowsUserMessage

	{

	EAppendText16,

	EAppendText8,

	};

// Constants

const int KMaxLogLines = 1000;

const int KAverageLogLineLength = 60;

const int KWinTimerId = 1;

EXPORT_C CDebugLogBase *CreateDebugLog(TBool aIsFirst, TDesC &aParams)

	{

	CDebugLogWin *device=new(ELeave) CDebugLogWin();

	CDebugLog *log=NULL;

	TRAPD(err,log=new(ELeave) CDebugLog(device));

	if (err!=KErrNone)

		{

		delete device;

		User::Leave(err);

		}

	TRAP(err,log->ConstructL(aIsFirst, aParams));

	if (err!=KErrNone)

		{

		delete log;

		User::Leave(err);

		}

	return(log);

	}

CDebugLogWin::CDebugLogWin() :iThreadCreated(EFalse)

	{}

CDebugLogWin::~CDebugLogWin()

	{

	if (iThreadCreated)

		{

		if (GSharedMemory.iHwnd)

			{

			PostMessage(GSharedMemory.iHwnd, WM_CLOSE, 0, 0);

			}

		iThread.Close();

		iThreadCreated = 0;

		GSharedMemory.iStartSemaphore.Close();

		}

	}

void CDebugLogWin::ConstructL(TBool , TDesC &)

	{

	_LIT(KLog,"DebugLog");

	GSharedMemory.iStartSemaphore.CreateLocal(0);

	User::LeaveIfError(iThread.Create(KLog,logWinMain,KDefaultStackSize,KHeapSize,KHeapSize,(TAny *)123));

	iThreadCreated=ETrue;

	iThread.Resume();

	GSharedMemory.iStartSemaphore.Wait();

	}

void CDebugLogWin::WriteToLogL(const TDesC &aDes, const TDesC &aDes2)

	{

	TBuf<LogTBufSize*2+1> bufPlusZero;

	bufPlusZero.Copy(iTextBuf);

	bufPlusZero.Append(aDes);

	bufPlusZero.ZeroTerminate();

	TInt32 bufferAddr = (TInt32)(bufPlusZero.Ptr());

	// synchronously transfer string to debug window

	Emulator::Escape();

	SendMessage(GSharedMemory.iHwnd, WM_USER + EAppendText16, 0, bufferAddr);

	Emulator::Reenter();

	iTextBuf.Copy(aDes2);

	}

void CDebugLogWin::WriteToLog8L(const TDesC8 &aDes, const TDesC8 &aDes2)

	{

	TBuf8<LogTBufSize*2+1> bufPlusZero;

	bufPlusZero.Copy(iTextBuf);

	bufPlusZero.Append(aDes);

	bufPlusZero.ZeroTerminate();

	TInt32 bufferAddr = (TInt32)(bufPlusZero.Ptr());

	// synchronously transfer string to debug window

	Emulator::Escape();

	SendMessage(GSharedMemory.iHwnd, WM_USER + EAppendText8, 0, bufferAddr);

	Emulator::Reenter();

	iTextBuf.Copy(aDes2);

	}

TInt32 __stdcall WndProc(struct HWND__ *aHwnd, TUint aMessage,

						TUint wParam, TInt32 lParam)

	{

	static HWND hWndListBox;

	static HFONT hfont;

	static TBool timerSet = EFalse;

	switch (aMessage)

		{

	case WM_CREATE:

			{ // Disable Close menu option

			HMENU menu = GetSystemMenu(aHwnd, FALSE);

			EnableMenuItem(menu, SC_CLOSE, MF_BYCOMMAND|MF_GRAYED);

			// create fixed pitch font for debug log

			LOGFONT lf;

			if (GetObject(hfont, sizeof(lf), &lf))

				{

				lf.lfPitchAndFamily = FIXED_PITCH;

				lstrcpy(lf.lfFaceName, L"courier");

				hfont = CreateFontIndirect(&lf);

				}

			else

				{

				hfont = CreateFont(16, 0, 0, 0, FW_NORMAL, FALSE, FALSE, FALSE, ANSI_CHARSET,

						OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, FIXED_PITCH, L"courier");

				}

			HINSTANCE hinstance = ((LPCREATESTRUCT) lParam) -> hInstance;

			SendMessage(aHwnd, WM_SETFONT, (WPARAM) (hfont), 0);

			RECT clientRect;

			GetClientRect(aHwnd, &clientRect);

			hWndListBox = CreateWindowEx(WS_EX_CLIENTEDGE,

										L"listbox",

										NULL,

										WS_CHILD | WS_VISIBLE | WS_HSCROLL | WS_VSCROLL | WS_BORDER | LBS_NOINTEGRALHEIGHT,

										0, 0,

										clientRect.right, clientRect.bottom,

										aHwnd, (HMENU) 1, hinstance, NULL);

			SendMessage(hWndListBox, WM_SETFONT, (WPARAM) (hfont), 0);

			// preallocate string memory

			SendMessage(hWndListBox, LB_INITSTORAGE, KMaxLogLines + 20, KAverageLogLineLength);

			}

		return 0;

	case WM_USER+EAppendText16:

			{ // send wide char string to ListBox

			int numRows = SendMessageW(hWndListBox, LB_ADDSTRING, 0, lParam);

			// if too many lines set a timer to delete some lines

			if (!timerSet && (numRows > KMaxLogLines) )

				{ // set a timer for 2s

				SetTimer(aHwnd, KWinTimerId, 2000, NULL);

				timerSet = ETrue;

				}

			// scroll ListBox so that newest line is visible

			SendMessage(hWndListBox, LB_SETTOPINDEX, numRows, 0);

			}

		return KErrNone;

	case WM_USER+EAppendText8:

			{ // send narrow character string to ListBox

			int numRows = SendMessageA(hWndListBox, LB_ADDSTRING, 0, lParam);

			// if too many lines set a timer to delete some lines

			if (!timerSet && (numRows > KMaxLogLines) )

				{ // set a timer for 2s

				SetTimer(aHwnd, KWinTimerId, 2000, NULL);

				timerSet = ETrue;

				}

			// scroll ListBox so that newest line is visible

			SendMessage(hWndListBox, LB_SETTOPINDEX, numRows, 0);

			}

		return KErrNone;

	case WM_TIMER:

			{ // too many rows in listbox, release some memory

			TInt numRows;	

			do

				{

				numRows = SendMessage(hWndListBox, LB_DELETESTRING, 0, 0);

				}

				while (numRows > KMaxLogLines);

			KillTimer(aHwnd, KWinTimerId);

			timerSet = EFalse;

			// ensure newest line is visible (delete moves focus to line 0)

			SendMessage(hWndListBox, LB_SETTOPINDEX, numRows-1, 0);

			}

		break;

	case WM_SIZE:

		// forward to the ListBox, and make it repaint

		if ( (wParam == SIZE_MAXIMIZED) || (wParam == SIZE_RESTORED) )

			{

			int width = LOWORD(lParam);

			int height = HIWORD(lParam);

			MoveWindow(hWndListBox, 0, 0, width, height, TRUE);

			}

		return 0;

	case WM_DESTROY:

		PostQuitMessage(0);

		DeleteObject(hfont);

		return 0;

	case WM_SYSCOMMAND:

		if (wParam == SC_CLOSE)

			{ // do not allow window to be closed with ALT-F4 (this would close the emulator)

			return 1;

			}

		break;

		}

	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)GetSysColorBrush(COLOR_BTNFACE);

	wndclass.lpszMenuName=NULL;

	wndclass.lpszClassName=(LPCTSTR)szAppName;

	RegisterClass(&wndclass);

	GSharedMemory.iHwnd = CreateWindow((LPCTSTR)szAppName,

					(LPCTSTR)szAppName,

					WS_OVERLAPPEDWINDOW,

					CW_USEDEFAULT,

					CW_USEDEFAULT,

					CW_USEDEFAULT,

					CW_USEDEFAULT,

					NULL,

					NULL,

					NULL,

					NULL);

	ShowWindow(GSharedMemory.iHwnd, SW_SHOWMINNOACTIVE);

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

	// Must remove thread from Symbian scheduler before calling blocking Windows APIs (e.g. GetMessage)

	Emulator::Escape();

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

		{

		TranslateMessage(&msg);

		DispatchMessage(&msg);

		}

	// return to Symbian Scheduler

	Emulator::Reenter();

	GSharedMemory.iHwnd = NULL;

	return msg.wParam;

	}