kernel32: Support deleting resources in UpdateResource.
[wine] / dlls / itss / moniker.c
1 /*
2  *    ITSS Moniker implementation
3  *
4  * Copyright 2004 Mike McCormack
5  *
6  *  Implementation of the infamous mk:@MSITStore moniker
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21  */
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include <stdio.h>
27
28 #define COBJMACROS
29
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winuser.h"
33 #include "ole2.h"
34
35 #include "wine/itss.h"
36 #include "wine/unicode.h"
37 #include "wine/debug.h"
38
39 #include "itsstor.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(itss);
42
43 /*****************************************************************************/
44
45 typedef struct {
46     IMoniker IMoniker_iface;
47     LONG ref;
48     LPWSTR szHtml;
49     WCHAR szFile[1];
50 } ITS_IMonikerImpl;
51
52 static inline ITS_IMonikerImpl *impl_from_IMoniker(IMoniker *iface)
53 {
54     return CONTAINING_RECORD(iface, ITS_IMonikerImpl, IMoniker_iface);
55 }
56
57 /*** IUnknown methods ***/
58 static HRESULT WINAPI ITS_IMonikerImpl_QueryInterface(
59     IMoniker* iface,
60     REFIID riid,
61     void** ppvObject)
62 {
63     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
64
65     if (IsEqualGUID(riid, &IID_IUnknown)
66         || IsEqualGUID(riid, &IID_IParseDisplayName))
67     {
68         IClassFactory_AddRef(iface);
69         *ppvObject = This;
70         return S_OK;
71     }
72
73     WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
74     return E_NOINTERFACE;
75 }
76
77 static ULONG WINAPI ITS_IMonikerImpl_AddRef(
78     IMoniker* iface)
79 {
80     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
81     TRACE("%p\n", This);
82     return InterlockedIncrement(&This->ref);
83 }
84
85 static ULONG WINAPI ITS_IMonikerImpl_Release(
86     IMoniker* iface)
87 {
88     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
89     ULONG ref = InterlockedDecrement(&This->ref);
90
91     if (ref == 0) {
92         HeapFree(GetProcessHeap(), 0, This);
93         ITSS_UnlockModule();
94     }
95
96     return ref;
97 }
98
99 /*** IPersist methods ***/
100 static HRESULT WINAPI ITS_IMonikerImpl_GetClassID(
101     IMoniker* iface,
102     CLSID* pClassID)
103 {
104     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
105
106     TRACE("%p %p\n", This, pClassID);
107     *pClassID = CLSID_ITStorage;
108     return S_OK;
109 }
110
111 /*** IPersistStream methods ***/
112 static HRESULT WINAPI ITS_IMonikerImpl_IsDirty(
113     IMoniker* iface)
114 {
115     FIXME("\n");
116     return E_NOTIMPL;
117 }
118
119 static HRESULT WINAPI ITS_IMonikerImpl_Load(
120     IMoniker* iface,
121     IStream* pStm)
122 {
123     FIXME("\n");
124     return E_NOTIMPL;
125 }
126
127 static HRESULT WINAPI ITS_IMonikerImpl_Save(
128     IMoniker* iface,
129     IStream* pStm,
130     BOOL fClearDirty)
131 {
132     FIXME("\n");
133     return E_NOTIMPL;
134 }
135
136 static HRESULT WINAPI ITS_IMonikerImpl_GetSizeMax(
137     IMoniker* iface,
138     ULARGE_INTEGER* pcbSize)
139 {
140     FIXME("\n");
141     return E_NOTIMPL;
142 }
143
144 /*** IMoniker methods ***/
145 static HRESULT WINAPI ITS_IMonikerImpl_BindToObject(
146     IMoniker* iface,
147     IBindCtx* pbc,
148     IMoniker* pmkToLeft,
149     REFIID riidResult,
150     void** ppvResult)
151 {
152     FIXME("\n");
153     return E_NOTIMPL;
154 }
155
156 static HRESULT WINAPI ITS_IMonikerImpl_BindToStorage(
157     IMoniker* iface,
158     IBindCtx* pbc,
159     IMoniker* pmkToLeft,
160     REFIID riid,
161     void** ppvObj)
162 {
163     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
164     DWORD grfMode = STGM_SIMPLE | STGM_READ | STGM_SHARE_EXCLUSIVE;
165     HRESULT r;
166     IStorage *stg = NULL;
167
168     TRACE("%p %p %p %s %p\n", This,
169            pbc, pmkToLeft, debugstr_guid(riid), ppvObj);
170
171     r = ITSS_StgOpenStorage( This->szFile, NULL, grfMode, 0, 0, &stg );
172     if( r == S_OK )
173     {
174         TRACE("Opened storage %s\n", debugstr_w( This->szFile ) );
175         if (IsEqualGUID(riid, &IID_IStream))
176             r = IStorage_OpenStream( stg, This->szHtml,
177                        NULL, grfMode, 0, (IStream**)ppvObj );
178         else if (IsEqualGUID(riid, &IID_IStorage))
179             r = IStorage_OpenStorage( stg, This->szHtml,
180                        NULL, grfMode, NULL, 0, (IStorage**)ppvObj );
181         else
182             r = STG_E_ACCESSDENIED;
183         IStorage_Release( stg );
184     }
185
186     return r;
187 }
188
189 static HRESULT WINAPI ITS_IMonikerImpl_Reduce(
190     IMoniker* iface,
191     IBindCtx* pbc,
192     DWORD dwReduceHowFar,
193     IMoniker** ppmkToLeft,
194     IMoniker** ppmkReduced)
195 {
196     FIXME("\n");
197     return E_NOTIMPL;
198 }
199
200 static HRESULT WINAPI ITS_IMonikerImpl_ComposeWith(
201     IMoniker* iface,
202     IMoniker* pmkRight,
203     BOOL fOnlyIfNotGeneric,
204     IMoniker** ppmkComposite)
205 {
206     FIXME("\n");
207     return E_NOTIMPL;
208 }
209
210 static HRESULT WINAPI ITS_IMonikerImpl_Enum(
211     IMoniker* iface,
212     BOOL fForward,
213     IEnumMoniker** ppenumMoniker)
214 {
215     FIXME("\n");
216     return E_NOTIMPL;
217 }
218
219 static HRESULT WINAPI ITS_IMonikerImpl_IsEqual(
220     IMoniker* iface,
221     IMoniker* pmkOtherMoniker)
222 {
223     FIXME("\n");
224     return E_NOTIMPL;
225 }
226
227 static HRESULT WINAPI ITS_IMonikerImpl_Hash(
228     IMoniker* iface,
229     DWORD* pdwHash)
230 {
231     FIXME("\n");
232     return E_NOTIMPL;
233 }
234
235 static HRESULT WINAPI ITS_IMonikerImpl_IsRunning(
236     IMoniker* iface,
237     IBindCtx* pbc,
238     IMoniker* pmkToLeft,
239     IMoniker* pmkNewlyRunning)
240 {
241     FIXME("\n");
242     return E_NOTIMPL;
243 }
244
245 static HRESULT WINAPI ITS_IMonikerImpl_GetTimeOfLastChange(
246     IMoniker* iface,
247     IBindCtx* pbc,
248     IMoniker* pmkToLeft,
249     FILETIME* pFileTime)
250 {
251     FIXME("\n");
252     return E_NOTIMPL;
253 }
254
255 static HRESULT WINAPI ITS_IMonikerImpl_Inverse(
256     IMoniker* iface,
257     IMoniker** ppmk)
258 {
259     FIXME("\n");
260     return E_NOTIMPL;
261 }
262
263 static HRESULT WINAPI ITS_IMonikerImpl_CommonPrefixWith(
264     IMoniker* iface,
265     IMoniker* pmkOther,
266     IMoniker** ppmkPrefix)
267 {
268     FIXME("\n");
269     return E_NOTIMPL;
270 }
271
272 static HRESULT WINAPI ITS_IMonikerImpl_RelativePathTo(
273     IMoniker* iface,
274     IMoniker* pmkOther,
275     IMoniker** ppmkRelPath)
276 {
277     FIXME("\n");
278     return E_NOTIMPL;
279 }
280
281 static HRESULT WINAPI ITS_IMonikerImpl_GetDisplayName(
282     IMoniker* iface,
283     IBindCtx* pbc,
284     IMoniker* pmkToLeft,
285     LPOLESTR* ppszDisplayName)
286 {
287     ITS_IMonikerImpl *This = impl_from_IMoniker(iface);
288     static const WCHAR szFormat[] = {
289         'm','s','-','i','t','s',':','%','s',':',':','%','s',0 };
290     DWORD len = sizeof szFormat / sizeof(WCHAR);
291     LPWSTR str;
292
293     TRACE("%p %p %p %p\n", iface, pbc, pmkToLeft, ppszDisplayName);
294
295     len = strlenW( This->szFile ) + strlenW( This->szHtml );
296     str = CoTaskMemAlloc( len*sizeof(WCHAR) );
297     sprintfW( str, szFormat, This->szFile, This->szHtml );
298
299     *ppszDisplayName = str;
300     
301     return S_OK;
302 }
303
304 static HRESULT WINAPI ITS_IMonikerImpl_ParseDisplayName(
305     IMoniker* iface,
306     IBindCtx* pbc,
307     IMoniker* pmkToLeft,
308     LPOLESTR pszDisplayName,
309     ULONG* pchEaten,
310     IMoniker** ppmkOut)
311 {
312     FIXME("\n");
313     return E_NOTIMPL;
314 }
315
316 static HRESULT WINAPI ITS_IMonikerImpl_IsSystemMoniker(
317     IMoniker* iface,
318     DWORD* pdwMksys)
319 {
320     FIXME("\n");
321     return E_NOTIMPL;
322 }
323
324 static const IMonikerVtbl ITS_IMonikerImpl_Vtbl =
325 {
326     ITS_IMonikerImpl_QueryInterface,
327     ITS_IMonikerImpl_AddRef,
328     ITS_IMonikerImpl_Release,
329     ITS_IMonikerImpl_GetClassID,
330     ITS_IMonikerImpl_IsDirty,
331     ITS_IMonikerImpl_Load,
332     ITS_IMonikerImpl_Save,
333     ITS_IMonikerImpl_GetSizeMax,
334     ITS_IMonikerImpl_BindToObject,
335     ITS_IMonikerImpl_BindToStorage,
336     ITS_IMonikerImpl_Reduce,
337     ITS_IMonikerImpl_ComposeWith,
338     ITS_IMonikerImpl_Enum,
339     ITS_IMonikerImpl_IsEqual,
340     ITS_IMonikerImpl_Hash,
341     ITS_IMonikerImpl_IsRunning,
342     ITS_IMonikerImpl_GetTimeOfLastChange,
343     ITS_IMonikerImpl_Inverse,
344     ITS_IMonikerImpl_CommonPrefixWith,
345     ITS_IMonikerImpl_RelativePathTo,
346     ITS_IMonikerImpl_GetDisplayName,
347     ITS_IMonikerImpl_ParseDisplayName,
348     ITS_IMonikerImpl_IsSystemMoniker
349 };
350
351 static HRESULT ITS_IMoniker_create( IMoniker **ppObj, LPCWSTR name, DWORD n )
352 {
353     ITS_IMonikerImpl *itsmon;
354     DWORD sz;
355
356     /* szFile[1] has space for one character already */
357     sz = sizeof(ITS_IMonikerImpl) + strlenW( name )*sizeof(WCHAR);
358
359     itsmon = HeapAlloc( GetProcessHeap(), 0, sz );
360     itsmon->IMoniker_iface.lpVtbl = &ITS_IMonikerImpl_Vtbl;
361     itsmon->ref = 1;
362     strcpyW( itsmon->szFile, name );
363     itsmon->szHtml = &itsmon->szFile[n];
364
365     while( *itsmon->szHtml == ':' )
366         *itsmon->szHtml++ = 0;
367
368     TRACE("-> %p %s %s\n", itsmon,
369           debugstr_w(itsmon->szFile), debugstr_w(itsmon->szHtml) );
370     *ppObj = &itsmon->IMoniker_iface;
371
372     ITSS_LockModule();
373     return S_OK;
374 }
375
376 /*****************************************************************************/
377
378 typedef struct {
379     IParseDisplayName IParseDisplayName_iface;
380     LONG ref;
381 } ITS_IParseDisplayNameImpl;
382
383 static inline ITS_IParseDisplayNameImpl *impl_from_IParseDisplayName(IParseDisplayName *iface)
384 {
385     return CONTAINING_RECORD(iface, ITS_IParseDisplayNameImpl, IParseDisplayName_iface);
386 }
387
388 static HRESULT WINAPI ITS_IParseDisplayNameImpl_QueryInterface(
389     IParseDisplayName* iface,
390     REFIID riid,
391     void** ppvObject)
392 {
393     ITS_IParseDisplayNameImpl *This = impl_from_IParseDisplayName(iface);
394
395     if (IsEqualGUID(riid, &IID_IUnknown)
396         || IsEqualGUID(riid, &IID_IParseDisplayName))
397     {
398         IClassFactory_AddRef(iface);
399         *ppvObject = This;
400         return S_OK;
401     }
402
403     WARN("(%p)->(%s,%p),not found\n",This,debugstr_guid(riid),ppvObject);
404     return E_NOINTERFACE;
405 }
406
407 static ULONG WINAPI ITS_IParseDisplayNameImpl_AddRef(
408     IParseDisplayName* iface)
409 {
410     ITS_IParseDisplayNameImpl *This = impl_from_IParseDisplayName(iface);
411     TRACE("%p\n", This);
412     return InterlockedIncrement(&This->ref);
413 }
414
415 static ULONG WINAPI ITS_IParseDisplayNameImpl_Release(
416     IParseDisplayName* iface)
417 {
418     ITS_IParseDisplayNameImpl *This = impl_from_IParseDisplayName(iface);
419     ULONG ref = InterlockedDecrement(&This->ref);
420
421     if (ref == 0) {
422         HeapFree(GetProcessHeap(), 0, This);
423         ITSS_UnlockModule();
424     }
425
426     return ref;
427 }
428
429 static HRESULT WINAPI ITS_IParseDisplayNameImpl_ParseDisplayName(
430     IParseDisplayName *iface,
431     IBindCtx * pbc,
432     LPOLESTR pszDisplayName, 
433     ULONG * pchEaten,
434     IMoniker ** ppmkOut)
435 {
436     static const WCHAR szPrefix[] = { 
437         '@','M','S','I','T','S','t','o','r','e',':',0 };
438     const DWORD prefix_len = (sizeof szPrefix/sizeof szPrefix[0])-1;
439     DWORD n;
440
441     ITS_IParseDisplayNameImpl *This = impl_from_IParseDisplayName(iface);
442
443     TRACE("%p %s %p %p\n", This,
444           debugstr_w( pszDisplayName ), pchEaten, ppmkOut );
445
446     if( strncmpW( pszDisplayName, szPrefix, prefix_len ) )
447         return MK_E_SYNTAX;
448
449     /* search backwards for a double colon */
450     for( n = strlenW( pszDisplayName ) - 3; prefix_len <= n; n-- )
451         if( ( pszDisplayName[n] == ':' ) && ( pszDisplayName[n+1] == ':' ) )
452             break;
453
454     if( n < prefix_len )
455         return MK_E_SYNTAX;
456
457     if( !pszDisplayName[n+2] )
458         return MK_E_SYNTAX;
459
460     *pchEaten = strlenW( pszDisplayName ) - n - 3;
461
462     return ITS_IMoniker_create( ppmkOut,
463               &pszDisplayName[prefix_len], n-prefix_len );
464 }
465
466 static const IParseDisplayNameVtbl ITS_IParseDisplayNameImpl_Vtbl =
467 {
468     ITS_IParseDisplayNameImpl_QueryInterface,
469     ITS_IParseDisplayNameImpl_AddRef,
470     ITS_IParseDisplayNameImpl_Release,
471     ITS_IParseDisplayNameImpl_ParseDisplayName
472 };
473  
474 HRESULT ITS_IParseDisplayName_create(IUnknown *pUnkOuter, LPVOID *ppObj)
475 {
476     ITS_IParseDisplayNameImpl *its;
477
478     if( pUnkOuter )
479         return CLASS_E_NOAGGREGATION;
480
481     its = HeapAlloc( GetProcessHeap(), 0, sizeof(ITS_IParseDisplayNameImpl) );
482     its->IParseDisplayName_iface.lpVtbl = &ITS_IParseDisplayNameImpl_Vtbl;
483     its->ref = 1;
484
485     TRACE("-> %p\n", its);
486     *ppObj = its;
487
488     ITSS_LockModule();
489     return S_OK;
490 }