4 * Copyright 1998 Marcus Meissner
5 * Copyright 1999 Noomen Hamza
14 #include "wine/obj_base.h"
15 #include "wine/obj_storage.h"
16 #include "wine/obj_misc.h"
17 #include "wine/obj_moniker.h"
18 #include "debugtools.h"
21 #include "compobj_private.h"
23 DEFAULT_DEBUG_CHANNEL(ole
);
25 #define BLOCK_TAB_SIZE 20 /* represent the first size table and it's increment block size */
27 /* define the structure of the running object table elements */
28 typedef struct RunObject
{
30 IUnknown
* pObj
; /* points on a running object*/
31 IMoniker
* pmkObj
; /* points on a moniker who identifies this object */
32 FILETIME lastModifObj
;
33 DWORD identRegObj
; /* registration key relative to this object */
34 DWORD regTypeObj
; /* registration type : strong or weak */
37 /* define the RunningObjectTableImpl structure */
38 typedef struct RunningObjectTableImpl
{
40 ICOM_VFIELD(IRunningObjectTable
);
43 RunObject
* runObjTab
; /* pointer to the first object in the table */
44 DWORD runObjTabSize
; /* current table size */
45 DWORD runObjTabLastIndx
; /* first free index element in the table. */
46 DWORD runObjTabRegister
; /* registration key of the next registered object */
48 } RunningObjectTableImpl
;
50 RunningObjectTableImpl
* runningObjectTableInstance
=0;
52 /* IRunningObjectTable prototype functions : */
53 /* IUnknown functions*/
54 static HRESULT WINAPI
RunningObjectTableImpl_QueryInterface(IRunningObjectTable
* iface
,REFIID riid
,void** ppvObject
);
55 static ULONG WINAPI
RunningObjectTableImpl_AddRef(IRunningObjectTable
* iface
);
56 static ULONG WINAPI
RunningObjectTableImpl_Release(IRunningObjectTable
* iface
);
57 /* IRunningObjectTable functions */
58 static HRESULT WINAPI
RunningObjectTableImpl_Register(IRunningObjectTable
* iface
, DWORD grfFlags
,IUnknown
* punkObject
,IMoniker
* pmkObjectName
,DWORD
* pdwRegister
);
59 static HRESULT WINAPI
RunningObjectTableImpl_Revoke(IRunningObjectTable
* iface
, DWORD dwRegister
);
60 static HRESULT WINAPI
RunningObjectTableImpl_IsRunning(IRunningObjectTable
* iface
, IMoniker
* pmkObjectName
);
61 static HRESULT WINAPI
RunningObjectTableImpl_GetObject(IRunningObjectTable
* iface
, IMoniker
* pmkObjectName
,IUnknown
** ppunkObject
);
62 static HRESULT WINAPI
RunningObjectTableImpl_NoteChangeTime(IRunningObjectTable
* iface
, DWORD dwRegister
,FILETIME
* pfiletime
);
63 static HRESULT WINAPI
RunningObjectTableImpl_GetTimeOfLastChange(IRunningObjectTable
* iface
, IMoniker
* pmkObjectName
,FILETIME
* pfiletime
);
64 static HRESULT WINAPI
RunningObjectTableImpl_EnumRunning(IRunningObjectTable
* iface
, IEnumMoniker
** ppenumMoniker
);
66 HRESULT WINAPI
RunningObjectTableImpl_Initialize();
67 HRESULT WINAPI
RunningObjectTableImpl_UnInitialize();
68 HRESULT WINAPI
RunningObjectTableImpl_Destroy();
69 HRESULT WINAPI
RunningObjectTableImpl_GetObjectIndex(RunningObjectTableImpl
* This
,DWORD identReg
,IMoniker
* pmk
,DWORD
*indx
);
71 /* Virtual function table for the IRunningObjectTable class. */
72 static ICOM_VTABLE(IRunningObjectTable
) VT_RunningObjectTableImpl
=
74 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
75 RunningObjectTableImpl_QueryInterface
,
76 RunningObjectTableImpl_AddRef
,
77 RunningObjectTableImpl_Release
,
78 RunningObjectTableImpl_Register
,
79 RunningObjectTableImpl_Revoke
,
80 RunningObjectTableImpl_IsRunning
,
81 RunningObjectTableImpl_GetObject
,
82 RunningObjectTableImpl_NoteChangeTime
,
83 RunningObjectTableImpl_GetTimeOfLastChange
,
84 RunningObjectTableImpl_EnumRunning
87 /***********************************************************************
88 * RunningObjectTable_QueryInterface
90 HRESULT WINAPI
RunningObjectTableImpl_QueryInterface(IRunningObjectTable
* iface
,REFIID riid
,void** ppvObject
)
92 ICOM_THIS(RunningObjectTableImpl
,iface
);
94 TRACE("(%p,%p,%p)\n",This
,riid
,ppvObject
);
96 /* validate arguments */
98 return CO_E_NOTINITIALIZED
;
105 if (IsEqualIID(&IID_IUnknown
, riid
))
106 *ppvObject
= (IRunningObjectTable
*)This
;
108 if (IsEqualIID(&IID_IRunningObjectTable
, riid
))
109 *ppvObject
= (IRunningObjectTable
*)This
;
112 return E_NOINTERFACE
;
114 RunningObjectTableImpl_AddRef(iface
);
119 /***********************************************************************
120 * RunningObjectTable_AddRef
122 ULONG WINAPI
RunningObjectTableImpl_AddRef(IRunningObjectTable
* iface
)
124 ICOM_THIS(RunningObjectTableImpl
,iface
);
126 TRACE("(%p)\n",This
);
128 return ++(This
->ref
);
131 /***********************************************************************
132 * RunningObjectTable_Initialize
134 HRESULT WINAPI
RunningObjectTableImpl_Destroy()
138 if (runningObjectTableInstance
==NULL
)
141 /* free the ROT table memory */
142 HeapFree(GetProcessHeap(),0,runningObjectTableInstance
->runObjTab
);
144 /* free the ROT structure memory */
145 HeapFree(GetProcessHeap(),0,runningObjectTableInstance
);
150 /***********************************************************************
151 * RunningObjectTable_Release
153 ULONG WINAPI
RunningObjectTableImpl_Release(IRunningObjectTable
* iface
)
156 ICOM_THIS(RunningObjectTableImpl
,iface
);
158 TRACE("(%p)\n",This
);
162 /* unitialize ROT structure if there's no more reference to it*/
165 /* release all registered objects */
166 for(i
=0;i
<This
->runObjTabLastIndx
;i
++)
168 if (( This
->runObjTab
[i
].regTypeObj
& ROTFLAGS_REGISTRATIONKEEPSALIVE
) != 0)
169 IUnknown_Release(This
->runObjTab
[i
].pObj
);
171 IMoniker_Release(This
->runObjTab
[i
].pmkObj
);
173 /* RunningObjectTable data structure will be not destroyed here ! the destruction will be done only
174 * when RunningObjectTableImpl_UnInitialize function is called
177 /* there's no more elements in the table */
178 This
->runObjTabRegister
=0;
179 This
->runObjTabLastIndx
=0;
187 /***********************************************************************
188 * RunningObjectTable_Initialize
190 HRESULT WINAPI
RunningObjectTableImpl_Initialize()
194 /* create the unique instance of the RunningObjectTableImpl structure */
195 runningObjectTableInstance
= HeapAlloc(GetProcessHeap(), 0, sizeof(RunningObjectTableImpl
));
197 if (runningObjectTableInstance
== 0)
198 return E_OUTOFMEMORY
;
200 /* initialize the virtual table function */
201 ICOM_VTBL(runningObjectTableInstance
) = &VT_RunningObjectTableImpl
;
203 /* the initial reference is set to "1" ! because if set to "0" it will be not practis when */
204 /* the ROT refered many times not in the same time (all the objects in the ROT will */
205 /* be removed every time the ROT is removed ) */
206 runningObjectTableInstance
->ref
= 1;
208 /* allocate space memory for the table which contains all the running objects */
209 runningObjectTableInstance
->runObjTab
= HeapAlloc(GetProcessHeap(), 0, sizeof(RunObject
[BLOCK_TAB_SIZE
]));
211 if (runningObjectTableInstance
->runObjTab
== NULL
)
212 return E_OUTOFMEMORY
;
214 runningObjectTableInstance
->runObjTabSize
=BLOCK_TAB_SIZE
;
215 runningObjectTableInstance
->runObjTabRegister
=1;
216 runningObjectTableInstance
->runObjTabLastIndx
=0;
221 /***********************************************************************
222 * RunningObjectTable_UnInitialize
224 HRESULT WINAPI
RunningObjectTableImpl_UnInitialize()
228 if (runningObjectTableInstance
==NULL
)
231 RunningObjectTableImpl_Release((IRunningObjectTable
*)runningObjectTableInstance
);
233 RunningObjectTableImpl_Destroy();
238 /***********************************************************************
239 * RunningObjectTable_Register
241 HRESULT WINAPI
RunningObjectTableImpl_Register(IRunningObjectTable
* iface
,
242 DWORD grfFlags
, /* Registration options */
243 IUnknown
*punkObject
, /* Pointer to the object being registered */
244 IMoniker
*pmkObjectName
, /* Pointer to the moniker of the object being registered */
245 DWORD
*pdwRegister
) /* Pointer to the value identifying the registration */
248 ICOM_THIS(RunningObjectTableImpl
,iface
);
250 TRACE("(%p,%ld,%p,%p,%p)\n",This
,grfFlags
,punkObject
,pmkObjectName
,pdwRegister
);
252 /* there's only two types of register : strong and or weak registration (only one must be passed on parameter) */
253 if ( ( (grfFlags
& ROTFLAGS_REGISTRATIONKEEPSALIVE
) || !(grfFlags
& ROTFLAGS_ALLOWANYCLIENT
)) &&
254 (!(grfFlags
& ROTFLAGS_REGISTRATIONKEEPSALIVE
) || (grfFlags
& ROTFLAGS_ALLOWANYCLIENT
)) &&
258 if (punkObject
==NULL
|| pmkObjectName
==NULL
|| pdwRegister
==NULL
)
261 /* verify if the object to be registered was registered before */
262 if (RunningObjectTableImpl_GetObjectIndex(This
,-1,pmkObjectName
,NULL
)==S_OK
)
263 res
= MK_S_MONIKERALREADYREGISTERED
;
265 /* put the new registered object in the first free element in the table */
266 This
->runObjTab
[This
->runObjTabLastIndx
].pObj
= punkObject
;
267 This
->runObjTab
[This
->runObjTabLastIndx
].pmkObj
= pmkObjectName
;
268 This
->runObjTab
[This
->runObjTabLastIndx
].regTypeObj
= grfFlags
;
269 This
->runObjTab
[This
->runObjTabLastIndx
].identRegObj
= This
->runObjTabRegister
;
270 CoFileTimeNow(&(This
->runObjTab
[This
->runObjTabLastIndx
].lastModifObj
));
272 /* gives a registration identifier to the registered object*/
273 (*pdwRegister
)= This
->runObjTabRegister
;
275 if (This
->runObjTabRegister
== 0xFFFFFFFF){
277 FIXME("runObjTabRegister: %ld is out of data limite \n",This
->runObjTabRegister
);
280 This
->runObjTabRegister
++;
281 This
->runObjTabLastIndx
++;
283 if (This
->runObjTabLastIndx
== This
->runObjTabSize
){ /* table is full ! so it must be resized */
285 This
->runObjTabSize
+=BLOCK_TAB_SIZE
; /* newsize table */
286 This
->runObjTab
=HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY
,This
->runObjTab
,
287 This
->runObjTabSize
* sizeof(RunObject
));
288 if (!This
->runObjTab
)
289 return E_OUTOFMEMORY
;
291 /* add a reference to the object in the strong registration case */
292 if ((grfFlags
& ROTFLAGS_REGISTRATIONKEEPSALIVE
) !=0 )
293 IUnknown_AddRef(punkObject
);
295 IMoniker_AddRef(pmkObjectName
);
300 /***********************************************************************
301 * RunningObjectTable_Revoke
303 HRESULT WINAPI
RunningObjectTableImpl_Revoke( IRunningObjectTable
* iface
,
304 DWORD dwRegister
) /* Value identifying registration to be revoked*/
308 ICOM_THIS(RunningObjectTableImpl
,iface
);
310 TRACE("(%p,%ld)\n",This
,dwRegister
);
312 /* verify if the object to be revoked was registered before or not */
313 if (RunningObjectTableImpl_GetObjectIndex(This
,dwRegister
,NULL
,&index
)==S_FALSE
)
317 /* release the object if it was registered with a strong registrantion option */
318 if ((This
->runObjTab
[index
].regTypeObj
& ROTFLAGS_REGISTRATIONKEEPSALIVE
)!=0)
319 IUnknown_Release(This
->runObjTab
[index
].pObj
);
321 IMoniker_Release(This
->runObjTab
[index
].pmkObj
);
323 /* remove the object from the table */
324 for(j
=index
; j
<This
->runObjTabLastIndx
-1; j
++)
325 This
->runObjTab
[j
]= This
->runObjTab
[j
+1];
327 This
->runObjTabLastIndx
--;
332 /***********************************************************************
333 * RunningObjectTable_IsRunning
335 HRESULT WINAPI
RunningObjectTableImpl_IsRunning( IRunningObjectTable
* iface
,
336 IMoniker
*pmkObjectName
) /* Pointer to the moniker of the object whose status is desired */
338 ICOM_THIS(RunningObjectTableImpl
,iface
);
340 TRACE("(%p,%p)\n",This
,pmkObjectName
);
342 return RunningObjectTableImpl_GetObjectIndex(This
,-1,pmkObjectName
,NULL
);
345 /***********************************************************************
346 * RunningObjectTable_GetObject
348 HRESULT WINAPI
RunningObjectTableImpl_GetObject( IRunningObjectTable
* iface
,
349 IMoniker
*pmkObjectName
,/* Pointer to the moniker on the object */
350 IUnknown
**ppunkObject
) /* Address of output variable that receives the IUnknown interface pointer */
353 ICOM_THIS(RunningObjectTableImpl
,iface
);
355 TRACE("(%p,%p,%p)\n",This
,pmkObjectName
,ppunkObject
);
357 if (ppunkObject
==NULL
)
362 /* verify if the object was registered before or not */
363 if (RunningObjectTableImpl_GetObjectIndex(This
,-1,pmkObjectName
,&index
)==S_FALSE
)
364 return MK_E_UNAVAILABLE
;
366 /* add a reference to the object then set output object argument */
367 IUnknown_AddRef(This
->runObjTab
[index
].pObj
);
368 *ppunkObject
=This
->runObjTab
[index
].pObj
;
373 /***********************************************************************
374 * RunningObjectTable_NoteChangeTime
376 HRESULT WINAPI
RunningObjectTableImpl_NoteChangeTime(IRunningObjectTable
* iface
,
377 DWORD dwRegister
, /* Value identifying registration being updated */
378 FILETIME
*pfiletime
) /* Pointer to structure containing object's last change time */
381 ICOM_THIS(RunningObjectTableImpl
,iface
);
383 TRACE("(%p,%ld,%p)\n",This
,dwRegister
,pfiletime
);
385 /* verify if the object to be changed was registered before or not */
386 if (RunningObjectTableImpl_GetObjectIndex(This
,dwRegister
,NULL
,&index
)==S_FALSE
)
389 /* set the new value of the last time change */
390 This
->runObjTab
[index
].lastModifObj
= (*pfiletime
);
395 /***********************************************************************
396 * RunningObjectTable_GetTimeOfLastChange
398 HRESULT WINAPI
RunningObjectTableImpl_GetTimeOfLastChange(IRunningObjectTable
* iface
,
399 IMoniker
*pmkObjectName
, /* Pointer to moniker on the object whose status is desired */
400 FILETIME
*pfiletime
) /* Pointer to structure that receives object's last change time */
403 ICOM_THIS(RunningObjectTableImpl
,iface
);
405 TRACE("(%p,%p,%p)\n",This
,pmkObjectName
,pfiletime
);
407 if (pmkObjectName
==NULL
|| pfiletime
==NULL
)
410 /* verify if the object was registered before or not */
411 if (RunningObjectTableImpl_GetObjectIndex(This
,-1,pmkObjectName
,&index
)==S_FALSE
)
412 return MK_E_UNAVAILABLE
;;
414 (*pfiletime
)= This
->runObjTab
[index
].lastModifObj
;
419 /***********************************************************************
420 * RunningObjectTable_EnumRunning
422 HRESULT WINAPI
RunningObjectTableImpl_EnumRunning(IRunningObjectTable
* iface
,
423 IEnumMoniker
**ppenumMoniker
) /* Address of output variable that receives the IEnumMoniker interface pointer */
425 FIXME("(%p,%p) needs the IEnumMoniker implementation \n",iface
,ppenumMoniker
);
429 /***********************************************************************
432 HRESULT WINAPI
RunningObjectTableImpl_GetObjectIndex(RunningObjectTableImpl
* This
,
440 TRACE("(%p,%ld,%p,%p)\n",This
,identReg
,pmk
,indx
);
443 /* search object identified by a moniker */
444 for(i
=0 ; (i
< This
->runObjTabLastIndx
) &&(!IMoniker_IsEqual(This
->runObjTab
[i
].pmkObj
,pmk
)==S_OK
);i
++);
446 /* search object identified by a register identifier */
447 for(i
=0;((i
<This
->runObjTabLastIndx
)&&(This
->runObjTab
[i
].identRegObj
!=identReg
));i
++);
449 if (i
==This
->runObjTabLastIndx
) return S_FALSE
;
451 if (indx
!= NULL
) *indx
=i
;
456 /******************************************************************************
457 * GetRunningObjectTable [OLE2.30]
459 HRESULT WINAPI
GetRunningObjectTable16(DWORD reserved
, LPRUNNINGOBJECTTABLE
*pprot
)
461 FIXME("(%ld,%p),stub!\n",reserved
,pprot
);
465 /***********************************************************************
466 * GetRunningObjectTable (OLE32.73)
468 HRESULT WINAPI
GetRunningObjectTable(DWORD reserved
, LPRUNNINGOBJECTTABLE
*pprot
)
470 IID riid
=IID_IRunningObjectTable
;
478 if(runningObjectTableInstance
==NULL
)
479 return CO_E_NOTINITIALIZED
;
481 res
= RunningObjectTableImpl_QueryInterface((IRunningObjectTable
*)runningObjectTableInstance
,&riid
,(void**)pprot
);
486 /******************************************************************************
489 HRESULT WINAPI
OleRun(LPUNKNOWN pUnknown
)
491 IRunnableObject
*runable
;
492 ICOM_THIS(IRunnableObject
,pUnknown
);
495 ret
= IRunnableObject_QueryInterface(This
,&IID_IRunnableObject
,(LPVOID
*)&runable
);
497 return 0; /* Appears to return no error. */
498 ret
= IRunnableObject_Run(runable
,NULL
);
499 IRunnableObject_Release(runable
);
503 /******************************************************************************
504 * MkParseDisplayName [OLE32.81]
506 HRESULT WINAPI
MkParseDisplayName(LPBC pbc
, LPCOLESTR szUserName
,
507 LPDWORD pchEaten
, LPMONIKER
*ppmk
)
509 FIXME("(%p, %s, %p, %p): stub.\n", pbc
, debugstr_w(szUserName
), pchEaten
, *ppmk
);
510 if (!(IsValidInterface((LPUNKNOWN
) pbc
)))