// sbapp.cpp

// 

// Copyright (c) 2007 - 2010 Accenture. All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the "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:

// Accenture - Initial contribution

//

// Description:

// Launches the executable named in a "shebang" line (e.g "#!fshell") at the beginning of a script.

#include <e32std.h>

#include <e32base.h>

#include <f32file.h>

#include <apacmdln.h>

void RunL()

	{

	CApaCommandLine* commandLine = NULL;

	User::LeaveIfError(CApaCommandLine::GetCommandLineFromProcessEnvironment(commandLine));

	CleanupStack::PushL(commandLine);

	TFileName scriptFileName(commandLine->DocumentName());

	RFs fs;

	User::LeaveIfError(fs.Connect());

	CleanupClosePushL(fs);

	RFile file;

	commandLine->GetFileByHandleL(file);

	if (!file.SubSessionHandle())

		{

		User::LeaveIfError(file.Open(fs, scriptFileName, EFileRead));

		}

	RThread().Rendezvous(KErrNone);

	CleanupClosePushL(file);

	TBuf8<64> buf;

	User::LeaveIfError(file.Read(buf));

	CleanupStack::PopAndDestroy(3, commandLine);

	if (buf.Left(2) == _L8("#!"))

		{

		TLex8 lex(buf.Mid(2));

		lex.Mark();

		while (!lex.Eos())

			{

			TChar ch(lex.Get());

			if ((ch == TChar('\r')) || (ch == TChar('\n')))

				{

				lex.UnGet();

				break;

				}

			}

		TPtrC8 narrowExeName(lex.MarkedToken());

		if (narrowExeName.Length() > 0)

			{

			TBuf<64> exeName;

			exeName.Copy(narrowExeName);

			_LIT(KSingleQuote, "'");

			scriptFileName.Insert(0, KSingleQuote);

			scriptFileName.Append(KSingleQuote);

			RProcess process;

			User::LeaveIfError(process.Create(exeName, scriptFileName));

			TRequestStatus status;

			process.Logon(status);

			process.Resume();

			User::WaitForRequest(status);

			User::LeaveIfError(status.Int());

			process.Close();

			}

		}

	}

GLDEF_C TInt E32Main()

	{

	__UHEAP_MARK;

	TInt err = KErrNoMemory;

	CTrapCleanup* cleanup = CTrapCleanup::New();

	if (cleanup)

		{

		TRAP(err, RunL());

		delete cleanup;

		}

	__UHEAP_MARKEND;

	return err;

	}