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

// SDP Database library test code

// 

//

#include <e32test.h>

#include <f32file.h>

#include <btmanclient.h>

#include <btsdp.h>

#include <btextnotifiers.h>

#include "sdpkey.h"

#include "SDPDatabase.h"

#include "MAttributeVisitor.h"

#include "ServiceSearchVisitor.h"

#include "DataEncoder.h"

#include "ExtractorVisitor.h"

#include "EncoderVisitor.h"

#include "debug.h"

#ifdef __EPOC32__

#include <c32comm.h>

#endif

#include <es_sock.h>

#include <bt_sock.h>

#include <c32comm.h>

#include <btsdp.h>

#include "agtypes.h"

#include "agutil.h"

#include "ProtocolWrapper.h"

#include "TSDPSAS.h"

GLDEF_D RTest test(_L("SDP database DLL tests"));

void AgPanic(TSdpAgPanic aCode)

	{

	User::Panic(_L("SdpAgent"),aCode);

	}

#if defined (__WINS__)

#define PDD_NAME _L("ECDRV")

#define LDD_NAME _L("ECOMM")

#else  // __GCC32__

#define PDD_NAME _L("EUART1")

#define LDD_NAME _L("ECOMM")

// #define ETNA_PDD_NAME _L("EUART2") // for debugging over com2

#endif

CSdpDatabase *BuildDbL();

CSdpDatabase *BuildUpf4DbL();

// in Builddb.cpp

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5bff094c));	//Cambridge CASIRA

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5bff0a4c));	//Cambridge CASIRA 2

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5b013434));	//PANCAS 03

GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5b0136bc));	//PANCAS 13

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5b013610));	//PANCAS 16

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0xee4d6133));	//NICK'S 7650

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0060, 0x57411ee1));	//ANDY P'S 3650

//

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0080, 0x370f2e22));

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0050, 0xcd0002e0));

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5bffbbb9));	//Hasse's Casira

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00e0, 0x0370b5d3));	//Helge Board 1

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00e0, 0x0326d3b4));	//Helge Board 2

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0xb70329b8));	//EBMK sn:001 0028 0438

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0xb7032bbb));	//EBMK sn:001 0028 0353

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0xb7030ece));	//EBMK sn:001 0017 0344

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0xb7031750));	//EBMK sn:001 0017 0346

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0xaebd, 0x99000201)); //Ericcson 

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0xaec3, 0xdd562e32)); //RTX Telecom A/S

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0xae2d, 0xaa343536)); //Widcomm

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0080, 0x3712205d)); //SSL

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0080, 0x370F287D)); //SSL

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0002, 0x5bff0609)); //John T's blue dongly

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0080, 0x375A000E)); // EBDK 1 (0081 0097...)

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0080, 0x375A000F)); // EBDK 3 (001 0008 0095)

//static const TUint16 KUnplugUUID = 0x1103;

//static const TUint16 KUnplugUUID = 3;

//static const TUint16 KUnplugAttribId = 4;

//static const TInt KSDPMaxRequestSize = 100;

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0001, 0xec0cdfda));	// EBDK 1

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0050, 0xcd0002e1));	// PC Card

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x0050, 0xcd003038));	// RS232 card

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0x5a000064));	// Harold

//GLDEF_D TBTDevAddr devAddr(MAKE_TINT64(0x00d0, 0x5a000064));	// Harold

void LoadLDD_PDD()

	{

	TInt r;

#ifdef __EPOC32__

	r=StartC32();

	if (r!=KErrNone && r!=KErrAlreadyExists)

		{

		test.Printf(_L("Failed %d!\n\r"),r);

		test(r==KErrNone);

		}

	else

		test.Printf(_L("Started C32\n"));

#endif

	test.Printf(_L("Loading PDD\n"));

	r=User::LoadPhysicalDevice(PDD_NAME);

	if (r!=KErrNone && r!=KErrAlreadyExists)

		{

		test.Printf(_L("Failed %d!\n\r"),r);

		test(r==KErrNone);

		}

	else 

		test.Printf(_L("Loaded PDD\n"));

	test.Printf(_L("Loading LDD\n"));

	r=User::LoadLogicalDevice(LDD_NAME);

	if (r!=KErrNone && r!=KErrAlreadyExists)

		{

		test.Printf(_L("Failed %d!\n\r"),r);

		test(r==KErrNone);

		}

	else

		test.Printf(_L("Loaded LDD\n"));

	}

// plagiarised from tsdp.cpp

// actually Mel can't cast from Shortest form (TPtrC8) to a TDesC8 without this call

void HexDes(const TDesC8& aDes)

	{

	for (TInt i = 0; i < aDes.Length(); ++i)

		test.Printf(_L("%02x"), aDes[i]);

	}

void HexDump(const TDesC8& aDes)

	{

	for (TInt i = 0; i < aDes.Length(); ++i)

		{

		if (i%8 == 0)

			test.Printf(_L("0x%04x:   "), i);

		test.Printf(_L("0x%02x "), aDes[i]);

		if (i%8 == 7 || i == aDes.Length() - 1)

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

		}

	}

class CConsoleBuilder : public CBase, public MSdpElementBuilder

	{

public:

	CConsoleBuilder(CConsoleBase& aConsole) :iConsole(aConsole) {};

	MSdpElementBuilder* BuildUnknown(TUint8 aType, TUint8 aSizeDesc, const TDesC8& aData)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Unknown: <type %d, sizedesc %d, length %d>\n"), aType, aSizeDesc, aData.Length());

		HexDump(aData);

		return this;

		};

	MSdpElementBuilder* BuildNilL()

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Nil: <>\n"));

		return this;

		};

	MSdpElementBuilder* BuildUintL(TUint aUint)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Uint: <%d>\n"), aUint);

		return this;

		};

	MSdpElementBuilder* BuildUintL(const TDesC8& aLongUint)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Long Uint: <Length %d>\n"), aLongUint.Length());

		HexDump(aLongUint);

		return this;

		};

	MSdpElementBuilder* BuildIntL(TUint aInt)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Int: <%d>\n"), aInt);

		return this;

		};

	MSdpElementBuilder* BuildIntL(const TDesC8& aLongInt)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Long Int: <Length %d>\n"), aLongInt.Length());

		HexDump(aLongInt);

		return this;

		};

	MSdpElementBuilder* BuildUUIDL(const TUUID& aUUID)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got UUID: <length %d>\n"), aUUID.ShortestForm().Length());

		HexDump(aUUID.ShortestForm());

		return this;

		};

	MSdpElementBuilder* BuildBooleanL(TBool aBool)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got Boolean: <%d>\n"), aBool);

		return this;

		};

	MSdpElementBuilder* BuildStringL(const TDesC8& aString)

		{

		TBuf<512> ustr;

		ustr.Copy(aString.Left(Min(aString.Length(), ustr.MaxLength())));

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got String: <length %d, Contents %S>\n"), ustr.Length(), &ustr);

		return this;

		};

	MSdpElementBuilder* BuildDESL()

		{

		return StartListL();

		};

	MSdpElementBuilder* BuildDEAL()

		{

		return StartListL();

		};

	MSdpElementBuilder* StartListL(/*prob want list type here*/)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("<START LIST>\n"));

		iIndent += 2;

		return this;

		};

	MSdpElementBuilder* EndListL()

		{

		if (iIndent > 0)

			{

			iIndent-=2;

			iConsole.SetPos(iIndent);

			iConsole.Printf(_L("<END LIST>\n"));

			}

		else

			{

			iConsole.Printf(_L("WARNING: UNMATCHED END LIST!"));

			}

		return this;

		};

	MSdpElementBuilder* BuildURLL(const TDesC8& aString)

		{

		iConsole.SetPos(iIndent);

		iConsole.Printf(_L("Got URL: <%S>\n"), &aString);

		return this;

		};

private:

	CConsoleBase&	iConsole;

	TInt			iIndent;

	};

TInt ParseL(TDesC8& aDes)

{

	// Parse attribute list

	CConsoleBuilder* builder = new(ELeave) CConsoleBuilder(*test.Console());

	CElementParser* parser = CElementParser::NewL(builder);

	test.Next(_L("Parsing simple attribute list"));

	TUint rem=0;

	TRAPD(err,rem=parser->ParseElementsL(aDes.Mid(2)));

	if (err)

		test.Printf(_L("Parser left with error %d\n"), err);

	else

		test.Printf(_L("Parser returned %d\n"), rem);

	test.Getch();

	return rem;

}

class CAttrPrintVisitor : public CBase, public MAttributeVisitor

	{

public:

	CAttrPrintVisitor(CConsoleBase& aConsole) : iConsole(aConsole) {iIndent=0;}

	~CAttrPrintVisitor() {/*iConsole.Getch();*/}

    void VisitAttributeL(CSdpAttr &aAttribute)

		{

		Indent();

		test.Printf(_L("\nID:0x%x:"), aAttribute.AttributeID());

		}

	void VisitAttributeValueL(CSdpAttrValue & aValue, TSdpElementType aType)

		{

// FIXME need a new object like the match list that will just store the object in

// FIXME an array, or perhaps just print it ? Is it a visitor ?

//		CSdpSearchPattern* encAttrList = new (ELeave) CSdpSearchPattern;

//		CleanupStack::PushL(encAttrList);

//		CElementParser* parser = CElementParser::NewL(encAttrList);

//		CleanupStack::PushL(parser);

//		TInt rem;

		TBuf16<0x64> iString;

//		TInt iFound;

		switch (aType)

			{

			case ETypeString:

				{

				TInt len = aValue.Des().Length();

				if(len<0x60)

					//cannot cope with strings longer than 100 bytes!

					{

					iString.Copy(aValue.Des());

					test.Printf(_L("\"%S\""),&iString);

					}

				else

					{

					test.Printf(_L("String attribute too long for CONSOLE: Length %d"),len);

					}

				break;

				}

			case ETypeDES:

				test.Printf(_L(" DES"));

				break;

			case ETypeUint:

				test.Printf(_L(" UInt:0x%x"), aValue.Uint());

				break;

			case ETypeUUID:

				test.Printf(_L(" UUID:0x"));

				HexDes(aValue.UUID().ShortestForm());

				break;

			case ETypeEncoded:

				HexDes(aValue.Des());  // simplest

//parse out the elements in this encoded attribute

//				rem = parser->ParseElementsL(aValue.Des());

//				CleanupStack::PopAndDestroy(/*parser*/);

//				for (iFound=0 ; iFound++ ; (iFound < (encAttrList->Length())))

//				{

//					VisitAttributeValueL(encAttrList->At(iFound).Value, encAttrList->At(iFound).Type);

//				}

//				CleanupStack::PopAndDestroy(/*encAttrList*/);

				break;

			default:

				test.Printf(_L("type %d\n"), aType);

			}

		}

	void StartListL(CSdpAttrValueList &/*aList*/)

		{

		++iIndent;

		test.Printf(_L("{"));

		}

    void EndListL()

		{

		if(iIndent<=0)

			{

			test.Printf(_L("\nERROR! Unmatched EndList!\n"));

			__DEBUGGER();

			}

		test.Printf(_L("}"));

		--iIndent;

		}

private:

	void Indent() {/*test.SetPos(iIndent)*/;}

	CConsoleBase &iConsole;

	TInt iIndent;

	};

void PrintDb(CSdpDatabase& aDb, CConsoleBase& aConsole)

	{

	aConsole.Printf(_L("Printing Database...\n"));

	for(TServRecordIter recIter(aDb.RecordIter()); recIter; recIter++)

		{// Iterate thru records in Db

		aConsole.Printf(_L("\n...Printing Record 0x%x\n"), (*recIter).Handle());

		for(TServAttrIter attrIter((*recIter).AttributeIter()); attrIter; attrIter++)

			{// Iterate thru attributes in record

			CAttrPrintVisitor* theVisitor = new CAttrPrintVisitor(aConsole);

			(*attrIter).AcceptVisitorL(*theVisitor);

			delete theVisitor;

			}

		}

	}

class CAttrFlogVisitor : public CBase, public MAttributeVisitor

	{

public:

	CAttrFlogVisitor(){}

#ifdef _DEBUG

    void VisitAttributeL(CSdpAttr& aAttribute)

		{

		Indent();

		FTRACE(FPrint(_L("Attribute ID: 0x%x\n"), aAttribute.AttributeID()));

		}

#else

    void VisitAttributeL(CSdpAttr&)

		{

		Indent();

		}

#endif // _DEBUG

	void VisitAttributeValueL(CSdpAttrValue & aValue, TSdpElementType aType)

		{

		TBuf16<64> iString;

		switch (aType)

			{

			case ETypeString:

				iString.Copy(aValue.Des());

				FTRACE(FPrint(_L("\"%S\""),&iString));

				break;

			case ETypeDES:

				FTRACE(FPrint(_L(" DES")));

				break;

			case ETypeUint:

				FTRACE(FPrint(_L(" UInt:0x%x"), aValue.Uint()));

				break;

			case ETypeUUID:

				FTRACE(FPrint(_L(" UUID:0x")));

				HexDes(aValue.UUID().ShortestForm());

				break;

			case ETypeEncoded:

				HexDes(aValue.Des());  // simplest

				break;

			default:

				FTRACE(FPrint(_L("type %d\n"), aType));

			}

		}

    void StartListL(CSdpAttrValueList &/*aList*/)

		{

		++iIndent;

		Indent();

		FTRACE(FPrint(_L("{\n")));

		}

    void EndListL()

		{

		if(iIndent<=0)

			{

			FTRACE(FPrint(_L("\nERROR! Unmatched EndList!\n")));

			__DEBUGGER();

			}

		Indent();

		FTRACE(FPrint(_L("}\n")));

		--iIndent;

		}

private:

	void HexDes(const TDesC8& aDes)

		{

		for (TInt i = 0; i < aDes.Length(); ++i) 

			{

			FTRACE(FPrint(_L("%02x"), aDes[i]));

			}

		}

	void Indent() 

		{

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

			{

			FTRACE(FPrint(_L("  ")));

			}

		}

	TInt iIndent;

	};

void FlogDb(CSdpDatabase& aDb)

	{

	FTRACE(FPrint(_L("\n\nPrinting Database...\n\n")));

	for(TServRecordIter recIter(aDb.RecordIter()); recIter; recIter++)

		{// Iterate thru records in Db

		FTRACE(FPrint(_L("\n...Printing Record 0x%x\n"), (*recIter).Handle()));

		for(TServAttrIter attrIter((*recIter).AttributeIter()); attrIter; attrIter++)

			{// Iterate thru attributes in record

			CAttrFlogVisitor* theVisitor = new CAttrFlogVisitor();

			(*attrIter).AcceptVisitorL(*theVisitor);

			delete theVisitor;

			}

		}

	FTRACE(FPrint(_L("\n\nEnd Printing Database...\n\n\n\n")));

	}

void Test1()

/**

	RSdpAgent Test.

**/

	{

	test.Start(_L("Testing RSdpAgent used with BT NetDb connection"));	// SOCKSERV CONNECTION

    RSocketServ ss;

	TInt ret=ss.Connect();

    test(ret==KErrNone || ret==KErrAlreadyExists);

	TUint32 uuid = 0x1100;

	do

		{

		RSdpAgent sa;

		TInt bufSize;

		TUint16 maxAttrByteCount = 0x200;

		TRequestStatus stat;

		TSDPConnectQuery connQ;

		TBuf8<512> result;

		TBuf8<255> request;

		TInt len;

		TBuf8<2> contState(0);

		//BigEndian::Put16(&contState[0], 0);

	    test.Next(_L("Opening SDP Net Database"));

		ret=sa.Open(ss);

		if (ret==KErrNone)

			{

			test.Printf(_L("Created netdb OK\n"));

			}

		else// if(ret<KErrNone)

			{

			test.Printf(_L("Failed to open netdb, return = %d\n"),ret);