2000-07-24 22:59:04 +02:00
|
|
|
|
/* source.c - Keep track of source files.
|
|
|
|
|
|
2013-10-09 18:34:30 +02:00
|
|
|
|
Copyright 2000-2013 Free Software Foundation, Inc.
|
2000-07-24 22:59:04 +02:00
|
|
|
|
|
|
|
|
|
This file is part of GNU Binutils.
|
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-06 12:40:34 +02:00
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
2000-07-24 22:59:04 +02:00
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program 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 General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
2005-05-09 08:55:25 +02:00
|
|
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
2000-07-24 22:59:04 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "gprof.h"
|
|
|
|
|
#include "libiberty.h"
|
2000-05-26 15:11:57 +02:00
|
|
|
|
#include "filenames.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "search_list.h"
|
|
|
|
|
#include "source.h"
|
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
#define EXT_ANNO "-ann" /* Postfix of annotated files. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Default option values. */
|
2002-11-30 09:39:46 +01:00
|
|
|
|
bfd_boolean create_annotation_files = FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
Search_List src_search_list = {0, 0};
|
1999-05-03 09:29:11 +02:00
|
|
|
|
Source_File *first_src_file = 0;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Source_File *
|
* alpha.c, basic_blocks.c, basic_blocks.h, bb_exit_func.c,
call_graph.c, call_graph.h, cg_arcs.c, cg_arcs.h, cg_dfn.c,
cg_dfn.h, cg_print.c, cg_print.h, corefile.c, corefile.h,
gmon_io.c, gmon_io.h, gprof.c, gprof.h, hertz.h, hist.c, hist.h,
i386.c, mips.c, search_list.c, search_list.h, source.c, source.h,
sparc.c, sym_ids.c, sym_ids.h, symtab.c, symtab.h, tahoe.c,
utils.c, utils.h, vax.c, gen-c-prog.awk: Convert K&R C to ANSI C.
2004-05-26 06:55:55 +02:00
|
|
|
|
source_file_lookup_path (const char *path)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
Source_File *sf;
|
|
|
|
|
|
|
|
|
|
for (sf = first_src_file; sf; sf = sf->next)
|
|
|
|
|
{
|
2000-05-26 15:11:57 +02:00
|
|
|
|
if (FILENAME_CMP (path, sf->name) == 0)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (!sf)
|
|
|
|
|
{
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Create a new source file descriptor. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sf = (Source_File *) xmalloc (sizeof (*sf));
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
memset (sf, 0, sizeof (*sf));
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sf->name = xstrdup (path);
|
|
|
|
|
sf->next = first_src_file;
|
|
|
|
|
first_src_file = sf;
|
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return sf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Source_File *
|
* alpha.c, basic_blocks.c, basic_blocks.h, bb_exit_func.c,
call_graph.c, call_graph.h, cg_arcs.c, cg_arcs.h, cg_dfn.c,
cg_dfn.h, cg_print.c, cg_print.h, corefile.c, corefile.h,
gmon_io.c, gmon_io.h, gprof.c, gprof.h, hertz.h, hist.c, hist.h,
i386.c, mips.c, search_list.c, search_list.h, source.c, source.h,
sparc.c, sym_ids.c, sym_ids.h, symtab.c, symtab.h, tahoe.c,
utils.c, utils.h, vax.c, gen-c-prog.awk: Convert K&R C to ANSI C.
2004-05-26 06:55:55 +02:00
|
|
|
|
source_file_lookup_name (const char *filename)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
const char *fname;
|
|
|
|
|
Source_File *sf;
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* The user cannot know exactly how a filename will be stored in
|
|
|
|
|
the debugging info (e.g., ../include/foo.h
|
|
|
|
|
vs. /usr/include/foo.h). So we simply compare the filename
|
|
|
|
|
component of a path only. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
for (sf = first_src_file; sf; sf = sf->next)
|
|
|
|
|
{
|
|
|
|
|
fname = strrchr (sf->name, '/');
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (fname)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
++fname;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
fname = sf->name;
|
|
|
|
|
|
2000-05-26 15:11:57 +02:00
|
|
|
|
if (FILENAME_CMP (filename, fname) == 0)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return sf;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
FILE *
|
* alpha.c, basic_blocks.c, basic_blocks.h, bb_exit_func.c,
call_graph.c, call_graph.h, cg_arcs.c, cg_arcs.h, cg_dfn.c,
cg_dfn.h, cg_print.c, cg_print.h, corefile.c, corefile.h,
gmon_io.c, gmon_io.h, gprof.c, gprof.h, hertz.h, hist.c, hist.h,
i386.c, mips.c, search_list.c, search_list.h, source.c, source.h,
sparc.c, sym_ids.c, sym_ids.h, symtab.c, symtab.h, tahoe.c,
utils.c, utils.h, vax.c, gen-c-prog.awk: Convert K&R C to ANSI C.
2004-05-26 06:55:55 +02:00
|
|
|
|
annotate_source (Source_File *sf, unsigned int max_width,
|
|
|
|
|
void (*annote) (char *, unsigned int, int, void *),
|
|
|
|
|
void *arg)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2002-11-30 09:39:46 +01:00
|
|
|
|
static bfd_boolean first_file = TRUE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
int i, line_num, nread;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
bfd_boolean new_line;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char buf[8192];
|
|
|
|
|
char fname[PATH_MAX];
|
|
|
|
|
char *annotation, *name_only;
|
|
|
|
|
FILE *ifp, *ofp;
|
|
|
|
|
Search_List_Elem *sle = src_search_list.head;
|
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Open input file. If open fails, walk along search-list until
|
|
|
|
|
open succeeds or reaching end of list. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
strcpy (fname, sf->name);
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
2000-05-26 15:11:57 +02:00
|
|
|
|
if (IS_ABSOLUTE_PATH (sf->name))
|
2000-07-24 22:59:04 +02:00
|
|
|
|
sle = 0; /* Don't use search list for absolute paths. */
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
name_only = 0;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
while (TRUE)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
DBG (SRCDEBUG, printf ("[annotate_source]: looking for %s, trying %s\n",
|
|
|
|
|
sf->name, fname));
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ifp = fopen (fname, FOPEN_RB);
|
|
|
|
|
if (ifp)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
break;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (!sle && !name_only)
|
|
|
|
|
{
|
|
|
|
|
name_only = strrchr (sf->name, '/');
|
2000-05-26 15:11:57 +02:00
|
|
|
|
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
|
|
|
|
|
{
|
|
|
|
|
char *bslash = strrchr (sf->name, '\\');
|
2000-06-20 14:33:21 +02:00
|
|
|
|
if (name_only == NULL || (bslash != NULL && bslash > name_only))
|
2000-05-26 15:11:57 +02:00
|
|
|
|
name_only = bslash;
|
|
|
|
|
if (name_only == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
|
|
|
|
|
name_only = (char *)sf->name + 1;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (name_only)
|
|
|
|
|
{
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Try search-list again, but this time with name only. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
++name_only;
|
|
|
|
|
sle = src_search_list.head;
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (sle)
|
|
|
|
|
{
|
|
|
|
|
strcpy (fname, sle->path);
|
2000-05-26 15:11:57 +02:00
|
|
|
|
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
|
|
|
|
|
/* d:foo is not the same thing as d:/foo! */
|
|
|
|
|
if (fname[strlen (fname) - 1] == ':')
|
|
|
|
|
strcat (fname, ".");
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
strcat (fname, "/");
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (name_only)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
strcat (fname, name_only);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
strcat (fname, sf->name);
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
sle = sle->next;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (errno == ENOENT)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
fprintf (stderr, _("%s: could not locate `%s'\n"),
|
|
|
|
|
whoami, sf->name);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
perror (sf->name);
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ofp = stdout;
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (create_annotation_files)
|
|
|
|
|
{
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Try to create annotated source file. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
const char *filename;
|
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Create annotation files in the current working directory. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
filename = strrchr (sf->name, '/');
|
2000-05-26 15:11:57 +02:00
|
|
|
|
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
|
|
|
|
|
{
|
|
|
|
|
char *bslash = strrchr (sf->name, '\\');
|
2000-06-20 14:33:21 +02:00
|
|
|
|
if (filename == NULL || (bslash != NULL && bslash > filename))
|
2000-05-26 15:11:57 +02:00
|
|
|
|
filename = bslash;
|
|
|
|
|
if (filename == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
|
|
|
|
|
filename = sf->name + 1;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (filename)
|
2000-07-24 22:59:04 +02:00
|
|
|
|
++filename;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
filename = sf->name;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
strcpy (fname, filename);
|
|
|
|
|
strcat (fname, EXT_ANNO);
|
2000-05-26 15:11:57 +02:00
|
|
|
|
#ifdef __MSDOS__
|
|
|
|
|
{
|
|
|
|
|
/* foo.cpp-ann can overwrite foo.cpp due to silent truncation of
|
|
|
|
|
file names on 8+3 filesystems. Their `stat' better be good... */
|
|
|
|
|
struct stat buf1, buf2;
|
|
|
|
|
|
|
|
|
|
if (stat (filename, &buf1) == 0
|
|
|
|
|
&& stat (fname, &buf2) == 0
|
|
|
|
|
&& buf1.st_ino == buf2.st_ino)
|
|
|
|
|
{
|
|
|
|
|
char *dot = strrchr (fname, '.');
|
|
|
|
|
|
|
|
|
|
if (dot)
|
|
|
|
|
*dot = '\0';
|
|
|
|
|
strcat (fname, ".ann");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-05-03 09:29:11 +02:00
|
|
|
|
ofp = fopen (fname, "w");
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (!ofp)
|
|
|
|
|
{
|
|
|
|
|
perror (fname);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2000-07-24 22:59:04 +02:00
|
|
|
|
/* Print file names if output goes to stdout
|
|
|
|
|
and there are more than one source file. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (ofp == stdout)
|
|
|
|
|
{
|
|
|
|
|
if (first_file)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
first_file = FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
fputc ('\n', ofp);
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
if (first_output)
|
2002-11-30 09:39:46 +01:00
|
|
|
|
first_output = FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
else
|
2000-07-24 22:59:04 +02:00
|
|
|
|
fprintf (ofp, "\f\n");
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
fprintf (ofp, _("*** File %s:\n"), sf->name);
|
|
|
|
|
}
|
|
|
|
|
|
2009-09-11 17:27:38 +02:00
|
|
|
|
annotation = (char *) xmalloc (max_width + 1);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
line_num = 1;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
new_line = TRUE;
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
while ((nread = fread (buf, 1, sizeof (buf), ifp)) > 0)
|
|
|
|
|
{
|
|
|
|
|
for (i = 0; i < nread; ++i)
|
|
|
|
|
{
|
|
|
|
|
if (new_line)
|
|
|
|
|
{
|
|
|
|
|
(*annote) (annotation, max_width, line_num, arg);
|
|
|
|
|
fputs (annotation, ofp);
|
|
|
|
|
++line_num;
|
2002-11-30 09:39:46 +01:00
|
|
|
|
new_line = FALSE;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
new_line = (buf[i] == '\n');
|
|
|
|
|
fputc (buf[i], ofp);
|
|
|
|
|
}
|
|
|
|
|
}
|
2001-03-14 04:14:56 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
free (annotation);
|
2013-10-09 18:34:30 +02:00
|
|
|
|
fclose (ifp);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return ofp;
|
|
|
|
|
}
|