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

// Top level window server code

// 

//

#include "wstop.h"

#include <hal.h>

#include <graphics/fbsdefs.h>

#include "ANIM.H"

#include "gc.h"

#include "playbackgc.h"

#include "rootwin.h"

#include "windowgroup.h"

#include "EVENT.H"

#include "KEYCLICK.H"

#include <w32std.h>

#include "offscreenbitmap.h"

#include "panics.h"

#include "inifile.h"

#include "pointer.h"

#include "WSGRAPHICDRAWERFACTORY.H"

#include "redrawmsgwindow.h"

#include <Graphics/WSGRAPHICDRAWERINTERFACE.H>

#include "WsMemMgr.h"

#include "backedupwindow.h"

#include "wsfont.h"

#include "wstraces.h"

#ifdef SYMBIAN_PROCESS_MONITORING_AND_STARTUP

#include <e32power.h>

#endif

#include "graphics/windowserverconstants.h"

typedef CDebugLogBase *(*CreateDebugLog)(TBool aIsFirst, TDesC &aParams);

CWsActiveScheduler* CWsActiveScheduler::Static()

	{

	return static_cast<CWsActiveScheduler*>(CActiveScheduler::Current());

	}

CWsActiveScheduler::CWsActiveScheduler(): iNumSamples(100)

	{

	iRun = User::FastCounter();

	if((KErrNone == HAL::Get(HALData::EFastCounterFrequency,iFastCounterFreq)) && iFastCounterFreq)

		{

		iData = reinterpret_cast<TSample*>(User::AllocZ(sizeof(TSample)*iNumSamples));

		}

	}

CWsActiveScheduler::~CWsActiveScheduler()

	{

	User::FreeZ(reinterpret_cast<void*&>(iData));

	}

void CWsActiveScheduler::PrepareDraw()

	{

	WS_ASSERT_DEBUG((ENormal == iState)||(EDrawn == iState),EWsPanicActiveScheduler);

	__DEBUG_ONLY(iState = EPreparingDraw;)

	iRunDraw = User::FastCounter();

	}

void CWsActiveScheduler::CancelPrepare()

	{

	WS_ASSERT_DEBUG(EPreparingDraw == iState,EWsPanicActiveScheduler);

	__DEBUG_ONLY(iState = ENormal;)

	}

void CWsActiveScheduler::StartDraw()

	{

	WS_TRACE_SERVER_STARTDRAW();

	WS_ASSERT_DEBUG(EPreparingDraw == iState,EWsPanicActiveScheduler);

	__DEBUG_ONLY(iState = EDrawing;)

	TTime now;

	now.UniversalTime();

	TUint64 duration = now.MicroSecondsFrom(iRunDraw).Int64();

	iPreparing += duration;

	iRunDraw = now;

	if(iData)

		{

		iData[iCurrent].iStart = iRunDraw;

		}

	iDraws++;

	}

void CWsActiveScheduler::DrawStats(TInt& aUpdatesPerSecond,TInt64& aPixelsPerSecond,TInt aWindowInSeconds) const

	{

	aUpdatesPerSecond=0;

	aPixelsPerSecond=0;

	if(iData)

		{

		// work out statistic

		TTime window;

		window.UniversalTime();

		window-=TTimeIntervalSeconds(aWindowInSeconds);

		TUint32 pixels=0;

		TInt64 duration=0;

		for(TInt ii=0;ii<iNumSamples;++ii)

			{

			if (iData[ii].iStart>=window)

				{

				pixels+=iData[ii].iPixels;

				duration+=iData[ii].iDuration;

				++aUpdatesPerSecond;

				}

			}

		if (aUpdatesPerSecond && duration)

			{

			aPixelsPerSecond=pixels;

			aPixelsPerSecond=(aPixelsPerSecond*1000000)/duration;

			aUpdatesPerSecond/=aWindowInSeconds;

			}

		}

	}

void CWsActiveScheduler::StopDraw(TInt aPixelsUpdated)

	{

	WS_TRACE_SERVER_STOPDRAW();

	WS_ASSERT_DEBUG(EDrawing == iState,EWsPanicActiveScheduler);

	__DEBUG_ONLY(iState = EDrawn;)

	TTime now;

	now.UniversalTime();

	TUint32 duration = now.MicroSecondsFrom(iRunDraw).Int64();

    // do recording

	if(iData)

		{

		iData[iCurrent].iDuration = now.MicroSecondsFrom(iData[iCurrent].iStart).Int64();

		iData[iCurrent].iPixels = aPixelsUpdated;

		if(++iCurrent >= iNumSamples)

			{

			iCurrent = 0;

			}

		}

	iDrawing += duration;

	}

void CWsActiveScheduler::WaitForAnyRequest()

	{

	WS_ASSERT_DEBUG((ENormal == iState)||(EDrawn == iState),EWsPanicActiveScheduler);

	TTime stop;

	stop.UniversalTime();

	iTotal += stop.MicroSecondsFrom(iRun).Int64();

	CActiveScheduler::WaitForAnyRequest();

	iRequests++;

	__DEBUG_ONLY(iState = ENormal;)

	iRun.UniversalTime();

	iIdle += iRun.MicroSecondsFrom(stop).Int64();

	}

void CWsActiveScheduler::Error(TInt /*aError*/) const

	{

	iErrors++;

	}

void CWsActiveScheduler::AccumReclaimedIdleTime(TInt64 aMicroSeconds)

	{

	iReclaimedIdleTime += aMicroSeconds;

	}

GLREF_C void StateDump(CWsRootWindow* aRootWindow);

GLREF_C void HeapDump();

// Static objects that need to be destroyed on exit

GLDEF_D CDebugLogBase *wsDebugLog=NULL;

GLDEF_D TInt wsDebugLogLevel=0;

GLDEF_D CIniFile *WsIniFile=NULL;

//

GLDEF_D TPtr nullDescriptor(NULL,0);

LOCAL_D CWsActiveScheduler *TheActiveScheduler;

#if defined(__WINS__)

LOCAL_D TPtrC shellCmd;

#endif

CScreen* CWsTop::iCurrentFocusScreen;

CArrayPtrFlat<CScreen>* CWsTop::iScreens ;

TInt CWsTop::iNumberOfScreens ;

CWsTop::CShellStarter* CWsTop::iShellStarter;

CWindowServer *CWsTop::iServer;

RLibrary CWsTop::iDebugLib;

CWsShellLogon *CWsTop::iShell;

const CWsClient *CWsTop::iShellClient;

TBool CWsTop::iPreviousShellClient=EFalse;

TInt CWsTop::iShellBootMode;

TBool CWsTop::iShuttingDown;

TBool CWsTop::iIsFirstLog=ETrue;

CWsWindowBase *CWsTop::iWindowToSendOffEventsTo=NULL;

RTimer CWsTop::iTimer;

TBool CWsTop::iIgnoreSwitchOffEvent=EFalse;

TBool CWsTop::iFadeEnabled=ETrue;

TBool CWsTop::iFinishEveryFlush=EFalse;

TBool CWsTop::iMultiFocusPolicy=EFalse;

#if defined(__WINS__)

TFullName WsSemName;

#endif

const CWsClient* CWsTop::iTriggerHeapCheckOnClientExit=NULL;

TWsCheckHeapOnDisconnectMode CWsTop::iHeapCheckMode=EWsCheckHeapOnDisconnectModeNone;

TInt CWsTop::iCheckHeapResult=KErrNotReady;

TBool CWsTop::iDoHeapCheckAndRestart=EFalse;

#define RFbsSession_SendCommand_ShutDownMessage 1	// A FBS message that is not published yet and probably never will be.

void CWsTop::DeleteStaticsL()

	{

	iShuttingDown=ETrue;

	CClick::DeleteStatics();

	WsPointer::DeleteStatics();

	CWsClient::DeleteStatics();

//

	delete iShellStarter;

	delete iServer;

	CWsBackedUpWindow::StaticDestroy();

	TWindowServerEvent::DeleteStatics();

	delete iShell;

	DisableLogging();

	CEventQueue::DeleteStaticsL();

	CWsSpriteBase::DeleteStatics();

	CWsGc::DeleteStatics();

	CPlaybackGc::DeleteStatics();

	CWsAnim::DeleteStatics();		//This destroys a GC so must be done while FBSERV is still around

	CWsAnimDll::DeleteStatics();

	CWsFontCache::DestroyInstance();

	iScreens->ResetAndDestroy() ;

	delete iScreens ;

	if (!iDoHeapCheckAndRestart)

		{

		RFbsSession::GetSession()->SendCommand(RFbsSession_SendCommand_ShutDownMessage);		//This line is just being tidy, never really does anything useful.

		}

	RFbsSession::Disconnect();

	iDebugLib.Close();

	iTimer.Close();

//

	delete WsIniFile;

	delete TheActiveScheduler;

	WsGraphicDrawer::FinalClose();

	}

RWsTextCursor *CWsTop::CurrentTextCursor()

	{

	return(FocusWindowGroup() ? FocusWindowGroup()->TextCursor():NULL);

	}

CWsClient *CWsTop::FocusWindowGroupOwner()

	{

	return(FocusWindowGroup() ? FocusWindowGroup()->WsOwner():NULL);

	}

void CWsTop::ClientDestroyed(const CWsClient *aClient)

	{

	if (aClient==iShellClient)

		iShellClient=NULL;

	}

void CWsTop::NewSession(const CWsClient *aClient)

	{

	if (iShellClient==NULL && iShell)

		{

#if defined(__WINS__)

		RThread proc;

		proc=aClient->Client();

#else

		RProcess proc;

		aClient->Client().Process(proc);

#endif

		TFullName procName = proc.FullName();

		// Before comparing the proc name with iShell name , truncate the proc name up to the actual name

		// referring to the process, by removing the part which starts with ':', if exists.

		TInt colonLocation = procName.Locate(':');

		if( KErrNotFound != colonLocation)

			{

			procName = procName.Left(colonLocation);

			}

		if (procName ==iShell->FullName())

			{

			iShellClient=aClient;

			if (!iPreviousShellClient)

				{

				iPreviousShellClient=ETrue;

				aClient->Screen()->RootWindow()->SetColorIfClear();

				}

			}

#if !defined(__WINS__)

		proc.Close();

#endif

		}	

	}

void CWsTop::SessionExited(CWsClient *aClient)

	{

	if (iShuttingDown)

		{

		RProcess proc;

		TInt err=aClient->Client().Process(proc);

		if (err==KErrNone && proc.Id()!=RProcess().Id())

			proc.Kill(0);

		else

			const_cast<RThread&>(aClient->Client()).Kill(0);

		if (err==KErrNone)

			proc.Close();

		}

	else if (iHeapCheckMode!=EWsCheckHeapOnDisconnectModeNone && aClient==iTriggerHeapCheckOnClientExit)

		{

		if (iHeapCheckMode==EWsCheckHeapOnDisconnectModeOnce)

			{

			iHeapCheckMode=EWsCheckHeapOnDisconnectModeNone;

			}

		iTriggerHeapCheckOnClientExit=NULL;

		iDoHeapCheckAndRestart=ETrue;

		Exit();

		}

	if (iServer->SessionCount()==1 && iShellBootMode==EShellBootModeNoReboot && iShell==NULL)

		StartShell();

	}

void CWsTop::RunServerL()

	{

	InitStaticsL();

	CWsMemoryManager* memMgr = CWsMemoryManager::NewLC();

	CActiveScheduler::Start();

	CleanupStack::PopAndDestroy(memMgr);

	DeleteStaticsL();

	}

void CWsTop::InitStaticsL()

	{

	iShuttingDown=EFalse;

	// By default shell should be started.

	TBool startShell = ETrue;

	// The windows server has been invoked.

	// This may have been from the system starter (via a

	// start up rss file)  

	// This block looks for a "-NoShell" argument in the invocation.

	// The existence of the argument means that shell does not need to be 

	// invoked from here because the new system starter

	// is in charge, and it will do it if required.

	_LIT(KNoShell,"-NOSHELL");

	TInt argLen = User::CommandLineLength();

	if(argLen)

		{

		HBufC* arg = HBufC::NewLC(argLen);

		TPtr argPtr = arg->Des();

		User::CommandLine(argPtr);

		argPtr.UpperCase();

		if(KErrNotFound != argPtr.Find(KNoShell))

			{

			// Don't start the shell. It will be started if required by 

			// the system starter.

			startShell = EFalse;

			}

		CleanupStack::PopAndDestroy(arg);

		}

	TheActiveScheduler=new(ELeave) CWsActiveScheduler;

	CActiveScheduler::Install(TheActiveScheduler);

//

	WsIniFile=CIniFile::NewL();

	_LIT(KWSERVIniFileVarLogEnable,"LOGENABLE");

	TInt loggingLevel;

	if (WsIniFile->FindVar(KWSERVIniFileVarLogEnable,loggingLevel))

		{

		EnableLogging(EDoNotReloadWsIni);

		if (wsDebugLog)

			{

			wsDebugLog->SetLoggingLevel(loggingLevel);

			}

		}

	_LIT(KWSERVIniFileVarFadeEnable,"FADEDISABLE");

	iFadeEnabled = !WsIniFile->FindVar(KWSERVIniFileVarFadeEnable);

	_LIT(KWSERVIniFileVarFinishEveryFlush,"FINISHEVERYFLUSH");

	iFinishEveryFlush = WsIniFile->FindVar(KWSERVIniFileVarFinishEveryFlush);

	_LIT(KWSERVIniFileVarSwitchOffEvent,"IGNORESWITCHOFFEVENT");

	iIgnoreSwitchOffEvent = WsIniFile->FindVar(KWSERVIniFileVarSwitchOffEvent);	

	iServer=CWindowServer::NewL();

	CClick::InitStaticsL();

	RProcess wservProc;

	if (!wservProc.DefaultDataPaged())

	{

		iServer->SetPinClientDescriptors(ETrue);

	}

//

	iServer->StartL(KWSERVServerName);

//

	User::LeaveIfError(FbsStartup());

	User::LeaveIfError(RFbsSession::Connect());

	User::LeaveIfError(iTimer.CreateLocal());

	TWindowServerEvent::InitStaticsL();

	//-------------------------------------------

	User::LeaveIfError(  HAL::Get( HAL::EDisplayNumberOfScreens, iNumberOfScreens ) ) ; 

	// Check that the INI file matches the HAL

	WS_ASSERT_ALWAYS(WsIniFile->NumberOfScreens()<=iNumberOfScreens, EWsPanicScreenInformationError);

	iScreens = new (ELeave) CArrayPtrFlat<CScreen>( iNumberOfScreens ) ;  //

	// now construct screens for as long as there is information

	TInt ii ;

	for ( ii = 0 ; ii < iNumberOfScreens ; ++ii )

		{

		InitScreenL( ii ) ;

		}

	//---------------------------------------------

	iCurrentFocusScreen = (*iScreens)[0] ;

	CWsFontCache::CreateInstanceL();

	CWsGc::InitStaticsL();

	CPlaybackGc::InitStaticsL();

	CWsSpriteBase::InitStaticsL();

	CEventQueue::InitStaticsL();

//

	CWsAnimDll::InitStaticsL();

	CWsAnim::InitStaticsL();

//

	TInt bootMode=0;

	_LIT(KWSERVIniFileVarReboot,"REBOOT");

	WsIniFile->FindVar(KWSERVIniFileVarReboot,bootMode);

	if (bootMode>=0 && bootMode<=2)

		iShellBootMode=bootMode;

//

	CWsBackedUpWindow::StaticInitL();

	CWsRedrawMsgWindow::StaticInitL();

//

	WsPointer::InitStaticsL();

	iShellStarter=new (ELeave) CShellStarter;

	iShellStarter->ConstructL();

	_LIT(KPreProcess,"REMOVEFADINGONFOCUSGAIN");

	CWsWindowGroup::SetFocusGainPreprocessing(WsIniFile->FindVar(KPreProcess));

	_LIT(KAbsFade,"ABSOLUTEFADING");

	CWsClientWindow::SetAbsoluteFading(WsIniFile->FindVar(KAbsFade));

//Set the focus policy

	_LIT(KFocusPolicy,"MULTIFOCUSPOLICY");

	if(WsIniFile->FindVar(KFocusPolicy))

		{

		iMultiFocusPolicy = ETrue;	

		}

	RProcess::Rendezvous(KErrNone);

	// Start the shell from here unless the 'NoShell' option has been 

	// received indicating that the system starter will start the shell directly.

	if(startShell)

		{

		StartShell();

		}

	UserSvr::WsRegisterSwitchOnScreenHandling(ETrue);

	}

void CWsTop::InitScreenL( TInt aScreenNumber)  // static

	{

	// create a new screen,  read ini file for aScreenNumber (this happens in CScreen - just need to pass a screen number from here

	CScreen* screen = new (ELeave) CScreen() ;

	CleanupStack::PushL( screen ) ;

	TRect digitiserArea;

	if (aScreenNumber==0)

		{

		TMachineInfoV1Buf machineBuf;

		UserHal::MachineInfo(machineBuf);

		TMachineInfoV1& machineInfo=*(TMachineInfoV1*)machineBuf.Ptr();

		digitiserArea = TRect(-machineInfo.iOffsetToDisplayInPixels,machineInfo.iXYInputSizeInPixels);

		}

	screen->ConstructL(digitiserArea, aScreenNumber);

	iScreens->AppendL( screen ) ; 

	CleanupStack::Pop( screen ) ;

	}

void CWsTop::UpdateAllScreens()

	{

	TInt ii;

	for (ii=0; ii<iNumberOfScreens; ++ii)

		{

		(*iScreens)[ii]->Update();

		}

	}

void CWsTop::ClearAllRedrawStores()

	{

	TInt ii;

	for (ii=0; ii<iNumberOfScreens; ++ii)

		{

		CScreen *screen=(*iScreens)[ii];

		CWsWindowGroup* group=screen->RootWindow()->Child();

		while (group!=NULL)

			{

			CWsWindowBase* win=group->Child();

			if (win)

				{

				while (win!=group)

					{

					static_cast<CWsWindow*>(win)->Redraw()->ClearRedrawStore(ETrue);

					if (win->BaseChild())

						win=win->BaseChild();

					else

						{

						do	

							{

							if (win->NextSibling())

								{

								win=win->NextSibling();

								break;

								}

							win=win->BaseParent();

							}

						while (win!=group);

						}

					}

				}

			group=group->NextSibling();

			}

		TriggerRedraws(screen->RootWindow());

		}

	}

void CWsTop::Exit()

	{

	CActiveScheduler::Stop();

	}

void CWsTop::TriggerRedraws(CWsRootWindow* aRootWindow)

	{

	for(CWsWindowGroup *group=aRootWindow->Child();group!=NULL;group=group->NextSibling())

		group->WsOwner()->TriggerRedraw();

	}

void CWsTop::StartShell()

	{

	TRAPD(err,iShell=new(ELeave) CWsShellLogon());

	if (err==KErrNone)

		{

		RFs fs;

		if ((err=fs.Connect())==KErrNone)

			{

			fs.SetNotifyUser(EFalse);

			TRAP(err,iShell->ConstructL(fs));

			fs.Close();

			}

		}

	if (err!=KErrNone)

		{

#ifdef _DEBUG

		RDebug::Print(_L("Failed to start shell: err=%d\n"),err);

#endif

		delete iShell;

		iShell=NULL;

		iShellStarter->After(TTimeIntervalMicroSeconds32(1000000));

		}

	}

void CWsTop::ShellExited()

	{

	delete iShell;

	iShell=NULL;

	switch(iShellBootMode)

		{

		case EShellBootModeReboot:

			StartShell();

			break;

		case EShellBootModeNoReboot:

			if (iServer->SessionCount()==0)

				StartShell();

			break;

		case EShellBootModeExit:

			Exit();

			break;

		}

	}

TInt CWsTop::SetSendOffEventsToShell(CWsClient *aClient,const TWsClCmdOffEventsToShell &aData)

	{

	CWsWindowBase *window=NULL;

	if (aData.window==0)

		{

		if (aData.on)

			aClient->PPanic(EWservPanicNoWindowSpecifed);

		}

	else

		aClient->HandleToWindow(aData.window,&window);

	if (aData.on)

		{

		if (iWindowToSendOffEventsTo!=NULL && aClient!=iShellClient)		//Allow the shell to pinch it

			return KErrAlreadyExists;

		iWindowToSendOffEventsTo=window;

		}

	else

		{

		if (iWindowToSendOffEventsTo==window || (!window && aClient==iWindowToSendOffEventsTo->WsOwner()))

			iWindowToSendOffEventsTo=NULL;

		}

	return KErrNone;

	}

void CWsTop::StopWindowGettingOffEvents(CWsWindowBase* aWindow)

	{

	if (aWindow==iWindowToSendOffEventsTo)

		iWindowToSendOffEventsTo=NULL;

	}

/** Routes "Off" events to the shutdown manager if one is registered. Othwerwise calls Power API's directly to

set the power mode of the device accordingly.

@internalTechnology

@released

@param aEvent Type of event that Wserv passes to client as OFF events. 

It can be EEventSwitchOff, EEventCaseClosed, EEventKeySwitchOff or EEventRestartSystem.

@param aDoSwitchOff ETrue if the switch-off should be performed when no shutdown manager is registered

and IGNORESWITCHOFFEVENT is not defined in wsini.ini

*/

void CWsTop::HandleSwitchOff(TInt aEvent,TBool aDoSwitchOff)

	{

	// If any shutdown manager is registered, forward the event to it

	if (iWindowToSendOffEventsTo && iWindowToSendOffEventsTo->QueueEvent(aEvent))

		return;

	// Otherwise, do the shutdown here

	if(!iIgnoreSwitchOffEvent && aDoSwitchOff)

		{

#ifdef SYMBIAN_PROCESS_MONITORING_AND_STARTUP		

		// if LaF is not registered, restart or shutdown using Power API 

		if (aEvent == EEventRestartSystem) // restart

			{

			if (Power::EnableWakeupEvents(EPwRestart) == KErrNone)

				{

				// Should reboot/power-cycle the system, so no need to RequestWakeupEventNotification

				Power::PowerDown();

				}

			}

		else // everything else maps to standby for now

			{

			if (Power::EnableWakeupEvents(EPwStandby) == KErrNone)

				{

				// Prepare to wake up from standby

				TRequestStatus s;

				Power::RequestWakeupEventNotification(s);

				Power::PowerDown();

				User::WaitForRequest(s);

				}

			}

#else

		UserHal::SwitchOff();

#endif			

		}

	}

void CWsTop::RedrawScreens()

	{

	// apply to all screens

	TInt screenNo;

	for(screenNo=0; screenNo<iNumberOfScreens; ++screenNo)

		{

		CScreen* screen = Screen(screenNo);

		TRegionFix<1> screenArea(TRect(screen->DrawableArea()));

		screen->Update(screenArea);

		}

	}

void CWsTop::EnableLogging(TReloadWsIni aSetting)

	{

	TInt errorLoc=0;

	if (wsDebugLog)

		{

		if (wsDebugLogLevel==CDebugLogBase::ELogEverything)

			{

			wsDebugLogLevel=CDebugLogBase::ELogImportant;

			wsDebugLog->SetLoggingLevel(wsDebugLogLevel);

			return;

			}

		DisableLogging();

		}

     if (aSetting == EDoReloadWsIni)

        {

        CIniFile* temp = NULL;

        TRAPD(err, temp = CIniFile::NewL());

        if (err == KErrNone)

            {

            //loading successful, replace the previous one

            delete WsIniFile;

            WsIniFile = temp;

            }

        }

	TPtrC dlog;

	_LIT(KWSERVDebugLogFileName,"DLOG");

	TBuf<KMaxFileName> fname(KWSERVDebugLogFileName);

	_LIT(KWSERVIniFileVarLog,"LOG");

	if (WsIniFile->FindVar(KWSERVIniFileVarLog,dlog) && dlog.Length()==2)

		{

		fname.Append(dlog);

		TInt err=iDebugLib.Load(fname);

		if (err==KErrNone)

			{

			TUidType uid=iDebugLib.Type();

			if (uid[1]!=KWservLoggingDllUid)

				{

				err=KErrNotSupported;

				errorLoc=2;

				}

			else

				{

				TPtrC params;

				_LIT(KWSERVIniFileVarLogP,"LOGP");

				if (!WsIniFile->FindVar(KWSERVIniFileVarLogP,params))

					params.Set(NULL,0);

				CreateDebugLog func=(CreateDebugLog)iDebugLib.Lookup(1);

				if (func!=NULL)

					{

					TRAP(err,wsDebugLog=(*func)(iIsFirstLog, params));

					if (err==KErrNone)

						{

						iIsFirstLog=EFalse;

						wsDebugLogLevel=CDebugLogBase::ELogEverything;

						}

					else

						errorLoc=4;

					}

				else

					errorLoc=3;

				}

			}

		else

			errorLoc=1;

		if (iCurrentFocusScreen)

			{

			TWindowServerEvent::ProcessErrorMessages(TWsErrorMessage::ELogging,(errorLoc<<8)-err);

			}

		}

	}

void CWsTop::DisableLogging()

	{

	delete wsDebugLog;

	wsDebugLog=NULL;

	iDebugLib.Close();

	}

void CWsTop::LogCommand(RWsSession::TLoggingCommand aCommand)

	{

	switch(aCommand)

		{

	case RWsSession::ELoggingEnable:

		EnableLogging();

		break;

	case RWsSession::ELoggingDisable:

		DisableLogging();

		break;

	case RWsSession::ELoggingStatusDump:

		StateDump();

		break;

	case RWsSession::ELoggingHeapDump:

		HeapDump();

		break;

		}

	}

void CWsTop::StateDump()

	{

	TInt screenNo;

	for (screenNo=0; screenNo<iNumberOfScreens; ++screenNo)

		::StateDump( (*iScreens)[screenNo]->RootWindow());

	}

void CWsTop::SetCurrentFocusScreen(CScreen* aScreen)	

	{

	iCurrentFocusScreen = aScreen;

	}

TInt CWsTop::SetCurrentFocusScreen(TInt aScreenNo)

	{

	CScreen* newFocusScreen=CWsTop::Screen(aScreenNo);

	if (newFocusScreen==iCurrentFocusScreen)

		return KErrNone;

	CWsWindowGroup* newFocusGroup=newFocusScreen->FocusWindowGroup();

	if (!newFocusGroup)

		return KErrNotReady;

	CWsWindowGroup* oldFocusGroup=iCurrentFocusScreen->FocusWindowGroup();

	if (oldFocusGroup)

		oldFocusGroup->LostFocus();

	iCurrentFocusScreen=newFocusScreen;

	newFocusGroup->ReceivedFocus();

	WsPointer::UpdatePointerCursor();

	TWindowServerEvent::SendFocusChangedEvents();

	return KErrNone;

	}

void CWsTop::SetCheckHeapOnDisconnectClient(const CWsClient* aClient)

	{

	iTriggerHeapCheckOnClientExit=aClient;

	}

void CWsTop::SetCheckHeapOnDisconnectMode(TWsCheckHeapOnDisconnectMode aCheckHeapOnDisconnectMode)

	{

	iHeapCheckMode=aCheckHeapOnDisconnectMode;

	}

TBool CWsTop::NeedsHeapCheckAndRestart(TInt aStartHeapCount)

	{

	if (!iDoHeapCheckAndRestart)

		return(EFalse);

	iDoHeapCheckAndRestart=EFalse;

	iCheckHeapResult=User::Heap().Count()-aStartHeapCount;

	if(iCheckHeapResult > 0)

	    {

        const TUint32 orphanedCell = User::Heap().__DbgMarkEnd(aStartHeapCount);

        RDebug::Printf("Memory leak detected in wserv. First orphaned cell: 0x%8x", orphanedCell);

        }

	return(ETrue);;

	}

TInt CWsTop::FetchCheckHeapResult()

	{

	TInt ret=iCheckHeapResult;

	iCheckHeapResult=KErrNotReady;

	return(ret);

	}

/**

This function looks for memory which isn't essential to the correct running of the window server

and frees some of it.

Returns true if some memory was freed, and false if it was unable to free anything.

Called from the memory manager in low memory conditions.

*/

TBool CWsTop::ReleaseMemory()

	{

	return iServer->ReleaseMemory();

	}

TBool CWsTop::MultiFocusPolicy()

	{

	return	iMultiFocusPolicy;

	}

typedef TInt (*ShellEntryPoint)(TAny *);

#if defined(__WINS__)

LOCAL_D const TUint KHeapSize=0x10000;

LOCAL_D const TUint KMaxHeapSize=0x400000;

#endif

CWsShellLogon::CWsShellLogon() : CActive(EWsShellLogonPriority)

	{

#if defined (__WINS__)

	// Clear handles to NULL so we can later detect which one gets used

	iShellThread.SetHandle(NULL);

	iShellProcess.SetHandle(NULL);

#endif

	}

CWsShellLogon::~CWsShellLogon()

	{

	Cancel();

#if defined (__WINS__)

	iShellThread.Close();

	iShellProcess.Close();

#else

	iShell.Close();

#endif

#if defined(__WINS__)

	iLib.Close();

#endif

	}

void CWsShellLogon::ConstructL(RFs &)

	{

	CActiveScheduler::Add(this);

#if !defined(__WINS__)

	TPtrC shellCmd;

#endif

	_LIT(KWSERVIniFileVarShellCmd,"SHELLCMD");

	WsIniFile->FindVar(KWSERVIniFileVarShellCmd,shellCmd);

	_LIT(KWSERVShellName,"SHELL");

	TPtrC startUp(KWSERVShellName);

	_LIT(KWSERVIniFileVarStartUp,"STARTUP");

	WsIniFile->FindVar(KWSERVIniFileVarStartUp,startUp);

	TParse fileName;

	_LIT(KWSERVArmShellLocationPattern,"Z:\\sys\\bin\\.EXE");

	User::LeaveIfError(fileName.SetNoWild(startUp,&KWSERVArmShellLocationPattern,NULL));

#if defined(__WINS__)

	TInt err=iShellProcess.Create(fileName.FullName(),shellCmd);

	if (err == KErrNone)

		{

		Request();

		iShellProcess.Resume();

		}

	else

		{

		// Try loading the matching DLL name instead?

		_LIT(KWSERVShellExtension,"Z:.DLL");

		User::LeaveIfError(fileName.Set(KWSERVShellExtension,&startUp,NULL));

		User::LeaveIfError(iLib.Load(fileName.FullName()));

		ShellEntryPoint libFunc=(ShellEntryPoint)iLib.Lookup(1);

		if (!libFunc)

			User::Leave(KErrGeneral);

		TBuf<256> name;

		TInt num=0;

		TInt ret=KErrNone;

		do

			{

			_LIT(KWSERVWinsShellInstanceName,"Shell%d");

			name.Format(KWSERVWinsShellInstanceName,num++);

			ret=iShellThread.Create(name,libFunc,KDefaultStackSize,&shellCmd,&iLib,NULL,KHeapSize,KMaxHeapSize,EOwnerProcess);

			} while(ret==KErrAlreadyExists);

		User::LeaveIfError(ret);

		Request();

		iShellThread.Resume();

		}

#else // not __WINS__

	User::LeaveIfError(iShell.Create(fileName.FullName(),shellCmd));

	Request();

	iShell.Resume();

#endif	

	return;

	}

void CWsShellLogon::DoCancel()

	{

#if defined (__WINS__)

	if(iShellThread.Handle())

		iShellThread.LogonCancel(iStatus);

	else

		iShellProcess.LogonCancel(iStatus);

#else

	iShell.LogonCancel(iStatus);

#endif

	}

void CWsShellLogon::RunL()

	{

	if (iStatus.Int()!=KErrCancel)

		CWsTop::ShellExited();

	}

void CWsShellLogon::Request()

	{

#if defined (__WINS__)

	if(iShellThread.Handle())

		iShellThread.Logon(iStatus);

	else

		iShellProcess.Logon(iStatus);

#else

	iShell.Logon(iStatus);

#endif

	SetActive();

	}

#if defined(__WINS__) 

TFullName CWsShellLogon::FullName()

	{

	if(iShellThread.Handle())

		return(iShellThread.FullName());

	else

		return(iShellProcess.FullName());

	}

#else

TFullName CWsShellLogon::FullName()

	{return(iShell.FullName());}

#endif

TInt E32Main()

	{

	__UHEAP_MARK;