//
//**************************************************************************
// 
// BOleCMan.cpp -- Declares an IBClassMgr "factory" which can create Bolero
//                 helper objects. 
//
//                 Since callers of BOleClassManager don't have the class 
//                 definition, they can't call operator new to create a
//                 helper object.
//
//                 BOleClassMgr has a pointer to the service, so you need a
//                 BOleClassMgr for every Bolero connection you maintain.
//
// Copyright (c) 1993,94 by Borland International, Inc. All rights reserved
//
//**************************************************************************

#include "BOleCMan.h"
#include "BOleSvc.h"
#include "BOleDoc.h"
#include "BOleIPS.h"
#include "BOleSite.h"
#include "BOleCont.h"
#include "BOleData.h"
#include "BOleFact.h"

HRESULT _IFUNC BOleClassManager::QueryInterfaceMain(REFIID iid, LPVOID FAR *ppv)
{
	HRESULT hr = ResultFromScode(E_NOINTERFACE);
	*ppv = NULL;
	
	// interfaces
	SUCCEEDED(hr = IBClassMgr_QueryInterface(this, iid, ppv))

	// base classes	
	|| SUCCEEDED(hr = BOleComponent::QueryInterfaceMain(iid, ppv))

	// helpers
	;
		
	return hr;
}


BOleClassManager::BOleClassManager(IBUnknownMain *pObj) :
	pSvc (NULLP), BOleComponent(this, pObj)
{
	nServerCount = 0;
}

//

BOleClassManager::~BOleClassManager()
{
	if (pSvc != NULLP) {
		pSvc->ReleaseMain();
		pSvc = NULLP;
	}

	OLE::OleUninitialize (); // Req'd to free OLE2's clipboard window
}

int _IFUNC BOleClassManager::ServerCount (int nDelta)
{
	nServerCount += nDelta;
	if (nServerCount == 0) {
		if (pSvc && (nDelta != 0))
			// call ShutdownMaybe on TRANSITION to 0
			(pSvc->GetApplication())->ShutdownMaybe();
	}
	return nServerCount;
}

HRESULT _IFUNC BOleClassManager::ComponentCreate( PIUnknown FAR * ppObj, PIUnknown pO, BCID cid)
{
	*ppObj = NULL;
	PIBUnknownMain pOuter = AsPIUnknownMain(pO);
	
	switch (cid) {
		case cidBOleService:
			{
				if (pSvc != NULLP)
					pSvc->ReleaseMain();	// ref count on helper (not aggregator)
				pSvc = new BOleService(this, pOuter);
				*ppObj = AsPIUnknown(pSvc);
				if (pSvc != NULLP)
					pSvc->AddRefMain();
				break;
			}
		case cidBOleDocument:
			{
				if (pSvc != NULLP)
					*ppObj = AsPIUnknown(new BOleDocument(this, pOuter, pSvc));
				break;
			}
		case cidBOleContainer:
			{
				*ppObj = AsPIUnknown(new BOleContainer(this, pOuter));
				break;
			}
		case cidBOlePart:
			{
				if (pSvc != NULLP)
					*ppObj = AsPIUnknown(new BOlePart(this, pOuter, pSvc->pActiveDoc));
				break;
			}
		case cidBOleSite:
			{
				*ppObj = AsPIUnknown(new BOleSite(this, pOuter, pSvc));
				break;
			}
		case cidBOleInProcSite:
			{
				*ppObj = AsPIUnknown(new BOleInProcServer(this, pOuter, pSvc));
				break;
			}
		case cidBOleInProcHandler:
			{
				*ppObj = AsPIUnknown(new BOleInProcHandler(this, pOuter, pSvc));
				break;
			}
		case cidBOleData:
			*ppObj = AsPIUnknown (new BOleData(this, pOuter));
			break;

		case cidBOleFactory:
			// not aggregated directly by clients
			// we create one on the clients behalf in IService::RegisterClass
			// and release it in IService::UnregisterClass
			{
				*ppObj = AsPIUnknown (new BOleFact(this, pOuter));
				break;
			}
	}
	return (*ppObj) ? NOERROR : ResultFromScode (E_FAIL);
}

// CreateClassMgr -- This is the way to initiate a connection with Bolero.
//                   To help us be version-resilient, it's the only exported
//                   function which is visible to Bolero customers
//
extern "C"

HRESULT PASCAL FAR _export _loadds CreateClassMgr (
	PIUnknown FAR *pCM,
	PIUnknown pOuter,
	IMalloc FAR *pMalloc)
{
	OLE::OleInitialize(pMalloc);
	*pCM = new BOleClassManager (AsPIUnknownMain(pOuter));
	return (*pCM) ?NOERROR:ResultFromScode(E_OUTOFMEMORY);
}