238 lines
6.5 KiB
C
238 lines
6.5 KiB
C
/* Map logical line numbers to (source file, line number) pairs.
|
|
Copyright (C) 2001, 2003
|
|
Free Software Foundation, Inc.
|
|
|
|
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, or (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
|
|
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
In other words, you are welcome to use, share and improve this program.
|
|
You are forbidden to forbid anyone else to use, share and improve
|
|
what you give them. Help stamp out software-hoarding! */
|
|
|
|
#include "config.h"
|
|
#include "system.h"
|
|
#include "line-map.h"
|
|
#include "intl.h"
|
|
|
|
static void trace_include (const struct line_maps *, const struct line_map *);
|
|
|
|
/* Initialize a line map set. */
|
|
|
|
void
|
|
linemap_init (struct line_maps *set)
|
|
{
|
|
set->maps = 0;
|
|
set->allocated = 0;
|
|
set->used = 0;
|
|
set->last_listed = -1;
|
|
set->trace_includes = false;
|
|
set->depth = 0;
|
|
}
|
|
|
|
/* Free a line map set. */
|
|
|
|
void
|
|
linemap_free (struct line_maps *set)
|
|
{
|
|
if (set->maps)
|
|
{
|
|
struct line_map *map;
|
|
|
|
/* Depending upon whether we are handling preprocessed input or
|
|
not, this can be a user error or an ICE. */
|
|
for (map = CURRENT_LINE_MAP (set); ! MAIN_FILE_P (map);
|
|
map = INCLUDED_FROM (set, map))
|
|
fprintf (stderr, "line-map.c: file \"%s\" entered but not left\n",
|
|
map->to_file);
|
|
|
|
free (set->maps);
|
|
}
|
|
}
|
|
|
|
/* Add a mapping of logical source line to physical source file and
|
|
line number.
|
|
|
|
The text pointed to by TO_FILE must have a lifetime
|
|
at least as long as the final call to lookup_line (). An empty
|
|
TO_FILE means standard input. If reason is LC_LEAVE, and
|
|
TO_FILE is NULL, then TO_FILE, TO_LINE and SYSP are given their
|
|
natural values considering the file we are returning to.
|
|
|
|
FROM_LINE should be monotonic increasing across calls to this
|
|
function. A call to this function can relocate the previous set of
|
|
maps, so any stored line_map pointers should not be used. */
|
|
|
|
const struct line_map *
|
|
linemap_add (struct line_maps *set, enum lc_reason reason,
|
|
unsigned int sysp, source_location from_line,
|
|
const char *to_file, unsigned int to_line)
|
|
{
|
|
struct line_map *map;
|
|
|
|
if (set->used && from_line < set->maps[set->used - 1].from_line)
|
|
abort ();
|
|
|
|
if (set->used == set->allocated)
|
|
{
|
|
set->allocated = 2 * set->allocated + 256;
|
|
set->maps = xrealloc (set->maps, set->allocated * sizeof (struct line_map));
|
|
}
|
|
|
|
map = &set->maps[set->used++];
|
|
|
|
if (to_file && *to_file == '\0')
|
|
to_file = "<stdin>";
|
|
|
|
/* If we don't keep our line maps consistent, we can easily
|
|
segfault. Don't rely on the client to do it for us. */
|
|
if (set->depth == 0)
|
|
reason = LC_ENTER;
|
|
else if (reason == LC_LEAVE)
|
|
{
|
|
struct line_map *from;
|
|
bool error;
|
|
|
|
if (MAIN_FILE_P (map - 1))
|
|
{
|
|
if (to_file == NULL)
|
|
{
|
|
set->depth--;
|
|
set->used--;
|
|
return NULL;
|
|
}
|
|
error = true;
|
|
reason = LC_RENAME;
|
|
from = map - 1;
|
|
}
|
|
else
|
|
{
|
|
from = INCLUDED_FROM (set, map - 1);
|
|
error = to_file && strcmp (from->to_file, to_file);
|
|
}
|
|
|
|
/* Depending upon whether we are handling preprocessed input or
|
|
not, this can be a user error or an ICE. */
|
|
if (error)
|
|
fprintf (stderr, "line-map.c: file \"%s\" left but not entered\n",
|
|
to_file);
|
|
|
|
/* A TO_FILE of NULL is special - we use the natural values. */
|
|
if (error || to_file == NULL)
|
|
{
|
|
to_file = from->to_file;
|
|
to_line = LAST_SOURCE_LINE (from) + 1;
|
|
sysp = from->sysp;
|
|
}
|
|
}
|
|
|
|
map->reason = reason;
|
|
map->sysp = sysp;
|
|
map->from_line = from_line;
|
|
map->to_file = to_file;
|
|
map->to_line = to_line;
|
|
|
|
if (reason == LC_ENTER)
|
|
{
|
|
map->included_from = set->depth == 0 ? -1 : (int) (set->used - 2);
|
|
set->depth++;
|
|
if (set->trace_includes)
|
|
trace_include (set, map);
|
|
}
|
|
else if (reason == LC_RENAME)
|
|
map->included_from = map[-1].included_from;
|
|
else if (reason == LC_LEAVE)
|
|
{
|
|
set->depth--;
|
|
map->included_from = INCLUDED_FROM (set, map - 1)->included_from;
|
|
}
|
|
|
|
return map;
|
|
}
|
|
|
|
/* Given a logical line, returns the map from which the corresponding
|
|
(source file, line) pair can be deduced. Since the set is built
|
|
chronologically, the logical lines are monotonic increasing, and so
|
|
the list is sorted and we can use a binary search. */
|
|
|
|
const struct line_map *
|
|
linemap_lookup (struct line_maps *set, source_location line)
|
|
{
|
|
unsigned int md, mn = 0, mx = set->used;
|
|
|
|
if (mx == 0)
|
|
abort ();
|
|
|
|
while (mx - mn > 1)
|
|
{
|
|
md = (mn + mx) / 2;
|
|
if (set->maps[md].from_line > line)
|
|
mx = md;
|
|
else
|
|
mn = md;
|
|
}
|
|
|
|
return &set->maps[mn];
|
|
}
|
|
|
|
/* Print the file names and line numbers of the #include commands
|
|
which led to the map MAP, if any, to stderr. Nothing is output if
|
|
the most recently listed stack is the same as the current one. */
|
|
|
|
void
|
|
linemap_print_containing_files (struct line_maps *set,
|
|
const struct line_map *map)
|
|
{
|
|
if (MAIN_FILE_P (map) || set->last_listed == map->included_from)
|
|
return;
|
|
|
|
set->last_listed = map->included_from;
|
|
map = INCLUDED_FROM (set, map);
|
|
|
|
fprintf (stderr, _("In file included from %s:%u"),
|
|
map->to_file, LAST_SOURCE_LINE (map));
|
|
|
|
while (! MAIN_FILE_P (map))
|
|
{
|
|
map = INCLUDED_FROM (set, map);
|
|
/* Translators note: this message is used in conjunction
|
|
with "In file included from %s:%ld" and some other
|
|
tricks. We want something like this:
|
|
|
|
| In file included from sys/select.h:123,
|
|
| from sys/types.h:234,
|
|
| from userfile.c:31:
|
|
| bits/select.h:45: <error message here>
|
|
|
|
with all the "from"s lined up.
|
|
The trailing comma is at the beginning of this message,
|
|
and the trailing colon is not translated. */
|
|
fprintf (stderr, _(",\n from %s:%u"),
|
|
map->to_file, LAST_SOURCE_LINE (map));
|
|
}
|
|
|
|
fputs (":\n", stderr);
|
|
}
|
|
|
|
/* Print an include trace, for e.g. the -H option of the preprocessor. */
|
|
|
|
static void
|
|
trace_include (const struct line_maps *set, const struct line_map *map)
|
|
{
|
|
unsigned int i = set->depth;
|
|
|
|
while (--i)
|
|
putc ('.', stderr);
|
|
fprintf (stderr, " %s\n", map->to_file);
|
|
}
|