1/* Copyright (C) 2005 Red Hat, Inc.
2   This file is part of elfutils.
3
4   This file is free software; you can redistribute it and/or modify
5   it under the terms of the GNU General Public License as published by
6   the Free Software Foundation; either version 3 of the License, or
7   (at your option) any later version.
8
9   elfutils is distributed in the hope that it will be useful, but
10   WITHOUT ANY WARRANTY; without even the implied warranty of
11   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12   GNU General Public License for more details.
13
14   You should have received a copy of the GNU General Public License
15   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
16
17#ifdef HAVE_CONFIG_H
18# include <config.h>
19#endif
20
21#include <inttypes.h>
22#include <assert.h>
23#include ELFUTILS_HEADER(dwfl)
24#include <argp.h>
25#include <stdio.h>
26#include <locale.h>
27#include <stdlib.h>
28#include <string.h>
29#include <error.h>
30
31
32static void
33print_address (Dwfl_Module *mod, Dwarf_Addr address)
34{
35  int n = dwfl_module_relocations (mod);
36  if (n < 0)
37    error (0, 0, "dwfl_module_relocations: %s", dwfl_errmsg (-1));
38  else if (n > 0)
39    {
40      int i = dwfl_module_relocate_address (mod, &address);
41      if (i < 0)
42	error (0, 0, "dwfl_module_relocate_address: %s", dwfl_errmsg (-1));
43      else
44	{
45	  const char *modname = dwfl_module_info (mod, NULL, NULL, NULL,
46						  NULL, NULL, NULL, NULL);
47	  const char *secname = dwfl_module_relocation_info (mod, i, NULL);
48	  if (n > 1 || secname[0] != '\0')
49	    printf ("%s(%s)+%#" PRIx64, modname, secname, address);
50	  else
51	    printf ("%s+%#" PRIx64, modname, address);
52	  return;
53	}
54    }
55
56  printf ("%#" PRIx64, address);
57}
58
59
60struct args
61{
62  const char *arg;
63  char *file;
64  int line;
65};
66
67static int
68handle_module (Dwfl_Module *mod __attribute__ ((unused)),
69	       void **udata __attribute__ ((unused)),
70	       const char *modname, Dwarf_Addr base __attribute__ ((unused)),
71	       Dwarf *dbg __attribute__ ((unused)),
72	       Dwarf_Addr bias __attribute__ ((unused)), void *arg)
73{
74  const struct args *const a = arg;
75
76  Dwfl_Line **lines = NULL;
77  size_t nlines = 0;
78
79  if (dwfl_module_getsrc_file (mod, a->file, a->line, 0, &lines, &nlines) == 0)
80    {
81      for (size_t inner = 0; inner < nlines; ++inner)
82	{
83	  Dwarf_Addr addr;
84	  int line = a->line, col = 0;
85	  const char *file = dwfl_lineinfo (lines[inner], &addr, &line, &col,
86					    NULL, NULL);
87	  if (file != NULL)
88	    {
89	      printf ("%s -> ", a->arg);
90	      print_address (mod, addr);
91	      if (modname[0] != '\0')
92		printf (" (%s:", modname);
93	      if (strcmp (file, a->file) || line != a->line || col != 0)
94		printf (" %s%s:%d", modname[0] != '\0' ? "" : "(",
95			file, line);
96	      if (col != 0)
97		printf (":%d", col);
98	      if (modname[0] != '\0'
99		  || strcmp (file, a->file) || line != a->line || col != 0)
100		puts (")");
101	      else
102		puts ("");
103	    }
104	}
105      free (lines);
106    }
107
108  return DWARF_CB_OK;
109}
110
111int
112main (int argc, char *argv[])
113{
114  int cnt;
115
116  /* Set locale.  */
117  (void) setlocale (LC_ALL, "");
118
119  Dwfl *dwfl = NULL;
120  (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &cnt, &dwfl);
121  assert (dwfl != NULL);
122
123  for (; cnt < argc; ++cnt)
124    {
125      struct args a = { .arg = argv[cnt] };
126
127      switch (sscanf (a.arg, "%m[^:]:%d", &a.file, &a.line))
128	{
129	default:
130	case 0:
131	  printf ("ignored %s\n", argv[cnt]);
132	  continue;
133	case 1:
134	  a.line = 0;
135	  break;
136	case 2:
137	  break;
138	}
139
140      (void) dwfl_getdwarf (dwfl, &handle_module, &a, 0);
141
142      free (a.file);
143    }
144
145  dwfl_end (dwfl);
146
147  return 0;
148}
149