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

#include "POSIXIF.H"

// Category for the panic.
_LIT(KEstlibInit, "ESTLIB-INIT");

// Access for the outside world
extern "C" {

EXPORT_C void CloseSTDLIB()
	{
	struct _reent* p=(struct _reent*)Dll::Tls();
	if (p==0)
		return;
	_reclaim_reent(p);	// Reclaiming calls the atexit processing and generally tries to tidy up
	User::Free(p);		// then we give back the struct _reent itself
	Dll::SetTls(0);		// ... so we don't free it again when the DLL exits
	}

/**
Allocates memory for the library globals struct and returns a pointer to it. If the
memory has been allocated previously then it simply returns a pointer to the memory.
Panics if any error/failure occurs.

@return On Success, a pointer to the memory containing the library globals.
*/
EXPORT_C struct _reent *ImpurePtr(void)
	{
	struct _reent* p=(struct _reent*)Dll::Tls();
	if (p)
		return p; // Memory is already allocated for the library globals.

	// First use, so construct the default struct _reent and the associated SystemInterface
	p=(struct _reent*)User::Alloc(sizeof(struct _reent));
	if(p ==0)
		{
		User::Panic(KEstlibInit,KErrNoMemory);
		}

	TInt err= Dll::SetTls(p);

	if (err != KErrNone)
		{
		delete p;
		p = 0;
		Dll::FreeTls();
		User::Panic(KEstlibInit, err);
		}

	void* sysIf=0;

	CProcessSystemInterface* pSysIf=new CProcessSystemInterface;
	if (pSysIf && pSysIf->Connect()==KErrNone)
		{
		sysIf=pSysIf;
		}
	else
		{
		delete pSysIf;
		pSysIf = 0;

		CTrapCleanup *cleanup = NULL;
		if(User::TrapHandler() == NULL)
			{
			cleanup = CTrapCleanup::New();
			if(cleanup != NULL)
		        {
				//use static_cast to perform the valid conversion from CLocalSystemInterface to base class MSystemInterface
				TRAP(err, sysIf = static_cast<MSystemInterface*> (CLocalSystemInterface::NewL()));
		        }
		    else
		    	{
				err = KErrNoMemory;
				}
	    	delete cleanup;
			}
		else
			{
			//use static_cast to perform the valid conversion from CLocalSystemInterface to base class MSystemInterface
			TRAP(err, sysIf = static_cast<MSystemInterface*> (CLocalSystemInterface::NewL()));
			}
		}

	if (err != KErrNone)
		{
	    delete p;
	    p = 0;
		Dll::FreeTls();
		User::Panic(KEstlibInit, err);
		}

	Mem::FillZ(p,sizeof(struct _reent));
	_init_reent(p,sysIf);

	return p;
	}

/**
This is a panic free version of ImpurePtr. It allocates memory for the library globals
struct and returns a pointer to it. If the memory has been allocated previously then it
simply returns a pointer to the memory.
If there is not enough memory available to set up the library globals or other error occurs,
a NULL pointer will be returned.

@return On Success, a pointer to the memory containing the library globals.
		On Failure, a NULL pointer.
*/
EXPORT_C struct _reent * ImpurePtr2(void)
	{
	struct _reent* p = (struct _reent*)Dll::Tls();
	if (p)
		return p; // Memory is already allocated for the library globals.

	// First use, so construct the default struct _reent and the associated SystemInterface
	p =(struct _reent*)User::Alloc(sizeof(struct _reent));
	if (p== 0)
		return p ; // NULL

	if (Dll::SetTls(p))
		{
		delete p;
		p = 0;
		Dll::FreeTls();
		return p; // NULL
		}

	void* sysIf=0;
	CProcessSystemInterface* pSysIf=new CProcessSystemInterface;
	if (pSysIf && pSysIf->Connect()==KErrNone)
		{
		sysIf=pSysIf;
		}
	else
		{
		TInt err=KErrNone;
		delete pSysIf;
		pSysIf = 0;

		CTrapCleanup *cleanup = NULL;
		if(User::TrapHandler() == NULL)
			{
			cleanup = CTrapCleanup::New();
			if(cleanup != NULL)
		        {
				//use static_cast to perform the valid conversion from CLocalSystemInterface to base class MSystemInterface
				TRAP(err, sysIf = static_cast<MSystemInterface*> (CLocalSystemInterface::NewL()));
		        }
	    	delete cleanup;
			}
		else
			{
			//use static_cast to perform the valid conversion from CLocalSystemInterface to base class MSystemInterface
			TRAP(err, sysIf = static_cast<MSystemInterface*> (CLocalSystemInterface::NewL()));
			}
		}

	if (!sysIf)
		{
		delete p;
		p = 0;
		Dll::FreeTls();
		return p; // NULL
		}

	Mem::FillZ(p,sizeof(struct _reent));
	_init_reent(p,sysIf);

	return p; // Library globals have been set up correctly.
	}


EXPORT_C int *__errno(void)
	{
	return &(ImpurePtr()->_errno);
	}

EXPORT_C void _exit (int status) _ATTRIBUTE((noreturn))
	{
	struct _reent* p=(struct _reent*)Dll::Tls();
	if (p)
		{
		MSystemInterface& sysIf=Interface(p);
		sysIf.TerminateProcess(status);
		}
	RProcess().Terminate(status);	// just in case
	}

} // extern "C"

#ifndef EKA2
GLDEF_C TInt E32Dll(TDllReason)
//
// DLL entry point
//
	{

	return KErrNone;
	}
#endif