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

//

#include "PDRSTD.H"

#include <fbs.h>

#include <bitdev.h>

#include <banddev.h>

#include <pdrstore.h>

#include "pdrtext.h"

EXPORT_C CFbsDrvDevice::CFbsDrvDevice()

	{

	__DECLARE_NAME(_S("CFbsDrvDevice"));

	}

EXPORT_C CFbsDrvDevice::~CFbsDrvDevice()

	{

	delete iFbsTypefaceStore;

	delete iGenTypefaceFontsList;

	delete iGenTypefaceFontsType;

	}

/** Creates a font from those available in the printer device's 

typeface store that most closely matches a font specification. 

When the font is no longer needed, call ReleaseFont().

This function is replaced by GetNearestFontToDesignHeightInTwips()

@param aFont On return, points to the font which most closely matches the 

specified font.

@param aFontSpec An absolute font specification. Its iHeight member is 

interpreted as being in twips.

@return KErrNone if successful; otherwise, another one of the system-wide error 

codes.

@deprecated */

EXPORT_C TInt CFbsDrvDevice::GetNearestFontInTwips(CFont*& aFont, const TFontSpec& aFontSpec)

	{

	return GetNearestFontToDesignHeightInTwips(aFont, aFontSpec);

	}

/** Creates a font from those available in the printer device's 

typeface store that most closely matches a font specification. 

When the font is no longer needed, call ReleaseFont().

This function replaces GetNearestFontInTwips()

@param aFont On return, points to the font which most closely matches the 

specified font.

@param aFontSpec An absolute font specification. Its iHeight member is 

interpreted as being in twips.

@return KErrNone if successful; otherwise, another one of the system-wide error 

codes. */

EXPORT_C TInt CFbsDrvDevice::GetNearestFontToDesignHeightInTwips(CFont *&aFont, const TFontSpec &aFontSpec)

	{

    TRAPD(errCode, LoadTypeFaceListL());

	if(errCode != KErrNone)

		{

		return errCode;

		}

	TInt count = iGenTypefaceFontsList->Count();

	TInt count_fbs = 0;

	TTypefaceSupport support ;				// holds typeface from iGenTypefaceFontsList

	TTypeface typeface = aFontSpec.iTypeface;	// holds typeface from aFontSpec

	TBuf<KMaxTypefaceNameLength> support_name;

	TBuf<KMaxTypefaceNameLength> typeface_name;

	TBuf<KMaxTypefaceNameLength> aname;

	typeface_name.Copy(typeface.iName);

	TInt loop;

	TInt found = 0;

	TInt listindex = 0;

	TTypefaceSupport lsupport;

	// Try to match specified font name with name from typeface font list

	for (loop = 0; (loop < count) && (typeface.iName.CompareF(support.iTypeface.iName)); loop++)

		{

		TInt index = iGenTypefaceFontsList->At(loop);

		TInt type = iGenTypefaceFontsType->At(loop);

		if (type == 0)

			{

			iTypefaceStore->TypefaceSupport(support,index);

			support_name.Copy(support.iTypeface.iName);

			}

		else if(type == 1)

			{

			iFbsTypefaceStore->TypefaceSupport(support,index);

			if(support.iIsScalable)

				{

				count_fbs++;

				support_name.Copy(support.iTypeface.iName);

				}

			}

		if (!typeface.iName.CompareF(support.iTypeface.iName))

			{

			typeface_name.Copy(support.iTypeface.iName);

			found = 1;

			}

		}

	if (found)

		{

		if (loop <= iFbsTypefaceCount)

			{

			TFontSpec fontspec(aFontSpec);

			fontspec.iTypeface=support.iTypeface;

			return iFbsTypefaceStore->GetNearestFontToDesignHeightInTwips(aFont, fontspec);

			}

		else if (loop <= count)

			{

			TFontSpec fontspec(aFontSpec);

			fontspec.iTypeface=support.iTypeface;

			return iTypefaceStore->GetNearestFontToDesignHeightInTwips(aFont, fontspec);

			}

		}

	else 

		{

		if (!typeface.IsSymbol())

			{	// To match first non-symbol, serif, proportional

			TypefaceSupport(lsupport, 0);

			while ((listindex < count) && ((lsupport.iTypeface.IsSymbol() ||

				(typeface.IsProportional() != lsupport.iTypeface.IsProportional()) ||

				(typeface.IsSerif() != lsupport.iTypeface.IsSerif()))))

				{

				TypefaceSupport(lsupport, listindex);

				aname.Copy(lsupport.iTypeface.iName);

				listindex++;

				}

			if (listindex == count)

				{	// try to match first non-symbol.proportional

				listindex = 0;

				do

					{

					TypefaceSupport(lsupport, listindex);

					aname.Copy(lsupport.iTypeface.iName);

					listindex++;

					}

				while ((listindex < count) && (lsupport.iTypeface.IsSymbol() ||

					(typeface.IsProportional() != lsupport.iTypeface.IsProportional())));

				}

			if (listindex == count)

				{	// try to match first non-symbol

				listindex = 0;

				do

					{

					TypefaceSupport(lsupport, listindex);

					aname.Copy(lsupport.iTypeface.iName);

					listindex++;

					}

				while ((listindex < count) && lsupport.iTypeface.IsSymbol());

				}

			}

		else

			{	// try to match first symbol typeface

			listindex = 0;

			TypefaceSupport(lsupport, 0);

			while ((listindex < count) && !lsupport.iTypeface.IsSymbol())

				{

				TypefaceSupport(lsupport, listindex);

				aname.Copy(lsupport.iTypeface.iName);

				listindex++;

				}

			}

		if (listindex == count)

			{

			listindex = 0;

			TypefaceSupport(lsupport, listindex);

			}

		}

	if (listindex <= iFbsTypefaceCount)

		{

		TFontSpec fontspec(aFontSpec);

		fontspec.iTypeface = lsupport.iTypeface;

		TBuf<KMaxTypefaceNameLength> fontspec_name;

		fontspec_name.Copy(fontspec.iTypeface.iName);

		return iFbsTypefaceStore->GetNearestFontToDesignHeightInTwips(aFont, fontspec);

		}

	else

		{

		TFontSpec fontspec(aFontSpec);

		fontspec.iTypeface = lsupport.iTypeface;

		TBuf<KMaxTypefaceNameLength> fontspec_name;

		fontspec_name.Copy(fontspec.iTypeface.iName);

		return iTypefaceStore->GetNearestFontToDesignHeightInTwips(aFont, fontspec);

		}

	}

EXPORT_C void CFbsDrvDevice::ReleaseFont(CFont* aFont)

	{

	if (aFont)

		{

		if (aFont->TypeUid() != KCFbsFontUid)

			{

			iTypefaceStore->ReleaseFont(aFont);

			}

		else

			{

			iFbsTypefaceStore->ReleaseFont(aFont);

			}

		}

	}

EXPORT_C TInt CFbsDrvDevice::NumTypefaces() const

	{

	return iGenTypefaceFontsList->Count();

	}

/**

@deprecated Interface is deprecated because it is unsafe as it may leave. It is available for backward compatibility reasons only.

@see CFbsDrvDevice::LoadTypeFaceListL

*/

EXPORT_C void CFbsDrvDevice::LoadTypeFaceList()

	{

	// Trap and Ignore the ERROR code as its a non-leaving method.

	TRAP_IGNORE(LoadTypeFaceListL());

	}

/**

New Updated LoadTypeFaceList() method

@publishedAll

@released

*/

EXPORT_C void CFbsDrvDevice::LoadTypeFaceListL()

	{

	iFbsTypefaceCount = 0;

	iPdrTypefaceCount = 0;

	if (iGenTypefaceFontsList)

		iGenTypefaceFontsList->Reset();

	else

		iGenTypefaceFontsList = new (ELeave) CArrayFixFlat<TInt>(1);

	if (iGenTypefaceFontsType)

		iGenTypefaceFontsType->Reset();

	else

		iGenTypefaceFontsType = new (ELeave) CArrayFixFlat<TInt>(1);

	TInt loop;

	for(loop = 0; loop < iFbsTypefaceStore->NumTypefaces(); loop++)

		{

		TTypefaceSupport support;

		iFbsTypefaceStore->TypefaceSupport(support, loop);

			{

			if (support.iIsScalable)

				{

				iGenTypefaceFontsList->AppendL(loop);

				iGenTypefaceFontsType->AppendL(1);

				iFbsTypefaceCount++;

				}

			}

		}

	for (loop = 0; loop < iTypefaceStore->NumTypefaces(); loop++)

		{

		TTypefaceSupport support;

		iTypefaceStore->TypefaceSupport(support, loop);

		TBuf<KMaxTypefaceNameLength> name;

		name.Copy(support.iTypeface.iName);

		iGenTypefaceFontsList->AppendL(loop);

		iGenTypefaceFontsType->AppendL(0);

		iPdrTypefaceCount++;

		}

	}

EXPORT_C void CFbsDrvDevice::TypefaceSupport(TTypefaceSupport& aTypefaceSupport, TInt aTypefaceIndex) const

	{

	TInt index = iGenTypefaceFontsList->At(aTypefaceIndex);

	TInt type = iGenTypefaceFontsType->At(aTypefaceIndex);

	if (type == 0)

		iTypefaceStore->TypefaceSupport(aTypefaceSupport, index);

	else

		iFbsTypefaceStore->TypefaceSupport(aTypefaceSupport, index);

	}

EXPORT_C TInt CFbsDrvDevice::FontHeightInTwips(TInt aTypefaceIndex, TInt aHeightIndex) const

	{

	TInt index = iGenTypefaceFontsList->At(aTypefaceIndex);

	TInt type = iGenTypefaceFontsType->At(aTypefaceIndex);

	if (type == 0)

		return iTypefaceStore->FontHeightInTwips(index, aHeightIndex);

	else

		return iFbsTypefaceStore->FontHeightInTwips(index, aHeightIndex);

	}

EXPORT_C TInt CFbsDrvDevice::CreateContext(CGraphicsContext*& aGc)

	{

	__ASSERT_DEBUG(iControl, Panic(EPdrControlDoesNotExist));

	CPdrControl* control = (CPdrControl*)iControl;

	return control->CreateContext(aGc);

	}

EXPORT_C void CFbsDrvDevice::CreateControlL(CPrinterPort* aPrinterPort)

	{

	__ASSERT_ALWAYS(aPrinterPort, Panic(EPdrRequiresPrinterPort));

	__ASSERT_ALWAYS(!iControl, Panic(EPdrControlAlreadyExists));

	__ASSERT_DEBUG(iCurrentPageSpecInTwips.iPortraitPageSize.iWidth && iCurrentPageSpecInTwips.iPortraitPageSize.iHeight, Panic(EPdrPageSpecNotSet));

	iControl = CFbsDrvControl::NewL(this, aPrinterPort, *iStore, iModelInfo->iResourcesStreamId);

	}

/**

@deprecated Interface is deprecated because it is unsafe as it may leave. It is available for backward compatibility reasons only.

@see CFbsDrvDevice::SetModelL

*/

EXPORT_C TInt CFbsDrvDevice::SetModel(const TPrinterModelHeader& aModel, CStreamStore& aStore)

	{

	TInt ret = 0;

	TRAPD(errCode, ret=SetModelL(aModel, aStore));

	if(errCode != KErrNone)

		{

		return errCode;

		}

	return ret;

	}

EXPORT_C TInt CFbsDrvDevice::SetModelL(const TPrinterModelHeader& aModel, CStreamStore& aStore)

	{

	TInt ret = CPdrDevice::SetModel(aModel, aStore);

	if (ret == KErrNone)

		{

		iFbsTypefaceStore = CFbsTypefaceStore::NewL(this);

		LoadTypeFaceListL();

		}

	return ret;

	}

EXPORT_C TSize CFbsDrvDevice::KPixelSizeInTwips() const

	{

	return TSize(iModelInfo->iKPixelWidthInTwips, iModelInfo->iKPixelHeightInTwips);

	}

EXPORT_C void CFbsDrvDevice::Reserved_1()

	{

	}

EXPORT_C CFbsDrvControl* CFbsDrvControl::NewL(CPdrDevice* aPdrDevice, CPrinterPort* aPrinterPort, CStreamStore& aStore, TStreamId aResourcesStreamId)

	{

	CFbsDrvControl* control = new(ELeave) CFbsDrvControl(aPdrDevice, aPrinterPort);

	CleanupStack::PushL(control);

	control->ConstructL(aStore, aResourcesStreamId);

	CleanupStack::Pop();

	return control;

	}

EXPORT_C CFbsDrvControl::~CFbsDrvControl()

	{

	delete iScanLine;

	delete iCompressedScanLine;

	}

EXPORT_C CFbsDrvControl::CFbsDrvControl(CPdrDevice* aPdrDevice, CPrinterPort* aPrinterPort):

	CPdrControl(aPdrDevice, aPrinterPort),

	iScanLine(NULL),

	iCompressedScanLine(NULL)

	{

	__DECLARE_NAME(_S("CFbsDrvControl"));

	}

EXPORT_C void CFbsDrvControl::ConstructL(CStreamStore& aStore, TStreamId aResourcesStreamId)

	{

	CPdrControl::ConstructL(aStore, aResourcesStreamId);

	}

EXPORT_C void CFbsDrvControl::SetPageSizeL()

	{

	TCommandString des;

	des.Format(iResources->ResourceString(EPdrSetPageSize), iPdrDevice->CurrentPageSpecInTwips().iPortraitPageSize.iHeight / KTwipsPerInch);

	iPageBuffer->AddBytesL(des);

	}

/**

 @return ETrue if there are non-blank bytes in scanline. 

 */

EXPORT_C TBool CFbsDrvControl::TransformBuffer()

	{	

	TInt i;

	for (i = iScanLine->Des().Length() - 1; (i >= 0) && (iScanLine->Des()[i] == 0xFF); i--)

		{

		}

	TInt length = i + 1;

	iScanLine->Des().SetLength(length);

	TUint8* p = (TUint8*)iScanLine->Des().Ptr();

	TUint8* pEnd = p + length;

	for (; p < pEnd; p++)

		{

		TInt byte1 = *p;

		TInt byte2 = 0;

		for (TInt j = 0; j < 8; j++)

			{

			byte2 = byte2 << 1;

			byte2 |= (byte1 & 1);

			byte1 = byte1 >> 1;

			}

		*p = (TUint8)~byte2; 

		}

	return (length > 0);	// returns ETrue if there are non-blank bytes in scanline

	}

/**

 @return ETrue if the scanline is compressed successfully. 

 */

EXPORT_C TBool CFbsDrvControl::CompressBuffer()

	{

	TInt length1 = iScanLine->Des().Length();

	TInt length2 = 0;

	TUint8* p1 = (TUint8*)iScanLine->Des().Ptr();

	TUint8* p2 = (TUint8*)iCompressedScanLine->Des().Ptr();

	TUint8 repeat;

	for (TInt i = 0; (i < length1) && (length2 < length1); i += repeat + 1)

		{

		TUint8 byte = *(p1++);

		for (repeat = 0; ((i + repeat + 1) < length1) && (byte == *p1) && (repeat < 255);)

			{

			repeat++;

			p1++;

			}

		length2++;

		if (length2 < length1)

			{

			*(p2++) = repeat;

			length2++;

			if (length2 < length1)

				*(p2++) = byte;

			}

		}

	iCompressedScanLine->Des().SetLength(length2);

	return (length2 < length1);   // returns ETrue if the scanline is compressed successfully

	}

/**

 This function is intentionally a dummy. It has to be implemented because

 of an inherited pure virtual but it should always be overload by any class

 that derives from it.

*/

EXPORT_C void CFbsDrvControl::OutputBandL()

	{

	// I should probably put an assert in here.

	if (IsGraphicsBand())

		{

		TRect bandrect = iBandedDevice->BandRect();

		TSize size = bandrect.Size();

		TCommandString des;

		TBool datainband = EFalse;

		TInt numscanlines = size.iHeight;

		if (iBandedDevice->BandingDirection() == EBandingRightToLeft)

			numscanlines = size.iWidth;

		for (TInt i = 0; i < numscanlines; i++)

			{

			TInt x = bandrect.iTl.iX;

			TInt y = bandrect.iTl.iY + i;

			TPtr8 ptr = iScanLine->Des();

			if (iBandedDevice->BandingDirection() == EBandingTopToBottom)

				iBandedDevice->BandBitmap()->GetScanLine(ptr, TPoint(0, i), size.iWidth, iPdrDevice->DisplayMode());

			else

				{

				iBandedDevice->BandBitmap()->GetVerticalScanLine(ptr, numscanlines - (i + 1), iPdrDevice->DisplayMode());

				x = bandrect.iBr.iX - i;

				y = bandrect.iTl.iY;

				}

			if (TransformBuffer() && !datainband)

				{

				MoveToL(TPoint(x, y));

				if (iBandedDevice->BandingDirection() == EBandingLeftToRight)

					des.Format(iResources->ResourceString(EPdrBitmapStart), EFbsPhysicalPageOrientation);

				else

					des.Format(iResources->ResourceString(EPdrBitmapStart), EFbsLogicalPageOrientation);

				iPageBuffer->AddBytesL(des);

				datainband = ETrue;

				}

			if (datainband)

				{

				TCommandString buf = iResources->ResourceString(EPdrScanLine);

				if (CompressBuffer())

					{

					des.Format(buf, EFbsRunLength, iCompressedScanLine->Des().Length());

					iPageBuffer->AddBytesL(des);

					iPageBuffer->AddBytesL(iCompressedScanLine->Des());

					}

				else

					{

					des.Format(buf, EFbsNone, iScanLine->Des().Length());

					iPageBuffer->AddBytesL(des);

					iPageBuffer->AddBytesL(iScanLine->Des());

					}

				}

			}

		iPageBuffer->AddBytesL(iResources->ResourceString(EPdrBitmapEnd));

		iPosition.iX = iPdrDevice->OffsetInPixels().iX;

		TInt numentries = iPageText->NumEntries();

		if(numentries)

			{

			CPageTextEntry* entry;

			for(TInt y = bandrect.iTl.iY; y <= bandrect.iBr.iY; y++)

				{

				for(TInt index = 0; (index < numentries); index++)

					{

					entry = (*iPageText)[index];

					TPoint drawPos = entry->iDrawPos;

					if(drawPos.iY == y)

						OutputTextL(drawPos, entry->iTextWidthInPixels, *(entry->iTextFormat), *(entry->iText));										 //!!

					}

				}

			}

		}

	}

EXPORT_C void CFbsDrvControl::Reserved_1()

	{

	}