Add support for wrapper generation to winewrap.
[wine/multimedia.git] / dlls / shell32 / debughlp.c
blob99bb2670b01778ac5d309bd94fc53bd76553500c
1 /*
2 * Helper functions for debugging
4 * Copyright 1998, 2002 Juergen Schmied
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
21 #include <ctype.h>
22 #include <stdlib.h>
23 #include <string.h>
24 #include <stdio.h>
25 #include "pidl.h"
26 #include "shlguid.h"
27 #include "wine/debug.h"
28 #include "debughlp.h"
29 #include "docobj.h"
30 #include "shell32_main.h"
33 WINE_DEFAULT_DEBUG_CHANNEL(pidl);
35 LPITEMIDLIST _dbg_ILGetNext(LPITEMIDLIST pidl)
37 WORD len;
39 if(pidl)
41 len = pidl->mkid.cb;
42 if (len)
44 pidl = (LPITEMIDLIST) (((LPBYTE)pidl)+len);
45 return pidl;
48 return NULL;
51 BOOL _dbg_ILIsDesktop(LPCITEMIDLIST pidl)
53 return ( !pidl || (pidl && pidl->mkid.cb == 0x00) );
56 LPPIDLDATA _dbg_ILGetDataPointer(LPITEMIDLIST pidl)
58 if(pidl && pidl->mkid.cb != 0x00)
59 return (LPPIDLDATA) &(pidl->mkid.abID);
60 return NULL;
63 LPSTR _dbg_ILGetTextPointer(LPCITEMIDLIST pidl)
65 LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
67 if (pdata)
69 switch (pdata->type)
71 case PT_MYCOMP:
72 case PT_SPECIAL:
73 return NULL;
75 case PT_DRIVE:
76 case PT_DRIVE1:
77 case PT_DRIVE2:
78 case PT_DRIVE3:
79 return (LPSTR)&(pdata->u.drive.szDriveName);
81 case PT_FOLDER:
82 case PT_FOLDER1:
83 case PT_VALUE:
84 case PT_IESPECIAL1:
85 case PT_IESPECIAL2:
86 return (LPSTR)&(pdata->u.file.szNames);
88 case PT_WORKGRP:
89 case PT_COMP:
90 case PT_NETWORK:
91 case PT_SHARE:
92 return (LPSTR)&(pdata->u.network.szNames);
95 return NULL;
98 LPSTR _dbg_ILGetSTextPointer(LPCITEMIDLIST pidl)
100 LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
102 if (pdata)
104 switch (pdata->type)
106 case PT_FOLDER:
107 case PT_VALUE:
108 case PT_IESPECIAL1:
109 case PT_IESPECIAL2:
110 return (LPSTR)(pdata->u.file.szNames + strlen (pdata->u.file.szNames) + 1);
112 case PT_WORKGRP:
113 return (LPSTR)(pdata->u.network.szNames + strlen (pdata->u.network.szNames) + 1);
116 return NULL;
119 REFIID _dbg_ILGetGUIDPointer(LPCITEMIDLIST pidl)
121 LPPIDLDATA pdata =_ILGetDataPointer(pidl);
123 if (pdata)
125 switch (pdata->type)
127 case PT_SPECIAL:
128 case PT_MYCOMP:
129 return (REFIID) &(pdata->u.mycomp.guid);
132 return NULL;
135 DWORD _dbg_ILSimpleGetText (LPCITEMIDLIST pidl, LPSTR szOut, UINT uOutSize)
137 DWORD dwReturn=0;
138 LPSTR szSrc;
139 GUID const * riid;
140 char szTemp[MAX_PATH];
142 if (!pidl) return 0;
144 if (szOut)
145 *szOut = 0;
147 if (_dbg_ILIsDesktop(pidl))
149 /* desktop */
150 if (szOut) strncpy(szOut, "Desktop", uOutSize);
151 dwReturn = strlen ("Desktop");
153 else if (( szSrc = _dbg_ILGetTextPointer(pidl) ))
155 /* filesystem */
156 if (szOut) strncpy(szOut, szSrc, uOutSize);
157 dwReturn = strlen(szSrc);
159 else if (( riid = _dbg_ILGetGUIDPointer(pidl) ))
161 if (szOut)
162 sprintf( szOut, "{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
163 riid->Data1, riid->Data2, riid->Data3,
164 riid->Data4[0], riid->Data4[1], riid->Data4[2], riid->Data4[3],
165 riid->Data4[4], riid->Data4[5], riid->Data4[6], riid->Data4[7] );
166 dwReturn = strlen (szTemp);
168 return dwReturn;
174 void pdump (LPCITEMIDLIST pidl)
176 LPITEMIDLIST pidltemp = pidl;
178 if (!TRACE_ON(pidl)) return;
180 if (! pidltemp)
182 MESSAGE ("-------- pidl=NULL (Desktop)\n");
184 else
186 MESSAGE ("-------- pidl=%p\n", pidl);
187 if (pidltemp->mkid.cb)
191 DWORD dwAttrib = 0;
192 LPPIDLDATA pData = _dbg_ILGetDataPointer(pidltemp);
193 DWORD type = pData->type;
194 LPSTR szLongName = _dbg_ILGetTextPointer(pidltemp);
195 LPSTR szShortName = _dbg_ILGetSTextPointer(pidltemp);
196 char szName[MAX_PATH];
198 _dbg_ILSimpleGetText(pidltemp, szName, MAX_PATH);
199 if( PT_FOLDER == type)
200 dwAttrib = pData->u.folder.uFileAttribs;
201 else if( PT_VALUE == type)
202 dwAttrib = pData->u.file.uFileAttribs;
204 MESSAGE ("[%p] size=%04u type=%lx attr=0x%08lx name=\"%s\" (%s,%s)\n",
205 pidltemp, pidltemp->mkid.cb,type,dwAttrib,szName,debugstr_a(szLongName), debugstr_a(szShortName));
207 pidltemp = _dbg_ILGetNext(pidltemp);
209 } while (pidltemp->mkid.cb);
211 else
213 MESSAGE ("empty pidl (Desktop)\n");
215 pcheck(pidl);
218 #define BYTES_PRINTED 32
219 BOOL pcheck (LPCITEMIDLIST pidl)
221 DWORD type, ret=TRUE;
222 LPITEMIDLIST pidltemp = pidl;
224 if (pidltemp && pidltemp->mkid.cb)
225 { do
226 { type = _dbg_ILGetDataPointer(pidltemp)->type;
227 switch (type)
228 { case PT_DESKTOP:
229 case PT_MYCOMP:
230 case PT_SPECIAL:
231 case PT_DRIVE:
232 case PT_DRIVE1:
233 case PT_DRIVE2:
234 case PT_DRIVE3:
235 case PT_FOLDER:
236 case PT_VALUE:
237 case PT_FOLDER1:
238 case PT_WORKGRP:
239 case PT_COMP:
240 case PT_NETWORK:
241 case PT_IESPECIAL1:
242 case PT_IESPECIAL2:
243 case PT_SHARE:
244 break;
245 default:
247 char szTemp[BYTES_PRINTED*4 + 1];
248 int i;
249 unsigned char c;
251 memset(szTemp, ' ', BYTES_PRINTED*4 + 1);
252 for ( i = 0; (i<pidltemp->mkid.cb) && (i<BYTES_PRINTED); i++)
254 c = ((unsigned char *)pidltemp)[i];
256 szTemp[i*3+0] = ((c>>4)>9)? (c>>4)+55 : (c>>4)+48;
257 szTemp[i*3+1] = ((0x0F&c)>9)? (0x0F&c)+55 : (0x0F&c)+48;
258 szTemp[i*3+2] = ' ';
259 szTemp[i+BYTES_PRINTED*3] = (c>=0x20 && c <=0x80) ? c : '.';
261 szTemp[BYTES_PRINTED*4] = 0x00;
262 ERR("unknown IDLIST %p [%p] size=%u type=%lx\n%s\n",pidl, pidltemp, pidltemp->mkid.cb,type, szTemp);
263 ret = FALSE;
266 pidltemp = _dbg_ILGetNext(pidltemp);
267 } while (pidltemp->mkid.cb);
269 return ret;
272 static char shdebugstr_buf1[100];
273 static char shdebugstr_buf2[100];
274 static char * shdebugstr_buf = shdebugstr_buf1;
276 static struct {
277 REFIID riid;
278 char *name;
279 } InterfaceDesc[] = {
280 {&IID_IUnknown, "IID_IUnknown"},
281 {&IID_IClassFactory, "IID_IClassFactory"},
282 {&IID_IShellView, "IID_IShellView"},
283 {&IID_IOleCommandTarget, "IID_IOleCommandTarget"},
284 {&IID_IDropTarget, "IID_IDropTarget"},
285 {&IID_IDropSource, "IID_IDropSource"},
286 {&IID_IViewObject, "IID_IViewObject"},
287 {&IID_IContextMenu, "IID_IContextMenu"},
288 {&IID_IShellExtInit, "IID_IShellExtInit"},
289 {&IID_IShellFolder, "IID_IShellFolder"},
290 {&IID_IShellFolder2, "IID_IShellFolder2"},
291 {&IID_IPersist, "IID_IPersist"},
292 {&IID_IPersistFolder, "IID_IPersistFolder"},
293 {&IID_IPersistFolder2, "IID_IPersistFolder2"},
294 {&IID_IPersistFolder3, "IID_IPersistFolder3"},
295 {&IID_IExtractIconA, "IID_IExtractIconA"},
296 {&IID_IExtractIconW, "IID_IExtractIconW"},
297 {&IID_IDataObject, "IID_IDataObject"},
298 {NULL,NULL}};
300 const char * shdebugstr_guid( const struct _GUID *id )
302 int i;
303 char* name = NULL;
304 char clsidbuf[100];
306 shdebugstr_buf = (shdebugstr_buf == shdebugstr_buf1) ? shdebugstr_buf2 : shdebugstr_buf1;
308 if (!id) {
309 strcpy (shdebugstr_buf, "(null)");
310 } else {
311 for (i=0;InterfaceDesc[i].riid && !name;i++) {
312 if (IsEqualIID(InterfaceDesc[i].riid, id)) name = InterfaceDesc[i].name;
314 if (!name) {
315 if (HCR_GetClassNameA(id, clsidbuf, 100))
316 name = clsidbuf;
319 sprintf( shdebugstr_buf, "\n\t{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x} (%s)",
320 id->Data1, id->Data2, id->Data3,
321 id->Data4[0], id->Data4[1], id->Data4[2], id->Data4[3],
322 id->Data4[4], id->Data4[5], id->Data4[6], id->Data4[7], name ? name : "unknown" );
324 return shdebugstr_buf;