// 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:
//

#include <e32base.h>
#include <e32std.h>
#include <e32test.h>
#include <bt_subscribe.h>
#include <bt_sock.h>
#include "Discoverability.h"



_LIT(KInstructions, "Press I to be invisible, V to be visible\nL to be limited, G to be general\nC to change CoD\n");

GLDEF_D RTest test(_L("Discoverability App"));

void TestL()
	{
	test.Printf(_L("%S\n"), &KInstructions);

	CDiscoverability* discoverability = CDiscoverability::NewL(test);

	CActiveScheduler::Start();

	delete discoverability;
	}


CDiscoverability* CDiscoverability::NewL(RTest& aTest)
	{
	CDiscoverability* s = new(ELeave) CDiscoverability(aTest);
	CleanupStack::PushL(s);
	s->ConstructL();
	CleanupStack::Pop(s);
	return s;
	}

CDiscoverability::CDiscoverability(RTest& aTest)
: CActive(EPriorityStandard), iTest(aTest)
	{
	CActiveScheduler::Add(this);
	}

CDiscoverability::~CDiscoverability()
	{
	Cancel();
	}

void CDiscoverability::ConstructL()
	{
	TInt err;
	

	_LIT_SECURITY_POLICY_PASS(KPassPolicy);
	err=iProperty.Define(KPropertyUidBluetoothCategory,
										KPropertyKeyBluetoothSetScanningStatus,
										RProperty::EInt,
										KPassPolicy,	//	Read policy
										KPassPolicy);	//	Write policy
	if (err) test.Printf(_L("Error %d defining property, continuing anyway\n"),err);
	err=iProperty.Define(KPropertyUidBluetoothCategory,
										KPropertyKeyBluetoothSetLimitedDiscoverableStatus,
										RProperty::EInt,
										KPassPolicy,	//	Read policy
										KPassPolicy);	//	Write policy
	if (err) test.Printf(_L("Error %d defining property, continuing anyway\n"),err);
	err=iProperty.Define(KPropertyUidBluetoothCategory,
										KPropertyKeyBluetoothSetDeviceClass,
										RProperty::EInt,
										KPassPolicy,	//	Read policy
										KPassPolicy);	//	Write policy
	
	if (err) test.Printf(_L("Error %d defining property, continuing anyway\n"),err);
	
	Start();
	}

void CDiscoverability::Start()
	{
	iTest.Console()->Read(iStatus);
	SetActive();
	}


void CDiscoverability::RunL()
	{
	Start();
	
	TChar ch = iTest.Console()->KeyCode();
	TInt err = KErrNone;
	
	switch (ch)
		{
		case 'i': case 'I':
			err=iProperty.Set(KPropertyUidBluetoothCategory, KPropertyKeyBluetoothSetScanningStatus, EPageScanOnly);
			test.Printf(_L("Set Page Scan mode with result %d\n"),err);
			break;

		case 'v': case 'V':
			err=iProperty.Set(KPropertyUidBluetoothCategory, KPropertyKeyBluetoothSetScanningStatus, EInquiryAndPageScan);
			test.Printf(_L("Set InquiryAndPage Scan mode with result %d\n"),err);
			break;

		case 'l': case 'L':
			err=iProperty.Set(KPropertyUidBluetoothCategory, KPropertyKeyBluetoothSetLimitedDiscoverableStatus, ETrue);
			test.Printf(_L("Set Limited Discoverable mode ON with result %d\n"),err);
			break;

		case 'g': case 'G':
			err=iProperty.Set(KPropertyUidBluetoothCategory, KPropertyKeyBluetoothSetLimitedDiscoverableStatus, EFalse);
			test.Printf(_L("Set Limited Discoverable mode OFF with result %d\n"),err);
			break;

		case 'c': case 'C':
			{
			TUint8 majorDeviceClass = User::TickCount() % 8;
			TBTDeviceClass cod(0,majorDeviceClass,0);
			err=iProperty.Set(KPropertyUidBluetoothCategory, KPropertyKeyBluetoothSetDeviceClass, cod.DeviceClass());
			test.Printf(_L("Changed COD with result %d\n"),err);
			break;
			}

		default:
			break; // do nothing
		}
	}

void CDiscoverability::DoCancel()
	{
	iTest.Console()->ReadCancel();
	}


TInt E32Main()
	{
	CTrapCleanup* cleanupStack=CTrapCleanup::New();
	CActiveScheduler::Install(new CActiveScheduler);

	TRAPD(err,TestL());	//	Ignore err

	if (err != KErrNone)
		{
		test.Printf(_L("Error %d"), err);
		test.Getch();
		}

	delete cleanupStack;
	return err;
	}