/* source.c - Keep track of source files.
- Copyright (C) 2000 Free Software Foundation, Inc.
+ Copyright (C) 2000-2021 Free Software Foundation, Inc.
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
- the Free Software Foundation; either version 2 of the License, or
+ the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
+ 02110-1301, USA. */
\f
#include "gprof.h"
#include "libiberty.h"
#define EXT_ANNO "-ann" /* Postfix of annotated files. */
/* Default option values. */
-bool create_annotation_files = FALSE;
+bool create_annotation_files = false;
Search_List src_search_list = {0, 0};
Source_File *first_src_file = 0;
Source_File *
-DEFUN (source_file_lookup_path, (path), const char *path)
+source_file_lookup_path (const char *path)
{
Source_File *sf;
if (FILENAME_CMP (path, sf->name) == 0)
break;
}
-
+
if (!sf)
{
/* Create a new source file descriptor. */
sf = (Source_File *) xmalloc (sizeof (*sf));
-
+
memset (sf, 0, sizeof (*sf));
-
+
sf->name = xstrdup (path);
sf->next = first_src_file;
first_src_file = sf;
}
-
+
return sf;
}
Source_File *
-DEFUN (source_file_lookup_name, (filename), const char *filename)
+source_file_lookup_name (const char *filename)
{
const char *fname;
Source_File *sf;
-
+
/* 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
for (sf = first_src_file; sf; sf = sf->next)
{
fname = strrchr (sf->name, '/');
-
+
if (fname)
++fname;
else
if (FILENAME_CMP (filename, fname) == 0)
break;
}
-
+
return sf;
}
FILE *
-DEFUN (annotate_source, (sf, max_width, annote, arg),
- Source_File * sf AND int max_width
- AND void (*annote) PARAMS ((char *buf, int w, int l, void *arg))
- AND void *arg)
+annotate_source (Source_File *sf, unsigned int max_width,
+ void (*annote) (char *, unsigned int, int, void *),
+ void *arg)
{
- static bool first_file = TRUE;
+ static bool first_file = true;
int i, line_num, nread;
bool new_line;
char buf[8192];
- char fname[PATH_MAX];
+ char *fname;
char *annotation, *name_only;
FILE *ifp, *ofp;
Search_List_Elem *sle = src_search_list.head;
/* Open input file. If open fails, walk along search-list until
open succeeds or reaching end of list. */
- strcpy (fname, sf->name);
-
+ fname = (char *) sf->name;
+
if (IS_ABSOLUTE_PATH (sf->name))
sle = 0; /* Don't use search list for absolute paths. */
name_only = 0;
- while (TRUE)
+ while (true)
{
DBG (SRCDEBUG, printf ("[annotate_source]: looking for %s, trying %s\n",
sf->name, fname));
-
+
ifp = fopen (fname, FOPEN_RB);
+ if (fname != sf->name)
+ free (fname);
if (ifp)
break;
sle = src_search_list.head;
}
}
-
+
if (sle)
{
+ fname = xmalloc (strlen (sle->path) + 3
+ + strlen (name_only ? name_only : sf->name));
strcpy (fname, sle->path);
#ifdef HAVE_DOS_BASED_FILE_SYSTEM
/* d:foo is not the same thing as d:/foo! */
strcat (fname, ".");
#endif
strcat (fname, "/");
-
+
if (name_only)
strcat (fname, name_only);
else
}
ofp = stdout;
-
+
if (create_annotation_files)
{
/* Try to create annotated source file. */
else
filename = sf->name;
+ fname = xmalloc (strlen (filename) + strlen (EXT_ANNO) + 1);
strcpy (fname, filename);
strcat (fname, EXT_ANNO);
#ifdef __MSDOS__
{
char *dot = strrchr (fname, '.');
- if (dot)
- *dot = '\0';
- strcat (fname, ".ann");
+ if (!dot)
+ dot = fname + strlen (filename);
+ strcpy (dot, ".ann");
}
}
#endif
ofp = fopen (fname, "w");
-
+
if (!ofp)
{
perror (fname);
+ free (fname);
return 0;
}
+ free (fname);
}
/* Print file names if output goes to stdout
if (ofp == stdout)
{
if (first_file)
- first_file = FALSE;
+ first_file = false;
else
fputc ('\n', ofp);
if (first_output)
- first_output = FALSE;
+ first_output = false;
else
fprintf (ofp, "\f\n");
fprintf (ofp, _("*** File %s:\n"), sf->name);
}
- annotation = xmalloc (max_width + 1);
+ annotation = (char *) xmalloc (max_width + 1);
line_num = 1;
- new_line = TRUE;
-
+ new_line = true;
+
while ((nread = fread (buf, 1, sizeof (buf), ifp)) > 0)
{
for (i = 0; i < nread; ++i)
(*annote) (annotation, max_width, line_num, arg);
fputs (annotation, ofp);
++line_num;
- new_line = FALSE;
}
-
+
new_line = (buf[i] == '\n');
fputc (buf[i], ofp);
}
}
-
+
free (annotation);
+ fclose (ifp);
return ofp;
}
projects / binutils-gdb.git / blobdiff