Release 1.4-rc3.
[wine/multimedia.git] / dlls / dbghelp / path.c
blob1b494da92f1d56927c6b8f62986299ba433b0673
1 /*
2 * File path.c - managing path in debugging environments
4 * Copyright (C) 2004,2008, Eric Pouech
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 #include "config.h"
22 #include <stdlib.h>
23 #include <stdio.h>
24 #include <string.h>
26 #include "dbghelp_private.h"
27 #include "winnls.h"
28 #include "winternl.h"
29 #include "wine/debug.h"
31 WINE_DEFAULT_DEBUG_CHANNEL(dbghelp);
33 static inline BOOL is_sep(char ch) {return ch == '/' || ch == '\\';}
34 static inline BOOL is_sepW(WCHAR ch) {return ch == '/' || ch == '\\';}
36 static inline const char* file_name(const char* str)
38 const char* p;
40 for (p = str + strlen(str) - 1; p >= str && !is_sep(*p); p--);
41 return p + 1;
44 static inline const WCHAR* file_nameW(const WCHAR* str)
46 const WCHAR* p;
48 for (p = str + strlenW(str) - 1; p >= str && !is_sepW(*p); p--);
49 return p + 1;
52 /******************************************************************
53 * FindDebugInfoFile (DBGHELP.@)
56 HANDLE WINAPI FindDebugInfoFile(PCSTR FileName, PCSTR SymbolPath, PSTR DebugFilePath)
58 HANDLE h;
60 h = CreateFileA(FileName, GENERIC_READ, FILE_SHARE_READ, NULL,
61 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
62 if (h == INVALID_HANDLE_VALUE)
64 if (!SearchPathA(SymbolPath, file_name(FileName), NULL, MAX_PATH, DebugFilePath, NULL))
65 return NULL;
66 h = CreateFileA(DebugFilePath, GENERIC_READ, FILE_SHARE_READ, NULL,
67 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
69 return (h == INVALID_HANDLE_VALUE) ? NULL : h;
72 /******************************************************************
73 * FindDebugInfoFileEx (DBGHELP.@)
76 HANDLE WINAPI FindDebugInfoFileEx(PCSTR FileName, PCSTR SymbolPath,
77 PSTR DebugFilePath,
78 PFIND_DEBUG_FILE_CALLBACK Callback,
79 PVOID CallerData)
81 FIXME("(%s %s %p %p %p): stub\n",
82 debugstr_a(FileName), debugstr_a(SymbolPath), debugstr_a(DebugFilePath), Callback, CallerData);
83 return NULL;
86 /******************************************************************
87 * FindExecutableImageExW (DBGHELP.@)
90 HANDLE WINAPI FindExecutableImageExW(PCWSTR FileName, PCWSTR SymbolPath, PWSTR ImageFilePath,
91 PFIND_EXE_FILE_CALLBACKW Callback, PVOID user)
93 HANDLE h;
95 if (Callback) FIXME("Unsupported callback yet\n");
96 if (!SearchPathW(SymbolPath, FileName, NULL, MAX_PATH, ImageFilePath, NULL))
97 return NULL;
98 h = CreateFileW(ImageFilePath, GENERIC_READ, FILE_SHARE_READ, NULL,
99 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
100 return (h == INVALID_HANDLE_VALUE) ? NULL : h;
103 /******************************************************************
104 * FindExecutableImageEx (DBGHELP.@)
107 HANDLE WINAPI FindExecutableImageEx(PCSTR FileName, PCSTR SymbolPath, PSTR ImageFilePath,
108 PFIND_EXE_FILE_CALLBACK Callback, PVOID user)
110 HANDLE h;
112 if (Callback) FIXME("Unsupported callback yet\n");
113 if (!SearchPathA(SymbolPath, FileName, NULL, MAX_PATH, ImageFilePath, NULL))
114 return NULL;
115 h = CreateFileA(ImageFilePath, GENERIC_READ, FILE_SHARE_READ, NULL,
116 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
117 return (h == INVALID_HANDLE_VALUE) ? NULL : h;
120 /******************************************************************
121 * FindExecutableImage (DBGHELP.@)
124 HANDLE WINAPI FindExecutableImage(PCSTR FileName, PCSTR SymbolPath, PSTR ImageFilePath)
126 return FindExecutableImageEx(FileName, SymbolPath, ImageFilePath, NULL, NULL);
129 /***********************************************************************
130 * MakeSureDirectoryPathExists (DBGHELP.@)
132 BOOL WINAPI MakeSureDirectoryPathExists(PCSTR DirPath)
134 char path[MAX_PATH];
135 const char *p = DirPath;
136 int n;
138 if (p[0] && p[1] == ':') p += 2;
139 while (*p == '\\') p++; /* skip drive root */
140 while ((p = strchr(p, '\\')) != NULL)
142 n = p - DirPath + 1;
143 memcpy(path, DirPath, n);
144 path[n] = '\0';
145 if( !CreateDirectoryA(path, NULL) &&
146 (GetLastError() != ERROR_ALREADY_EXISTS))
147 return FALSE;
148 p++;
150 if (GetLastError() == ERROR_ALREADY_EXISTS)
151 SetLastError(ERROR_SUCCESS);
153 return TRUE;
156 /******************************************************************
157 * SymMatchFileNameW (DBGHELP.@)
160 BOOL WINAPI SymMatchFileNameW(PCWSTR file, PCWSTR match,
161 PWSTR* filestop, PWSTR* matchstop)
163 PCWSTR fptr;
164 PCWSTR mptr;
166 TRACE("(%s %s %p %p)\n",
167 debugstr_w(file), debugstr_w(match), filestop, matchstop);
169 fptr = file + strlenW(file) - 1;
170 mptr = match + strlenW(match) - 1;
172 while (fptr >= file && mptr >= match)
174 if (toupperW(*fptr) != toupperW(*mptr) && !(is_sepW(*fptr) && is_sepW(*mptr)))
175 break;
176 fptr--; mptr--;
178 if (filestop) *filestop = (PWSTR)fptr;
179 if (matchstop) *matchstop = (PWSTR)mptr;
181 return mptr == match - 1;
184 /******************************************************************
185 * SymMatchFileName (DBGHELP.@)
188 BOOL WINAPI SymMatchFileName(PCSTR file, PCSTR match,
189 PSTR* filestop, PSTR* matchstop)
191 PCSTR fptr;
192 PCSTR mptr;
194 TRACE("(%s %s %p %p)\n", debugstr_a(file), debugstr_a(match), filestop, matchstop);
196 fptr = file + strlen(file) - 1;
197 mptr = match + strlen(match) - 1;
199 while (fptr >= file && mptr >= match)
201 if (toupper(*fptr) != toupper(*mptr) && !(is_sep(*fptr) && is_sep(*mptr)))
202 break;
203 fptr--; mptr--;
205 if (filestop) *filestop = (PSTR)fptr;
206 if (matchstop) *matchstop = (PSTR)mptr;
208 return mptr == match - 1;
211 static BOOL do_searchW(PCWSTR file, PWSTR buffer, BOOL recurse,
212 PENUMDIRTREE_CALLBACKW cb, PVOID user)
214 HANDLE h;
215 WIN32_FIND_DATAW fd;
216 unsigned pos;
217 BOOL found = FALSE;
218 static const WCHAR S_AllW[] = {'*','.','*','\0'};
219 static const WCHAR S_DotW[] = {'.','\0'};
220 static const WCHAR S_DotDotW[] = {'.','.','\0'};
222 pos = strlenW(buffer);
223 if (buffer[pos - 1] != '\\') buffer[pos++] = '\\';
224 strcpyW(buffer + pos, S_AllW);
225 if ((h = FindFirstFileW(buffer, &fd)) == INVALID_HANDLE_VALUE)
226 return FALSE;
227 /* doc doesn't specify how the tree is enumerated...
228 * doing a depth first based on, but may be wrong
232 if (!strcmpW(fd.cFileName, S_DotW) || !strcmpW(fd.cFileName, S_DotDotW)) continue;
234 strcpyW(buffer + pos, fd.cFileName);
235 if (recurse && (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
236 found = do_searchW(file, buffer, TRUE, cb, user);
237 else if (SymMatchFileNameW(buffer, file, NULL, NULL))
239 if (!cb || cb(buffer, user)) found = TRUE;
241 } while (!found && FindNextFileW(h, &fd));
242 if (!found) buffer[--pos] = '\0';
243 FindClose(h);
245 return found;
248 /***********************************************************************
249 * SearchTreeForFileW (DBGHELP.@)
251 BOOL WINAPI SearchTreeForFileW(PCWSTR root, PCWSTR file, PWSTR buffer)
253 TRACE("(%s, %s, %p)\n",
254 debugstr_w(root), debugstr_w(file), buffer);
255 strcpyW(buffer, root);
256 return do_searchW(file, buffer, TRUE, NULL, NULL);
259 /***********************************************************************
260 * SearchTreeForFile (DBGHELP.@)
262 BOOL WINAPI SearchTreeForFile(PCSTR root, PCSTR file, PSTR buffer)
264 WCHAR rootW[MAX_PATH];
265 WCHAR fileW[MAX_PATH];
266 WCHAR bufferW[MAX_PATH];
267 BOOL ret;
269 MultiByteToWideChar(CP_ACP, 0, root, -1, rootW, MAX_PATH);
270 MultiByteToWideChar(CP_ACP, 0, file, -1, fileW, MAX_PATH);
271 ret = SearchTreeForFileW(rootW, fileW, bufferW);
272 if (ret)
273 WideCharToMultiByte(CP_ACP, 0, bufferW, -1, buffer, MAX_PATH, NULL, NULL);
274 return ret;
277 /******************************************************************
278 * EnumDirTreeW (DBGHELP.@)
282 BOOL WINAPI EnumDirTreeW(HANDLE hProcess, PCWSTR root, PCWSTR file,
283 PWSTR buffer, PENUMDIRTREE_CALLBACKW cb, PVOID user)
285 TRACE("(%p %s %s %p %p %p)\n",
286 hProcess, debugstr_w(root), debugstr_w(file), buffer, cb, user);
288 strcpyW(buffer, root);
289 return do_searchW(file, buffer, TRUE, cb, user);
292 /******************************************************************
293 * EnumDirTree (DBGHELP.@)
297 struct enum_dir_treeWA
299 PENUMDIRTREE_CALLBACK cb;
300 void* user;
301 char name[MAX_PATH];
304 static BOOL CALLBACK enum_dir_treeWA(PCWSTR name, PVOID user)
306 struct enum_dir_treeWA* edt = user;
308 WideCharToMultiByte(CP_ACP, 0, name, -1, edt->name, MAX_PATH, NULL, NULL);
309 return edt->cb(edt->name, edt->user);
312 BOOL WINAPI EnumDirTree(HANDLE hProcess, PCSTR root, PCSTR file,
313 PSTR buffer, PENUMDIRTREE_CALLBACK cb, PVOID user)
315 WCHAR rootW[MAX_PATH];
316 WCHAR fileW[MAX_PATH];
317 WCHAR bufferW[MAX_PATH];
318 struct enum_dir_treeWA edt;
319 BOOL ret;
321 edt.cb = cb;
322 edt.user = user;
323 MultiByteToWideChar(CP_ACP, 0, root, -1, rootW, MAX_PATH);
324 MultiByteToWideChar(CP_ACP, 0, file, -1, fileW, MAX_PATH);
325 if ((ret = EnumDirTreeW(hProcess, rootW, fileW, bufferW, enum_dir_treeWA, &edt)))
326 WideCharToMultiByte(CP_ACP, 0, bufferW, -1, buffer, MAX_PATH, NULL, NULL);
327 return ret;
330 struct sffip
332 PFINDFILEINPATHCALLBACKW cb;
333 void* user;
336 /* checks that buffer (as found by matching the name) matches the info
337 * (information is based on file type)
338 * returns TRUE when file is found, FALSE to continue searching
339 * (NB this is the opposite convention of SymFindFileInPathProc)
341 static BOOL CALLBACK sffip_cb(PCWSTR buffer, PVOID user)
343 struct sffip* s = user;
345 if (!s->cb) return TRUE;
346 /* yes, EnumDirTree/do_search and SymFindFileInPath callbacks use the opposite
347 * convention to stop/continue enumeration. sigh.
349 return !(s->cb)(buffer, s->user);
352 /******************************************************************
353 * SymFindFileInPathW (DBGHELP.@)
356 BOOL WINAPI SymFindFileInPathW(HANDLE hProcess, PCWSTR searchPath, PCWSTR full_path,
357 PVOID id, DWORD two, DWORD three, DWORD flags,
358 PWSTR buffer, PFINDFILEINPATHCALLBACKW cb,
359 PVOID user)
361 struct sffip s;
362 struct process* pcs = process_find_by_handle(hProcess);
363 WCHAR tmp[MAX_PATH];
364 WCHAR* ptr;
365 const WCHAR* filename;
367 TRACE("(hProcess = %p, searchPath = %s, full_path = %s, id = %p, two = 0x%08x, three = 0x%08x, flags = 0x%08x, buffer = %p, cb = %p, user = %p)\n",
368 hProcess, debugstr_w(searchPath), debugstr_w(full_path),
369 id, two, three, flags, buffer, cb, user);
371 if (!pcs) return FALSE;
372 if (!searchPath) searchPath = pcs->search_path;
374 s.cb = cb;
375 s.user = user;
377 filename = file_nameW(full_path);
379 /* first check full path to file */
380 if (sffip_cb(full_path, &s))
382 strcpyW(buffer, full_path);
383 return TRUE;
386 while (searchPath)
388 ptr = strchrW(searchPath, ';');
389 if (ptr)
391 memcpy(tmp, searchPath, (ptr - searchPath) * sizeof(WCHAR));
392 tmp[ptr - searchPath] = 0;
393 searchPath = ptr + 1;
395 else
397 strcpyW(tmp, searchPath);
398 searchPath = NULL;
400 if (do_searchW(filename, tmp, FALSE, sffip_cb, &s))
402 strcpyW(buffer, tmp);
403 return TRUE;
406 return FALSE;
409 /******************************************************************
410 * SymFindFileInPath (DBGHELP.@)
413 BOOL WINAPI SymFindFileInPath(HANDLE hProcess, PCSTR searchPath, PCSTR full_path,
414 PVOID id, DWORD two, DWORD three, DWORD flags,
415 PSTR buffer, PFINDFILEINPATHCALLBACK cb,
416 PVOID user)
418 WCHAR searchPathW[MAX_PATH];
419 WCHAR full_pathW[MAX_PATH];
420 WCHAR bufferW[MAX_PATH];
421 struct enum_dir_treeWA edt;
422 BOOL ret;
424 /* a PFINDFILEINPATHCALLBACK and a PENUMDIRTREE_CALLBACK have actually the
425 * same signature & semantics, hence we can reuse the EnumDirTree W->A
426 * conversion helper
428 edt.cb = cb;
429 edt.user = user;
430 if (searchPath)
431 MultiByteToWideChar(CP_ACP, 0, searchPath, -1, searchPathW, MAX_PATH);
432 MultiByteToWideChar(CP_ACP, 0, full_path, -1, full_pathW, MAX_PATH);
433 if ((ret = SymFindFileInPathW(hProcess, searchPath ? searchPathW : NULL, full_pathW,
434 id, two, three, flags,
435 bufferW, enum_dir_treeWA, &edt)))
436 WideCharToMultiByte(CP_ACP, 0, bufferW, -1, buffer, MAX_PATH, NULL, NULL);
437 return ret;
440 struct module_find
442 enum module_type kind;
443 /* pe: dw1 DWORD:timestamp
444 * dw2 size of image (from PE header)
445 * pdb: guid PDB guid (if DS PDB file)
446 * or dw1 PDB timestamp (if JG PDB file)
447 * dw2 PDB age
448 * elf: dw1 DWORD:CRC 32 of ELF image (Wine only)
450 const GUID* guid;
451 DWORD dw1;
452 DWORD dw2;
453 WCHAR filename[MAX_PATH];
454 unsigned matched;
457 /* checks that buffer (as found by matching the name) matches the info
458 * (information is based on file type)
459 * returns TRUE when file is found, FALSE to continue searching
460 * (NB this is the opposite convention of SymFindFileInPathProc)
462 static BOOL CALLBACK module_find_cb(PCWSTR buffer, PVOID user)
464 struct module_find* mf = user;
465 DWORD size, checksum, timestamp;
466 unsigned matched = 0;
468 /* the matching weights:
469 * +1 if a file with same name is found and is a decent file of expected type
470 * +1 if first parameter and second parameter match
473 /* FIXME: should check that id/two match the file pointed
474 * by buffer
476 switch (mf->kind)
478 case DMT_PE:
480 HANDLE hFile, hMap;
481 void* mapping;
482 DWORD timestamp;
484 timestamp = ~mf->dw1;
485 size = ~mf->dw2;
486 hFile = CreateFileW(buffer, GENERIC_READ, FILE_SHARE_READ, NULL,
487 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
488 if (hFile == INVALID_HANDLE_VALUE) return FALSE;
489 if ((hMap = CreateFileMappingW(hFile, NULL, PAGE_READONLY, 0, 0, NULL)) != NULL)
491 if ((mapping = MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0)) != NULL)
493 IMAGE_NT_HEADERS* nth = RtlImageNtHeader(mapping);
495 matched++;
496 timestamp = nth->FileHeader.TimeDateStamp;
497 size = nth->OptionalHeader.SizeOfImage;
498 UnmapViewOfFile(mapping);
500 CloseHandle(hMap);
502 CloseHandle(hFile);
503 if (timestamp != mf->dw1)
504 WARN("Found %s, but wrong timestamp\n", debugstr_w(buffer));
505 if (size != mf->dw2)
506 WARN("Found %s, but wrong size\n", debugstr_w(buffer));
507 if (timestamp == mf->dw1 && size == mf->dw2) matched++;
509 break;
510 case DMT_ELF:
511 if (elf_fetch_file_info(buffer, 0, &size, &checksum))
513 matched++;
514 if (checksum == mf->dw1) matched++;
515 else
516 WARN("Found %s, but wrong checksums: %08x %08x\n",
517 debugstr_w(buffer), checksum, mf->dw1);
519 else
521 WARN("Couldn't read %s\n", debugstr_w(buffer));
522 return FALSE;
524 break;
525 case DMT_MACHO:
526 if (macho_fetch_file_info(buffer, 0, &size, &checksum))
528 matched++;
529 if (checksum == mf->dw1) matched++;
530 else
531 WARN("Found %s, but wrong checksums: %08x %08x\n",
532 debugstr_w(buffer), checksum, mf->dw1);
534 else
536 WARN("Couldn't read %s\n", debugstr_w(buffer));
537 return FALSE;
539 break;
540 case DMT_PDB:
542 struct pdb_lookup pdb_lookup;
543 char fn[MAX_PATH];
545 WideCharToMultiByte(CP_ACP, 0, buffer, -1, fn, MAX_PATH, NULL, NULL);
546 pdb_lookup.filename = fn;
548 if (mf->guid)
550 pdb_lookup.kind = PDB_DS;
551 pdb_lookup.timestamp = 0;
552 pdb_lookup.guid = *mf->guid;
554 else
556 pdb_lookup.kind = PDB_JG;
557 pdb_lookup.timestamp = mf->dw1;
558 /* pdb_loopkup.guid = */
560 pdb_lookup.age = mf->dw2;
562 if (!pdb_fetch_file_info(&pdb_lookup, &matched)) return FALSE;
564 break;
565 case DMT_DBG:
567 HANDLE hFile, hMap;
568 void* mapping;
570 timestamp = ~mf->dw1;
571 hFile = CreateFileW(buffer, GENERIC_READ, FILE_SHARE_READ, NULL,
572 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
573 if (hFile == INVALID_HANDLE_VALUE) return FALSE;
574 if ((hMap = CreateFileMappingW(hFile, NULL, PAGE_READONLY, 0, 0, NULL)) != NULL)
576 if ((mapping = MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0)) != NULL)
578 const IMAGE_SEPARATE_DEBUG_HEADER* hdr;
579 hdr = mapping;
581 if (hdr->Signature == IMAGE_SEPARATE_DEBUG_SIGNATURE)
583 matched++;
584 timestamp = hdr->TimeDateStamp;
586 UnmapViewOfFile(mapping);
588 CloseHandle(hMap);
590 CloseHandle(hFile);
591 if (timestamp == mf->dw1) matched++;
592 else WARN("Found %s, but wrong timestamp\n", debugstr_w(buffer));
594 break;
595 default:
596 FIXME("What the heck??\n");
597 return FALSE;
599 if (matched > mf->matched)
601 strcpyW(mf->filename, buffer);
602 mf->matched = matched;
604 /* yes, EnumDirTree/do_search and SymFindFileInPath callbacks use the opposite
605 * convention to stop/continue enumeration. sigh.
607 return mf->matched == 2;
610 BOOL path_find_symbol_file(const struct process* pcs, PCSTR full_path,
611 const GUID* guid, DWORD dw1, DWORD dw2, PSTR buffer,
612 BOOL* is_unmatched)
614 struct module_find mf;
615 WCHAR full_pathW[MAX_PATH];
616 WCHAR tmp[MAX_PATH];
617 WCHAR* ptr;
618 const WCHAR* filename;
619 WCHAR* searchPath = pcs->search_path;
621 TRACE("(pcs = %p, full_path = %s, guid = %s, dw1 = 0x%08x, dw2 = 0x%08x, buffer = %p)\n",
622 pcs, debugstr_a(full_path), debugstr_guid(guid), dw1, dw2, buffer);
624 mf.guid = guid;
625 mf.dw1 = dw1;
626 mf.dw2 = dw2;
627 mf.matched = 0;
629 MultiByteToWideChar(CP_ACP, 0, full_path, -1, full_pathW, MAX_PATH);
630 filename = file_nameW(full_pathW);
631 mf.kind = module_get_type_by_name(filename);
632 *is_unmatched = FALSE;
634 /* first check full path to file */
635 if (module_find_cb(full_pathW, &mf))
637 WideCharToMultiByte(CP_ACP, 0, full_pathW, -1, buffer, MAX_PATH, NULL, NULL);
638 return TRUE;
641 while (searchPath)
643 ptr = strchrW(searchPath, ';');
644 if (ptr)
646 memcpy(tmp, searchPath, (ptr - searchPath) * sizeof(WCHAR));
647 tmp[ptr - searchPath] = '\0';
648 searchPath = ptr + 1;
650 else
652 strcpyW(tmp, searchPath);
653 searchPath = NULL;
655 if (do_searchW(filename, tmp, FALSE, module_find_cb, &mf))
657 /* return first fully matched file */
658 WideCharToMultiByte(CP_ACP, 0, tmp, -1, buffer, MAX_PATH, NULL, NULL);
659 return TRUE;
662 /* if no fully matching file is found, return the best matching file if any */
663 if ((dbghelp_options & SYMOPT_LOAD_ANYTHING) && mf.matched)
665 WideCharToMultiByte(CP_ACP, 0, mf.filename, -1, buffer, MAX_PATH, NULL, NULL);
666 *is_unmatched = TRUE;
667 return TRUE;
669 return FALSE;