// 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;

 	}