1 /***************************************************************************************
2 * ItemMonikers implementation
4 * Copyright 1999 Noomen Hamza
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 ***************************************************************************************/
26 #include "wine/debug.h"
27 #include "wine/obj_base.h"
28 #include "wine/obj_misc.h"
29 #include "wine/obj_storage.h"
30 #include "wine/obj_moniker.h"
31 #include "wine/obj_inplace.h"
32 #include "wine/unicode.h"
34 WINE_DEFAULT_DEBUG_CHANNEL(ole
);
36 /* ItemMoniker data structure */
37 typedef struct ItemMonikerImpl
{
39 ICOM_VTABLE(IMoniker
)* lpvtbl1
; /* VTable relative to the IMoniker interface.*/
41 /* The ROT (RunningObjectTable implementation) uses the IROTData interface to test whether
42 * two monikers are equal. That's whay IROTData interface is implemented by monikers.
44 ICOM_VTABLE(IROTData
)* lpvtbl2
; /* VTable relative to the IROTData interface.*/
46 ULONG ref
; /* reference counter for this object */
48 LPOLESTR itemName
; /* item name identified by this ItemMoniker */
50 LPOLESTR itemDelimiter
; /* Delimiter string */
54 /********************************************************************************/
55 /* ItemMoniker prototype functions : */
57 /* IUnknown prototype functions */
58 static HRESULT WINAPI
ItemMonikerImpl_QueryInterface(IMoniker
* iface
,REFIID riid
,void** ppvObject
);
59 static ULONG WINAPI
ItemMonikerImpl_AddRef(IMoniker
* iface
);
60 static ULONG WINAPI
ItemMonikerImpl_Release(IMoniker
* iface
);
62 /* IPersist prototype functions */
63 static HRESULT WINAPI
ItemMonikerImpl_GetClassID(IMoniker
* iface
, CLSID
*pClassID
);
65 /* IPersistStream prototype functions */
66 static HRESULT WINAPI
ItemMonikerImpl_IsDirty(IMoniker
* iface
);
67 static HRESULT WINAPI
ItemMonikerImpl_Load(IMoniker
* iface
, IStream
* pStm
);
68 static HRESULT WINAPI
ItemMonikerImpl_Save(IMoniker
* iface
, IStream
* pStm
, BOOL fClearDirty
);
69 static HRESULT WINAPI
ItemMonikerImpl_GetSizeMax(IMoniker
* iface
, ULARGE_INTEGER
* pcbSize
);
71 /* IMoniker prototype functions */
72 static HRESULT WINAPI
ItemMonikerImpl_BindToObject(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, REFIID riid
, VOID
** ppvResult
);
73 static HRESULT WINAPI
ItemMonikerImpl_BindToStorage(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, REFIID riid
, VOID
** ppvResult
);
74 static HRESULT WINAPI
ItemMonikerImpl_Reduce(IMoniker
* iface
,IBindCtx
* pbc
, DWORD dwReduceHowFar
,IMoniker
** ppmkToLeft
, IMoniker
** ppmkReduced
);
75 static HRESULT WINAPI
ItemMonikerImpl_ComposeWith(IMoniker
* iface
,IMoniker
* pmkRight
,BOOL fOnlyIfNotGeneric
, IMoniker
** ppmkComposite
);
76 static HRESULT WINAPI
ItemMonikerImpl_Enum(IMoniker
* iface
,BOOL fForward
, IEnumMoniker
** ppenumMoniker
);
77 static HRESULT WINAPI
ItemMonikerImpl_IsEqual(IMoniker
* iface
,IMoniker
* pmkOtherMoniker
);
78 static HRESULT WINAPI
ItemMonikerImpl_Hash(IMoniker
* iface
,DWORD
* pdwHash
);
79 static HRESULT WINAPI
ItemMonikerImpl_IsRunning(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, IMoniker
* pmkNewlyRunning
);
80 static HRESULT WINAPI
ItemMonikerImpl_GetTimeOfLastChange(IMoniker
* iface
, IBindCtx
* pbc
, IMoniker
* pmkToLeft
, FILETIME
* pItemTime
);
81 static HRESULT WINAPI
ItemMonikerImpl_Inverse(IMoniker
* iface
,IMoniker
** ppmk
);
82 static HRESULT WINAPI
ItemMonikerImpl_CommonPrefixWith(IMoniker
* iface
,IMoniker
* pmkOther
, IMoniker
** ppmkPrefix
);
83 static HRESULT WINAPI
ItemMonikerImpl_RelativePathTo(IMoniker
* iface
,IMoniker
* pmOther
, IMoniker
** ppmkRelPath
);
84 static HRESULT WINAPI
ItemMonikerImpl_GetDisplayName(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, LPOLESTR
*ppszDisplayName
);
85 static HRESULT WINAPI
ItemMonikerImpl_ParseDisplayName(IMoniker
* iface
,IBindCtx
* pbc
, IMoniker
* pmkToLeft
, LPOLESTR pszDisplayName
, ULONG
* pchEaten
, IMoniker
** ppmkOut
);
86 static HRESULT WINAPI
ItemMonikerImpl_IsSystemMoniker(IMoniker
* iface
,DWORD
* pwdMksys
);
88 /* Local function used by ItemMoniker implementation */
89 HRESULT WINAPI
ItemMonikerImpl_Construct(ItemMonikerImpl
* iface
, LPCOLESTR lpszDelim
,LPCOLESTR lpszPathName
);
90 HRESULT WINAPI
ItemMonikerImpl_Destroy(ItemMonikerImpl
* iface
);
92 /********************************************************************************/
93 /* IROTData prototype functions */
95 /* IUnknown prototype functions */
96 static HRESULT WINAPI
ItemMonikerROTDataImpl_QueryInterface(IROTData
* iface
,REFIID riid
,VOID
** ppvObject
);
97 static ULONG WINAPI
ItemMonikerROTDataImpl_AddRef(IROTData
* iface
);
98 static ULONG WINAPI
ItemMonikerROTDataImpl_Release(IROTData
* iface
);
100 /* IROTData prototype function */
101 static HRESULT WINAPI
ItemMonikerROTDataImpl_GetComparaisonData(IROTData
* iface
,BYTE
* pbData
,ULONG cbMax
,ULONG
* pcbData
);
103 /********************************************************************************/
104 /* Virtual function table for the ItemMonikerImpl class which include IPersist,*/
105 /* IPersistStream and IMoniker functions. */
106 static ICOM_VTABLE(IMoniker
) VT_ItemMonikerImpl
=
108 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
109 ItemMonikerImpl_QueryInterface
,
110 ItemMonikerImpl_AddRef
,
111 ItemMonikerImpl_Release
,
112 ItemMonikerImpl_GetClassID
,
113 ItemMonikerImpl_IsDirty
,
114 ItemMonikerImpl_Load
,
115 ItemMonikerImpl_Save
,
116 ItemMonikerImpl_GetSizeMax
,
117 ItemMonikerImpl_BindToObject
,
118 ItemMonikerImpl_BindToStorage
,
119 ItemMonikerImpl_Reduce
,
120 ItemMonikerImpl_ComposeWith
,
121 ItemMonikerImpl_Enum
,
122 ItemMonikerImpl_IsEqual
,
123 ItemMonikerImpl_Hash
,
124 ItemMonikerImpl_IsRunning
,
125 ItemMonikerImpl_GetTimeOfLastChange
,
126 ItemMonikerImpl_Inverse
,
127 ItemMonikerImpl_CommonPrefixWith
,
128 ItemMonikerImpl_RelativePathTo
,
129 ItemMonikerImpl_GetDisplayName
,
130 ItemMonikerImpl_ParseDisplayName
,
131 ItemMonikerImpl_IsSystemMoniker
134 /********************************************************************************/
135 /* Virtual function table for the IROTData class. */
136 static ICOM_VTABLE(IROTData
) VT_ROTDataImpl
=
138 ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
139 ItemMonikerROTDataImpl_QueryInterface
,
140 ItemMonikerROTDataImpl_AddRef
,
141 ItemMonikerROTDataImpl_Release
,
142 ItemMonikerROTDataImpl_GetComparaisonData
145 /*******************************************************************************
146 * ItemMoniker_QueryInterface
147 *******************************************************************************/
148 HRESULT WINAPI
ItemMonikerImpl_QueryInterface(IMoniker
* iface
,REFIID riid
,void** ppvObject
)
150 ICOM_THIS(ItemMonikerImpl
,iface
);
152 TRACE("(%p,%p,%p)\n",This
,riid
,ppvObject
);
154 /* Perform a sanity check on the parameters.*/
155 if ( (This
==0) || (ppvObject
==0) )
158 /* Initialize the return parameter */
161 /* Compare the riid with the interface IDs implemented by this object.*/
162 if (IsEqualIID(&IID_IUnknown
, riid
) ||
163 IsEqualIID(&IID_IPersist
, riid
) ||
164 IsEqualIID(&IID_IPersistStream
, riid
) ||
165 IsEqualIID(&IID_IMoniker
, riid
)
169 else if (IsEqualIID(&IID_IROTData
, riid
))
170 *ppvObject
= (IROTData
*)&(This
->lpvtbl2
);
172 /* Check that we obtained an interface.*/
174 return E_NOINTERFACE
;
176 /* Query Interface always increases the reference count by one when it is successful */
177 ItemMonikerImpl_AddRef(iface
);
182 /******************************************************************************
184 ******************************************************************************/
185 ULONG WINAPI
ItemMonikerImpl_AddRef(IMoniker
* iface
)
187 ICOM_THIS(ItemMonikerImpl
,iface
);
189 TRACE("(%p)\n",This
);
191 return ++(This
->ref
);
194 /******************************************************************************
195 * ItemMoniker_Release
196 ******************************************************************************/
197 ULONG WINAPI
ItemMonikerImpl_Release(IMoniker
* iface
)
199 ICOM_THIS(ItemMonikerImpl
,iface
);
201 TRACE("(%p)\n",This
);
205 /* destroy the object if there's no more reference on it */
208 ItemMonikerImpl_Destroy(This
);
215 /******************************************************************************
216 * ItemMoniker_GetClassID
217 ******************************************************************************/
218 HRESULT WINAPI
ItemMonikerImpl_GetClassID(IMoniker
* iface
,CLSID
*pClassID
)
220 TRACE("(%p,%p),stub!\n",iface
,pClassID
);
225 *pClassID
= CLSID_ItemMoniker
;
230 /******************************************************************************
231 * ItemMoniker_IsDirty
232 ******************************************************************************/
233 HRESULT WINAPI
ItemMonikerImpl_IsDirty(IMoniker
* iface
)
235 /* Note that the OLE-provided implementations of the IPersistStream::IsDirty
236 method in the OLE-provided moniker interfaces always return S_FALSE because
237 their internal state never changes. */
239 TRACE("(%p)\n",iface
);
244 /******************************************************************************
246 ******************************************************************************/
247 HRESULT WINAPI
ItemMonikerImpl_Load(IMoniker
* iface
,IStream
* pStm
)
250 ICOM_THIS(ItemMonikerImpl
,iface
);
252 DWORD delimiterLength
,nameLength
,lenW
;
253 CHAR
*itemNameA
,*itemDelimiterA
;
256 /* for more details about data read by this function see coments of ItemMonikerImpl_Save function */
258 /* read item delimiter string length + 1 */
259 res
=IStream_Read(pStm
,&delimiterLength
,sizeof(DWORD
),&bread
);
260 if (bread
!= sizeof(DWORD
))
263 /* read item delimiter string */
264 if (!(itemDelimiterA
=HeapAlloc(GetProcessHeap(),0,delimiterLength
)))
265 return E_OUTOFMEMORY
;
266 res
=IStream_Read(pStm
,itemDelimiterA
,delimiterLength
,&bread
);
267 if (bread
!= delimiterLength
)
269 HeapFree( GetProcessHeap(), 0, itemDelimiterA
);
273 lenW
= MultiByteToWideChar( CP_ACP
, 0, itemDelimiterA
, -1, NULL
, 0 );
274 This
->itemDelimiter
=HeapReAlloc(GetProcessHeap(),0,This
->itemDelimiter
,lenW
*sizeof(WCHAR
));
275 if (!This
->itemDelimiter
)
277 HeapFree( GetProcessHeap(), 0, itemDelimiterA
);
278 return E_OUTOFMEMORY
;
280 MultiByteToWideChar( CP_ACP
, 0, itemDelimiterA
, -1, This
->itemDelimiter
, lenW
);
281 HeapFree( GetProcessHeap(), 0, itemDelimiterA
);
283 /* read item name string length + 1*/
284 res
=IStream_Read(pStm
,&nameLength
,sizeof(DWORD
),&bread
);
285 if (bread
!= sizeof(DWORD
))
288 /* read item name string */
289 if (!(itemNameA
=HeapAlloc(GetProcessHeap(),0,nameLength
)))
290 return E_OUTOFMEMORY
;
291 res
=IStream_Read(pStm
,itemNameA
,nameLength
,&bread
);
292 if (bread
!= nameLength
)
294 HeapFree( GetProcessHeap(), 0, itemNameA
);
298 lenW
= MultiByteToWideChar( CP_ACP
, 0, itemNameA
, -1, NULL
, 0 );
299 This
->itemName
=HeapReAlloc(GetProcessHeap(),0,This
->itemName
,lenW
*sizeof(WCHAR
));
302 HeapFree( GetProcessHeap(), 0, itemNameA
);
303 return E_OUTOFMEMORY
;
305 MultiByteToWideChar( CP_ACP
, 0, itemNameA
, -1, This
->itemName
, lenW
);
306 HeapFree( GetProcessHeap(), 0, itemNameA
);
311 /******************************************************************************
313 ******************************************************************************/
314 HRESULT WINAPI
ItemMonikerImpl_Save(IMoniker
* iface
,
315 IStream
* pStm
,/* pointer to the stream where the object is to be saved */
316 BOOL fClearDirty
)/* Specifies whether to clear the dirty flag */
318 ICOM_THIS(ItemMonikerImpl
,iface
);
320 CHAR
*itemNameA
,*itemDelimiterA
;
322 /* data writen by this function are : 1) DWORD : size of item delimiter string ('\0' included ) */
323 /* 2) String (type A): item delimiter string ('\0' included) */
324 /* 3) DWORD : size of item name string ('\0' included) */
325 /* 4) String (type A): item name string ('\0' included) */
327 DWORD nameLength
= WideCharToMultiByte( CP_ACP
, 0, This
->itemName
, -1, NULL
, 0, NULL
, NULL
);
328 DWORD delimiterLength
= WideCharToMultiByte( CP_ACP
, 0, This
->itemDelimiter
, -1, NULL
, 0, NULL
, NULL
);
329 itemNameA
=HeapAlloc(GetProcessHeap(),0,nameLength
);
330 itemDelimiterA
=HeapAlloc(GetProcessHeap(),0,delimiterLength
);
331 WideCharToMultiByte( CP_ACP
, 0, This
->itemName
, -1, itemNameA
, nameLength
, NULL
, NULL
);
332 WideCharToMultiByte( CP_ACP
, 0, This
->itemDelimiter
, -1, itemDelimiterA
, delimiterLength
, NULL
, NULL
);
334 res
=IStream_Write(pStm
,&delimiterLength
,sizeof(DWORD
),NULL
);
335 res
=IStream_Write(pStm
,itemDelimiterA
,delimiterLength
* sizeof(CHAR
),NULL
);
336 res
=IStream_Write(pStm
,&nameLength
,sizeof(DWORD
),NULL
);
337 res
=IStream_Write(pStm
,itemNameA
,nameLength
* sizeof(CHAR
),NULL
);
342 /******************************************************************************
343 * ItemMoniker_GetSizeMax
344 ******************************************************************************/
345 HRESULT WINAPI
ItemMonikerImpl_GetSizeMax(IMoniker
* iface
,
346 ULARGE_INTEGER
* pcbSize
)/* Pointer to size of stream needed to save object */
348 ICOM_THIS(ItemMonikerImpl
,iface
);
349 DWORD delimiterLength
=lstrlenW(This
->itemDelimiter
)+1;
350 DWORD nameLength
=lstrlenW(This
->itemName
)+1;
352 TRACE("(%p,%p)\n",iface
,pcbSize
);
357 /* for more details see ItemMonikerImpl_Save coments */
359 pcbSize
->s
.LowPart
= sizeof(DWORD
) + /* DWORD which contains delimiter length */
360 delimiterLength
+ /* item delimiter string */
361 sizeof(DWORD
) + /* DWORD which contains item name length */
362 nameLength
+ /* item name string */
363 34; /* this constant was added ! because when I tested this function it usually */
364 /* returns 34 bytes more than the number of bytes used by IMoniker::Save function */
365 pcbSize
->s
.HighPart
=0;
370 /******************************************************************************
371 * ItemMoniker_Construct (local function)
372 *******************************************************************************/
373 HRESULT WINAPI
ItemMonikerImpl_Construct(ItemMonikerImpl
* This
, LPCOLESTR lpszDelim
,LPCOLESTR lpszItem
)
376 int sizeStr1
=lstrlenW(lpszItem
), sizeStr2
;
377 static const OLECHAR emptystr
[1];
380 TRACE("(%p,%p)\n",This
,lpszItem
);
382 /* Initialize the virtual fgunction table. */
383 This
->lpvtbl1
= &VT_ItemMonikerImpl
;
384 This
->lpvtbl2
= &VT_ROTDataImpl
;
387 This
->itemName
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(sizeStr1
+1));
389 return E_OUTOFMEMORY
;
390 strcpyW(This
->itemName
,lpszItem
);
393 FIXME("lpszDelim is NULL. Using empty string which is possibly wrong.\n");
395 delim
= lpszDelim
? lpszDelim
: emptystr
;
397 sizeStr2
=strlenW(delim
);
398 This
->itemDelimiter
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(sizeStr2
+1));
399 if (!This
->itemDelimiter
) {
400 HeapFree(GetProcessHeap(),0,This
->itemName
);
401 return E_OUTOFMEMORY
;
403 strcpyW(This
->itemDelimiter
,delim
);
407 /******************************************************************************
408 * ItemMoniker_Destroy (local function)
409 *******************************************************************************/
410 HRESULT WINAPI
ItemMonikerImpl_Destroy(ItemMonikerImpl
* This
)
412 TRACE("(%p)\n",This
);
415 HeapFree(GetProcessHeap(),0,This
->itemName
);
417 if (This
->itemDelimiter
)
418 HeapFree(GetProcessHeap(),0,This
->itemDelimiter
);
420 HeapFree(GetProcessHeap(),0,This
);
425 /******************************************************************************
426 * ItemMoniker_BindToObject
427 ******************************************************************************/
428 HRESULT WINAPI
ItemMonikerImpl_BindToObject(IMoniker
* iface
,
434 ICOM_THIS(ItemMonikerImpl
,iface
);
437 IID refid
=IID_IOleItemContainer
;
438 IOleItemContainer
*poic
=0;
440 TRACE("(%p,%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,riid
,ppvResult
);
450 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&refid
,(void**)&poic
);
454 res
=IOleItemContainer_GetObject(poic
,This
->itemName
,BINDSPEED_MODERATE
,pbc
,riid
,ppvResult
);
456 IOleItemContainer_Release(poic
);
462 /******************************************************************************
463 * ItemMoniker_BindToStorage
464 ******************************************************************************/
465 HRESULT WINAPI
ItemMonikerImpl_BindToStorage(IMoniker
* iface
,
471 ICOM_THIS(ItemMonikerImpl
,iface
);
474 IOleItemContainer
*poic
=0;
476 TRACE("(%p,%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,riid
,ppvResult
);
483 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
487 res
=IOleItemContainer_GetObjectStorage(poic
,This
->itemName
,pbc
,riid
,ppvResult
);
489 IOleItemContainer_Release(poic
);
495 /******************************************************************************
497 ******************************************************************************/
498 HRESULT WINAPI
ItemMonikerImpl_Reduce(IMoniker
* iface
,
500 DWORD dwReduceHowFar
,
501 IMoniker
** ppmkToLeft
,
502 IMoniker
** ppmkReduced
)
504 TRACE("(%p,%p,%ld,%p,%p)\n",iface
,pbc
,dwReduceHowFar
,ppmkToLeft
,ppmkReduced
);
506 if (ppmkReduced
==NULL
)
509 ItemMonikerImpl_AddRef(iface
);
513 return MK_S_REDUCED_TO_SELF
;
515 /******************************************************************************
516 * ItemMoniker_ComposeWith
517 ******************************************************************************/
518 HRESULT WINAPI
ItemMonikerImpl_ComposeWith(IMoniker
* iface
,
520 BOOL fOnlyIfNotGeneric
,
521 IMoniker
** ppmkComposite
)
525 IEnumMoniker
* penumMk
=0;
526 IMoniker
*pmostLeftMk
=0;
527 IMoniker
* tempMkComposite
=0;
529 TRACE("(%p,%p,%d,%p)\n",iface
,pmkRight
,fOnlyIfNotGeneric
,ppmkComposite
);
531 if ((ppmkComposite
==NULL
)||(pmkRight
==NULL
))
536 IMoniker_IsSystemMoniker(pmkRight
,&mkSys
);
538 /* If pmkRight is an anti-moniker, the returned moniker is NULL */
539 if(mkSys
==MKSYS_ANTIMONIKER
)
543 /* if pmkRight is a composite whose leftmost component is an anti-moniker, */
544 /* the returned moniker is the composite after the leftmost anti-moniker is removed. */
546 if(mkSys
==MKSYS_GENERICCOMPOSITE
){
548 res
=IMoniker_Enum(pmkRight
,TRUE
,&penumMk
);
553 res
=IEnumMoniker_Next(penumMk
,1,&pmostLeftMk
,NULL
);
555 IMoniker_IsSystemMoniker(pmostLeftMk
,&mkSys2
);
557 if(mkSys2
==MKSYS_ANTIMONIKER
){
559 IMoniker_Release(pmostLeftMk
);
561 tempMkComposite
=iface
;
562 IMoniker_AddRef(iface
);
564 while(IEnumMoniker_Next(penumMk
,1,&pmostLeftMk
,NULL
)==S_OK
){
566 res
=CreateGenericComposite(tempMkComposite
,pmostLeftMk
,ppmkComposite
);
568 IMoniker_Release(tempMkComposite
);
569 IMoniker_Release(pmostLeftMk
);
571 tempMkComposite
=*ppmkComposite
;
572 IMoniker_AddRef(tempMkComposite
);
577 return CreateGenericComposite(iface
,pmkRight
,ppmkComposite
);
579 /* If pmkRight is not an anti-moniker, the method combines the two monikers into a generic
580 composite if fOnlyIfNotGeneric is FALSE; if fOnlyIfNotGeneric is TRUE, the method returns
581 a NULL moniker and a return value of MK_E_NEEDGENERIC */
583 if (!fOnlyIfNotGeneric
)
584 return CreateGenericComposite(iface
,pmkRight
,ppmkComposite
);
587 return MK_E_NEEDGENERIC
;
590 /******************************************************************************
592 ******************************************************************************/
593 HRESULT WINAPI
ItemMonikerImpl_Enum(IMoniker
* iface
,BOOL fForward
, IEnumMoniker
** ppenumMoniker
)
595 TRACE("(%p,%d,%p)\n",iface
,fForward
,ppenumMoniker
);
597 if (ppenumMoniker
== NULL
)
600 *ppenumMoniker
= NULL
;
605 /******************************************************************************
606 * ItemMoniker_IsEqual
607 ******************************************************************************/
608 HRESULT WINAPI
ItemMonikerImpl_IsEqual(IMoniker
* iface
,IMoniker
* pmkOtherMoniker
)
612 LPOLESTR dispName1
,dispName2
;
616 TRACE("(%p,%p)\n",iface
,pmkOtherMoniker
);
618 if (pmkOtherMoniker
==NULL
)
621 /* This method returns S_OK if both monikers are item monikers and their display names are */
622 /* identical (using a case-insensitive comparison); otherwise, the method returns S_FALSE. */
624 IMoniker_GetClassID(pmkOtherMoniker
,&clsid
);
626 if (!IsEqualCLSID(&clsid
,&CLSID_ItemMoniker
))
629 res
=CreateBindCtx(0,&bind
);
633 IMoniker_GetDisplayName(iface
,bind
,NULL
,&dispName1
);
634 IMoniker_GetDisplayName(pmkOtherMoniker
,bind
,NULL
,&dispName2
);
636 if (lstrcmpW(dispName1
,dispName2
)!=0)
642 /******************************************************************************
644 ******************************************************************************/
645 HRESULT WINAPI
ItemMonikerImpl_Hash(IMoniker
* iface
,DWORD
* pdwHash
)
647 ICOM_THIS(ItemMonikerImpl
,iface
);
649 int h
= 0,i
,skip
,len
;
656 val
= This
->itemName
;
660 for (i
= len
; i
> 0; i
--) {
661 h
= (h
* 37) + val
[off
++];
664 /* only sample some characters */
666 for (i
= len
; i
> 0; i
-= skip
, off
+= skip
) {
667 h
= (h
* 39) + val
[off
];
676 /******************************************************************************
677 * ItemMoniker_IsRunning
678 ******************************************************************************/
679 HRESULT WINAPI
ItemMonikerImpl_IsRunning(IMoniker
* iface
,
682 IMoniker
* pmkNewlyRunning
)
684 IRunningObjectTable
* rot
;
686 IOleItemContainer
*poic
=0;
687 ICOM_THIS(ItemMonikerImpl
,iface
);
689 TRACE("(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,pmkNewlyRunning
);
691 /* If pmkToLeft is NULL, this method returns TRUE if pmkNewlyRunning is non-NULL and is equal to this */
692 /* moniker. Otherwise, the method checks the ROT to see whether this moniker is running. */
694 if ((pmkNewlyRunning
!=NULL
)&&(IMoniker_IsEqual(pmkNewlyRunning
,iface
)==S_OK
))
700 res
=IBindCtx_GetRunningObjectTable(pbc
,&rot
);
705 res
= IRunningObjectTable_IsRunning(rot
,iface
);
707 IRunningObjectTable_Release(rot
);
711 /* If pmkToLeft is non-NULL, the method calls IMoniker::BindToObject on the pmkToLeft parameter, */
712 /* requesting an IOleItemContainer interface pointer. The method then calls IOleItemContainer::IsRunning,*/
713 /* passing the string contained within this moniker. */
715 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
719 res
=IOleItemContainer_IsRunning(poic
,This
->itemName
);
721 IOleItemContainer_Release(poic
);
728 /******************************************************************************
729 * ItemMoniker_GetTimeOfLastChange
730 ******************************************************************************/
731 HRESULT WINAPI
ItemMonikerImpl_GetTimeOfLastChange(IMoniker
* iface
,
736 IRunningObjectTable
* rot
;
738 IMoniker
*compositeMk
;
740 TRACE("(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,pItemTime
);
745 /* If pmkToLeft is NULL, this method returns MK_E_NOTBINDABLE */
748 return MK_E_NOTBINDABLE
;
751 /* Otherwise, the method creates a composite of pmkToLeft and this moniker and uses the ROT to access */
752 /* the time of last change. If the object is not in the ROT, the method calls */
753 /* IMoniker::GetTimeOfLastChange on the pmkToLeft parameter. */
755 res
=CreateGenericComposite(pmkToLeft
,iface
,&compositeMk
);
757 res
=IBindCtx_GetRunningObjectTable(pbc
,&rot
);
759 if (IRunningObjectTable_GetTimeOfLastChange(rot
,compositeMk
,pItemTime
)!=S_OK
)
761 res
=IMoniker_GetTimeOfLastChange(pmkToLeft
,pbc
,NULL
,pItemTime
);
763 IMoniker_Release(compositeMk
);
769 /******************************************************************************
770 * ItemMoniker_Inverse
771 ******************************************************************************/
772 HRESULT WINAPI
ItemMonikerImpl_Inverse(IMoniker
* iface
,IMoniker
** ppmk
)
774 TRACE("(%p,%p)\n",iface
,ppmk
);
779 return CreateAntiMoniker(ppmk
);
782 /******************************************************************************
783 * ItemMoniker_CommonPrefixWith
784 ******************************************************************************/
785 HRESULT WINAPI
ItemMonikerImpl_CommonPrefixWith(IMoniker
* iface
,IMoniker
* pmkOther
,IMoniker
** ppmkPrefix
)
788 IMoniker_IsSystemMoniker(pmkOther
,&mkSys
);
789 /* If the other moniker is an item moniker that is equal to this moniker, this method sets *ppmkPrefix */
790 /* to this moniker and returns MK_S_US */
792 if((mkSys
==MKSYS_ITEMMONIKER
) && (IMoniker_IsEqual(iface
,pmkOther
)==S_OK
) ){
796 IMoniker_AddRef(iface
);
801 /* otherwise, the method calls the MonikerCommonPrefixWith function. This function correctly handles */
802 /* the case where the other moniker is a generic composite. */
803 return MonikerCommonPrefixWith(iface
,pmkOther
,ppmkPrefix
);
806 /******************************************************************************
807 * ItemMoniker_RelativePathTo
808 ******************************************************************************/
809 HRESULT WINAPI
ItemMonikerImpl_RelativePathTo(IMoniker
* iface
,IMoniker
* pmOther
, IMoniker
** ppmkRelPath
)
811 TRACE("(%p,%p,%p)\n",iface
,pmOther
,ppmkRelPath
);
813 if (ppmkRelPath
==NULL
)
818 return MK_E_NOTBINDABLE
;
821 /******************************************************************************
822 * ItemMoniker_GetDisplayName
823 ******************************************************************************/
824 HRESULT WINAPI
ItemMonikerImpl_GetDisplayName(IMoniker
* iface
,
827 LPOLESTR
*ppszDisplayName
)
829 ICOM_THIS(ItemMonikerImpl
,iface
);
831 TRACE("(%p,%p,%p,%p)\n",iface
,pbc
,pmkToLeft
,ppszDisplayName
);
833 if (ppszDisplayName
==NULL
)
836 if (pmkToLeft
!=NULL
){
840 *ppszDisplayName
=CoTaskMemAlloc(sizeof(WCHAR
)*(lstrlenW(This
->itemDelimiter
)+lstrlenW(This
->itemName
)+1));
842 if (*ppszDisplayName
==NULL
)
843 return E_OUTOFMEMORY
;
845 strcpyW(*ppszDisplayName
,This
->itemDelimiter
);
846 strcatW(*ppszDisplayName
,This
->itemName
);
851 /******************************************************************************
852 * ItemMoniker_ParseDisplayName
853 ******************************************************************************/
854 HRESULT WINAPI
ItemMonikerImpl_ParseDisplayName(IMoniker
* iface
,
857 LPOLESTR pszDisplayName
,
861 IOleItemContainer
* poic
=0;
862 IParseDisplayName
* ppdn
=0;
863 LPOLESTR displayName
;
865 ICOM_THIS(ItemMonikerImpl
,iface
);
867 /* If pmkToLeft is NULL, this method returns MK_E_SYNTAX */
873 /* Otherwise, the method calls IMoniker::BindToObject on the pmkToLeft parameter, requesting an */
874 /* IParseDisplayName interface pointer to the object identified by the moniker, and passes the display */
875 /* name to IParseDisplayName::ParseDisplayName */
876 res
=IMoniker_BindToObject(pmkToLeft
,pbc
,NULL
,&IID_IOleItemContainer
,(void**)&poic
);
880 res
=IOleItemContainer_GetObject(poic
,This
->itemName
,BINDSPEED_MODERATE
,pbc
,&IID_IParseDisplayName
,(void**)&ppdn
);
882 res
=IMoniker_GetDisplayName(iface
,pbc
,NULL
,&displayName
);
884 res
=IParseDisplayName_ParseDisplayName(ppdn
,pbc
,displayName
,pchEaten
,ppmkOut
);
886 IOleItemContainer_Release(poic
);
887 IParseDisplayName_Release(ppdn
);
893 /******************************************************************************
894 * ItemMoniker_IsSystemMoniker
895 ******************************************************************************/
896 HRESULT WINAPI
ItemMonikerImpl_IsSystemMoniker(IMoniker
* iface
,DWORD
* pwdMksys
)
898 TRACE("(%p,%p)\n",iface
,pwdMksys
);
903 (*pwdMksys
)=MKSYS_ITEMMONIKER
;
908 /*******************************************************************************
909 * ItemMonikerIROTData_QueryInterface
910 *******************************************************************************/
911 HRESULT WINAPI
ItemMonikerROTDataImpl_QueryInterface(IROTData
*iface
,REFIID riid
,VOID
** ppvObject
)
914 ICOM_THIS_From_IROTData(IMoniker
, iface
);
916 TRACE("(%p,%p,%p)\n",iface
,riid
,ppvObject
);
918 return ItemMonikerImpl_QueryInterface(This
, riid
, ppvObject
);
921 /***********************************************************************
922 * ItemMonikerIROTData_AddRef
924 ULONG WINAPI
ItemMonikerROTDataImpl_AddRef(IROTData
*iface
)
926 ICOM_THIS_From_IROTData(IMoniker
, iface
);
928 TRACE("(%p)\n",iface
);
930 return ItemMonikerImpl_AddRef(This
);
933 /***********************************************************************
934 * ItemMonikerIROTData_Release
936 ULONG WINAPI
ItemMonikerROTDataImpl_Release(IROTData
* iface
)
938 ICOM_THIS_From_IROTData(IMoniker
, iface
);
940 TRACE("(%p)\n",iface
);
942 return ItemMonikerImpl_Release(This
);
945 /******************************************************************************
946 * ItemMonikerIROTData_GetComparaisonData
947 ******************************************************************************/
948 HRESULT WINAPI
ItemMonikerROTDataImpl_GetComparaisonData(IROTData
* iface
,
957 /******************************************************************************
958 * CreateItemMoniker16 [OLE2.28]
959 ******************************************************************************/
960 HRESULT WINAPI
CreateItemMoniker16(LPCOLESTR16 lpszDelim
,LPCOLESTR lpszItem
,LPMONIKER
* ppmk
)
963 FIXME("(%s,%p),stub!\n",lpszDelim
,ppmk
);
968 /******************************************************************************
969 * CreateItemMoniker [OLE32.58]
970 ******************************************************************************/
971 HRESULT WINAPI
CreateItemMoniker(LPCOLESTR lpszDelim
,LPCOLESTR lpszItem
, LPMONIKER
* ppmk
)
973 ItemMonikerImpl
* newItemMoniker
= 0;
975 IID riid
=IID_IMoniker
;
977 TRACE("(%p,%p,%p)\n",lpszDelim
,lpszItem
,ppmk
);
979 newItemMoniker
= HeapAlloc(GetProcessHeap(), 0, sizeof(ItemMonikerImpl
));
981 if (newItemMoniker
== 0)
982 return STG_E_INSUFFICIENTMEMORY
;
984 hr
= ItemMonikerImpl_Construct(newItemMoniker
,lpszDelim
,lpszItem
);
988 HeapFree(GetProcessHeap(),0,newItemMoniker
);
992 return ItemMonikerImpl_QueryInterface((IMoniker
*)newItemMoniker
,&riid
,(void**)ppmk
);