urlmon: Don't create stgmed_obj for binding to object.
[wine] / dlls / shell32 / debughlp.c
1 /*
2  * Helper functions for debugging
3  *
4  * Copyright 1998, 2002 Juergen Schmied
5  *
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.
10  *
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.
15  *
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include <ctype.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <stdio.h>
25 #include "windef.h"
26 #include "wingdi.h"
27 #include "pidl.h"
28 #include "shldisp.h"
29 #include "wine/debug.h"
30 #include "debughlp.h"
31 #include "docobj.h"
32 #include "shell32_main.h"
33
34
35 WINE_DEFAULT_DEBUG_CHANNEL(pidl);
36
37 static
38 LPITEMIDLIST _dbg_ILGetNext(LPCITEMIDLIST pidl)
39 {
40         WORD len;
41
42         if(pidl)
43         {
44           len =  pidl->mkid.cb;
45           if (len)
46           {
47             return (LPITEMIDLIST) (((LPBYTE)pidl)+len);
48           }
49         }
50         return NULL;
51 }
52
53 static
54 BOOL _dbg_ILIsDesktop(LPCITEMIDLIST pidl)
55 {
56         return ( !pidl || (pidl && pidl->mkid.cb == 0x00) );
57 }
58
59 static
60 LPPIDLDATA _dbg_ILGetDataPointer(LPCITEMIDLIST pidl)
61 {
62         if(pidl && pidl->mkid.cb != 0x00)
63           return (LPPIDLDATA) &(pidl->mkid.abID);
64         return NULL;
65 }
66
67 static
68 LPSTR _dbg_ILGetTextPointer(LPCITEMIDLIST pidl)
69 {
70         LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
71
72         if (pdata)
73         {
74           switch (pdata->type)
75           {
76             case PT_GUID:
77             case PT_SHELLEXT:
78             case PT_YAGUID:
79               return NULL;
80
81             case PT_DRIVE:
82             case PT_DRIVE1:
83             case PT_DRIVE2:
84             case PT_DRIVE3:
85               return (LPSTR)&(pdata->u.drive.szDriveName);
86
87             case PT_FOLDER:
88             case PT_FOLDER1:
89             case PT_VALUE:
90             case PT_IESPECIAL1:
91             case PT_IESPECIAL2:
92               return (LPSTR)&(pdata->u.file.szNames);
93
94             case PT_WORKGRP:
95             case PT_COMP:
96             case PT_NETWORK:
97             case PT_NETPROVIDER:
98             case PT_SHARE:
99               return (LPSTR)&(pdata->u.network.szNames);
100           }
101         }
102         return NULL;
103 }
104
105 static
106 LPWSTR _dbg_ILGetTextPointerW(LPCITEMIDLIST pidl)
107 {
108         LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
109
110         if (pdata)
111         {
112           switch (pdata->type)
113           {
114             case PT_GUID:
115             case PT_SHELLEXT:
116             case PT_YAGUID:
117               return NULL;
118
119             case PT_DRIVE:
120             case PT_DRIVE1:
121             case PT_DRIVE2:
122             case PT_DRIVE3:
123               /* return (LPSTR)&(pdata->u.drive.szDriveName);*/
124               return NULL;
125
126             case PT_FOLDER:
127             case PT_FOLDER1:
128             case PT_VALUE:
129             case PT_IESPECIAL1:
130             case PT_IESPECIAL2:
131               /* return (LPSTR)&(pdata->u.file.szNames); */
132               return NULL;
133
134             case PT_WORKGRP:
135             case PT_COMP:
136             case PT_NETWORK:
137             case PT_NETPROVIDER:
138             case PT_SHARE:
139               /* return (LPSTR)&(pdata->u.network.szNames); */
140               return NULL;
141
142             case PT_VALUEW:
143               return (LPWSTR)&(pdata->u.file.szNames);
144           }
145         }
146         return NULL;
147 }
148
149
150 static
151 LPSTR _dbg_ILGetSTextPointer(LPCITEMIDLIST pidl)
152 {
153         LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
154
155         if (pdata)
156         {
157           switch (pdata->type)
158           {
159             case PT_FOLDER:
160             case PT_VALUE:
161             case PT_IESPECIAL1:
162             case PT_IESPECIAL2:
163               return (LPSTR)(pdata->u.file.szNames + strlen (pdata->u.file.szNames) + 1);
164
165             case PT_WORKGRP:
166               return (LPSTR)(pdata->u.network.szNames + strlen (pdata->u.network.szNames) + 1);
167           }
168         }
169         return NULL;
170 }
171
172 static
173 LPWSTR _dbg_ILGetSTextPointerW(LPCITEMIDLIST pidl)
174 {
175         LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
176
177         if (pdata)
178         {
179           switch (pdata->type)
180           {
181             case PT_FOLDER:
182             case PT_VALUE:
183             case PT_IESPECIAL1:
184             case PT_IESPECIAL2:
185               /*return (LPSTR)(pdata->u.file.szNames + strlen (pdata->u.file.szNames) + 1); */
186               return NULL;
187
188             case PT_WORKGRP:
189               /* return (LPSTR)(pdata->u.network.szNames + strlen (pdata->u.network.szNames) + 1); */
190               return NULL;
191
192             case PT_VALUEW:
193               return (LPWSTR)(pdata->u.file.szNames + lstrlenW ((LPWSTR)pdata->u.file.szNames) + 1);
194           }
195         }
196         return NULL;
197 }
198
199
200 static
201 IID* _dbg_ILGetGUIDPointer(LPCITEMIDLIST pidl)
202 {
203         LPPIDLDATA pdata =_ILGetDataPointer(pidl);
204
205         if (pdata)
206         {
207           switch (pdata->type)
208           {
209             case PT_SHELLEXT:
210             case PT_GUID:
211             case PT_YAGUID:
212               return &(pdata->u.guid.guid);
213           }
214         }
215         return NULL;
216 }
217
218 static
219 void _dbg_ILSimpleGetText (LPCITEMIDLIST pidl, LPSTR szOut, UINT uOutSize)
220 {
221         LPSTR           szSrc;
222         LPWSTR          szSrcW;
223         GUID const *    riid;
224
225         if (!pidl) return;
226
227         if (szOut)
228           *szOut = 0;
229
230         if (_dbg_ILIsDesktop(pidl))
231         {
232          /* desktop */
233           if (szOut) lstrcpynA(szOut, "Desktop", uOutSize);
234         }
235         else if (( szSrc = _dbg_ILGetTextPointer(pidl) ))
236         {
237           /* filesystem */
238           if (szOut) lstrcpynA(szOut, szSrc, uOutSize);
239         }
240         else if (( szSrcW = _dbg_ILGetTextPointerW(pidl) ))
241         {
242           CHAR tmp[MAX_PATH];
243           /* unicode filesystem */
244           WideCharToMultiByte(CP_ACP,0,szSrcW, -1, tmp, MAX_PATH, NULL, NULL);
245           if (szOut) lstrcpynA(szOut, tmp, uOutSize);
246         }
247         else if (( riid = _dbg_ILGetGUIDPointer(pidl) ))
248         {
249           if (szOut)
250             sprintf( szOut, "{%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
251                  riid->Data1, riid->Data2, riid->Data3,
252                  riid->Data4[0], riid->Data4[1], riid->Data4[2], riid->Data4[3],
253                  riid->Data4[4], riid->Data4[5], riid->Data4[6], riid->Data4[7] );
254         }
255 }
256
257
258
259
260 void pdump (LPCITEMIDLIST pidl)
261 {
262         LPCITEMIDLIST pidltemp = pidl;
263
264         if (!TRACE_ON(pidl)) return;
265
266         if (! pidltemp)
267         {
268           MESSAGE ("-------- pidl=NULL (Desktop)\n");
269         }
270         else
271         {
272           MESSAGE ("-------- pidl=%p\n", pidl);
273           if (pidltemp->mkid.cb)
274           {
275             do
276             {
277           if (_ILIsUnicode(pidltemp))
278           {
279               DWORD dwAttrib = 0;
280               LPPIDLDATA pData   = _dbg_ILGetDataPointer(pidltemp);
281               DWORD type = pData ? pData->type : 0;
282               LPWSTR szLongName   = _dbg_ILGetTextPointerW(pidltemp);
283               LPWSTR szShortName  = _dbg_ILGetSTextPointerW(pidltemp);
284               char szName[MAX_PATH];
285
286               _dbg_ILSimpleGetText(pidltemp, szName, MAX_PATH);
287               if ( pData && (PT_FOLDER == type || PT_VALUE == type) )
288                 dwAttrib = pData->u.file.uFileAttribs;
289
290               MESSAGE ("[%p] size=%04u type=%x attr=0x%08x name=%s (%s,%s)\n",
291                        pidltemp, pidltemp->mkid.cb, type, dwAttrib,
292                            debugstr_a(szName), debugstr_w(szLongName), debugstr_w(szShortName));
293           }
294           else
295           {
296               DWORD dwAttrib = 0;
297               LPPIDLDATA pData   = _dbg_ILGetDataPointer(pidltemp);
298               DWORD type = pData ? pData->type : 0;
299               LPSTR szLongName   = _dbg_ILGetTextPointer(pidltemp);
300               LPSTR szShortName  = _dbg_ILGetSTextPointer(pidltemp);
301               char szName[MAX_PATH];
302
303               _dbg_ILSimpleGetText(pidltemp, szName, MAX_PATH);
304               if ( pData && (PT_FOLDER == type || PT_VALUE == type) )
305                 dwAttrib = pData->u.file.uFileAttribs;
306
307               MESSAGE ("[%p] size=%04u type=%x attr=0x%08x name=%s (%s,%s)\n",
308                        pidltemp, pidltemp->mkid.cb, type, dwAttrib,
309                            debugstr_a(szName), debugstr_a(szLongName), debugstr_a(szShortName));
310           }
311
312               pidltemp = _dbg_ILGetNext(pidltemp);
313
314             } while (pidltemp && pidltemp->mkid.cb);
315           }
316           else
317           {
318             MESSAGE ("empty pidl (Desktop)\n");
319           }
320           pcheck(pidl);
321         }
322 }
323
324 static void dump_pidl_hex( LPCITEMIDLIST pidl )
325 {
326     const unsigned char *p = (const unsigned char *)pidl;
327     const int max_bytes = 0x80;
328 #define max_line 0x10
329     char szHex[max_line*3+1], szAscii[max_line+1];
330     int i, n;
331
332     n = pidl->mkid.cb;
333     if( n>max_bytes )
334         n = max_bytes;
335     for( i=0; i<n; i++ )
336     {
337         sprintf( &szHex[ (i%max_line)*3 ], "%02X ", p[i] );
338         szAscii[ (i%max_line) ] = isprint( p[i] ) ? p[i] : '.';
339
340         /* print out at the end of each line and when we're finished */
341         if( i!=(n-1) && (i%max_line) != (max_line-1) )
342             continue;
343         szAscii[ (i%max_line)+1 ] = 0;
344         ERR("%-*s   %s\n", max_line*3, szHex, szAscii );
345     }
346 }
347
348 BOOL pcheck( LPCITEMIDLIST pidl )
349 {
350     DWORD type;
351     LPCITEMIDLIST pidltemp = pidl;
352
353     while( pidltemp && pidltemp->mkid.cb )
354     {
355         type = _dbg_ILGetDataPointer(pidltemp)->type;
356         switch( type )
357         {
358         case PT_CPLAPPLET:
359         case PT_GUID:
360         case PT_SHELLEXT:
361         case PT_DRIVE:
362         case PT_DRIVE1:
363         case PT_DRIVE2:
364         case PT_DRIVE3:
365         case PT_FOLDER:
366         case PT_VALUE:
367         case PT_VALUEW:
368         case PT_FOLDER1:
369         case PT_WORKGRP:
370         case PT_COMP:
371         case PT_NETPROVIDER:
372         case PT_NETWORK:
373         case PT_IESPECIAL1:
374         case PT_YAGUID:
375         case PT_IESPECIAL2:
376         case PT_SHARE:
377             break;
378         default:
379             ERR("unknown IDLIST %p [%p] size=%u type=%x\n",
380                 pidl, pidltemp, pidltemp->mkid.cb,type );
381             dump_pidl_hex( pidltemp );
382             return FALSE;
383         }
384         pidltemp = _dbg_ILGetNext(pidltemp);
385     }
386     return TRUE;
387 }
388
389 static const struct {
390         REFIID riid;
391         const char *name;
392 } InterfaceDesc[] = {
393         {&IID_IUnknown,                 "IID_IUnknown"},
394         {&IID_IClassFactory,            "IID_IClassFactory"},
395         {&IID_IShellView,               "IID_IShellView"},
396         {&IID_IOleCommandTarget,        "IID_IOleCommandTarget"},
397         {&IID_IDropTarget,              "IID_IDropTarget"},
398         {&IID_IDropSource,              "IID_IDropSource"},
399         {&IID_IViewObject,              "IID_IViewObject"},
400         {&IID_IContextMenu,             "IID_IContextMenu"},
401         {&IID_IShellExtInit,            "IID_IShellExtInit"},
402         {&IID_IShellFolder,             "IID_IShellFolder"},
403         {&IID_IShellFolder2,            "IID_IShellFolder2"},
404         {&IID_IPersist,                 "IID_IPersist"},
405         {&IID_IPersistFolder,           "IID_IPersistFolder"},
406         {&IID_IPersistFolder2,          "IID_IPersistFolder2"},
407         {&IID_IPersistFolder3,          "IID_IPersistFolder3"},
408         {&IID_IExtractIconA,            "IID_IExtractIconA"},
409         {&IID_IExtractIconW,            "IID_IExtractIconW"},
410         {&IID_IDataObject,              "IID_IDataObject"},
411         {&IID_IAutoComplete,            "IID_IAutoComplete"},
412         {&IID_IAutoComplete2,           "IID_IAutoComplete2"},
413         {&IID_IShellLinkA,              "IID_IShellLinkA"},
414         {&IID_IShellLinkW,              "IID_IShellLinkW"},
415         {NULL,NULL}};
416
417 const char * shdebugstr_guid( const struct _GUID *id )
418 {
419         int i;
420         const char* name = NULL;
421         char clsidbuf[100];
422
423         if (!id) return "(null)";
424
425             for (i=0;InterfaceDesc[i].riid && !name;i++) {
426                 if (IsEqualIID(InterfaceDesc[i].riid, id)) name = InterfaceDesc[i].name;
427             }
428             if (!name) {
429                 if (HCR_GetClassNameA(id, clsidbuf, 100))
430                     name = clsidbuf;
431             }
432
433             return wine_dbg_sprintf( "\n\t{%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x} (%s)",
434                  id->Data1, id->Data2, id->Data3,
435                  id->Data4[0], id->Data4[1], id->Data4[2], id->Data4[3],
436                  id->Data4[4], id->Data4[5], id->Data4[6], id->Data4[7], name ? name : "unknown" );
437 }