/**************************************************************
 * 
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 * 
 *   http://www.apache.org/licenses/LICENSE-2.0
 * 
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.
 * 
 *************************************************************/


// MARKER(update_precomp.py): autogen include statement, do not remove
#include "precompiled_stoc.hxx"
#include <rtl/alloc.h>
#include <osl/security.h>
#include <osl/thread.h>
#include <osl/mutex.hxx>
#include <cppuhelper/queryinterface.hxx>
#include <cppuhelper/weak.hxx>
#include <uno/mapping.hxx>


#include <cppuhelper/factory.hxx>
#include <cppuhelper/servicefactory.hxx>
#include <cppuhelper/implbase1.hxx>
#include <registry/registry.hxx>

#include <com/sun/star/registry/XSimpleRegistry.hpp>
#include <com/sun/star/lang/XMultiServiceFactory.hpp>
#include <com/sun/star/lang/XServiceInfo.hpp>
#include <com/sun/star/registry/XImplementationRegistration.hpp>
#include <com/sun/star/lang/XSingleServiceFactory.hpp>
#include <com/sun/star/lang/XComponent.hpp>
#include <com/sun/star/container/XContentEnumerationAccess.hpp>
#include <com/sun/star/container/XEnumerationAccess.hpp>
#include <com/sun/star/container/XEnumeration.hpp>

#if defined ( UNX )
#include <limits.h>
#define _MAX_PATH PATH_MAX
#endif


#if OSL_DEBUG_LEVEL > 0
#define TEST_ENSHURE(c, m)   OSL_ENSURE(c, m)
#else
#define TEST_ENSHURE(c, m)   OSL_VERIFY(c)
#endif


#define IMPLEMENTATION_NAME "com.sun.star.DummyService.V10"
#define SERVICE_NAME "com.sun.star.ts.TestManagerImpl"


using namespace com::sun::star::uno;
using namespace com::sun::star::registry;
using namespace com::sun::star::lang;
using namespace com::sun::star::container;
using namespace osl;
using namespace rtl;
using namespace cppu;


Reference<XMultiServiceFactory> getProcessServiceManager()
{
	Reference<XMultiServiceFactory > s_x;
	if (! s_x.is())
	{
		MutexGuard aGuard( Mutex::getGlobalMutex() );
		if (! s_x.is())
			s_x = createRegistryServiceFactory( OUString::createFromAscii( "stoctest.rdb" ), sal_False );
	}
	return s_x;
}

Reference< XMultiServiceFactory > createRegistryServiceManager( const OUString& registryName )
{
	return createRegistryServiceFactory( registryName );
}


/**********************************
* The service, that is used to test the Service manager
*
*
*
*************************************/
static sal_uInt32 nInstanceCount = 0;
class Test_Manager_Impl : public WeakImplHelper1< XServiceInfo >
{
public:
	Test_Manager_Impl(){ nInstanceCount++;}
	~Test_Manager_Impl();

	// XServiceInfo
	OUString 					SAL_CALL getImplementationName() throw();
    sal_Bool 					SAL_CALL supportsService(const OUString& ServiceName) throw();
    Sequence< OUString > 		SAL_CALL getSupportedServiceNames(void) throw();
    static Sequence< OUString >	SAL_CALL getSupportedServiceNames_Static(void) throw();

private:
//	static XIdlClassRef		getStaticIdlClass();
};

Test_Manager_Impl::~Test_Manager_Impl()
{
	nInstanceCount--;
}


// alt, wird von der neuen Mimic nicht mehr gebraucht
Reference< XInterface > SAL_CALL Test_Manager_Impl_CreateInstance_Impl()
{
	return (OWeakObject *)new Test_Manager_Impl();
}


//*************************************************************************
// Test_Manager_Impl_CreateInstance()
//
Reference < XInterface > SAL_CALL Test_Manager_Impl_CreateInstance(
	const Reference< XMultiServiceFactory > & /*rSMgr*/ ) throw (Exception)
{
	Reference < XInterface >  xService = (XWeak *)(OWeakObject *)new Test_Manager_Impl( );

	return xService;
}


//*************************************************************************
// Test_Manager_Impl::getImplementationName
//
OUString Test_Manager_Impl::getImplementationName() throw()
{
	return OUString::createFromAscii(IMPLEMENTATION_NAME);
}

//*************************************************************************
// Test_Manager_Impl::supportsService
//
sal_Bool Test_Manager_Impl::supportsService( const OUString& ServiceName ) throw()
{
	Sequence< OUString > aSNL = getSupportedServiceNames();
	const OUString * pArray = aSNL.getConstArray();
	for( sal_Int32 i = 0; i < aSNL.getLength(); i++ )
		if( pArray[i] == ServiceName )
			return sal_True;
	return sal_False;
}

//*************************************************************************
// Test_Manager_Impl::getSupportedServiceNames
//
Sequence< OUString > Test_Manager_Impl::getSupportedServiceNames(void) throw ()
{
	return getSupportedServiceNames_Static();
}

//*************************************************************************
// Test_Manager_Impl::getSupportedServiceNames_Static
//
Sequence< OUString > Test_Manager_Impl::getSupportedServiceNames_Static(void) throw ()
{
	Sequence< OUString > aSNS( 2 );
	aSNS.getArray()[0] = OUString::createFromAscii(SERVICE_NAME);
	aSNS.getArray()[1] = OUString::createFromAscii("com.sun.star.bridge.Bridge");
	return aSNS;
}


/****
*
*
*  This routine performs the test of the process service manager ( getProcessServiceManager is called )
*
*
*
****/

#include <stdio.h>

extern "C" void SAL_CALL test_ServiceManager()
{
#if ! defined SAL_DLLPREFIX
#define SAL_DLLPREFIX ""
#endif
 	OUString atUModule2 = OUString(
        RTL_CONSTASCII_USTRINGPARAM(
            SAL_DLLPREFIX "testsmgr_component" SAL_DLLEXTENSION ) );
    
	// expand shared library name
	OString  atModule2( OUStringToOString(atUModule2, RTL_TEXTENCODING_ASCII_US) );

	// get the process servicemanager
	Reference <XMultiServiceFactory>  xSMgr = getProcessServiceManager();

	TEST_ENSHURE( xSMgr.is() , "query on XServiceManager failed" );

	Reference<XContentEnumerationAccess> xContEnum(xSMgr, UNO_QUERY);
	TEST_ENSHURE( xContEnum.is() , "query on XContentEnumerationAccess failed" );
	Reference<XEnumeration > xEnum(xContEnum->createContentEnumeration(OUString::createFromAscii("com.sun.star.registry.SimpleRegistry")));
	TEST_ENSHURE( xEnum.is() , "createContentEnumeration failed" );
	sal_Int32 nLen = 0;
	while( xEnum->hasMoreElements() )
	{
		nLen++;
		xEnum->nextElement();
	}
	TEST_ENSHURE( nLen == 1, "more than one implementation for SimpleRegistry" );

	Reference<XEnumerationAccess> xImplEnum(xSMgr, UNO_QUERY);
	TEST_ENSHURE( xImplEnum.is() , "query on XEnumeration failed" );
	xEnum = Reference<XEnumeration >(xImplEnum->createEnumeration());
	TEST_ENSHURE( xEnum.is() , "createEnumeration failed" );
	nLen = 0;
	while( xEnum->hasMoreElements() )
	{
		nLen++;
		Reference< XServiceInfo > sf( xEnum->nextElement(), UNO_QUERY );
        OString str( OUStringToOString( sf->getImplementationName(), RTL_TEXTENCODING_ASCII_US ) );
        ::fprintf( stderr, "> implementation name: %s\n", str.getStr() );
	}
	TEST_ENSHURE( nLen == 8, "more than 6 factories" );

	// try to get an instance for a unknown service
	TEST_ENSHURE( !xSMgr->createInstance(OUString::createFromAscii("bla.blup.Q")).is(), "unknown service provider found" );

	//
	// First test : register service via the internal function of the component itself
	//
	{
		Reference< XImplementationRegistration >
			xInst( xSMgr->createInstance(OUString::createFromAscii("com.sun.star.registry.ImplementationRegistration")), UNO_QUERY );
		TEST_ENSHURE( xInst.is(), "no ImplementationRegistration" );

		try	{
			// register the services via writeComponentRegInfo (see at end of this file)
			xInst->registerImplementation(OUString::createFromAscii("com.sun.star.loader.SharedLibrary"), atUModule2, Reference< XSimpleRegistry >() );
		}
		catch( CannotRegisterImplementationException e ) {
			TEST_ENSHURE( 0, "register implementation failed" );
		}

		// getImplementations() check
 		Sequence<OUString> seqImpl = xInst->getImplementations(OUString::createFromAscii("com.sun.star.loader.SharedLibrary"), atUModule2);
		TEST_ENSHURE( seqImpl.getLength() == 1, "count of implementantions is wrong" );
		TEST_ENSHURE( seqImpl.getConstArray()[0] == OUString::createFromAscii("com.sun.star.DummyService.V10"), "implementation name is not equal" );


		// tests, if a service provider can be instantiated.

		Reference< XInterface > xIFace(xSMgr->createInstance(OUString::createFromAscii("com.sun.star.ts.TestManagerImpl")));
		TEST_ENSHURE( xIFace.is(), "loadable service not found" );

		// remove the service
		TEST_ENSHURE( 	xInst->revokeImplementation(atUModule2, Reference< XSimpleRegistry > ()),
						"revoke implementation failed" );
	}


//	Reference < XSimpleRegistry > xSReg(  xSMgr->createInstance(OUString::createFromAscii("com::sun::star.uno.repos.SimpleRegistry")), UNO_QUERY );
//	TEST_ENSHURE( xSReg.is() , "Simple registry couldn't be instantiated" );

//	xSReg->open(OUString::createFromAscii("dummy.reg"), sal_False, sal_True);
//	xSReg->close();

	// laut dbo : C-API muss nicht mehr unterstuezt werden
	//TEST_ENSHURE( registerExternService(atModule, "dummy.reg"), "install failed" );
	//TEST_ENSHURE( deregisterExternService(atModule, "dummy.reg"), "deinstall failed" );


//	UNO_INTERFACE(XMultiServiceFactory) xUnoSMgr = {0,0};
//	smart2uno(xSMgr, xUnoSMgr);

//	TEST_ENSHURE(registerExternImplementation(xUnoSMgr, "com::sun::star.loader.SharedLibrary", atModule2, "dummy.reg"), "install failed" );
//	TEST_ENSHURE(revokeExternImplementation(xUnoSMgr, atModule2, "dummy.reg"), "deinstall failed" );

//	TEST_ENSHURE(registerExternImplementation(xUnoSMgr, "com::sun::star.loader.SharedLibrary", atModule2, "dummy2.reg"), "install failed" );

//TODO : Java loader test
//	String testUrl(getTestJarUrl());
//	TEST_ENSHURE(registerExternImplementation(xUnoSMgr, "com::sun::star.loader.Java", testUrl, "dummy.reg"), "install failed" );
//	TEST_ENSHURE(revokeExternImplementation(xUnoSMgr, testUrl, "dummy.reg"), "deinstall failed" );

//	if (!UNO_isNull((UNO_Ifc*)&xUnoSMgr))
//		xUnoSMgr.m_pVmt->release(xUnoSMgr.m_pCtx);

//	xSReg->open(OUString::createFromAscii("dummy.reg"), sal_True, sal_False);
//	TEST_ENSHURE(!xSReg->getRootKey()->openKey(OUString::createFromAscii("/SERVICES/com::sun::star/ts/TestManagerImpl/URL")).is(),
//				"deinstall failed" );

//	xSReg->close();

//	xSReg->open(OUString::createFromAscii("dummy.reg"), sal_False, sal_False);
//	xSReg->destroy();
//	xSReg->open(OUString::createFromAscii("dummy2.reg"), sal_False, sal_False);
//	xSReg->destroy();


	// Test initialisieren
/*
	XServiceProviderRef xSiSP1 = createSimpleServiceProvider( OUString::createFromAscii("com::sun::star.usr.Test_Manager_Impl1"), Test_Manager_Impl_getReflection );
	XServiceProviderRef xSiSP11 = createSimpleServiceProvider( OUString::createFromAscii("com::sun::star.usr.Test_Manager_Impl1"), Test_Manager_Impl_getReflection );
	XServiceProviderRef xSiSP2 = createSimpleServiceProvider( OUString::createFromAscii("com::sun::star.usr.Test_Manager_Impl2"), Test_Manager_Impl_getReflection );
*/
/*
	// second test
	// create XServiceProvider via createSingleFactory and write them directly into the registry
	// For this is needed a sequence of supported servicenames and a createComponent function pointer
	{
		Reference< XServiceProvider > xSiSP1(createSingleFactory(
			xSMgr,
			OUString::createFromAscii("com::sun::star.usr.Test_Manager_Impl1),
			Test_Manager_Impl_CreateInstance,
			Test_Manager_Impl::getSupportedServiceNames_Static() ), UNO_QUERY);
		Reference< XServiceProvider > xSiSP11(createSingleFactory(
			xSMgr,
			OUString::createFromAscii("com::sun::star.usr.Test_Manager_Impl1"),
			Test_Manager_Impl_CreateInstance,
			Test_Manager_Impl::getSupportedServiceNames_Static() ),UNO_QUERY);
		Reference< XServiceProvider > xSiSP2(createSingleFactory(
			xSMgr,
			L"com::sun::star.usr.Test_Manager_Impl2",
			Test_Manager_Impl_CreateInstance,
			Test_Manager_Impl::getSupportedServiceNames_Static() ), UNO_QUERY);

		// put the service providers into the registry
		xReg->registerServiceProvider( L"com::sun::star.test.TestManager1", xSiSP1 );
		xReg->registerServiceProvider( L"com::sun::star.test.TestManager1", xSiSP11 );
		xReg->registerServiceProvider( L"com::sun::star.test.TestManager2", xSiSP2 );

		// TestManager1
		Reference< XServiceProvider > xProv = xSMgr->queryServiceProvider( L"com::sun::star.test.TestManager1");
		Reference< XSingleServiceFactory > xFact( xProv, UNO_QUERY );
		TEST_ENSHURE( xFact.is(), "Service com::sun::star.test.TestManager1 not found" );

		Reference< XInterface > xTest1 = xFact->createInstance();
		TEST_ENSHURE( nInstanceCount == 1, "wrong service instanciated" );

		// TestManager2
		xProv = xSMgr->queryServiceProvider( L"com::sun::star.test.TestManager2");
		xFact = Reference < XSingleServiceFactory > ( xProv , UNO_QUERY );
		TEST_ENSHURE( xFact.is(), "Service com::sun::star.test.TestManager2 not found" );

		Reference < XInterface > xTest2 = xFact->createInstance();
		TEST_ENSHURE( nInstanceCount == 2, "wrong service instanciated" );

		xTest1 = Reference< XInterface >();
		xTest2 = Reference< XInterface >();
		TEST_ENSHURE( nInstanceCount == 0, "wrong service deleted" );

		Reference< XEnumeration > xEnum = xSMgr->createProviderEnumeration( L"com::sun::star.test.TestManager1");
		TEST_ENSHURE( xEnum.is() , "no provider enumeration" );

		sal_Int32 nSPTestManagerImplLen2 = 0;

		while (xEnum.is() && xEnum->hasMoreElements())
		{
			nSPTestManagerImplLen2++;
			xEnum->nextElement();

		}
		TEST_ENSHURE( nSPTestManagerImplLen2 == 2, "queryServiceProviders() wrong length" );

		sal_Int32 nCount = 0;
		xEnum = xSMgr->createProviderEnumeration( L"com::sun::star.test.TestManager1");
		while (xEnum->hasMoreElements())
		{
			Reference< XServiceProvider > xProv;
			xEnum->nextElement() >>= xProv;
			if (xProv == xSiSP1 || xProv == xSiSP11)
				nCount++;
		}

		TEST_ENSHURE( nCount == 2 , "not all com::sun::star.testimpl.TestManagerImpl registered" );
*/
/*
	{
		Reference< XMultiServiceFactory > xTestManager(createRegistryServiceManager(L"testmanager.rdb"));
		TEST_ENSHURE( xTestManager.is(), "create Test ServiceManager failed!" );
	}
*/
	Reference<XComponent> xComp(xSMgr, UNO_QUERY);
	xComp->dispose();

	xComp.clear();
	xSMgr.clear();
}


extern "C"
{
//==================================================================================================
void SAL_CALL component_getImplementationEnvironment(
	const sal_Char ** ppEnvTypeName, uno_Environment ** /*ppEnv*/ )
{
	*ppEnvTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME;
}
//==================================================================================================
sal_Bool SAL_CALL component_writeInfo(
	void * /*pServiceManager*/, void * pRegistryKey )
{
	if (pRegistryKey)
	{
		try
		{
			Reference< XRegistryKey > xNewKey(
				reinterpret_cast< XRegistryKey * >( pRegistryKey )->createKey(
					OUString( RTL_CONSTASCII_USTRINGPARAM("/" IMPLEMENTATION_NAME "/UNO/SERVICES") ) ) );

			const Sequence< OUString > & rSNL =
				Test_Manager_Impl::getSupportedServiceNames_Static();
			const OUString * pArray = rSNL.getConstArray();
			for ( sal_Int32 nPos = rSNL.getLength(); nPos--; )
				xNewKey->createKey( pArray[nPos] );

			return sal_True;
		}
		catch (InvalidRegistryException &)
		{
			OSL_ENSURE( sal_False, "### InvalidRegistryException!" );
		}
	}
	return sal_False;
}
//==================================================================================================
void * SAL_CALL component_getFactory(
	const sal_Char * pImplName, void * pServiceManager, void * /*pRegistryKey*/ )
{
	void * pRet = 0;

	if (rtl_str_compare( pImplName, IMPLEMENTATION_NAME ) == 0)
	{
		Reference< XSingleServiceFactory > xFactory( createSingleFactory(
			reinterpret_cast< XMultiServiceFactory * >( pServiceManager ),
			OUString( RTL_CONSTASCII_USTRINGPARAM(IMPLEMENTATION_NAME) ),
			Test_Manager_Impl_CreateInstance,
			Test_Manager_Impl::getSupportedServiceNames_Static() ) );

		if (xFactory.is())
		{
			xFactory->acquire();
			pRet = xFactory.get();
		}
	}

	return pRet;
}
}