// Copyright (c) 2010 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

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

// e32test\dll\t_nestdll.cpp

// 

//

#include <e32std.h>

#include <e32debug.h>

#include <e32svr.h>

// Utility macros for stringification, long-stringification, and token pasting

// These are indirected so that if you call them on things which are also macros,

// the macros are expanded first.

#define STRINGIFY_(x) #x

#define STRINGIFY(x) STRINGIFY_(x)

#define LSTRINGIFY_(x) L ## #x

#define LSTRINGIFY(x) LSTRINGIFY_(x)

#define PASTE_(x,y) x ## y

#define PASTE(x,y) PASTE_(x,y)

// Declare the imported functions for the DLLs we statically link to

#ifdef LINK_TO

IMPORT_C TInt PASTE(DataForDLL,LINK_TO)();

#endif

// Dummy class just to get a constructor into the binary

class ConstructorTest

	{

public:

	ConstructorTest();

	};

// Constructor, which should be called exactly once per DLL

ConstructorTest::ConstructorTest()

	{

	RDebug::Printf("In constructor for DLL " STRINGIFY(DLL_NUMBER));

	// Call the imported functions for the DLL we statically link to.

	// This is just to get them into the import table.

#ifdef LINK_TO

	PASTE(DataForDLL,LINK_TO)();

#endif

	// Use DLL TLS handle zero to fake a global data object

	TInt* loadOrder = (TInt*)UserSvr::DllTls(0);

	if (!loadOrder)

		{

		// If we're the first constructor, allocate an array and zero it

		loadOrder = new TInt[100];

		for (TInt i = 0; i < 100; ++i)

			loadOrder[i] = 0;

		UserSvr::DllSetTls(0, loadOrder);

		}

	// Find the first zero entry in the load order array and add our index

	TInt next = 0;

	while (loadOrder[next] != 0)

		++next;

	loadOrder[next] = DLL_NUMBER;

	// If we're supposed to be doing a nested DLL load, do it here.

	// You aren't supposed to leave in a constructor but it causes an

	// identifiable panic, to distinguish it from any other possible crash.

#ifdef LOAD_DLL

	RDebug::Printf("Doing nested DLL load");

	RLibrary lib;

	TInt r = lib.Load(TPtrC16((const TText*)(L"t_nestdll" LSTRINGIFY(LOAD_DLL) L".dll")));

	RDebug::Printf("Nested DLL load returned %d", r);

	User::LeaveIfError(r);

#endif

	}

// Global instance of the dummy object

ConstructorTest constructor_test;

// The exported function for this DLL, which just tells you how many times the constructor was called

EXPORT_C TInt PASTE(DataForDLL,DLL_NUMBER)()

	{

	return 0;

	}