// Copyright (c) 1998-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "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:
// e32test\misc\t_ymodemz.cpp
// 
//

#include <e32test.h>
#include "ymodemu.h"
#include <f32file.h>
#include "unzip.h"

RTest test(_L("YModemZ"));

#define TEST(c)		((void)((c)||(test.Printf(_L("Failed at line %d\n"),__LINE__),test.Getch(),test(0),0)))
#define CHECK(c)	((void)(((c)==0)||(test.Printf(_L("Error %d at line %d\n"),(c),__LINE__),test.Getch(),test(0),0)))

const TInt KBufferSize=4096;

_LIT(KLddName,"ECOMM");
_LIT(KPddName,"EUART");

RFs TheFs;
RFile TheOutputFile;
YModemU* TheYModem;

void LoadCommDrivers()
	{
	test.Printf(_L("Load LDD\n"));
	TInt r=User::LoadLogicalDevice(KLddName);
	TEST(r==KErrNone || r==KErrAlreadyExists);

	TInt i;
	TInt n=0;
	for (i=-1; i<10; ++i)
		{
		TBuf<16> pddName=KPddName();
		if (i>=0)
			pddName.Append('0'+i);
		TInt r=User::LoadPhysicalDevice(pddName);
		if (r==KErrNone || r==KErrAlreadyExists)
			{
			++n;
			test.Printf(_L("%S found\n"),&pddName);
			}
		}
	TEST(n!=0);
	}

GLDEF_C void AcceptUnzippedBlock(TZipInfo& aInfo, TUint8*& aOutPtr, TInt aError)
	{
	if (aError==KErrNone)
		{
		TInt avail=aOutPtr-aInfo.iOutBuf;
		if (avail>=KZipWindowSize+0x1000)
			{
			TInt len=avail-KZipWindowSize;
			TPtrC8 ptr(aInfo.iOutBuf,len);
			TInt r=TheOutputFile.Write(ptr);
			CHECK(r);
			Mem::Copy(aInfo.iOutBuf,aInfo.iOutBuf+len,KZipWindowSize);
			aOutPtr=aInfo.iOutBuf+KZipWindowSize;
			}
		}
	}

GLDEF_C TInt ReadInputData(TUint8* aDest, TInt& aLength)
	{
	TUint8* pD=aDest;
//	test.Printf(_L("@%dms\n"),User::NTickCount());
	TInt r=TheYModem->ReadPackets(pD,aLength);
//	test.Printf(_L("ReadIP %d\n"),r);
	aLength=pD-aDest;
	return r;
	}

GLDEF_C TInt UnzipComplete(TZipInfo& a, TUint8* aOutPtr, TInt aError)
	{
	TInt r=aError;
	if (r==KErrNone && aOutPtr>a.iOutBuf)
		r=TheOutputFile.Write(TPtrC8(a.iOutBuf,aOutPtr-a.iOutBuf));
	CHECK(r);
	return r;
	}

_LIT(KLitThreadName,"Unzip");
TInt Initialise(TZipInfo& a)
	{
	TInt r=InitInfo(a);
	if (r!=KErrNone)
		return r;
	a.iFileBufSize=4*a.iInBufSize;
	TAny* pFileBuf=MALLOC(a.iFileBufSize);
	if (!pFileBuf)
		return KErrNoMemory;
	a.iFileBuf=(TUint8*)pFileBuf;
	RThread t;
	r=t.Create(KLitThreadName,UnzipThread,0x2000,NULL,&a);
	if (r!=KErrNone)
		{
		FREE(pFileBuf);
		a.iFileBuf=NULL;
		return r;
		}
	t.SetPriority(EPriorityLess);
	t.Logon(a.iThreadStatus);
	t.Resume();
	a.iThreadHandle=t.Handle();
	return KErrNone;
	}

void ProcessHeader(TZipInfo& a)
	{
	test.Printf(_L("Flags=%d\n"),a.iFlags);
	test.Printf(_L("Method=%d\n"),a.iMethod);
	test.Printf(_L("Crc=%d\n"),a.iCrc);
	test.Printf(_L("Compressed size=%d\n"),a.iCompressedSize);
	test.Printf(_L("Uncompressed size=%d\n"),a.iUncompressedSize);
	test.Printf(_L("File name %S\n"),&a.iName);
	test.Printf(_L("Data offset %d\n\n"),a.iDataOffset);

	TInt r=TheOutputFile.Replace(TheFs,a.iName,EFileWrite);
	CHECK(r);
	test.Printf(_L("Allocate memory for unzipped file\n"));
	a.iOutBuf=(TUint8*)User::Alloc(262144);
	TEST(a.iOutBuf!=NULL);
	test.Printf(_L("Begin unzipping\n"));
	a.iHeaderDone=2;
	TRequestStatus* pS=&a.iProcessedHeader;
	RThread t;
	t.SetHandle(a.iThreadHandle);
	t.RequestComplete(pS,0);
	}

void Cleanup(TZipInfo& a)
	{
	delete a.iFileBuf;
	a.iFileBuf=NULL;
	delete a.iOutBuf;
	a.iOutBuf=NULL;
	RThread& t=*(RThread*)&a.iThreadHandle;
	t.Close();
	}

GLDEF_C TInt E32Main()
	{
//	RThread().SetSystem(ETrue);
	RThread().SetPriority(EPriorityAbsoluteForeground);
	test.SetLogged(EFalse);
	test.Title();

	TBuf<256> cmd;
	User::CommandLine(cmd);
	TInt port=0;
	if (cmd.Length()!=0)
		{
		TUint8 c=(TUint8)cmd[0];
		if (c>='0' && c<='9')
			{
			port=c-'0';
			}
		}

	TInt r=KErrNone;
	LoadCommDrivers();

	test.Printf(_L("Connect to file server\n"));
	r=TheFs.Connect();
	CHECK(r);
	r=TheFs.ShareAuto();
	CHECK(r);

	test.Printf(_L("Create YModem object\n"));
	YModemU* pY=NULL;
	TRAP(r,pY=YModemU::NewL(port,ETrue));
	TEST(r==KErrNone && pY!=NULL);
	TheYModem=pY;

	test.Printf(_L("Create buffer\n"));
	TUint8* buffer=(TUint8*)User::Alloc(KBufferSize);
	TEST(buffer!=NULL);

	test.Printf(_L("Receive...\n"));

	TBool mode=1;
	FOREVER
		{
		TInt total_size=0;
		TInt size=-1;
		TBuf<256> name;
		r=pY->StartDownload(mode, size, name);
//		test.Printf(_L("@%dms"),User::NTickCount());
		if (r!=KErrNone)
			break;
		test.Printf(_L("r=%d, size=%d, name %S\n"),r,size,&name);
		if (r==KErrNone && name.Right(4).CompareF(_L(".zip"))==0 && size!=0)
			{
			test.Printf(_L("Initialising unzip...\n"));
			TZipInfo z;
			z.iRemain=size;
			r=Initialise(z);
			CHECK(r);
			test.Printf(_L("Read header\n"));
			TUint32 c=0;
			RThread t;
			t.SetHandle(z.iThreadHandle);
			while (z.iRemain && z.iThreadStatus==KRequestPending)
				{
				TRequestStatus dummy;
				TRequestStatus* pS=&dummy;
//				test.Printf(_L("remain=%d\n"),z.iRemain);
				r=ReadBlockToBuffer(z);
				CHECK(r);
				t.RequestComplete(pS,0);		// same process
				while(z.iHeaderDone==0 && z.iThreadStatus==KRequestPending)
					DELAY(20000);
				if (z.iHeaderDone==1 && z.iThreadStatus==KRequestPending)
					{
					// after reading first block, process the header
					ProcessHeader(z);
					c=User::NTickCount();
					}
				}
			test.Printf(_L("\nWait for thread to exit\n"));
			User::WaitForRequest(z.iThreadStatus);
			TInt exitType=t.ExitType();
			TInt exitReason=t.ExitReason();
			if (z.iRemain || exitType!=EExitKill || exitReason!=KErrNone)
				{
				TBuf<32> exitCat=t.ExitCategory();
				test.Printf(_L("Exit code %d,%d,%S\n"),exitType,exitReason,&exitCat); test.Getch(); test(0);
				}
			TUint8* pD=buffer;
			r=pY->ReadPackets(pD,KBufferSize);	// should get EOF response
			TEST(r==KErrEof);
			Cleanup(z);
			TheOutputFile.Close();
			}
		else if (r==KErrNone)
			{
			test.Printf(_L("Opening file for write\n"));
			RFile file;
			r=file.Replace(TheFs,name,EFileWrite);
			if (r!=KErrNone)
				{
				test.Printf(_L("RFile::Replace returns %d\n"),r); test.Getch();	test(0);
				}
			while (r==KErrNone)
				{
				TUint8* pD=buffer;
				r=pY->ReadPackets(pD,KBufferSize);
				if (r==KErrNone || r==KErrEof)
					{
					TInt blen=pD-buffer;
					if (size>0)				// size was transmitted
						{
						if (blen>size-total_size)
							blen=size-total_size;
						}
					total_size+=blen;
					TPtrC8 fptr(buffer,blen);
					TInt s=file.Write(fptr);
					if (s!=KErrNone)
						{
						test.Printf(_L("RFile::Write returns %d\n"),s); test.Getch(); test(0);
						}
					}
				}
			file.Close();
			test.Printf(_L("rx size=%d\n"),total_size);
			}
		}
	delete buffer;
	delete pY;
	TheFs.Close();
	test.Printf(_L("r=%d\n"),r);
	test.Getch();

	return KErrNone;
	}