// 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:
// For the Winscw Emulator only, selects between NGA and Non-NGA version of wsgraphicdrawer.
// The default is the non-GCE based version.
// To select the NGA version do one of:
// 1. Add a line to the epoc.ini file in \epoc32\data like this:
// symbian_graphics_use_gce ON
// or
// 2. Start epoc.exe with these parameters, (the "--" IS necessary):
// -Dsymbian_graphics_use_gce=ON --
// or
// 3. epoc.exe can be told to switch to a different initialisation file than epoc.ini, with the -M parameter.
// Progress chaining to the real Wserv is logged in epocwind.out.
// 
//

#include <e32svr.h>
#include <u32hal.h>


_LIT(KProcessName, "WservSwitch");


TInt ChainWservSwitch()
	{
	_LIT(KWservSwitchNga,"z:\\sys\\bin\\wserv_nga.exe");
	_LIT(KWservSwitchNonNga,"z:\\sys\\bin\\wserv_nonnga.exe");
	// need to forward the command parameters to the chained version of Wserv
	TInt argLen = User::CommandLineLength();
	HBufC* arg = HBufC::New(argLen);
	if (arg == NULL)
		{
		return KErrNoMemory;
		}
	TPtr argPtr = arg->Des();
	User::CommandLine(argPtr);

	// NGA or Non-NGA WServ version?
	TBool nga = EFalse;
	UserSvr::HalFunction(EHalGroupEmulator, EEmulatorHalBoolProperty,  (TAny*)"symbian_graphics_use_gce",  &nga);

	// try to launch it
	const TPtrC exeName = nga ?  KWservSwitchNga() : KWservSwitchNonNga();
	RDebug::Print(_L("%S: Starting \"%S\" \"%S\""), &KProcessName, &exeName, &argPtr);
	RProcess server;
	TInt err = server.Create(exeName, argPtr, EOwnerThread);
	delete arg;
	arg = NULL;
	if (err)
		{
		return err;
		}

	// wait for server to start
	RDebug::Print(_L("%S: waiting on process ..."), &KProcessName);
	TRequestStatus stat;
	server.Rendezvous(stat);

	if (stat!=KRequestPending)
		{ // abort startup
		server.Kill(0);
		}
	else
		{ // logon OK - start the server
		server.Resume();
		}

	User::WaitForRequest(stat);
	return (server.ExitType() == EExitPanic) ? KErrGeneral : stat.Int();
	}


TInt E32Main()
	{
	TInt error = ChainWservSwitch();
	// propagate error to SysStart
	if (error)
		{
		RDebug::Print(_L("%S: Failed with error %i"), &KProcessName, error);
		}
	RProcess::Rendezvous(error);
	return error;
	}