msctf: Implement ITfRange::GetContext.
[wine] / dlls / dbghelp / source.c
1 /*
2  * File source.c - source files management
3  *
4  * Copyright (C) 2004,      Eric Pouech.
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 "config.h"
22 #include <stdlib.h>
23 #include <stdio.h>
24 #include <string.h>
25 #include <assert.h>
26
27 #include "dbghelp_private.h"
28 #include "wine/debug.h"
29
30 WINE_DEFAULT_DEBUG_CHANNEL(dbghelp);
31
32 /******************************************************************
33  *              source_find
34  *
35  * check whether a source file has already been stored
36  */
37 static unsigned source_find(const struct module* module, const char* name)
38 {
39     char*       ptr = module->sources;
40
41     while (*ptr)
42     {
43         if (strcmp(ptr, name) == 0) return ptr - module->sources;
44         ptr += strlen(ptr) + 1;
45     }
46     return (unsigned)-1;
47 }
48
49 /******************************************************************
50  *              source_new
51  *
52  * checks if source exists. if not, add it
53  */
54 unsigned source_new(struct module* module, const char* base, const char* name)
55 {
56     unsigned    ret;
57     const char* full;
58     char*       tmp = NULL;
59
60     if (!name) return (unsigned)-1;
61     if (!base || *name == '/')
62         full = name;
63     else
64     {
65         unsigned bsz = strlen(base);
66
67         tmp = HeapAlloc(GetProcessHeap(), 0, bsz + 1 + strlen(name) + 1);
68         if (!tmp) return (unsigned)-1;
69         full = tmp;
70         strcpy(tmp, base);
71         if (tmp[bsz - 1] != '/') tmp[bsz++] = '/';
72         strcpy(&tmp[bsz], name);
73     }
74     if (!module->sources || (ret = source_find(module, full)) == (unsigned)-1)
75     {
76         int len = strlen(full) + 1;
77         if (module->sources_used + len + 1 > module->sources_alloc)
78         {
79             /* Alloc by block of 256 bytes */
80             module->sources_alloc = (module->sources_used + len + 1 + 255) & ~255;
81             if (!module->sources)
82                 module->sources = HeapAlloc(GetProcessHeap(), 0, module->sources_alloc);
83             else
84                 module->sources = HeapReAlloc(GetProcessHeap(), 0, module->sources,
85                                               module->sources_alloc);
86         }
87         ret = module->sources_used;
88         memcpy(module->sources + module->sources_used, full, len);
89         module->sources_used += len;
90         module->sources[module->sources_used] = '\0';
91     }
92     HeapFree(GetProcessHeap(), 0, tmp);
93     return ret;
94 }
95
96 /******************************************************************
97  *              source_get
98  *
99  * returns a stored source file name
100  */
101 const char* source_get(const struct module* module, unsigned idx)
102 {
103     if (idx == -1) return "";
104     assert(module->sources);
105     return module->sources + idx;
106 }
107
108 /******************************************************************
109  *              SymEnumSourceFiles (DBGHELP.@)
110  *
111  */
112 BOOL WINAPI SymEnumSourceFiles(HANDLE hProcess, ULONG64 ModBase, PCSTR Mask,
113                                PSYM_ENUMSOURCEFILES_CALLBACK cbSrcFiles,
114                                PVOID UserContext)
115 {
116     struct module_pair  pair;
117     SOURCEFILE          sf;
118     char*               ptr;
119     
120     if (!cbSrcFiles) return FALSE;
121     pair.pcs = process_find_by_handle(hProcess);
122     if (!pair.pcs) return FALSE;
123          
124     if (ModBase)
125     {
126         pair.requested = module_find_by_addr(pair.pcs, ModBase, DMT_UNKNOWN);
127         if (!module_get_debug(&pair)) return FALSE;
128     }
129     else
130     {
131         if (Mask[0] == '!')
132         {
133             pair.requested = module_find_by_nameA(pair.pcs, Mask + 1);
134             if (!module_get_debug(&pair)) return FALSE;
135         }
136         else
137         {
138             FIXME("Unsupported yet (should get info from current context)\n");
139             return FALSE;
140         }
141     }
142     if (!pair.effective->sources) return FALSE;
143     for (ptr = pair.effective->sources; *ptr; ptr += strlen(ptr) + 1)
144     {
145         /* FIXME: not using Mask */
146         sf.ModBase = ModBase;
147         sf.FileName = ptr;
148         if (!cbSrcFiles(&sf, UserContext)) break;
149     }
150
151     return TRUE;
152 }
153
154 /******************************************************************
155  *              SymGetSourceFileToken (DBGHELP.@)
156  *
157  */
158 BOOL WINAPI SymGetSourceFileToken(HANDLE hProcess, ULONG64 base,
159                                   PCSTR src, PVOID* token, DWORD* size)
160 {
161     FIXME("%p %s %s %p %p: stub!\n",
162           hProcess, wine_dbgstr_longlong(base), debugstr_a(src), token, size);
163     SetLastError(ERROR_NOT_SUPPORTED);
164     return FALSE;
165 }
166
167 /******************************************************************
168  *              SymGetSourceFileTokenW (DBGHELP.@)
169  *
170  */
171 BOOL WINAPI SymGetSourceFileTokenW(HANDLE hProcess, ULONG64 base,
172                                    PCWSTR src, PVOID* token, DWORD* size)
173 {
174     FIXME("%p %s %s %p %p: stub!\n",
175           hProcess, wine_dbgstr_longlong(base), debugstr_w(src), token, size);
176     SetLastError(ERROR_NOT_SUPPORTED);
177     return FALSE;
178 }