// object.h : Declaration of the CObject

#ifndef __Object_H_
#define __Object_H_

#include "resource.h"       // main symbols

#include "property.h"
#include "guidedb.h"

class CObjectType;
class CObjectTypes;
class CObject;
class CObjectGlue;
class CObjects;
class CObjectPropertyBag;

/////////////////////////////////////////////////////////////////////////////
// CObjectType
class CObjectType
{
public:
	CObjectType()
	{
	m_fKnowCollectionCLSID = FALSE;
	}

	HRESULT CreateInstance(long id, IUnknown **ppobj);

	HRESULT Init(CGuideDB *pdb, long id, BSTR bstrCLSID)
	
		{
		CLSID clsid;

		HRESULT hr = CLSIDFromString(bstrCLSID, &clsid);
		if (hr == CO_E_CLASSSTRING)
			return E_INVALIDARG;
		
		return Init(pdb, id, clsid);
		}

	HRESULT Init(CGuideDB *pdb, long id, IID clsid)
		{
		m_pdb = pdb;
		m_id = id;
		m_clsid = clsid;
		return S_OK;
		}
	
	HRESULT GetDB(CGuideDB **ppdb);

public:
	STDMETHOD(get_NewCollection)(/*[out, retval]*/ IObjects * *ppobjs);
	STDMETHOD(get_New)(/*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_IID)(/*[out, retval]*/ BSTR *pVal);
	STDMETHOD(get_ID)(/*[out, retval]*/ long *pVal);

	friend CObject;
protected:
	CComPtr<CGuideDB> m_pdb;
	CLSID m_clsid;
	long m_id;
	boolean m_fKnowCollectionCLSID;
	CLSID m_clsidCollection;
};
	
/////////////////////////////////////////////////////////////////////////////
// CObjectTypes
class CObjectTypes
{
public:
	HRESULT Init(CGuideDB *pdb);

	CObjectType *Cache(long id, BSTR bstrCLSID);

public:
	STDMETHOD(get_AddNew)(BSTR bstrIID, /*[out, retval]*/ CObjectType * *pVal);
#if 0
	STDMETHOD(get_AddNew)(CLSID clsid, /*[out, retval]*/ CObjectType * *pVal);
#endif
	STDMETHOD(get_ItemWithCLSID)(BSTR bstrCLSID, /*[out, retval]*/ CObjectType * *pVal);
	// STDMETHOD(get_ItemWithCLSID)(CLSID clsid, /*[out, retval]*/ CObjectType * *pVal);

protected:
	CComPtr<CGuideDB> m_pdb;
	ADODB::_RecordsetPtr m_prsObjTypes;

	typedef MemCmpLess<CLSID> CLSIDLess;
	typedef map<CLSID, CObjectType *, CLSIDLess> t_map;
	t_map m_map;
};

/////////////////////////////////////////////////////////////////////////////
// CObject
class DECLSPEC_UUID("4789011b-bc6d-49e2-b4df-420e40f4e318") ATL_NO_VTABLE CObject :
	public IUnknown,
	public CComObjectRootEx<CComObjectThreadModel>
{
public:
	CObject()
	{
		m_id = 0;
	}

DECLARE_GET_CONTROLLING_UNKNOWN()

BEGIN_COM_MAP(CObject)
	COM_INTERFACE_ENTRY(CObject)
	COM_INTERFACE_ENTRY_AGGREGATE_BLIND(m_punk.p)
END_COM_MAP()

	friend class CObjectGlue;

	CGuideDB *GetDB()
		{
		//UNSAFE... doesn't do AddRef()... use the pointer quickly!
		return m_pdb;
		}

	HRESULT get_RelatedObjectID(boolean fInverse, long id, long idRel, long *pidRet);
	HRESULT get_ItemsRelatedBy(CObjectType *pobjtype,
			long idRel, boolean fInverse, IObjects **ppobjs);
	
	HRESULT CreatePropBag(IPersist *ppersist);

public:
	STDMETHOD(Init)(long id, CObjectType * pobjtype);
	STDMETHOD(Save)(IUnknown *punk);
	STDMETHOD(Load)();
	STDMETHOD(get_ItemsInverseRelatedBy)(CObjectType *pobjtype, /* [in] */ long idRel, /*[out, retval]*/ IObjects **ppobjs1);
	STDMETHOD(get_ItemInverseRelatedBy)(/* [in] */ long idRel, /*[out, retval]*/ IUnknown **ppobj1);
	STDMETHOD(get_ItemsRelatedBy)(CObjectType *pobjtype, /* [in] */ long idRel, /*[out, retval]*/ IObjects **ppobjs2);
	STDMETHOD(get_ItemRelatedBy)(/* [in] */ long idRel, /*[out, retval]*/ IUnknown **ppobj2);
	STDMETHOD(put_ItemRelatedBy)(/* [in] */ long idRel, /*[in]*/ IUnknown *pobj2);
	STDMETHOD(get_MetaProperties)(/*[out, retval]*/ IMetaProperties * *pVal);
	STDMETHOD(get_ID)(/*[out, retval]*/ long *pVal);
	STDMETHOD(get_Type)(/*[out, retval]*/ CObjectType * *pVal);

protected:
	CObjectType *m_pobjtype;
	CComPtr<IUnknown> m_punk;
	CComPtr<CGuideDB> m_pdb;
	CComPtr<IMetaProperties> m_pprops;
	long m_id;
	CComPtr<CObjectPropertyBag> m_ppropbag;
};

class CObjectGlue
{
public:
	virtual IUnknown *GetControllingUnknown() = 0;

	HRESULT get_ItemsRelatedBy(CObjectType *pobjtype,
			IMetaPropertyType *pproptype, boolean fInverse, IObjects **ppobjs)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->get_ItemsRelatedBy(pobjtype, idRel, fInverse, ppobjs);
		}

// IObjectInt
protected:
	STDMETHOD(Init)(long id, CObjectType * pobjtype)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());

		return pobj->Init(id, pobjtype);
		}

public:
	STDMETHOD(get_ItemsInverseRelatedBy)(CObjectType *pobjtype,
			IMetaPropertyType *pproptype, /*[out, retval]*/ IObjects **ppobjs1)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->get_ItemsInverseRelatedBy(pobjtype, idRel, ppobjs1);
		}
	STDMETHOD(get_ItemInverseRelatedBy)(IMetaPropertyType *pproptype, /*[out, retval]*/ IUnknown **ppobj1)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->get_ItemInverseRelatedBy(idRel, ppobj1);
		}
	STDMETHOD(get_ItemsRelatedBy)(CObjectType *pobjtype, 
			IMetaPropertyType *pproptype, /*[out, retval]*/ IObjects **ppobjs2)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->get_ItemsRelatedBy(pobjtype, idRel, ppobjs2);
		}
	STDMETHOD(get_ItemRelatedBy)(IMetaPropertyType *pproptype, /*[out, retval]*/ IUnknown **ppobj2)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->get_ItemRelatedBy(idRel, ppobj2);
		}
	STDMETHOD(put_ItemRelatedBy)(IMetaPropertyType *pproptype, /*[in]*/ IUnknown *pobj2)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());
		CComQIPtr<CMetaPropertyType> pproptypeT(pproptype);
		long idRel = pproptypeT->GetID();

		return pobj->put_ItemRelatedBy(idRel, pobj2);
		}
	STDMETHOD(get_MetaProperties)(/*[out, retval]*/ IMetaProperties * *ppprops)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());

		return pobj->get_MetaProperties(ppprops);
		}
	STDMETHOD(get_ID)(/*[out, retval]*/ long *pid)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());

		return pobj->get_ID(pid);
		}
	STDMETHOD(get_Type)(/*[out, retval]*/ CObjectType * *pobjtype)
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());

		return pobj->get_Type(pobjtype);
		}

	template<class T_Related>
	HRESULT _get_ItemRelatedBy(IMetaPropertyType *pproptype, T_Related **ppT)
		{
		CComPtr<IUnknown> pobj;
		HRESULT hr;

		hr = get_ItemRelatedBy(pproptype,  &pobj);
		if (hr == S_FALSE || FAILED(hr))
			return hr;
		
		return pobj->QueryInterface(__uuidof(T_Related), (void **) ppT);
		}
	template<class T_Related>
	HRESULT _put_ItemRelatedBy(IMetaPropertyType *pproptype, T_Related *pT)
		{
		return put_ItemRelatedBy(pproptype, pT);
		}

	__declspec(property(get=GetDB)) CGuideDB *m_pdb;
	CGuideDB *GetDB()
		{
		CComQIPtr<CObject> pobj(GetControllingUnknown());

		return pobj->GetDB();
		}
};

/////////////////////////////////////////////////////////////////////////////
// CObjects

class ATL_NO_VTABLE DECLSPEC_UUID("AC0F25D9-81C8-4C9E-B7AC-031E9A539E1E") CObjects : 
	public CComObjectRootEx<CComObjectThreadModel>,
	public CComCoClass<CObjects, &CLSID_Objects>,
	public IObjectsPrivate,
	public IObjects
{
public:
	CObjects()
	{
#if defined(_ATL_FREE_THREADED)
		m_pUnkMarshaler = NULL;
#endif
		m_cItems = -1;
		m_fInverse = FALSE;
		m_pobjtype = NULL;
		m_fOnlyUnreferenced = FALSE;
		m_idChanged = NULL;
		m_cChanged = 0;

		m_idPropTypeKey = 0;
		m_idProviderKey = 0;
		m_idLangKey = 0;
		m_vtKey = 0;
	}

	CGuideDB *GetDB()
		{
		//UNSAFE... doesn't do AddRef()... use the pointer quickly!
		return m_pdb;
		}
	
	void Dump();

	HRESULT Clone(IObjects **ppobjs);

	HRESULT AddRelationshipAt(long idObj1, long idRel, long iItem, long idObj2);

	HRESULT put_OnlyUnreferenced(boolean fOnlyUnreferenced)
		{
		m_fOnlyUnreferenced = fOnlyUnreferenced;
		return S_OK;
		}
	
	// If in a transaction, NoteChanged() will be called to keep track of changes.
	// TransactionDone() will be called when the transaction is done.
	void NoteChanged(long idObj)
		{
		if (m_idChanged == 0)
		    {
		    m_idChanged = idObj;
		    m_cChanged++;
		    }
		else if (m_idChanged != idObj)
		    {
		    m_cChanged++;
		    }
		}
	
	void TransactionDone(boolean fCommited)
		{
		if (fCommited && (m_cChanged > 0))
			{
			long idType;
			m_pobjtype->get_ID(&idType);

			if (m_cChanged == 1)
				{
				m_pdb->Broadcast_ItemChanged(m_idChanged, idType);
				}
			else
				{
				m_pdb->Broadcast_ItemsChanged(idType);
				}
			}
		m_cChanged = 0;
		m_idChanged = NULL;
		}

DECLARE_REGISTRY_RESOURCEID(IDR_OBJECTS)
DECLARE_GET_CONTROLLING_UNKNOWN()

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CObjects)
	COM_INTERFACE_ENTRY(IObjects)
	COM_INTERFACE_ENTRY(CObjects)
	COM_INTERFACE_ENTRY(IObjectsPrivate)
#if defined(_ATL_FREE_THREADED)
	COM_INTERFACE_ENTRY_AGGREGATE(IID_IMarshal, m_pUnkMarshaler.p)
#endif
	COM_INTERFACE_ENTRY_AGGREGATE_BLIND(m_punkCollection.p)
END_COM_MAP()

#if defined(_ATL_FREE_THREADED)
	HRESULT FinalConstruct()
	{
		return CoCreateFreeThreadedMarshaler(
			GetControllingUnknown(), &m_pUnkMarshaler.p);
	}

	void FinalRelease()
	{
		m_pUnkMarshaler.Release();
	}

	CComPtr<IUnknown> m_pUnkMarshaler;
#endif

	HRESULT Init(CLSID &clsid)
		{
		return m_punkCollection.CoCreateInstance(clsid, (IObjects *) this);
		}
	// Call IObjectsNotifications to notify Add/Remove/Change Item
	HRESULT Notify_ItemAdded(IUnknown * pobj)
		{
		CComQIPtr<IObjectsNotifications> pobjsevents((IObjects *) this);

		if (pobjsevents == NULL)
			return S_OK;

		return pobjsevents->Notify_ItemAdded(pobj);
		}
	HRESULT Notify_ItemRemoved(long idObj)
		{
		CComQIPtr<IObjectsNotifications> pobjsevents((IObjects *) this);

		if (pobjsevents == NULL)
			return S_OK;

		return pobjsevents->Notify_ItemRemoved(idObj);
		}
	HRESULT Notify_ItemChanged(IUnknown * pobj)
		{
		CComQIPtr<IObjectsNotifications> pobjsevents((IObjects *) this);

		if (pobjsevents == NULL)
			return S_OK;

		return pobjsevents->Notify_ItemChanged(pobj);
		}
	HRESULT Notify_ItemsChanged()
		{
		CComQIPtr<IObjectsNotifications> pobjsevents((IObjects *) this);

		if (pobjsevents == NULL)
			return S_OK;

		return pobjsevents->Notify_ItemsChanged();
		}
	//

	HRESULT GetRS(ADODB::_Recordset **pprs);
	enum QueryType {Select, Delete};
	HRESULT GetQuery(QueryType qtype, _bstr_t *pbstr);

	HRESULT get_DB(CGuideDB **ppdb)
		{
		m_pdb.CopyTo(ppdb);
		return S_OK;
		}
	HRESULT put_DB(CGuideDB *pdb)
		{
		m_pdb = pdb;
		return S_OK;
		}

	HRESULT put_ObjectType(CObjectType *pobjtype)
		{
#if 0
		return pobjtype->QueryInterface(__uuidof(CObjectType), (void **) &m_pobjtype);
#else
		m_pobjtype = pobjtype;
		return S_OK;
#endif
		}

	HRESULT get_ObjectType(CObjectType **ppobjtype)
		{
		if ((*ppobjtype = m_pobjtype))
			return S_OK;

		return E_FAIL;
		}

	HRESULT put_MetaPropertyCond(IMetaPropertyCondition *ppropcond)
		{
		m_ppropcond = ppropcond;
		return S_OK;
		}
	
	HRESULT InitRelation(IUnknown *pobj, long idRel, boolean fInverse)
		{
		m_pobjRelated = pobj;
		m_idRel = idRel;
		m_fInverse = fInverse;

		return S_OK;
		}

	HRESULT get_ItemsRelatedToBy(IUnknown *pobj, IMetaPropertyType *pproptype,
			boolean fInverse, IObjects **ppobjs);

	HRESULT Remove(IUnknown *pobj);
	HRESULT RemoveFromRelationship(IUnknown *pobj);
	HRESULT get_ItemsWithType(CObjectType *ptype, /*[out, retval]*/ IObjects * *pVal);

	HRESULT put_Key(IMetaPropertyType *pproptype, IGuideDataProvider *pprovider,
			long idLang, long vt)
		{
		CComQIPtr<CMetaPropertyType> pproptypeKey(pproptype);

		m_idPropTypeKey = pproptypeKey->GetID();

		if (pprovider != NULL)
			{
			CComQIPtr<CObject> pobj(pprovider);
			pobj->get_ID(&m_idProviderKey);
			}
		m_idLangKey = idLang;
		m_vtKey = vt;
		return S_OK;
		}

// IObjects
public:
	STDMETHOD(Resync)()
		{
		return Reset();
		}
	STDMETHOD(UnreferencedItems)(/* [out, retval] */ IObjects **ppobjs);
	STDMETHOD(RemoveAll)();
	STDMETHOD(Reset)();
	STDMETHOD(get_ItemsInverseRelatedToBy)(IUnknown *pobj, /* [in] */ IMetaPropertyType *pproptype, /*[out, retval]*/ IObjects **ppobjs);

	STDMETHOD(get_ItemsRelatedToBy)(IUnknown *pobj, /* [in] */ IMetaPropertyType *pproptype, /*[out, retval]*/ IObjects **ppobjs);

	STDMETHOD(get_ItemsInTimeRange)(DATE dtStart, DATE dtEnd, /*[out, retval]*/ IObjects * *pVal);
	STDMETHOD(get_SQLQuery)(/*[out, retval]*/ BSTR *pbstr)
		{
		ENTER_API
			{
			ValidateOut(pbstr);
			//UNDONE: Remove this method...just for debugging

			_bstr_t bstr;

			GetQuery(Select, &bstr);

			*pbstr = bstr.copy();

			return S_OK;
			}
		LEAVE_API
		}

	STDMETHOD(Remove)(VARIANT varIndex);
	STDMETHOD(AddAt)(IUnknown *pobj, long index);
	STDMETHOD(get_AddNew)(/*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_AddNewAt)(long index, /*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_ItemsWithMetaPropertyCond)(IMetaPropertyCondition *ppropcond, /*[out, retval]*/ IObjects * *pVal);
	STDMETHOD(get_ItemsWithMetaProperty)(IMetaProperty *pprop, /*[out, retval]*/ IObjects * *pVal);
	STDMETHOD(get_ItemWithID)(long id, /*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_ItemsWithType)(BSTR bstrCLSID, /*[out, retval]*/ IObjects * *pVal);
	STDMETHOD(get_ItemWithKey)(VARIANT varIndex, /*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_ItemsByKey)(IMetaPropertyType *pproptype, IGuideDataProvider *pprovider, long idLang, long vt, IObjects * *pVal);
	STDMETHOD(get_Item)(VARIANT varIndex, /*[out, retval]*/ IUnknown * *pVal);
	STDMETHOD(get_Count)(/*[out, retval]*/ long *pVal);
#ifdef IMPLEMENT_NewEnum
	STDMETHOD(get__NewEnum)(IUnknown **ppunk)
		{
		ENTER_API
			{
			ValidateOutPtr<IUnknown>(ppunk, NULL);

			return E_NOTIMPL;
			}
		LEAVE_API
		}
#endif

protected:
	void CObjects::Copy(CObjects *pobjs)
		{
		m_pdb = pobjs->m_pdb;
		m_ppropcond = pobjs->m_ppropcond;
		m_pobjRelated = pobjs->m_pobjRelated;
		m_idRel = pobjs->m_idRel;
		m_fInverse = pobjs->m_fInverse;
		m_fOnlyUnreferenced = pobjs->m_fOnlyUnreferenced;
		m_idPropTypeKey = pobjs->m_idPropTypeKey;
		m_idProviderKey = pobjs->m_idProviderKey;
		m_idLangKey = pobjs->m_idLangKey;
		}

	CComPtr<CGuideDB> m_pdb;

	// All items in this collection are of the type specified by m_pobjtype.
	CObjectType *m_pobjtype;

	CComPtr<IUnknown> m_punkCollection;

	CComPtr<IMetaPropertyCondition> m_ppropcond;

	// All the items in this collection are related (or inverse related) to
	// m_pobjRelated by the relationship m_idRel.
	CComPtr<IUnknown> m_pobjRelated;
	long m_idRel;
	boolean m_fInverse;

	ADODB::_RecordsetPtr m_prs;
	long m_cItems;

	boolean m_fOnlyUnreferenced;

	long m_idChanged;
	long m_cChanged;

	long m_idPropTypeKey;
	long m_idProviderKey;
	long m_idLangKey;
	long m_vtKey;
};

/////////////////////////////////////////////////////////////////////////////
// CObjectsGlue

template<class T_Collection, class T_Item>
	class ATL_NO_VTABLE CObjectsGlue : public IObjectsNotifications
{
public:
	typedef CObjectsGlue<T_Collection, T_Item> ThisClass;
	CObjectsGlue()
		{
		}
	~CObjectsGlue()
		{
		}

// Thunks to IObjects interface of aggregated CLSID_Objects object.
	HRESULT _Remove(VARIANT varIndex)
		{
		HRESULT hr;
		CComQIPtr<IObjects> pobjs(this);

		hr = pobjs->Remove(varIndex);

		return hr;
		}

	HRESULT _RemoveAll()
		{
		CComQIPtr<IObjects> pobjs(this);

		return pobjs->RemoveAll();
		}

	HRESULT _Resync()
		{
		CComQIPtr<IObjects> pobjs(this);

		return pobjs->Resync();
		}

	HRESULT _get_AddNew(T_Item **ppobj)
		{
		HRESULT hr;
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IUnknown> pobj;

		hr = pobjs->get_AddNew(&pobj);
		if (FAILED(hr))
			return hr;

		hr = pobj->QueryInterface(__uuidof(T_Item), (void **) ppobj);

		return hr;
		}

	HRESULT _get_AddNewAt(long index, T_Item **ppobj)
		{
		HRESULT hr;
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IUnknown> pobj;

		hr = pobjs->get_AddNewAt(index, &pobj);
		if (FAILED(hr))
			return hr;

		hr = pobj->QueryInterface(__uuidof(T_Item), (void **) ppobj);

		return hr;
		}

	HRESULT _AddAt(T_Item *pobj, long index)
		{
		HRESULT hr;
		CComQIPtr<IObjects> pobjs(this);

		hr = pobjs->AddAt(pobj, index);

		return hr;
		}

	HRESULT _get_Item(VARIANT varIndex, T_Item **ppobj)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IUnknown> pobj;

		HRESULT hr = pobjs->get_Item(varIndex, &pobj);
		if (FAILED(hr))
			return hr;
		
		return pobj->QueryInterface(__uuidof(T_Item), (void **) ppobj);
		}

	HRESULT _get_ItemWithID(long id, T_Item **ppobj)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IUnknown> pobj;

		HRESULT hr = pobjs->get_ItemWithID(id, &pobj);
		if (FAILED(hr))
			return hr;
		
		return pobj->QueryInterface(__uuidof(T_Item), (void **) ppobj);
		}

	HRESULT _get_ItemWithKey(VARIANT varKey, T_Item **ppobj)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IUnknown> pobj;

		HRESULT hr = pobjs->get_ItemWithKey(varKey, &pobj);
		if (FAILED(hr))
			return hr;
		
		return pobj->QueryInterface(__uuidof(T_Item), (void **) ppobj);
		}

	HRESULT _get_ItemsByKey(IMetaPropertyType *pproptype, IGuideDataProvider *pprovider, long idLang, long vt, T_Collection **ppobjs)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IObjects> pobjsNew;

		HRESULT hr = pobjs->get_ItemsByKey(pproptype, pprovider, idLang, vt, &pobjsNew);
		if (FAILED(hr))
			return hr;
		
		return pobjsNew->QueryInterface(__uuidof(T_Collection), (void **) ppobjs);
		}

	HRESULT _get_ItemsWithMetaPropertyCond(IMetaPropertyCondition *ppropcond, T_Collection **ppobjs)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IObjects> pobjsNew;

		HRESULT hr = pobjs->get_ItemsWithMetaPropertyCond(ppropcond, &pobjsNew);
		if (FAILED(hr))
			return hr;
		
		return pobjsNew->QueryInterface(__uuidof(T_Collection), (void **) ppobjs);
		}
	HRESULT _get_ItemsInTimeRange(DATE dtStart, DATE dtEnd, /*[out, retval]*/ T_Collection * *ppitems)
		{
		HRESULT hr;
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IObjects> pobjsNew;

		hr = pobjs->get_ItemsInTimeRange(dtStart, dtEnd, &pobjsNew);
		if (FAILED(hr))
			return hr;

		return  pobjsNew->QueryInterface(__uuidof(T_Collection), (void **) ppitems);
		}
	HRESULT _get_ItemsWithMetaProperty(IMetaProperty *pprop, T_Collection * *ppobjs)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IObjects> pobjsNew;

		HRESULT hr = pobjs->get_ItemsWithMetaProperty(pprop, &pobjsNew);
		if (FAILED(hr))
			return hr;
		
		return pobjsNew->QueryInterface(__uuidof(T_Collection), (void **) ppobjs);
		}

	HRESULT _UnreferencedItems(T_Collection **ppobjs)
		{
		CComQIPtr<IObjects> pobjs(this);
		CComPtr<IObjects> pobjsNew;

		HRESULT hr = pobjs->UnreferencedItems(&pobjsNew);
		if (FAILED(hr))
			return hr;
		
		return pobjsNew->QueryInterface(__uuidof(T_Collection), (void **) ppobjs);

		}

	HRESULT _get_Count(long *plCount)
		{
		CComQIPtr<IObjects> pobjs(this);

		return pobjs->get_Count(plCount);
		}

#ifdef IMPLEMENT_NewEnum
	HRESULT _get__NewEnum(IUnknown **ppunk)
		{
		CComQIPtr<IObjects> pobjs(this);

		return pobjs->get__NewEnum(ppunk);
		}
#endif
	
	virtual IUnknown *GetControllingUnknown() = 0;
	__declspec(property(get=GetDB)) CGuideDB *m_pdb;
	CGuideDB *GetDB()
		{
		CComQIPtr<CObjects> pobjs(GetControllingUnknown());

		return pobjs->GetDB();
		}
};

class CObjectPropertyBag :
	public CComObjectRootEx<CComObjectThreadModel>,
#if SUPPORT_PROPBAG2
	public IPropertyBag2,
#endif
	public IPropertyBag
{
public:

	void Init(IMetaProperties *pprops, IMetaPropertyTypes *pproptypes)
		{
		m_pprops = pprops;
		m_pproptypes = pproptypes;
		}

protected:
	IMetaProperty * GetProp(_bstr_t bstrPropName, boolean fCreate);
	
BEGIN_COM_MAP(CObjectPropertyBag)
	COM_INTERFACE_ENTRY(IPropertyBag)
#if SUPPORT_PROPBAG2
	COM_INTERFACE_ENTRY(IPropertyBag2)
#endif
END_COM_MAP()

// IPropertyBag interface
	STDMETHOD(Read)(LPCOLESTR pszPropName, VARIANT *pvar, IErrorLog *pErrorLog);
	STDMETHOD(Write)(LPCOLESTR pszPropName, VARIANT *pvar);

#if SUPPORT_PROPBAG2
// IPropertyBag2 interface
	STDMETHOD(CountProperties)(long *plCount);
	STDMETHOD(GetPropertyInfo)(ULONG iProp, ULONG cProps, PROPBAG2 *ppropbag2, ULONG *pcProps);
	STDMETHOD(LoadObject)(LPCOLESTR pstrName, DWORD dwHint, IUnknown *punk, IErrorLog *perrlog);
	STDMETHOD(Read)(ULONG cProps, PROPBAG2 *ppropbag2, IErrorLog *perrlog, VARIANT *rgvar, HRESULT *phr);
	STDMETHOD(Write)(ULONG cProps, PROPBAG2 *ppropbag2, VARIANT *rgvar);
#endif

protected:
	CComPtr<IMetaProperties> m_pprops;
	CComPtr<IMetaPropertyTypes> m_pproptypes;
};

#endif //__Object_H_