1 /***************************************************************************************
2 * ItemMonikers implementation
4 * Copyright 1999 Noomen Hamza
5 ***************************************************************************************/
15 #include "wine/obj_inplace.h"
17 /* ItemMoniker data structure */
18 typedef struct ItemMonikerImpl
{
20 ICOM_VTABLE(IMoniker
)* lpvtbl1
; /* VTable relative to the IMoniker interface.*/
22 /* The ROT (RunningObjectTable implementation) uses the IROTData interface to test whether
23 * two monikers are equal. That's whay IROTData interface is implemented by monikers.
25 ICOM_VTABLE(IROTData
)* lpvtbl2
; /* VTable relative to the IROTData interface.*/
27 ULONG ref
; /* reference counter for this object */
29 LPOLESTR itemName
; /* item name identified by this ItemMoniker */
31 LPOLESTR itemDelimiter
; /* Delimiter string */
35 /********************************************************************************/
36 /* ItemMoniker prototype functions : */
38 /* IUnknown prototype functions */
39 static HRESULT WINAPI
ItemMonikerImpl_QueryInterface(IMoniker
* iface
,REFIID riid
,void** ppvObject
);
40 static ULONG WINAPI
ItemMonikerImpl_AddRef(IMoniker
* iface
);
41 static ULONG WINAPI
ItemMonikerImpl_Release(IMoniker
* iface
);
43 /* IPersist prototype functions */
44 static HRESULT WINAPI
ItemMonikerImpl_GetClassID(const IMoniker
* iface
, CLSID
*pClassID
);
46 /* IPersistStream prototype functions */
47 static HRESULT WINAPI
ItemMonikerImpl_IsDirty(IMoniker
* iface
);
48 static HRESULT WINAPI
ItemMonikerImpl_Load(IMoniker
* iface
, IStream
* pStm
);
49 static HRESULT WINAPI
ItemMonikerImpl_Save(IMoniker
* iface
, IStream
* pStm
, BOOL fClearDirty
);
50 static HRESULT WINAPI
ItemMonikerImpl_GetSizeMax(IMoniker
* iface
, ULARGE_INTEGER
* pcbSize
);
52 /* IMoniker prototype functions */
53 static HRESULT WINAPI
ItemMonikerImpl_BindToObject(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, REFIID riid
, VOID
** ppvResult
);
54 static HRESULT WINAPI
ItemMonikerImpl_BindToStorage(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, REFIID riid
, VOID
** ppvResult
);
55 static HRESULT WINAPI
ItemMonikerImpl_Reduce(IMoniker
* iface
,IBindCtx
* pbc
, DWORD dwReduceHowFar
,IMoniker
** ppmkToLeft
, IMoniker
** ppmkReduced
);
56 static HRESULT WINAPI
ItemMonikerImpl_ComposeWith(IMoniker
* iface
,IMoniker
* pmkRight
,BOOL fOnlyIfNotGeneric
, IMoniker
** ppmkComposite
);
57 static HRESULT WINAPI
ItemMonikerImpl_Enum(IMoniker
* iface
,BOOL fForward
, IEnumMoniker
** ppenumMoniker
);
58 static HRESULT WINAPI
ItemMonikerImpl_IsEqual(IMoniker
* iface
,IMoniker
* pmkOtherMoniker
);
59 static HRESULT WINAPI
ItemMonikerImpl_Hash(IMoniker
* iface
,DWORD
* pdwHash
);
60 static HRESULT WINAPI
ItemMonikerImpl_IsRunning(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, IMoniker
* pmkNewlyRunning
);
61 static HRESULT WINAPI
ItemMonikerImpl_GetTimeOfLastChange(IMoniker
* iface
, IBindCtx
* pbc
, IMoniker
* pmkToLeft
, FILETIME
* pItemTime
);
62 static HRESULT WINAPI
ItemMonikerImpl_Inverse(IMoniker
* iface
,IMoniker
** ppmk
);
63 static HRESULT WINAPI
ItemMonikerImpl_CommonPrefixWith(IMoniker
* iface
,IMoniker
* pmkOther
, IMoniker
** ppmkPrefix
);
64 static HRESULT WINAPI
ItemMonikerImpl_RelativePathTo(IMoniker
* iface
,IMoniker
* pmOther
, IMoniker
** ppmkRelPath
);
65 static HRESULT WINAPI
ItemMonikerImpl_GetDisplayName(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, LPOLESTR
*ppszDisplayName
);
66 static HRESULT WINAPI
ItemMonikerImpl_ParseDisplayName(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, LPOLESTR pszDisplayName
, ULONG
* pchEaten
, IMoniker
** ppmkOut
);
67 static HRESULT WINAPI
ItemMonikerImpl_IsSystemMoniker(IMoniker
* iface
,DWORD
* pwdMksys
);
69 /* Local function used by ItemMoniker implementation */
70 HRESULT WINAPI
ItemMonikerImpl_Construct(ItemMonikerImpl
* iface
, LPCOLESTR lpszDelim
,LPCOLESTR lpszPathName
);
71 HRESULT WINAPI
ItemMonikerImpl_Destroy(ItemMonikerImpl
* iface
);
73 /********************************************************************************/
74 /* IROTData prototype functions */
76 /* IUnknown prototype functions */
77 static HRESULT WINAPI
ItemMonikerROTDataImpl_QueryInterface(IROTData
* iface
,REFIID riid
,VOID
** ppvObject
);
78 static ULONG WINAPI
ItemMonikerROTDataImpl_AddRef(IROTData
* iface
);
79 static ULONG WINAPI
ItemMonikerROTDataImpl_Release(IROTData
* iface
);
81 /* IROTData prototype function */
82 static HRESULT WINAPI
ItemMonikerROTDataImpl_GetComparaisonData(IROTData
* iface
,BYTE
* pbData
,ULONG cbMax
,ULONG
* pcbData
);
84 /********************************************************************************/
85 /* Virtual function table for the ItemMonikerImpl class witch include Ipersist,*/
86 /* IPersistStream and IMoniker functions. */
87 static ICOM_VTABLE(IMoniker
) VT_ItemMonikerImpl
=
89 ItemMonikerImpl_QueryInterface
,
90 ItemMonikerImpl_AddRef
,
91 ItemMonikerImpl_Release
,
92 ItemMonikerImpl_GetClassID
,
93 ItemMonikerImpl_IsDirty
,
96 ItemMonikerImpl_GetSizeMax
,
97 ItemMonikerImpl_BindToObject
,
98 ItemMonikerImpl_BindToStorage
,
99 ItemMonikerImpl_Reduce
,
100 ItemMonikerImpl_ComposeWith
,
101 ItemMonikerImpl_Enum
,
102 ItemMonikerImpl_IsEqual
,
103 ItemMonikerImpl_Hash
,
104 ItemMonikerImpl_IsRunning
,
105 ItemMonikerImpl_GetTimeOfLastChange
,
106 ItemMonikerImpl_Inverse
,
107 ItemMonikerImpl_CommonPrefixWith
,
108 ItemMonikerImpl_RelativePathTo
,
109 ItemMonikerImpl_GetDisplayName
,
110 ItemMonikerImpl_ParseDisplayName
,
111 ItemMonikerImpl_IsSystemMoniker
114 /********************************************************************************/
115 /* Virtual function table for the IROTData class. */
116 static ICOM_VTABLE(IROTData
) VT_ROTDataImpl
=
118 ItemMonikerROTDataImpl_QueryInterface
,
119 ItemMonikerROTDataImpl_AddRef
,
120 ItemMonikerROTDataImpl_Release
,
121 ItemMonikerROTDataImpl_GetComparaisonData
124 /*******************************************************************************
125 * ItemMoniker_QueryInterface
126 *******************************************************************************/
127 HRESULT WINAPI
ItemMonikerImpl_QueryInterface(IMoniker
* iface
,REFIID riid
,void** ppvObject
)
129 ICOM_THIS(ItemMonikerImpl
,iface
);
131 TRACE(ole
,"(%p,%p,%p)\n",This
,riid
,ppvObject
);
133 /* Perform a sanity check on the parameters.*/
134 if ( (This
==0) || (ppvObject
==0) )
137 /* Initialize the return parameter */
140 /* Compare the riid with the interface IDs implemented by this object.*/
141 if (IsEqualIID(&IID_IUnknown
, riid
) ||
142 IsEqualIID(&IID_IPersist
, riid
) ||
143 IsEqualIID(&IID_IPersistStream
, riid
) ||
144 IsEqualIID(&IID_IMoniker
, riid
)
148 else if (IsEqualIID(&IID_IROTData
, riid
))
149 *ppvObject
= (IROTData
*)&(This
->lpvtbl2
);
151 /* Check that we obtained an interface.*/
153 return E_NOINTERFACE
;
155 /* Query Interface always increases the reference count by one when it is successful */
156 ItemMonikerImpl_AddRef(iface
);
161 /******************************************************************************
163 ******************************************************************************/
164 ULONG WINAPI
ItemMonikerImpl_AddRef(IMoniker
* iface
)
166 ICOM_THIS(ItemMonikerImpl
,iface
);
168 TRACE(ole
,"(%p)\n",This
);
170 return ++(This
->ref
);
173 /******************************************************************************
174 * ItemMoniker_Release
175 ******************************************************************************/
176 ULONG WINAPI
ItemMonikerImpl_Release(IMoniker
* iface
)
178 ICOM_THIS(ItemMonikerImpl
,iface
);
180 TRACE(ole
,"(%p)\n",This
);
184 /* destroy the object if there's no more reference on it */
187 ItemMonikerImpl_Destroy(This
);
194 /******************************************************************************
195 * ItemMoniker_GetClassID
196 ******************************************************************************/
197 HRESULT WINAPI
ItemMonikerImpl_GetClassID(const IMoniker
* iface
,CLSID
*pClassID
)
199 TRACE(ole
,"(%p,%p),stub!\n",iface
,pClassID
);
204 *pClassID
= CLSID_ItemMoniker
;
209 /******************************************************************************
210 * ItemMoniker_IsDirty
211 ******************************************************************************/
212 HRESULT WINAPI
ItemMonikerImpl_IsDirty(IMoniker
* iface
)
214 /* Note that the OLE-provided implementations of the IPersistStream::IsDirty
215 method in the OLE-provided moniker interfaces always return S_FALSE because
216 their internal state never changes. */
218 TRACE(ole
,"(%p)\n",iface
);
223 /******************************************************************************
225 ******************************************************************************/
226 HRESULT WINAPI
ItemMonikerImpl_Load(IMoniker
* iface
,IStream
* pStm
)
229 ICOM_THIS(ItemMonikerImpl
,iface
);
231 DWORD delimiterLength
,nameLength
;
232 CHAR
*itemNameA
,*itemDelimiterA
;
235 /* for more details about data read by this function see coments of ItemMonikerImpl_Save function */
237 /* read item delimiter string length + 1 */
238 res
=IStream_Read(pStm
,&delimiterLength
,sizeof(DWORD
),&bread
);
239 if (bread
!= sizeof(DWORD
))
242 /* read item delimiter string */
243 itemDelimiterA
=HeapAlloc(GetProcessHeap(),0,delimiterLength
);
244 res
=IStream_Read(pStm
,itemDelimiterA
,delimiterLength
,&bread
);
245 if (bread
!= delimiterLength
)
248 This
->itemDelimiter
=HeapReAlloc(GetProcessHeap(),0,This
->itemDelimiter
,delimiterLength
*sizeof(WCHAR
));
249 if (!This
->itemDelimiter
)
250 return E_OUTOFMEMORY
;
252 lstrcpyAtoW(This
->itemDelimiter
,itemDelimiterA
);
254 /* read item name string length + 1*/
255 res
=IStream_Read(pStm
,&nameLength
,sizeof(DWORD
),&bread
);
256 if (bread
!= sizeof(DWORD
))
259 /* read item name string */
260 itemNameA
=HeapAlloc(GetProcessHeap(),0,nameLength
);
261 res
=IStream_Read(pStm
,itemNameA
,nameLength
,&bread
);
262 if (bread
!= nameLength
)
265 This
->itemName
=HeapReAlloc(GetProcessHeap(),0,This
->itemName
,nameLength
*sizeof(WCHAR
));
267 return E_OUTOFMEMORY
;
269 lstrcpyAtoW(This
->itemName
,itemNameA
);
274 /******************************************************************************
276 ******************************************************************************/
277 HRESULT WINAPI
ItemMonikerImpl_Save(IMoniker
* iface
,
278 IStream
* pStm
,/* pointer to the stream where the object is to be saved */
279 BOOL fClearDirty
)/* Specifies whether to clear the dirty flag */
281 ICOM_THIS(ItemMonikerImpl
,iface
);
283 DWORD delimiterLength
=lstrlenW(This
->itemDelimiter
)+1;
284 DWORD nameLength
=lstrlenW(This
->itemName
)+1;
285 CHAR
*itemNameA
,*itemDelimiterA
;
287 /* data writen by this function are : 1) DWORD : size of item delimiter string ('\0' included ) */
288 /* 2) String (type A): item delimiter string ('\0' included) */
289 /* 3) DWORD : size of item name string ('\0' included) */
290 /* 4) String (type A): item name string ('\0' included) */
292 itemNameA
=HeapAlloc(GetProcessHeap(),0,nameLength
);
293 itemDelimiterA
=HeapAlloc(GetProcessHeap(),0,delimiterLength
);
294 lstrcpyWtoA(itemNameA
,This
->itemName
);
295 lstrcpyWtoA(itemDelimiterA
,This
->itemDelimiter
);
297 res
=IStream_Write(pStm
,&delimiterLength
,sizeof(DWORD
),NULL
);
298 res
=IStream_Write(pStm
,itemDelimiterA
,delimiterLength
* sizeof(CHAR
),NULL
);
299 res
=IStream_Write(pStm
,&nameLength
,sizeof(DWORD
),NULL
);
300 res
=IStream_Write(pStm
,itemNameA
,nameLength
* sizeof(CHAR
),NULL
);
305 /******************************************************************************
306 * ItemMoniker_GetSizeMax
307 ******************************************************************************/
308 HRESULT WINAPI
ItemMonikerImpl_GetSizeMax(IMoniker
* iface
,
309 ULARGE_INTEGER
* pcbSize
)/* Pointer to size of stream needed to save object */
311 ICOM_THIS(ItemMonikerImpl
,iface
);
312 DWORD delimiterLength
=lstrlenW(This
->itemDelimiter
)+1;
313 DWORD nameLength
=lstrlenW(This
->itemName
)+1;
315 TRACE(ole
,"(%p,%p)\n",iface
,pcbSize
);
320 /* for more details see ItemMonikerImpl_Save coments */
322 pcbSize
->LowPart
= sizeof(DWORD
) + /* DWORD witch contains delimiter length */
323 delimiterLength
+ /* item delimiter string */
324 sizeof(DWORD
) + /* DWORD witch contains item name length */
325 nameLength
+ /* item name string */
326 34; /* this constant was added ! because when I tested this function it usually */
327 /* returns 34 bytes more than the number of bytes used by IMoniker::Save function */
333 /******************************************************************************
334 * ItemMoniker_Construct (local function)
335 *******************************************************************************/
336 HRESULT WINAPI
ItemMonikerImpl_Construct(ItemMonikerImpl
* This
, LPCOLESTR lpszDelim
,LPCOLESTR lpszItem
)
339 int sizeStr1
=lstrlenW(lpszItem
);
340 int sizeStr2
=lstrlenW(lpszDelim
);
342 TRACE(ole
,"(%p,%p)\n",This
,lpszItem
);
344 /* Initialize the virtual fgunction table. */
345 This
->lpvtbl1
= &VT_ItemMonikerImpl
;
346 This
->lpvtbl2
= &VT_ROTDataImpl
;
349 This
->itemName
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(sizeStr1
+1));
350 This
->itemDelimiter
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(sizeStr2
+1));
352 if ((This
->itemName
==NULL
)||(This
->itemDelimiter
==NULL
))
353 return E_OUTOFMEMORY
;
355 lstrcpyW(This
->itemName
,lpszItem
);
356 lstrcpyW(This
->itemDelimiter
,lpszDelim
);
361 /******************************************************************************
362 * ItemMoniker_Destroy (local function)
363 *******************************************************************************/
364 HRESULT WINAPI
ItemMonikerImpl_Destroy(ItemMonikerImpl
* This
)
366 TRACE(ole
,"(%p)\n",This
);
369 HeapFree(GetProcessHeap(),0,This
->itemName
);
371 if (This
->itemDelimiter
)
372 HeapFree(GetProcessHeap(),0,This
->itemDelimiter
);
374 HeapFree(GetProcessHeap(),0,This
);
379 /******************************************************************************
380 * ItemMoniker_BindToObject
381 ******************************************************************************/
382 HRESULT WINAPI
ItemMonikerImpl_BindToObject(IMoniker
* iface
,
388 ICOM_THIS(ItemMonikerImpl
,iface
);
391 IID refid
=IID_IOleItemContainer
;
392 IOleItemContainer
*poic
=0;
394 TRACE(ole
,"(%p,%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,riid
,ppvResult
);
404 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&refid
,(void**)&poic
);
408 res
=IOleItemContainer_GetObject(poic
,This
->itemName
,BINDSPEED_MODERATE
,pbc
,riid
,ppvResult
);
410 IOleItemContainer_Release(poic
);
416 /******************************************************************************
417 * ItemMoniker_BindToStorage
418 ******************************************************************************/
419 HRESULT WINAPI
ItemMonikerImpl_BindToStorage(IMoniker
* iface
,
425 ICOM_THIS(ItemMonikerImpl
,iface
);
428 IOleItemContainer
*poic
=0;
430 TRACE(ole
,"(%p,%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,riid
,ppvResult
);
437 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
441 res
=IOleItemContainer_GetObjectStorage(poic
,This
->itemName
,pbc
,riid
,ppvResult
);
443 IOleItemContainer_Release(poic
);
449 /******************************************************************************
451 ******************************************************************************/
452 HRESULT WINAPI
ItemMonikerImpl_Reduce(IMoniker
* iface
,
454 DWORD dwReduceHowFar
,
455 IMoniker
** ppmkToLeft
,
456 IMoniker
** ppmkReduced
)
458 TRACE(ole
,"(%p,%p,%ld,%p,%p)\n",iface
,pbc
,dwReduceHowFar
,ppmkToLeft
,ppmkReduced
);
460 if (ppmkReduced
==NULL
)
463 ItemMonikerImpl_AddRef(iface
);
467 return MK_S_REDUCED_TO_SELF
;
469 /******************************************************************************
470 * ItemMoniker_ComposeWith
471 ******************************************************************************/
472 HRESULT WINAPI
ItemMonikerImpl_ComposeWith(IMoniker
* iface
,
474 BOOL fOnlyIfNotGeneric
,
475 IMoniker
** ppmkComposite
)
479 IEnumMoniker
* penumMk
=0;
480 IMoniker
*pmostLeftMk
=0;
481 IMoniker
* tempMkComposite
=0;
483 TRACE(ole
,"(%p,%p,%d,%p)\n",iface
,pmkRight
,fOnlyIfNotGeneric
,ppmkComposite
);
485 if ((ppmkComposite
==NULL
)||(pmkRight
==NULL
))
490 IMoniker_IsSystemMoniker(pmkRight
,&mkSys
);
492 /* If pmkRight is an anti-moniker, the returned moniker is NULL */
493 if(mkSys
==MKSYS_ANTIMONIKER
)
497 /* if pmkRight is a composite whose leftmost component is an anti-moniker, */
498 /* the returned moniker is the composite after the leftmost anti-moniker is removed. */
500 if(mkSys
==MKSYS_GENERICCOMPOSITE
){
502 res
=IMoniker_Enum(pmkRight
,TRUE
,&penumMk
);
507 res
=IEnumMoniker_Next(penumMk
,1,&pmostLeftMk
,NULL
);
509 IMoniker_IsSystemMoniker(pmostLeftMk
,&mkSys2
);
511 if(mkSys2
==MKSYS_ANTIMONIKER
){
513 IMoniker_Release(pmostLeftMk
);
515 tempMkComposite
=iface
;
516 IMoniker_AddRef(iface
);
518 while(IEnumMoniker_Next(penumMk
,1,&pmostLeftMk
,NULL
)==S_OK
){
520 res
=CreateGenericComposite(tempMkComposite
,pmostLeftMk
,ppmkComposite
);
522 IMoniker_Release(tempMkComposite
);
523 IMoniker_Release(pmostLeftMk
);
525 tempMkComposite
=*ppmkComposite
;
526 IMoniker_AddRef(tempMkComposite
);
531 return CreateGenericComposite(iface
,pmkRight
,ppmkComposite
);
533 /* If pmkRight is not an anti-moniker, the method combines the two monikers into a generic
534 composite if fOnlyIfNotGeneric is FALSE; if fOnlyIfNotGeneric is TRUE, the method returns
535 a NULL moniker and a return value of MK_E_NEEDGENERIC */
537 if (!fOnlyIfNotGeneric
)
538 return CreateGenericComposite(iface
,pmkRight
,ppmkComposite
);
541 return MK_E_NEEDGENERIC
;
544 /******************************************************************************
546 ******************************************************************************/
547 HRESULT WINAPI
ItemMonikerImpl_Enum(IMoniker
* iface
,BOOL fForward
, IEnumMoniker
** ppenumMoniker
)
549 TRACE(ole
,"(%p,%d,%p)\n",iface
,fForward
,ppenumMoniker
);
551 if (ppenumMoniker
== NULL
)
554 *ppenumMoniker
= NULL
;
559 /******************************************************************************
560 * ItemMoniker_IsEqual
561 ******************************************************************************/
562 HRESULT WINAPI
ItemMonikerImpl_IsEqual(IMoniker
* iface
,IMoniker
* pmkOtherMoniker
)
566 LPOLESTR dispName1
,dispName2
;
570 TRACE(ole
,"(%p,%p)\n",iface
,pmkOtherMoniker
);
572 if (pmkOtherMoniker
==NULL
)
575 /* This method returns S_OK if both monikers are item monikers and their display names are */
576 /* identical (using a case-insensitive comparison); otherwise, the method returns S_FALSE. */
578 IMoniker_GetClassID(pmkOtherMoniker
,&clsid
);
580 if (!IsEqualCLSID(&clsid
,&CLSID_ItemMoniker
))
583 res
=CreateBindCtx(0,&bind
);
587 IMoniker_GetDisplayName(iface
,bind
,NULL
,&dispName1
);
588 IMoniker_GetDisplayName(pmkOtherMoniker
,bind
,NULL
,&dispName2
);
590 if (lstrcmpW(dispName1
,dispName2
)!=0)
596 /******************************************************************************
598 ******************************************************************************/
599 HRESULT WINAPI
ItemMonikerImpl_Hash(IMoniker
* iface
,DWORD
* pdwHash
)
601 ICOM_THIS(ItemMonikerImpl
,iface
);
603 int h
= 0,i
,skip
,len
;
610 val
= This
->itemName
;
614 for (i
= len
; i
> 0; i
--) {
615 h
= (h
* 37) + val
[off
++];
618 /* only sample some characters */
620 for (i
= len
; i
> 0; i
-= skip
, off
+= skip
) {
621 h
= (h
* 39) + val
[off
];
630 /******************************************************************************
631 * ItemMoniker_IsRunning
632 ******************************************************************************/
633 HRESULT WINAPI
ItemMonikerImpl_IsRunning(IMoniker
* iface
,
636 IMoniker
* pmkNewlyRunning
)
638 IRunningObjectTable
* rot
;
640 IOleItemContainer
*poic
=0;
641 ICOM_THIS(ItemMonikerImpl
,iface
);
643 TRACE(ole
,"(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,pmkNewlyRunning
);
645 /* If pmkToLeft is NULL, this method returns TRUE if pmkNewlyRunning is non-NULL and is equal to this */
646 /* moniker. Otherwise, the method checks the ROT to see whether this moniker is running. */
648 if ((pmkNewlyRunning
!=NULL
)&&(IMoniker_IsEqual(pmkNewlyRunning
,iface
)==S_OK
))
654 res
=IBindCtx_GetRunningObjectTable(pbc
,&rot
);
659 res
= IRunningObjectTable_IsRunning(rot
,iface
);
661 IRunningObjectTable_Release(rot
);
665 /* If pmkToLeft is non-NULL, the method calls IMoniker::BindToObject on the pmkToLeft parameter, */
666 /* requesting an IOleItemContainer interface pointer. The method then calls IOleItemContainer::IsRunning,*/
667 /* passing the string contained within this moniker. */
669 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
673 res
=IOleItemContainer_IsRunning(poic
,This
->itemName
);
675 IOleItemContainer_Release(poic
);
682 /******************************************************************************
683 * ItemMoniker_GetTimeOfLastChange
684 ******************************************************************************/
685 HRESULT WINAPI
ItemMonikerImpl_GetTimeOfLastChange(IMoniker
* iface
,
690 IRunningObjectTable
* rot
;
692 IMoniker
*compositeMk
;
694 TRACE(ole
,"(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,pItemTime
);
699 /* If pmkToLeft is NULL, this method returns MK_E_NOTBINDABLE */
702 return MK_E_NOTBINDABLE
;
705 /* Otherwise, the method creates a composite of pmkToLeft and this moniker and uses the ROT to access */
706 /* the time of last change. If the object is not in the ROT, the method calls */
707 /* IMoniker::GetTimeOfLastChange on the pmkToLeft parameter. */
709 res
=CreateGenericComposite(pmkToLeft
,iface
,&compositeMk
);
711 res
=IBindCtx_GetRunningObjectTable(pbc
,&rot
);
713 if (IRunningObjectTable_GetTimeOfLastChange(rot
,compositeMk
,pItemTime
)!=S_OK
)
715 res
=IMoniker_GetTimeOfLastChange(pmkToLeft
,pbc
,NULL
,pItemTime
);
717 IMoniker_Release(compositeMk
);
723 /******************************************************************************
724 * ItemMoniker_Inverse
725 ******************************************************************************/
726 HRESULT WINAPI
ItemMonikerImpl_Inverse(IMoniker
* iface
,IMoniker
** ppmk
)
728 TRACE(ole
,"(%p,%p)\n",iface
,ppmk
);
733 return CreateAntiMoniker(ppmk
);
736 /******************************************************************************
737 * ItemMoniker_CommonPrefixWith
738 ******************************************************************************/
739 HRESULT WINAPI
ItemMonikerImpl_CommonPrefixWith(IMoniker
* iface
,IMoniker
* pmkOther
,IMoniker
** ppmkPrefix
)
742 IMoniker_IsSystemMoniker(pmkOther
,&mkSys
);
743 /* If the other moniker is an item moniker that is equal to this moniker, this method sets *ppmkPrefix */
744 /* to this moniker and returns MK_S_US */
746 if((mkSys
==MKSYS_ITEMMONIKER
) && (IMoniker_IsEqual(iface
,pmkOther
)==S_OK
) ){
750 IMoniker_AddRef(iface
);
755 /* otherwise, the method calls the MonikerCommonPrefixWith function. This function correctly handles */
756 /* the case where the other moniker is a generic composite. */
757 return MonikerCommonPrefixWith(iface
,pmkOther
,ppmkPrefix
);
760 /******************************************************************************
761 * ItemMoniker_RelativePathTo
762 ******************************************************************************/
763 HRESULT WINAPI
ItemMonikerImpl_RelativePathTo(IMoniker
* iface
,IMoniker
* pmOther
, IMoniker
** ppmkRelPath
)
765 TRACE(ole
,"(%p,%p,%p)\n",iface
,pmOther
,ppmkRelPath
);
767 if (ppmkRelPath
==NULL
)
772 return MK_E_NOTBINDABLE
;
775 /******************************************************************************
776 * ItemMoniker_GetDisplayName
777 ******************************************************************************/
778 HRESULT WINAPI
ItemMonikerImpl_GetDisplayName(IMoniker
* iface
,
781 LPOLESTR
*ppszDisplayName
)
783 ICOM_THIS(ItemMonikerImpl
,iface
);
785 TRACE(ole
,"(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,ppszDisplayName
);
787 if (ppszDisplayName
==NULL
)
790 if (pmkToLeft
!=NULL
){
794 *ppszDisplayName
=CoTaskMemAlloc(sizeof(WCHAR
)*(lstrlenW(This
->itemDelimiter
)+lstrlenW(This
->itemName
)+1));
796 if (*ppszDisplayName
==NULL
)
797 return E_OUTOFMEMORY
;
799 lstrcpyW(*ppszDisplayName
,This
->itemDelimiter
);
800 lstrcatW(*ppszDisplayName
,This
->itemName
);
805 /******************************************************************************
806 * ItemMoniker_ParseDisplayName
807 ******************************************************************************/
808 HRESULT WINAPI
ItemMonikerImpl_ParseDisplayName(IMoniker
* iface
,
811 LPOLESTR pszDisplayName
,
815 IOleItemContainer
* poic
=0;
816 IParseDisplayName
* ppdn
=0;
817 LPOLESTR displayName
;
819 ICOM_THIS(ItemMonikerImpl
,iface
);
821 /* If pmkToLeft is NULL, this method returns MK_E_SYNTAX */
827 /* Otherwise, the method calls IMoniker::BindToObject on the pmkToLeft parameter, requesting an */
828 /* IParseDisplayName interface pointer to the object identified by the moniker, and passes the display */ /* name to IParseDisplayName::ParseDisplayName */
829 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
833 res
=IOleItemContainer_GetObject(poic
,This
->itemName
,BINDSPEED_MODERATE
,pbc
,&IID_IParseDisplayName
,(void**)&ppdn
);
835 res
=IMoniker_GetDisplayName(iface
,pbc
,NULL
,&displayName
);
837 res
=IParseDisplayName_ParseDisplayName(ppdn
,pbc
,displayName
,pchEaten
,ppmkOut
);
839 IOleItemContainer_Release(poic
);
840 IParseDisplayName_Release(ppdn
);
846 /******************************************************************************
847 * ItemMoniker_IsSystemMonker
848 ******************************************************************************/
849 HRESULT WINAPI
ItemMonikerImpl_IsSystemMoniker(IMoniker
* iface
,DWORD
* pwdMksys
)
851 TRACE(ole
,"(%p,%p)\n",iface
,pwdMksys
);
856 (*pwdMksys
)=MKSYS_ITEMMONIKER
;
861 /*******************************************************************************
862 * ItemMonikerIROTData_QueryInterface
863 *******************************************************************************/
864 HRESULT WINAPI
ItemMonikerROTDataImpl_QueryInterface(IROTData
*iface
,REFIID riid
,VOID
** ppvObject
)
867 ICOM_THIS_From_IROTData(IMoniker
, iface
);
869 TRACE(ole
,"(%p,%p,%p)\n",iface
,riid
,ppvObject
);
871 return ItemMonikerImpl_QueryInterface(This
, riid
, ppvObject
);
874 /***********************************************************************
875 * ItemMonikerIROTData_AddRef
877 ULONG WINAPI
ItemMonikerROTDataImpl_AddRef(IROTData
*iface
)
879 ICOM_THIS_From_IROTData(IMoniker
, iface
);
881 TRACE(ole
,"(%p)\n",iface
);
883 return ItemMonikerImpl_AddRef(This
);
886 /***********************************************************************
887 * ItemMonikerIROTData_Release
889 ULONG WINAPI
ItemMonikerROTDataImpl_Release(IROTData
* iface
)
891 ICOM_THIS_From_IROTData(IMoniker
, iface
);
893 TRACE(ole
,"(%p)\n",iface
);
895 return ItemMonikerImpl_Release(This
);
898 /******************************************************************************
899 * ItemMonikerIROTData_GetComparaisonData
900 ******************************************************************************/
901 HRESULT WINAPI
ItemMonikerROTDataImpl_GetComparaisonData(IROTData
* iface
,
906 FIXME(ole
,"(),stub!\n");
910 /******************************************************************************
911 * CreateItemMoniker16 [OLE2.28]
912 ******************************************************************************/
913 HRESULT WINAPI
CreateItemMoniker16(LPCOLESTR16 lpszDelim
,LPCOLESTR lpszItem
,LPMONIKER
* ppmk
)
916 FIXME(ole
,"(%s,%p),stub!\n",lpszDelim
,ppmk
);
921 /******************************************************************************
922 * CreateItemMoniker [OLE.55]
923 ******************************************************************************/
924 HRESULT WINAPI
CreateItemMoniker(LPCOLESTR lpszDelim
,LPCOLESTR lpszItem
, LPMONIKER
* ppmk
)
926 ItemMonikerImpl
* newItemMoniker
= 0;
928 IID riid
=IID_IMoniker
;
930 TRACE(ole
,"(%p,%p,%p)\n",lpszDelim
,lpszItem
,ppmk
);
932 newItemMoniker
= HeapAlloc(GetProcessHeap(), 0, sizeof(ItemMonikerImpl
));
934 if (newItemMoniker
== 0)
935 return STG_E_INSUFFICIENTMEMORY
;
937 hr
= ItemMonikerImpl_Construct(newItemMoniker
,lpszDelim
,lpszItem
);
941 HeapFree(GetProcessHeap(),0,newItemMoniker
);
945 return ItemMonikerImpl_QueryInterface((IMoniker
*)newItemMoniker
,&riid
,(void**)ppmk
);