// 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:
// General utility functions that don't belong anywhere else
// 
//

#include "server.h"
#include "rootwin.h"
#include "wstop.h"
#include "panics.h"

GLREF_D CDebugLogBase *wsDebugLog;

GLDEF_C RWsRegion *GetRegionFromClientL(CWsClient *aClient, TInt aCount)
	{
	TInt bufSize=sizeof(TRect)*aCount;
	TUint8* rectList=STATIC_CAST(TUint8*,User::Alloc(bufSize));
	User::LeaveIfNull(rectList);
	CleanupStack::PushL(rectList);
	TPtr8 rectBuf(rectList,bufSize);
	aClient->RemoteRead(rectBuf,0);
	RWsRegion* region=new(ELeave) RWsRegion(aCount,REINTERPRET_CAST(TRect*,rectList));
	CleanupStack::Pop(rectList);
	return(region);
	}

GLDEF_C TInt ExternalizeRegionL(RWriteStream& aWriteStream, const RWsRegion& aRegion)
	{
	TInt dataLen = sizeof(TRect)*aRegion.Count();
	aWriteStream.WriteInt32L(aRegion.Count());
	aWriteStream.WriteL(REINTERPRET_CAST(const TUint8*,aRegion.RectangleList()),dataLen);
	aWriteStream.CommitL();
	return sizeof(TInt32)+dataLen;
	}

GLDEF_C RWsRegion* InternalizeRegionL(RReadStream& aReadStream)
	{
	TInt numRects = aReadStream.ReadInt32L();
	TInt bufSize = sizeof(TRect)*numRects;
	// Allocate buffer for list of clipping rectangles. We leave if we 
	// cannot create the buffer
	TUint8* rectList = static_cast<TUint8*>(User::AllocL(bufSize));
	CleanupStack::PushL(rectList);
	// Read the list of rectangles into the buffer
	aReadStream.ReadL(rectList,bufSize);
	// Point member pointer to our new rectangle list buffer
	RWsRegion* region = new(ELeave) RWsRegion(numRects,reinterpret_cast<TRect*>(rectList));
	CleanupStack::Pop(rectList);
	return region;
	}

void Panic(TWservPanic aPanic)
	{
	if (wsDebugLog)
		wsDebugLog->Panic(CDebugLogBase::EDummyConnectionId,aPanic);		//Dummy value meaning WSERV
	_LIT(KWSERVInternalPanicCategory,"WSERV-INTERNAL");
	User::Panic(KWSERVInternalPanicCategory,aPanic);
	}

_LIT(KWSERVPanicDesc1,"WServ internal Panic %S, in file %S @ line %i");
_LIT(KWSERVPanicDesc2,"Assert condition = \"%S\"");

void PanicWithInfo(TWservPanic aPanic, const TDesC& aFileName, const TDesC& aPanicName, TInt aLine)
	{
	TBuf<256> buf;
	buf.Format(KWSERVPanicDesc1, &aPanicName, &aFileName, aLine);
	RDebug::Print(buf);
	if (wsDebugLog)
		{
		wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant, buf);
		}
	Panic(aPanic);
	}

void PanicWithCondAndInfo(TWservPanic aPanic, const TDesC& aCondition, const TDesC& aFileName, const TDesC& aPanicName, TInt aLine)
	{
	TBuf<256> buf;
	buf.Format(KWSERVPanicDesc1, &aPanicName, &aFileName, aLine);
	RDebug::Print(buf);
	if (wsDebugLog)
		{
		wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant, buf);
		}
	buf.Format(KWSERVPanicDesc2, &aCondition);
	RDebug::Print(buf);
	if (wsDebugLog)
		{
		wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant, buf);
		}
	Panic(aPanic);
	}


GLDEF_C void StateDump()
	{
	CWsTop::StateDump();
	}

GLDEF_C void StateDump(CWsRootWindow* aRootWindow)
	{
	TBool enabled=wsDebugLog!=NULL;
	if (!enabled)
		{
		CWsTop::EnableLogging();
		if (!wsDebugLog)
			return;	//	Failed to enable logging so give up
		}
//
	_LIT(LogLine,"===========");
	_LIT(KWSERVStateLogWindowTree,"Window tree");
	TBuf<128> buf;
	wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant,LogLine);
	wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant,KWSERVStateLogWindowTree);
	wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant,LogLine);

	CWsWindowBase *win=aRootWindow;
	TInt inset=0;
	_LIT(KWSERVStateInsetLevelValue,"%*p");
	FOREVER
		{
		buf.Format(KWSERVStateInsetLevelValue,Min(inset<<1,20));
		win->StatusDump(buf);
		wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant,buf);
		if (win->BaseChild())
			{
			++inset;
			win=win->BaseChild();
			continue;
			}
		while(!win->NextSibling() && win!=aRootWindow)
			{
			win=win->BaseParent();
			--inset;
			}
		if (win==aRootWindow)
			break;		//Will break here if there is only the root window or the tree walk has returned to it
		win=win->NextSibling();
		}
	wsDebugLog->MiscMessage(CDebugLogBase::ELogImportant,LogLine);
//
	if (!enabled)
		CWsTop::DisableLogging();
	}

GLDEF_C void HeapDump()
	{
	TBool enabled=(wsDebugLog!=NULL);
	if (!enabled)
		CWsTop::EnableLogging();
	if (wsDebugLog)	// Just in case enable failed
		wsDebugLog->HeapDump();
	if (!enabled)
		CWsTop::DisableLogging();
	}

#if defined(_DEBUG)
//GLREF_C void ForceLog(TInt aPriority,const TDesC &aText,TInt aParam=0);
//ForceLog(CDebugLogBase::ELogImportant,_L("Value=%d"),345);
//TLogMessageText buf;
//_LIT(KLog,"Count=%d, Object=0x%x");
//buf.Format(KLog,Count(),this);
//ForceLog(CDebugLogBase::ELogImportant,buf);
GLDEF_C void ForceLog(TInt aPriority,const TDesC &aText,TInt aParam=0)
	{
	TBool enabled=(wsDebugLog!=NULL);
	if (!enabled)
		CWsTop::EnableLogging();
	if (wsDebugLog)	// Just in case enable failed
		{
		wsDebugLog->MiscMessage(aPriority,aText,aParam);
		if (!enabled)
			CWsTop::DisableLogging();
		}
	}
#endif

LOCAL_C TDisplayMode DisplayMode(TBool aIsColor,TInt aNumColors)
	{

	if (aIsColor)
		{
		switch(aNumColors)
			{
		case 16:
			return EColor16;
		case 256:
			return EColor256;
		case 4096:
			return EColor4K;
		case 65536:
			return EColor64K;
		case 16777216:
			return CFbsDevice::DisplayMode16M();
		default:
			return ENone;
			}
		}
	else
		{
		switch(aNumColors)
			{
		case 2:
			return EGray2;
		case 4:
			return EGray4;
		case 16:
			return EGray16;
		case 256:
			return EGray256;
		default:
			return ENone;
			}
		}
	}

GLDEF_C TDisplayMode ParseDisplayMode(const TDesC& aModeName)
	{
	// Not using _LIT because we only want the string temporarily, not permanently on the heap.
	if (!aModeName.CompareF(_L("EColor16MAP")))
		return EColor16MAP;
	else if (!aModeName.CompareF(_L("EColor16MA")))
		return EColor16MA;
	else if (!aModeName.CompareF(_L("EColor16MU")))
		return EColor16MU;
	else if (!aModeName.CompareF(_L("EColor64K")))
		return EColor64K;
	else if (!aModeName.CompareF(_L("EColor4K")))
		return EColor4K;
	else if (!aModeName.CompareF(_L("EColor256")))
		return EColor256;
	else if (!aModeName.CompareF(_L("EColor16")))
		return EColor16;
	else if (!aModeName.CompareF(_L("EGray256")))
		return EGray256;
	else if (!aModeName.CompareF(_L("EGray16")))
		return EGray16;
	else if (!aModeName.CompareF(_L("EGray4")))
		return EGray4;
	else if (!aModeName.CompareF(_L("EGray2")))
		return EGray2;
	else	// old wserv magic
		{	// this code supports the old "ColorXXX" and "GrayXXX" formats etc
		TPtrC ptr(aModeName);
		TBool isColor=EFalse;

		if (ptr[0]=='C' || ptr[0]=='c')
			isColor=ETrue;
		else if (ptr[0]=='A' || ptr[0]=='a')
			return EColor16MA;
		else if (ptr[0]=='P' || ptr[0]=='p')
			return EColor16MAP;
		else if (ptr[0]!='G' && ptr[0]!='g')
			return ENone;
		
		TInt pos=0;
		while (!TChar(ptr[++pos]).IsDigit())
			{}
		TLex lex(ptr.Mid(pos));
		TInt numCols;
		if (lex.Val(numCols)!=KErrNone)
			return ENone;
		lex.SkipSpace();
		TChar units=lex.Get();
		if (units=='K' || units=='k')
			numCols<<=10;
		else if (units=='M' || units=='m')
			numCols<<=20;
		TDisplayMode mode = DisplayMode(isColor,numCols);

		#if defined(__WINS__)
			//This is a special case for the emulator since the default
			//screen packing can be overridden by the wsini.ini setting

			//This code does nothing is iDefaultDisplayMode is not
			//EColor16M.- see graphics/screendriver/swins/scnew.cpp
			//function CFbsDrawDevice::DisplayMode16M().
			if(mode==EColor16M)
				{
				TChar packed=lex.Get();
				if ((packed=='U')||(packed=='u'))
					{
					mode=EColor16MU;
					}
				}

			//However setting this will give four shades of grey since
			//the code does not support 16MU and 16M at the same time.
		#endif
		return mode;
		}
	}