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

// Client interface to the CPosixServer

// 

//

#include "POSIXIF.H"

#include "LTIME.H"

#include "LPOSIX.H"

#include <fcntl.h>

#include <sys/errno.h>

#include <sys/serial.h>

#include <sys/wait.h>

#ifdef _DEBUG

#define DebugPrint	RDebug::Print

#else

inline void DebugPrint(const TDesC&, ...) {}

#endif

// RPosixSession

//

// The message protocol is to pass the errno pointer in p[0] and a pointer to a PosixParams

// in p[1]. The result is written back into the PosixParams.retval field.

int RPosixSession::Request(TInt aFunction, int& anErrno, PosixParams& aParams) const

	{

	return SendReceive(aFunction,TIpcArgs(&anErrno,&aParams));

	}

void RPosixSession::Request(TInt aFunction, int& anErrno, PosixParams& aParams, TRequestStatus& aStatus) const

	{

	SendReceive(aFunction,TIpcArgs(&anErrno,&aParams),aStatus);	// asynchronous request

	}

void RPosixSession::Request(TInt aFunction, const TIpcArgs& aArg,TRequestStatus &aStatus) const

	{

	RSessionBase::SendReceive(aFunction,aArg,aStatus);

	}

TInt RPosixSession::Request(TInt aFunction, const TIpcArgs& aArg) const

	{

	return RSessionBase::SendReceive(aFunction,aArg);

	}

TVersion RPosixSession::Version()

	{

	return TVersion(KCPosixMajorVersionNumber,KCPosixMinorVersionNumber,0);

	}

TInt RPosixSession::Connect (TDesC& aServerName)

	{

	TVersion version=Version();

	return CreateSession(aServerName,version,1+3);	// 3 extra message slots for pipes

	}

TInt RPosixSession::Connect ()

	{

	TBuf<80> serverName;

	PosixServerName(serverName);

	return CreateSession(serverName,Version(),1);

	}

// CPosixServer support functions exported from ESTLIB.DLL

#if defined(__WINS__)

// simple scheme to provide pretend processes on WINS

extern "C" void getcwd(char*,int);

typedef void (*FUNC)();

static int id=1;

EXPORT_C void NewProcessId () 

	{ 

	id += 10; 

	}

static FUNC procFn;

EXPORT_C void NextProcessFn (TAny* aFn)

	{

	procFn=(FUNC)aFn;

	}

TInt threadhelper (TAny* aFn)

	{

	CTrapCleanup::New();

	FUNC f=(FUNC)aFn;

	(*f)();

	return 0;

	}

TInt processhelper (TAny*)

	{

	// Do the MCRT0.OBJ things straight away

	SpawnPosixServerThread();

	char wd[80];

	getcwd(wd, sizeof(wd));		// connect to CPosixServer

	return threadhelper(procFn);

	}

#endif // __WINS__

_LIT(SERVER_FORMAT,"Posix-%d");

_LIT(SERVER_MATCH, "Posix-*");

EXPORT_C void PosixServerName(TDes& aBuffer)

//

// Construct the name of the CPosixServer for this process

//

	{

	TProcessId id=RProcess().Id();

	aBuffer.Format(SERVER_FORMAT,*REINTERPRET_CAST(int*,&id));

	}

struct rendezvous 

	{

	RThread iCaller;

	TRequestStatus* iStatus;

	};

EXPORT_C TInt SpawnPosixServerThread ()

//

// Try to start a PosixServer thread, assuming there isn't one already

//

	{

	RPosixSession probe;

	TInt err=probe.Connect();

	probe.Close();

	if (err==KErrNone)

		return KErrNone;	// server already exists

	TBuf<80> serverName;

	PosixServerName(serverName);

	TRequestStatus status(KRequestPending);

	struct rendezvous rv;

	rv.iCaller.Duplicate(RThread(),EOwnerProcess);

	rv.iStatus=&status;

	RThread server;

	err=server.Create(serverName,CPosixServer::ThreadFunction,0x2000,NULL,&rv);

	if (err==KErrNone) 

		{

		server.Resume();

		User::WaitForRequest(status);

		err=status.Int();

		server.Close();

		}

	rv.iCaller.Close();

	return err;

	}

EXPORT_C TInt InstallPosixServerActiveObject (TInt aPriority)

	{

	TRAPD(err, CPosixServer::InitL(aPriority));

	return err;

	}

void CPosixServer::InitL(TInt aPriority)

//

// Construct and install a CPosixServer active object

//

	{

	CPosixServer *pS=new(ELeave) CPosixServer(aPriority);

	CleanupStack::PushL(pS);

	TBuf<80> serverName;

	PosixServerName(serverName);

	User::LeaveIfError(pS->iFs.Connect());

	pS->iFids.InitL();

	// search for parent process

	pS->FindParentL();

	// set up default fids

	pS->DefaultConsoleL();

	DebugPrint(_L("Starting CPosixServer\n"));

	pS->StartL(serverName);

	CleanupStack::Pop(pS);

// Leave pS on the clean up stack for the calling routine to clean up normally on 

// Active Scheduler shutdown or in a failure case where  the scheduler does not 

// start due to an error.

	}

// CPosixServer

CPosixServer::CPosixServer(TInt aPriority)

	: CServer2(aPriority)

	{

	__DECLARE_NAME(_S("CPosixServer"));

	}

TInt CPosixServer::ThreadFunction(TAny* aPtr)

//

// Create and run an active scheduler containing a CPosixServer

//

	{

	CTrapCleanup* TheTrapCleanup=CTrapCleanup::New();

	RLibrary stdlib;

	stdlib.Load(_L("estlib"));	// workaround for RAM-loaded EXE calling RAM-loaded DLL

	struct rendezvous* rvp = (struct rendezvous *)aPtr;

	TInt ret=KErrNone;

	// start scheduler and server

	CActiveScheduler *pA=new CActiveScheduler;

	if (pA!=NULL) 

		{

		CActiveScheduler::Install(pA);

		ret=InstallPosixServerActiveObject();

		}

	// signal to the caller that we've started (or failed!)

	rvp->iCaller.RequestComplete(rvp->iStatus,ret);

	if (ret==KErrNone)

		{

		// start fielding requests from clients

		CActiveScheduler::Start();

		}

	// finished

	delete TheTrapCleanup;

	return(KErrNone);

	}

CSession2* CPosixServer::NewSessionL(const TVersion& aVersion, const RMessage2& aMessage) const

	{

	TBool r=User::QueryVersionSupported(RPosixSession::Version(),aVersion);

	if (!r)

		User::Leave(KErrNotSupported);

	RProcess clientProcess;

	RThread clientThread;

	User::LeaveIfError(aMessage.Client(clientThread));

	CleanupClosePushL(clientThread);

	User::LeaveIfError(clientThread.Process(clientProcess));

	TProcessId clientId = clientProcess.Id();

	clientProcess.Close();

	CleanupStack::PopAndDestroy(1); //close thread

	if (clientId!=RProcess().Id())

		{

		// A thread in a different process

		if (iChildren==0)

			User::Leave(KErrNotReady);	// quick rejection

		// We need an explicit CONST_CAST so that the CPosixRequest objects have a

		// mutable reference to the CPosixServer which holds the shared data structures

		return new(ELeave) CPosixIPCSession(CONST_CAST(CPosixServer&,*this));

		}

	// A thread in the same process

	return new(ELeave) CPosixSession(CONST_CAST(CPosixServer&,*this));

	}

void CPosixServer::ServerPanic (TPosixServerPanic aPanic)

	{

	_LIT(KPosixServerPanic, "Posix server");

	User::Panic(KPosixServerPanic,aPanic);

	}

void CPosixServer::FindParentL()

	{

	TFullName parent;

	TPosixIPCPid pid;

	TPosixIPCReply reply;

	TProcessId id=RProcess().Id();

	pid = *REINTERPRET_CAST(TUint*,&id);	// my process id

	TFindServer posixservers(SERVER_MATCH);

	while (posixservers.Next(parent)==KErrNone)

		{

		DebugPrint(_L("Are you my mother, %S?"), &parent);

		if (iParent.Connect(parent)!=KErrNone)

			continue;

		if (iParent.Request(PMAreYouMyMother,TIpcArgs(&pid, &reply))!=KErrNone)

			{

			iParent.Close();

			continue;

			}

		// found parent

		DebugPrint(_L("Found parent process %S"), &parent);

		// Create any pipes that might be required

		TUint mask=reply().iPipeMask;

		CPipeChildDesc* pipes[3];

		TInt i=0;

		for (i=0; i<3; i++, mask>>=1)

			{

			pipes[i]=0;

			if (mask&1)

				{

				CPipeChildDesc* pipe=new(ELeave) CPipeChildDesc(i,iParent);

				pipes[i]=pipe;

				pipe->PushLC();

				}

			}

		// organise the necessary descriptors

		TPtr env=HBufC::NewLC(reply().iEnvironmentSize)->Des();

		TPtr cwd=HBufC::NewLC(reply().iWorkingDirectorySize)->Des();

		// get the data from parent

		TInt err=iParent.Request(PMHelloMum, TIpcArgs(&pid, &env, &cwd));

		DebugPrint(_L("Environment string: %S"), &env);

		DebugPrint(_L("Working directory: %S"), &cwd);

		if(err!=KErrNone)

			{

			DebugPrint(_L("I've become an orphan"));

			// release stuff

			iParent.Close();

			User::Leave(err);

			break;

			}

		// apply to our process

		iEnv.ConstructL(reply().iVarCount,env);

		err=iFs.SetSessionPath(cwd);

		User::LeaveIfError(err);

		// free up the temporary descriptors

		CleanupStack::PopAndDestroy(2);

		// Attach the pipes!

		for (i=0; i<3; i++)

			{

			iFids.Attach(i, pipes[i]);

			if (pipes[i]!=0)

				CleanupStack::Pop();

			}

		return;

		}

	DebugPrint(_L("Posix-%d is a top-level process"), pid());

	User::LeaveIfError(PosixFilesystem::SetDefaultDir(iFs));

	}

int CPosixServer::POpen3(PosixParams* aParams, int& anErrno)

	{

	TInt err=KErrNoMemory;

	//coverity[alloc_fn]

	//coverity[assign]

	CPosixProcess* proc= new CPosixProcess(*this);

	if (proc!=0)

		{

		//coverity[leave_without_push]

		err=iFids.Reserve(aParams->pint);

		if (err==KErrNone)

			{

			TRAP(err,proc->POpen3L(aParams));

			}

		if (err==KErrNone)

			{

			DebugPrint(_L("POpen3 created process %d"), proc->iPid);

			proc->iNextProcess=iChildren;

			iChildren=proc;

			return (int)proc->iPid;	// success

			}

		delete proc;

		iFids.Detach(aParams->pint);

		}

	return MapError(err, anErrno);

	}

CPosixRequest* CPosixServer::Waiters() 

	{

	CPosixRequest* waiters=iWaitAnyQueue;

	iWaitAnyQueue=0;

	return waiters;

	}

// CPosixSession

//

// Each local thread gets one of these

CPosixSession::CPosixSession(CPosixServer& aServer)

	: iActive(aServer)

	{

	CActiveScheduler::Add(&iActive);

	__DECLARE_NAME(_S("CPosixSession"));

	}

void CPosixSession::ServiceL(const RMessage2& aMessage)

	{

	iActive.Service(aMessage);

	}

// CPosixRequest

//

// An active object contained within the Session that handles the deferred completion

// of asynchronous functions (e.g. read & write).

CPosixRequest::CPosixRequest(CPosixServer& aServer)

	: CActive(EPriorityStandard), iServer(aServer), iPtr(0,0)

	{

//	iFile=0;

//	iNewF=0;

//	iNewFid=0;

	}

void CPosixRequest::Service(const RMessage2& aMessage)

//

// The message protocol is to pass the errno pointer in p[0] and a pointer to a PosixParams

// in p[1]. The result is written back into the PosixParams.retval field.

//

	{

	if (aMessage.Function() == PMcancel)

		{

		Cancel();						// Cancel in the active scheduler

		if (iFile)

			EndAsynch(KErrCancel);		// Complete the cancelled request & clean up

		aMessage.Complete(KErrNone);

		return;

		}

	if (iFile!=0)

		{

		aMessage.Complete(KErrInUse);

		return;

		}

	int& anErrno=*REINTERPRET_CAST(int*,CONST_CAST(TAny*,aMessage.Ptr0()));

	PosixParams* params=REINTERPRET_CAST(PosixParams*,CONST_CAST(TAny*,aMessage.Ptr1()));

	switch (aMessage.Function())

		{

	// Asynchronous functions need queuing, active objects etc.

	case PMread:

	case PMwrite:

	case PMsendto:

	case PMrecvfrom:

		iPtr.Set((TText8*)params->ptr[0], params->len[0], params->len[0]);

		// and fall through...

	case PMfsync:

	case PMconnect:

	case PMshutdown:

		{

		TInt err=Fids().Asynch(params->fid,iFile);

		if (!err)

			{

			QueueAsynch(aMessage);	// start operation or queue if busy

			return;					// deferred completion through RunL

			}

		params->ret=MapError(err,anErrno);

		}

		break;

	case PMaccept:

		{

		TInt err=Fids().Asynch(params->fid,iFile);

		if (!err)

			{

			iNewF=0;

			iNewFid=Fids().Reserve();	// reserve a fid for the accepted socket

			err=iNewFid;

			if (iNewFid>=0)

				{

				QueueAsynch(aMessage);	// start operation or queue if busy

				return;					// deferred completion through RunL

				}

			}

		params->ret=MapError(err,anErrno);

		}

		break;

	case PMioctl:

	case PMioctlN:

		{

		TInt err=Fids().Asynch(params->fid,iFile);

		if (!err)

			{

			QueueAsynch(aMessage);	// start operation or queue if busy

			return;					// deferred completion through RunL

			}

		aMessage.Complete(err);	// Different calling convention

		return;

		}

	// complicated synchronous functions which might do their own completion

	case PMwaitpid:

		{

		// check for invalid options or if an invalid pid is specified. currently there is no 

		// support for process group id's so a pid less than -1 or equal to 0 is invalid

		if((params->pint[1] & ~(WNOHANG|WUNTRACED))|| (params->pint[0] < -1) || (params->pint[0] ==0))

			{

			anErrno=EINVAL;

			params->ret=-1;

			break;

			}

		if (params->pint[0]==-1 && params->pint[1]==0)	/* wait for any child */

			{

			iMessage=aMessage;

			iServer.WaitForAnyChild(this);

			return; // wait for the next child to die

			}

		CPosixProcess* child=iServer.Child(params->pint[0]);

		if (child!=0)

			{

			if (child->IsAlive())

				{

				if (params->pint[1]&1)	/* WNOHANG */

					{

					params->ret=0;

					break;

					}

				iMessage=aMessage;

				child->Queue(this);

				return;	// wait for the child to die

				}

			params->pint[0]=child->iExitReason;

			params->ret=child->iPid;

			iServer.Release(child);

			}

		else

			{

			anErrno=ECHILD;

			params->ret=-1;

			}

		}