Sweden-Number/programs/winedbg/source.c

375 lines
10 KiB
C

/*
* File source.c - source file handling for internal debugger.
*
* Copyright (C) 1997, Eric Youngdale.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#ifndef PATH_MAX
#define PATH_MAX MAX_PATH
#endif
#include "debugger.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(winedbg);
struct search_list
{
char* path;
struct search_list* next;
};
struct open_file_list
{
char* path;
char* real_path;
struct open_file_list* next;
unsigned int size;
signed int nlines;
unsigned int* linelist;
};
static struct open_file_list* source_ofiles;
static struct search_list* source_list_head;
static char source_current_file[PATH_MAX];
static int source_start_line = -1;
static int source_end_line = -1;
void source_show_path(void)
{
struct search_list* sl;
dbg_printf("Search list:\n");
for (sl = source_list_head; sl; sl = sl->next) dbg_printf("\t%s\n", sl->path);
dbg_printf("\n");
}
void source_add_path(const char* path)
{
struct search_list* sl;
if (!(sl = HeapAlloc(GetProcessHeap(), 0, sizeof(struct search_list))))
return;
sl->next = source_list_head;
sl->path = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(path) + 1), path);
source_list_head = sl;
}
void source_nuke_path(void)
{
struct search_list* sl;
struct search_list* nxt;
for (sl = source_list_head; sl; sl = nxt)
{
nxt = sl->next;
HeapFree(GetProcessHeap(), 0, sl->path);
HeapFree(GetProcessHeap(), 0, sl);
}
source_list_head = NULL;
}
static void* source_map_file(const char* name, HANDLE* hMap, unsigned* size)
{
HANDLE hFile;
hFile = CreateFile(name, GENERIC_READ, FILE_SHARE_READ, NULL,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
if (hFile == INVALID_HANDLE_VALUE) return (void*)-1;
if (size != NULL && (*size = GetFileSize(hFile, NULL)) == -1) return (void*)-1;
*hMap = CreateFileMapping(hFile, NULL, PAGE_READONLY, 0, 0, NULL);
CloseHandle(hFile);
if (!*hMap) return (void*)-1;
return MapViewOfFile(*hMap, FILE_MAP_READ, 0, 0, 0);
}
static void source_unmap_file(void* addr, HANDLE hMap)
{
UnmapViewOfFile(addr);
CloseHandle(hMap);
}
static struct open_file_list* source_search_open_file(const char* name)
{
struct open_file_list* ol;
for (ol = source_ofiles; ol; ol = ol->next)
{
if (strcmp(ol->path, name) == 0) break;
}
return ol;
}
static int source_display(const char* sourcefile, int start, int end)
{
char* addr;
int i;
struct open_file_list* ol;
int nlines;
const char* basename = NULL;
char* pnt;
int rtn;
struct search_list* sl;
HANDLE hMap;
DWORD status;
char tmppath[PATH_MAX];
/*
* First see whether we have the file open already. If so, then
* use that, otherwise we have to try and open it.
*/
ol = source_search_open_file(sourcefile);
if (ol == NULL)
{
/*
* Try again, stripping the path from the opened file.
*/
basename = strrchr(sourcefile, '\\');
if (!basename) basename = strrchr(sourcefile, '/');
if (!basename) basename = sourcefile;
else basename++;
ol = source_search_open_file(basename);
}
if (ol == NULL)
{
/*
* Crapola. We need to try and open the file.
*/
status = GetFileAttributes(sourcefile);
if (status != INVALID_FILE_ATTRIBUTES)
{
strcpy(tmppath, sourcefile);
}
else if ((status = GetFileAttributes(basename)) != INVALID_FILE_ATTRIBUTES)
{
strcpy(tmppath, basename);
}
else
{
for (sl = source_list_head; sl; sl = sl->next)
{
strcpy(tmppath, sl->path);
if (tmppath[strlen(tmppath) - 1] != '/' && tmppath[strlen(tmppath) - 1] != '\\')
{
strcat(tmppath, "/");
}
/*
* Now append the base file name.
*/
strcat(tmppath, basename);
status = GetFileAttributes(tmppath);
if (status != INVALID_FILE_ATTRIBUTES) break;
}
if (sl == NULL)
{
if (dbg_interactiveP)
{
char zbuf[256];
/*
* Still couldn't find it. Ask user for path to add.
*/
snprintf(zbuf, sizeof(zbuf), "Enter path to file '%s': ", sourcefile);
input_read_line(zbuf, tmppath, sizeof(tmppath));
if (tmppath[strlen(tmppath) - 1] != '/')
{
strcat(tmppath, "/");
}
/*
* Now append the base file name.
*/
strcat(tmppath, basename);
status = GetFileAttributes(tmppath);
}
else
{
status = INVALID_FILE_ATTRIBUTES;
strcpy(tmppath, sourcefile);
}
if (status == INVALID_FILE_ATTRIBUTES)
{
/*
* OK, I guess the user doesn't really want to see it
* after all.
*/
ol = HeapAlloc(GetProcessHeap(), 0, sizeof(*ol));
ol->path = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(sourcefile) + 1), sourcefile);
ol->real_path = NULL;
ol->next = source_ofiles;
ol->nlines = 0;
ol->linelist = NULL;
source_ofiles = ol;
dbg_printf("Unable to open file %s\n", tmppath);
return FALSE;
}
}
}
/*
* Create header for file.
*/
ol = HeapAlloc(GetProcessHeap(), 0, sizeof(*ol));
ol->path = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(sourcefile) + 1), sourcefile);
ol->real_path = strcpy(HeapAlloc(GetProcessHeap(), 0, strlen(tmppath) + 1), tmppath);
ol->next = source_ofiles;
ol->nlines = 0;
ol->linelist = NULL;
ol->size = 0;
source_ofiles = ol;
addr = source_map_file(tmppath, &hMap, &ol->size);
if (addr == (char*)-1) return FALSE;
/*
* Now build up the line number mapping table.
*/
ol->nlines = 1;
pnt = addr;
while (pnt < addr + ol->size)
{
if (*pnt++ == '\n') ol->nlines++;
}
ol->nlines++;
ol->linelist = HeapAlloc(GetProcessHeap(), 0, ol->nlines * sizeof(unsigned int));
nlines = 0;
pnt = addr;
ol->linelist[nlines++] = 0;
while (pnt < addr + ol->size)
{
if (*pnt++ == '\n') ol->linelist[nlines++] = pnt - addr;
}
ol->linelist[nlines++] = pnt - addr;
}
else
{
addr = source_map_file(ol->real_path, &hMap, NULL);
if (addr == (char*)-1) return FALSE;
}
/*
* All we need to do is to display the source lines here.
*/
rtn = FALSE;
for (i = start - 1; i <= end - 1; i++)
{
char buffer[1024];
if (i < 0 || i >= ol->nlines - 1) continue;
rtn = TRUE;
memset(&buffer, 0, sizeof(buffer));
if (ol->linelist[i+1] != ol->linelist[i])
{
memcpy(&buffer, addr + ol->linelist[i],
(ol->linelist[i+1] - ol->linelist[i]) - 1);
}
dbg_printf("%d\t%s\n", i + 1, buffer);
}
source_unmap_file(addr, hMap);
return rtn;
}
void source_list(IMAGEHLP_LINE* src1, IMAGEHLP_LINE* src2, int delta)
{
int end;
int start;
const char* sourcefile;
/*
* We need to see what source file we need. Hopefully we only have
* one specified, otherwise we might as well punt.
*/
if (src1 && src2 && src1->FileName && src2->FileName &&
strcmp(src1->FileName, src2->FileName) != 0)
{
dbg_printf("Ambiguous source file specification.\n");
return;
}
sourcefile = NULL;
if (src1 && src1->FileName) sourcefile = src1->FileName;
if (!sourcefile && src2 && src2->FileName) sourcefile = src2->FileName;
if (!sourcefile) sourcefile = source_current_file;
/*
* Now figure out the line number range to be listed.
*/
start = end = -1;
if (src1) start = src1->LineNumber;
if (src2) end = src2->LineNumber;
if (start == -1 && end == -1)
{
if (delta < 0)
{
end = source_start_line;
start = end + delta;
}
else
{
start = source_end_line;
end = start + delta;
}
}
else if (start == -1) start = end + delta;
else if (end == -1) end = start + delta;
/*
* Now call this function to do the dirty work.
*/
source_display(sourcefile, start, end);
if (sourcefile != source_current_file)
strcpy(source_current_file, sourcefile);
source_start_line = start;
source_end_line = end;
}
void source_list_from_addr(const ADDRESS* addr, int nlines)
{
IMAGEHLP_LINE il;
DWORD lin;
if (!addr)
{
ADDRESS la;
memory_get_current_pc(&la);
lin = (unsigned long)memory_to_linear_addr(&la);
}
else lin = (unsigned long)memory_to_linear_addr(addr);
il.SizeOfStruct = sizeof(il);
if (SymGetLineFromAddr(dbg_curr_process->handle, lin, NULL, &il))
source_list(&il, NULL, nlines);
}