localconnectivityservice/locod/tsrc/locodTest/src/daemonmtCases.cpp
author hgs
Thu, 04 Nov 2010 15:31:42 +0800
changeset 60 841f70763fbe
permissions -rw-r--r--
201044_04
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
60
841f70763fbe 201044_04
hgs
parents:
diff changeset
     1
/*
841f70763fbe 201044_04
hgs
parents:
diff changeset
     2
* Copyright (c) 2002 Nokia Corporation and/or its subsidiary(-ies).
841f70763fbe 201044_04
hgs
parents:
diff changeset
     3
* All rights reserved.
841f70763fbe 201044_04
hgs
parents:
diff changeset
     4
* This component and the accompanying materials are made available
841f70763fbe 201044_04
hgs
parents:
diff changeset
     5
* under the terms of "Eclipse Public License v1.0"
841f70763fbe 201044_04
hgs
parents:
diff changeset
     6
* which accompanies this distribution, and is available
841f70763fbe 201044_04
hgs
parents:
diff changeset
     7
* at the URL "http://www.eclipse.org/legal/epl-v10.html".
841f70763fbe 201044_04
hgs
parents:
diff changeset
     8
*
841f70763fbe 201044_04
hgs
parents:
diff changeset
     9
* Initial Contributors:
841f70763fbe 201044_04
hgs
parents:
diff changeset
    10
* Nokia Corporation - initial contribution.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    11
*
841f70763fbe 201044_04
hgs
parents:
diff changeset
    12
* Contributors:
841f70763fbe 201044_04
hgs
parents:
diff changeset
    13
*
841f70763fbe 201044_04
hgs
parents:
diff changeset
    14
* Description:  ?Description
841f70763fbe 201044_04
hgs
parents:
diff changeset
    15
*
841f70763fbe 201044_04
hgs
parents:
diff changeset
    16
*/
841f70763fbe 201044_04
hgs
parents:
diff changeset
    17
841f70763fbe 201044_04
hgs
parents:
diff changeset
    18
841f70763fbe 201044_04
hgs
parents:
diff changeset
    19
841f70763fbe 201044_04
hgs
parents:
diff changeset
    20
// INCLUDE FILES
841f70763fbe 201044_04
hgs
parents:
diff changeset
    21
#include <e32math.h>
841f70763fbe 201044_04
hgs
parents:
diff changeset
    22
#include <StartupDomainPSKeys.h>
841f70763fbe 201044_04
hgs
parents:
diff changeset
    23
#include "daemonmt.h"
841f70763fbe 201044_04
hgs
parents:
diff changeset
    24
841f70763fbe 201044_04
hgs
parents:
diff changeset
    25
841f70763fbe 201044_04
hgs
parents:
diff changeset
    26
841f70763fbe 201044_04
hgs
parents:
diff changeset
    27
// ============================ MEMBER FUNCTIONS ===============================
841f70763fbe 201044_04
hgs
parents:
diff changeset
    28
841f70763fbe 201044_04
hgs
parents:
diff changeset
    29
// -----------------------------------------------------------------------------
841f70763fbe 201044_04
hgs
parents:
diff changeset
    30
// Cdaemonmt::Case
841f70763fbe 201044_04
hgs
parents:
diff changeset
    31
// Returns a test case by number.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    32
//
841f70763fbe 201044_04
hgs
parents:
diff changeset
    33
// This function contains an array of all available test cases 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    34
// i.e pair of case name and test function. If case specified by parameter
841f70763fbe 201044_04
hgs
parents:
diff changeset
    35
// aCaseNumber is found from array, then that item is returned.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    36
// 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    37
// The reason for this rather complicated function is to specify all the
841f70763fbe 201044_04
hgs
parents:
diff changeset
    38
// test cases only in one place. It is not necessary to understand how
841f70763fbe 201044_04
hgs
parents:
diff changeset
    39
// function pointers to class member functions works when adding new test
841f70763fbe 201044_04
hgs
parents:
diff changeset
    40
// cases. See function body for instructions how to add new test case.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    41
// -----------------------------------------------------------------------------
841f70763fbe 201044_04
hgs
parents:
diff changeset
    42
//
841f70763fbe 201044_04
hgs
parents:
diff changeset
    43
const TCaseInfo Cdaemonmt::Case ( 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    44
    const TInt aCaseNumber ) const 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    45
     {
841f70763fbe 201044_04
hgs
parents:
diff changeset
    46
841f70763fbe 201044_04
hgs
parents:
diff changeset
    47
    /**
841f70763fbe 201044_04
hgs
parents:
diff changeset
    48
    * To add new test cases, implement new test case function and add new 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    49
    * line to KCases array specify the name of the case and the function 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    50
    * doing the test case
841f70763fbe 201044_04
hgs
parents:
diff changeset
    51
    * In practice, do following
841f70763fbe 201044_04
hgs
parents:
diff changeset
    52
    * 1) Make copy of existing test case function and change its name
841f70763fbe 201044_04
hgs
parents:
diff changeset
    53
    *    and functionality. Note that the function must be added to 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    54
    *    daemonmt.cpp file and to daemonmt.h 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    55
    *    header file.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    56
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    57
    * 2) Add entry to following KCases array either by using:
841f70763fbe 201044_04
hgs
parents:
diff changeset
    58
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    59
    * 2.1: FUNCENTRY or ENTRY macro
841f70763fbe 201044_04
hgs
parents:
diff changeset
    60
    * ENTRY macro takes two parameters: test case name and test case 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    61
    * function name.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    62
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    63
    * FUNCENTRY macro takes only test case function name as a parameter and
841f70763fbe 201044_04
hgs
parents:
diff changeset
    64
    * uses that as a test case name and test case function name.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    65
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    66
    * Or
841f70763fbe 201044_04
hgs
parents:
diff changeset
    67
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    68
    * 2.2: OOM_FUNCENTRY or OOM_ENTRY macro. Note that these macros are used
841f70763fbe 201044_04
hgs
parents:
diff changeset
    69
    * only with OOM (Out-Of-Memory) testing!
841f70763fbe 201044_04
hgs
parents:
diff changeset
    70
    *
841f70763fbe 201044_04
hgs
parents:
diff changeset
    71
    * OOM_ENTRY macro takes five parameters: test case name, test case 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    72
    * function name, TBool which specifies is method supposed to be run using
841f70763fbe 201044_04
hgs
parents:
diff changeset
    73
    * OOM conditions, TInt value for first heap memory allocation failure and 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    74
    * TInt value for last heap memory allocation failure.
841f70763fbe 201044_04
hgs
parents:
diff changeset
    75
    * 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    76
    * OOM_FUNCENTRY macro takes test case function name as a parameter and uses
841f70763fbe 201044_04
hgs
parents:
diff changeset
    77
    * that as a test case name, TBool which specifies is method supposed to be
841f70763fbe 201044_04
hgs
parents:
diff changeset
    78
    * run using OOM conditions, TInt value for first heap memory allocation 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    79
    * failure and TInt value for last heap memory allocation failure. 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    80
    */ 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    81
841f70763fbe 201044_04
hgs
parents:
diff changeset
    82
    static TCaseInfoInternal const KCases[] =
841f70763fbe 201044_04
hgs
parents:
diff changeset
    83
        {
841f70763fbe 201044_04
hgs
parents:
diff changeset
    84
        // To add new test cases, add new items to this array
841f70763fbe 201044_04
hgs
parents:
diff changeset
    85
        ENTRY( "StartDaemon test", Cdaemonmt::StartDaemon )
841f70763fbe 201044_04
hgs
parents:
diff changeset
    86
        };
841f70763fbe 201044_04
hgs
parents:
diff changeset
    87
841f70763fbe 201044_04
hgs
parents:
diff changeset
    88
    // Verify that case number is valid
841f70763fbe 201044_04
hgs
parents:
diff changeset
    89
    if( (TUint) aCaseNumber >= sizeof( KCases ) / 
841f70763fbe 201044_04
hgs
parents:
diff changeset
    90
                               sizeof( TCaseInfoInternal ) )
841f70763fbe 201044_04
hgs
parents:
diff changeset
    91
        {
841f70763fbe 201044_04
hgs
parents:
diff changeset
    92
        // Invalid case, construct empty object
841f70763fbe 201044_04
hgs
parents:
diff changeset
    93
        TCaseInfo null( (const TText*) L"" );
841f70763fbe 201044_04
hgs
parents:
diff changeset
    94
        null.iMethod = NULL;
841f70763fbe 201044_04
hgs
parents:
diff changeset
    95
        null.iIsOOMTest = EFalse;
841f70763fbe 201044_04
hgs
parents:
diff changeset
    96
        null.iFirstMemoryAllocation = 0;
841f70763fbe 201044_04
hgs
parents:
diff changeset
    97
        null.iLastMemoryAllocation = 0;
841f70763fbe 201044_04
hgs
parents:
diff changeset
    98
        return null;
841f70763fbe 201044_04
hgs
parents:
diff changeset
    99
        } 
841f70763fbe 201044_04
hgs
parents:
diff changeset
   100
841f70763fbe 201044_04
hgs
parents:
diff changeset
   101
    // Construct TCaseInfo object and return it
841f70763fbe 201044_04
hgs
parents:
diff changeset
   102
    TCaseInfo tmp ( KCases[ aCaseNumber ].iCaseName );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   103
    tmp.iMethod = KCases[ aCaseNumber ].iMethod;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   104
    tmp.iIsOOMTest = KCases[ aCaseNumber ].iIsOOMTest;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   105
    tmp.iFirstMemoryAllocation = KCases[ aCaseNumber ].iFirstMemoryAllocation;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   106
    tmp.iLastMemoryAllocation = KCases[ aCaseNumber ].iLastMemoryAllocation;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   107
    return tmp;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   108
    }
841f70763fbe 201044_04
hgs
parents:
diff changeset
   109
841f70763fbe 201044_04
hgs
parents:
diff changeset
   110
841f70763fbe 201044_04
hgs
parents:
diff changeset
   111
TInt Cdaemonmt::StartDaemon( TTestResult& aResult )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   112
	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   113
	iBtSettings = CBtSettings::NewL();
841f70763fbe 201044_04
hgs
parents:
diff changeset
   114
	iLog->Log( _L( "Starting test and setting BT Power ON" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   115
	TInt error = iBtSettings->SetPowerState( EBTPowerOn );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   116
	if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   117
		{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   118
		iLog->Log( _L( "Error %d when setting BT power state" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   119
		aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   120
		return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   121
		}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   122
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   123
    TInt systemState = KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   124
    error = iProperty.Get( KPSUidStartup, KPSGlobalSystemState, systemState );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   125
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   126
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   127
    	iLog->Log( _L( "Failed to get GlobalSystemState" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   128
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   129
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   130
    // Switching GlobalSystemState to ESwStateShuttingDown causes locod
841f70763fbe 201044_04
hgs
parents:
diff changeset
   131
    // not to load bearer plugins immediately after its starts.
841f70763fbe 201044_04
hgs
parents:
diff changeset
   132
    iLog->Log( _L( "Changing GlobalSystemState to ESwStateShuttingDown" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   133
    error = iProperty.Set( KPSUidStartup, KPSGlobalSystemState, ESwStateShuttingDown );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   134
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   135
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   136
    	iLog->Log( _L( "Failed to switch GlobalSystemState to ESwStateShuttingDown with error: %d" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   137
    	aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   138
    	return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   139
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   140
841f70763fbe 201044_04
hgs
parents:
diff changeset
   141
    _LIT(KDaemonExe, "locod.exe");
841f70763fbe 201044_04
hgs
parents:
diff changeset
   142
    // Starts Daemon in a new process.
841f70763fbe 201044_04
hgs
parents:
diff changeset
   143
    const TUidType exeUid(KNullUid, KNullUid, TUid::Uid(0x2000276D));
841f70763fbe 201044_04
hgs
parents:
diff changeset
   144
    RProcess daemon;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   145
    TInt r = daemon.Create(KDaemonExe, KNullDesC, exeUid);
841f70763fbe 201044_04
hgs
parents:
diff changeset
   146
    TBuf<256> err;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   147
    if (r != KErrNone)
841f70763fbe 201044_04
hgs
parents:
diff changeset
   148
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   149
    	_LIT( KDescription, "StartDaemon failed: daemon.Create() %d" );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   150
    	aResult.SetResult( r, KDescription );    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   151
    	err.Format( KDescription, r);
841f70763fbe 201044_04
hgs
parents:
diff changeset
   152
    	iLog->Log( err );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   153
    	return r;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   154
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   155
    daemon.Resume();
841f70763fbe 201044_04
hgs
parents:
diff changeset
   156
841f70763fbe 201044_04
hgs
parents:
diff changeset
   157
    // Switching GlobalSystemState to ESwStateNormalRfOn causes locod
841f70763fbe 201044_04
hgs
parents:
diff changeset
   158
    // to load bearer plugins.
841f70763fbe 201044_04
hgs
parents:
diff changeset
   159
    iLog->Log( _L( "Changing GlobalSystemState to ESwStateNormalRfOn" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   160
    error = iProperty.Set( KPSUidStartup, KPSGlobalSystemState, ESwStateNormalRfOn );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   161
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   162
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   163
    	iLog->Log( _L( "Failed to switch GlobalSystemState to ESwStateNormalRfOn with error: %d" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   164
    	aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   165
    	return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   166
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   167
841f70763fbe 201044_04
hgs
parents:
diff changeset
   168
    User::After( 2000000 );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   169
841f70763fbe 201044_04
hgs
parents:
diff changeset
   170
    // Switching GlobalSystemState to ESwStateShuttingDown causes locod
841f70763fbe 201044_04
hgs
parents:
diff changeset
   171
    // to unload bearer plugins.
841f70763fbe 201044_04
hgs
parents:
diff changeset
   172
    iLog->Log( _L( "Changing GlobalSystemState to ESwStateShuttingDown" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   173
    error = iProperty.Set( KPSUidStartup, KPSGlobalSystemState, ESwStateShuttingDown );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   174
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   175
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   176
    	iLog->Log( _L( "Failed to switch GlobalSystemState to ESwStateShuttingDown with error: %d" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   177
    	aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   178
    	return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   179
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   180
841f70763fbe 201044_04
hgs
parents:
diff changeset
   181
    User::After( 2000000 );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   182
    daemon.Close();
841f70763fbe 201044_04
hgs
parents:
diff changeset
   183
841f70763fbe 201044_04
hgs
parents:
diff changeset
   184
    // Switching GlobalSystemState to the state forom the start of the test to leave the LC stack
841f70763fbe 201044_04
hgs
parents:
diff changeset
   185
    // working after the test.
841f70763fbe 201044_04
hgs
parents:
diff changeset
   186
    if( systemState != KErrNone )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   187
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   188
    	iLog->Log( _L( "Changing GlobalSystemState to %d" ), systemState );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   189
    	error = iProperty.Set( KPSUidStartup, KPSGlobalSystemState, systemState );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   190
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   191
    else
841f70763fbe 201044_04
hgs
parents:
diff changeset
   192
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   193
    	iLog->Log( _L( "Changing GlobalSystemState to ESwStateNormalRfOn" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   194
    	error = iProperty.Set( KPSUidStartup, KPSGlobalSystemState, ESwStateNormalRfOn );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   195
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   196
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   197
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   198
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   199
    	iLog->Log( _L( "Failed to switch GlobalSystemState to ESwStateNormalRfOn with error: %d" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   200
    	aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   201
    	return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   202
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   203
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   204
    User::After( 2000000 );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   205
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   206
    iLog->Log( _L( "Ending test and setting BT Power ON" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   207
    error = iBtSettings->SetPowerState( EBTPowerOn );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   208
    if( error )
841f70763fbe 201044_04
hgs
parents:
diff changeset
   209
    	{
841f70763fbe 201044_04
hgs
parents:
diff changeset
   210
    	iLog->Log( _L( "Error %d when setting BT power state" ), error );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   211
    	aResult.SetResult( KErrGeneral, _L( "StartDaemon failed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   212
    	return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   213
    	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   214
841f70763fbe 201044_04
hgs
parents:
diff changeset
   215
    User::After( 2000000 );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   216
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   217
    delete iBtSettings;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   218
    iBtSettings = NULL;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   219
    
841f70763fbe 201044_04
hgs
parents:
diff changeset
   220
    aResult.SetResult( KErrNone, _L( "StartDaemon passed" ) );
841f70763fbe 201044_04
hgs
parents:
diff changeset
   221
    return KErrNone;
841f70763fbe 201044_04
hgs
parents:
diff changeset
   222
	}
841f70763fbe 201044_04
hgs
parents:
diff changeset
   223
841f70763fbe 201044_04
hgs
parents:
diff changeset
   224
//  End of File