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

/**
 @file
 @test
 @internalComponent - Internal Symbian test code
*/

#include <e32property.h>
#include <e32debug.h>
#include "gsatestappgood.h"
#include "gtestapps.h"
#include "gsatestprocgoodsession.h"
#include <apacmdln.h>

static void PublishPriority()
	{
	const TInt KMaxCommandLength = 256;
    CApaCommandLine* apaCmdLine = NULL;
    CApaCommandLine::GetCommandLineFromProcessEnvironment(apaCmdLine);
	TBuf8<KMaxCommandLength> commandLine(apaCmdLine->TailEnd());
	TLex8 flagLex(commandLine);
	TInt priority = 0;
	while(!flagLex.Eos())
		{
		TPtrC8 token(flagLex.NextToken());
		TLex8 temp(token);
		temp.Val(priority);
		}
	RDebug::Printf("Priority of this application is : %d",priority);
	delete apaCmdLine;
	}

static void MainL()
    {
    PublishPriority();
    // Try and connect to ProcGoodSession. If it is successful, set a property. 
    // Else dont set the property. 
    RTestProcGoodSession session;
    TInt err = session.Connect();
    if(KErrNone == err)
        {
        _LIT_SECURITY_POLICY_PASS(KTestReadPolicy);
        _LIT_SECURITY_POLICY_S0(KTestWritePolicy, RProcess().SecureId());  
        
        TInt err = RProperty::Define(KTestAppUidCategory, KTestPropertyKey, RProperty::EInt, KTestReadPolicy, KTestWritePolicy);
        err = RProperty::Set(KTestAppUidCategory, KTestPropertyKey, KPropertySetValue);
        }
    
    if (User::CommandLineLength() > 0)
        {
        TBuf<KTestCommandLineMaxLength> commandLine;
        if(User::CommandLineLength() > commandLine.MaxLength())
            User::Leave(KErrTooBig);
        
        User::CommandLine(commandLine);
        
        TLex flagLex(commandLine);
        while(!flagLex.Eos())
            {
            TPtrC token(flagLex.NextToken());
            if(token == KLaunchProcessAndWait)
                {
                CActiveScheduler* sched = new(ELeave) CActiveScheduler;
                CActiveScheduler::Install(sched);
                
                RDebug::Printf("Rendezvous this application");
                RProcess::Rendezvous(KErrNone);
                
                RSemaphore sem;
                TInt err = sem.OpenGlobal(KStartTestProcGoodSem);
                if(err == KErrNone)
                    {
                    sem.Signal();
                    sem.Close();
                    }

                // Start the active scheduler, so that the process would be running until the test case
                // sets up the monitoring and would kill the process explicitly.
                CActiveScheduler::Start();
                delete sched;
                }
            }
        }    
    }


/**
Standard DLL entry point function.

@return KErrNone
*/
TInt E32Main()
	{
    __UHEAP_MARK;

    CTrapCleanup* cleanup = CTrapCleanup::New();
    TInt r=KErrNoMemory;
    if (cleanup)
        {
        TRAP(r, MainL());
        delete cleanup;
        }

    __UHEAP_MARKEND;
    return r;
	}