/*

* Copyright (c) 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 Files  

#include "piprofilertest.h"

#include <e32base.h>

#include <e32std.h>

#include <e32cons.h>			// Console

#include <e32debug.h>

#include "rtestsampler.h"

//  Constants

_LIT(KTextConsoleTitle, "Console");

_LIT(KTextFailed, " failed, leave code = %d");

_LIT(KTextPressAnyKey, " [press any key]\n");

//  Global Variables

LOCAL_D CConsoleBase* console; // write all messages to this

//  Local Functions

LOCAL_C void MainL()

    {

    //

    // add your program code here, example code below

    //

    //console->Write(_L("Hello, world!\n"));

    RDebug::Printf("hallo welt\n");

    //LoadProfilerLDD();

    RDebug::Printf("hallo ldd\n");

    LoadProfilerDLL();

    RDebug::Printf("hallo2\n");

    }

LOCAL_C void DoStartL()

    {

    // Create active scheduler (to run active objects)

    CActiveScheduler* scheduler = new (ELeave) CActiveScheduler();

    CleanupStack::PushL(scheduler);

    CActiveScheduler::Install(scheduler);

    MainL();

    // Delete active scheduler

    CleanupStack::PopAndDestroy(scheduler);

    }

//  Global Functions

GLDEF_C TInt E32Main()

    {

    // Create cleanup stack

    __UHEAP_MARK;

    CTrapCleanup* cleanup = CTrapCleanup::New();

    // Create output console

//    TRAPD(createError, console = Console::NewL(KTextConsoleTitle, TSize(

//            KConsFullScreen, KConsFullScreen)));

//    if (createError)

//        {

//        delete cleanup;

//        return createError;

//        }

    // Run application code inside TRAP harness, wait keypress when terminated

    TRAPD(mainError, DoStartL());

    if (mainError)

//        console->Printf(KTextFailed, mainError);

//    console->Printf(KTextPressAnyKey);

//    console->Getch();

//    delete console;

    delete cleanup;

    __UHEAP_MARKEND;

    return KErrNone;

    }

LOCAL_C TInt LoadProfilerLDD()

   {

    RDebug::Printf("LoadProfilerLDD >");

    TInt err;        

    _LIT(KPluginSamplerName,"PIProfilerGeneralsSampler");

    err = User::LoadLogicalDevice(KPluginSamplerName);

    RDebug::Printf("Err2 : %d", err);

    if(err == KErrAlreadyExists)

        {

        err = User::FreeLogicalDevice(KPluginSamplerName);

        RDebug::Printf("Err2.1 : %d", err);

        err = User::LoadLogicalDevice(KPluginSamplerName);

        RDebug::Printf("Err2.2 : %d", err);

        }

    RtestSampler aGeneralsSampler;

    err = aGeneralsSampler.Open();

    RDebug::Printf("Err3 : %d", err);

    if(err = KErrNone)

        {

        RDebug::Printf("test - Could not open sampler device: %d", err);

        // Sets test case result and description(Maximum size is KStifMaxResultDes)

        _LIT( KDescription, "Could not open sampler device" );

        //aResult.SetResult( KErrNone, KDescription );

        }

    // Case was executed

    err = User::FreeLogicalDevice(KPluginSamplerName);

    RDebug::Printf("Err4 : %d", err);

    RDebug::Printf("LoadProfilerLDD <");

    return KErrNone;

   }

LOCAL_C TInt LoadProfilerDLL()

   {    

        RDebug::Printf("LoadProfilerDLL >");

        RLibrary lib;

        TInt err = lib.Load(_L("PIProfilerGenerals.dll"), _L("c:\\sys\\bin"));

        RDebug::Printf("Err0 : %d", err);

        const TInt KNewLOrdinal = 2;

        TLibraryFunction NewL =lib.Lookup(KNewLOrdinal);                

        RDebug::Printf("library.lookup returns 0x%x", NewL);

        CSamplerPluginInterface* mydll;

        //STF_ASSERT_LEAVES_WITH (KErrPermissionDenied, (mydll=(CSamplerPluginInterface*)NewL()));

        mydll=(CSamplerPluginInterface*)NewL();

        if( mydll )

            {

                // Sets test case result and description(Maximum size is KStifMaxResultDes)

                _LIT( KDescription, "mydll exists" );

                //aResult.SetResult( KErrAccessDenied, KDescription );

            }

        else

            {

                // Sets test case result and description(Maximum size is KStifMaxResultDes)

                _LIT( KDescription, "passed" );

                //aResult.SetResult( KErrNone, KDescription );

            }

        // Case was executed

        RDebug::Printf("LoadProfilerDLL <");

        return KErrNone;

   }