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
29 #include "wine/debug.h"
32 #include "shell32_main.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(pidl);
37 LPITEMIDLIST _dbg_ILGetNext(LPCITEMIDLIST pidl)
46 return (LPITEMIDLIST) (((LPBYTE)pidl)+len);
52 BOOL _dbg_ILIsDesktop(LPCITEMIDLIST pidl)
54 return ( !pidl || (pidl && pidl->mkid.cb == 0x00) );
57 LPPIDLDATA _dbg_ILGetDataPointer(LPCITEMIDLIST pidl)
59 if(pidl && pidl->mkid.cb != 0x00)
60 return (LPPIDLDATA) &(pidl->mkid.abID);
64 LPSTR _dbg_ILGetTextPointer(LPCITEMIDLIST pidl)
66 LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
80 return (LPSTR)&(pdata->u.drive.szDriveName);
87 return (LPSTR)&(pdata->u.file.szNames);
94 return (LPSTR)&(pdata->u.network.szNames);
100 LPSTR _dbg_ILGetSTextPointer(LPCITEMIDLIST pidl)
102 LPPIDLDATA pdata =_dbg_ILGetDataPointer(pidl);
112 return (LPSTR)(pdata->u.file.szNames + strlen (pdata->u.file.szNames) + 1);
115 return (LPSTR)(pdata->u.network.szNames + strlen (pdata->u.network.szNames) + 1);
121 REFIID _dbg_ILGetGUIDPointer(LPCITEMIDLIST pidl)
123 LPPIDLDATA pdata =_ILGetDataPointer(pidl);
131 return (REFIID) &(pdata->u.mycomp.guid);
137 DWORD _dbg_ILSimpleGetText (LPCITEMIDLIST pidl, LPSTR szOut, UINT uOutSize)
142 char szTemp[MAX_PATH];
149 if (_dbg_ILIsDesktop(pidl))
152 if (szOut) strncpy(szOut, "Desktop", uOutSize);
153 dwReturn = strlen ("Desktop");
155 else if (( szSrc = _dbg_ILGetTextPointer(pidl) ))
158 if (szOut) strncpy(szOut, szSrc, uOutSize);
159 dwReturn = strlen(szSrc);
161 else if (( riid = _dbg_ILGetGUIDPointer(pidl) ))
164 sprintf( szOut, "{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
165 riid->Data1, riid->Data2, riid->Data3,
166 riid->Data4[0], riid->Data4[1], riid->Data4[2], riid->Data4[3],
167 riid->Data4[4], riid->Data4[5], riid->Data4[6], riid->Data4[7] );
168 dwReturn = strlen (szTemp);
176 void pdump (LPCITEMIDLIST pidl)
178 LPCITEMIDLIST pidltemp = pidl;
180 if (!TRACE_ON(pidl)) return;
184 MESSAGE ("-------- pidl=NULL (Desktop)\n");
188 MESSAGE ("-------- pidl=%p\n", pidl);
189 if (pidltemp->mkid.cb)
194 LPPIDLDATA pData = _dbg_ILGetDataPointer(pidltemp);
195 DWORD type = pData->type;
196 LPSTR szLongName = _dbg_ILGetTextPointer(pidltemp);
197 LPSTR szShortName = _dbg_ILGetSTextPointer(pidltemp);
198 char szName[MAX_PATH];
200 _dbg_ILSimpleGetText(pidltemp, szName, MAX_PATH);
201 if( PT_FOLDER == type)
202 dwAttrib = pData->u.folder.uFileAttribs;
203 else if( PT_VALUE == type)
204 dwAttrib = pData->u.file.uFileAttribs;
206 MESSAGE ("[%p] size=%04u type=%lx attr=0x%08lx name=\"%s\" (%s,%s)\n",
207 pidltemp, pidltemp->mkid.cb,type,dwAttrib,szName,debugstr_a(szLongName), debugstr_a(szShortName));
209 pidltemp = _dbg_ILGetNext(pidltemp);
211 } while (pidltemp->mkid.cb);
215 MESSAGE ("empty pidl (Desktop)\n");
220 #define BYTES_PRINTED 32
221 BOOL pcheck (LPCITEMIDLIST pidl)
223 DWORD type, ret=TRUE;
224 LPCITEMIDLIST pidltemp = pidl;
226 if (pidltemp && pidltemp->mkid.cb)
228 { type = _dbg_ILGetDataPointer(pidltemp)->type;
249 char szTemp[BYTES_PRINTED*4 + 1];
253 memset(szTemp, ' ', BYTES_PRINTED*4 + 1);
254 for ( i = 0; (i<pidltemp->mkid.cb) && (i<BYTES_PRINTED); i++)
256 c = ((unsigned char *)pidltemp)[i];
258 szTemp[i*3+0] = ((c>>4)>9)? (c>>4)+55 : (c>>4)+48;
259 szTemp[i*3+1] = ((0x0F&c)>9)? (0x0F&c)+55 : (0x0F&c)+48;
261 szTemp[i+BYTES_PRINTED*3] = (c>=0x20 && c <=0x80) ? c : '.';
263 szTemp[BYTES_PRINTED*4] = 0x00;
264 ERR("unknown IDLIST %p [%p] size=%u type=%lx\n%s\n",pidl, pidltemp, pidltemp->mkid.cb,type, szTemp);
268 pidltemp = _dbg_ILGetNext(pidltemp);
269 } while (pidltemp->mkid.cb);
274 static char shdebugstr_buf1[100];
275 static char shdebugstr_buf2[100];
276 static char * shdebugstr_buf = shdebugstr_buf1;
281 } InterfaceDesc[] = {
282 {&IID_IUnknown, "IID_IUnknown"},
283 {&IID_IClassFactory, "IID_IClassFactory"},
284 {&IID_IShellView, "IID_IShellView"},
285 {&IID_IOleCommandTarget, "IID_IOleCommandTarget"},
286 {&IID_IDropTarget, "IID_IDropTarget"},
287 {&IID_IDropSource, "IID_IDropSource"},
288 {&IID_IViewObject, "IID_IViewObject"},
289 {&IID_IContextMenu, "IID_IContextMenu"},
290 {&IID_IShellExtInit, "IID_IShellExtInit"},
291 {&IID_IShellFolder, "IID_IShellFolder"},
292 {&IID_IShellFolder2, "IID_IShellFolder2"},
293 {&IID_IPersist, "IID_IPersist"},
294 {&IID_IPersistFolder, "IID_IPersistFolder"},
295 {&IID_IPersistFolder2, "IID_IPersistFolder2"},
296 {&IID_IPersistFolder3, "IID_IPersistFolder3"},
297 {&IID_IExtractIconA, "IID_IExtractIconA"},
298 {&IID_IExtractIconW, "IID_IExtractIconW"},
299 {&IID_IDataObject, "IID_IDataObject"},
302 const char * shdebugstr_guid( const struct _GUID *id )
308 shdebugstr_buf = (shdebugstr_buf == shdebugstr_buf1) ? shdebugstr_buf2 : shdebugstr_buf1;
311 strcpy (shdebugstr_buf, "(null)");
313 for (i=0;InterfaceDesc[i].riid && !name;i++) {
314 if (IsEqualIID(InterfaceDesc[i].riid, id)) name = InterfaceDesc[i].name;
317 if (HCR_GetClassNameA(id, clsidbuf, 100))
321 sprintf( shdebugstr_buf, "\n\t{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x} (%s)",
322 id->Data1, id->Data2, id->Data3,
323 id->Data4[0], id->Data4[1], id->Data4[2], id->Data4[3],
324 id->Data4[4], id->Data4[5], id->Data4[6], id->Data4[7], name ? name : "unknown" );
326 return shdebugstr_buf;