1/* Copyright (C) 2013 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(dw)
24#include ELFUTILS_HEADER(dwfl)
25#include <dwarf.h>
26#include <argp.h>
27#include <stdio.h>
28#include <stdlib.h>
29#include <string.h>
30#include <error.h>
31
32int
33main (int argc, char *argv[])
34{
35  int cnt;
36
37  Dwfl *dwfl = NULL;
38  (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &cnt, &dwfl);
39  assert (dwfl != NULL);
40
41  Dwarf_Die *cu = NULL;
42  Dwarf_Addr bias;
43  do
44    {
45      cu = dwfl_nextcu (dwfl, cu, &bias);
46      if (cu != NULL)
47	{
48	  Dwfl_Module *mod = dwfl_cumodule (cu);
49	  const char *modname = (dwfl_module_info (mod, NULL, NULL, NULL,
50						   NULL, NULL, NULL, NULL)
51				 ?: "<unknown>");
52	  const char *cuname = (dwarf_diename (cu) ?: "<unknown>");
53
54	  printf ("mod: %s CU: [%" PRIx64 "] %s\n", modname,
55		  dwarf_dieoffset (cu), cuname);
56
57	  size_t lines;
58	  if (dwfl_getsrclines (cu, &lines) != 0)
59	    continue; // No lines...
60
61	  for (size_t i = 0; i < lines; i++)
62	    {
63	      Dwfl_Line *line = dwfl_onesrcline (cu, i);
64
65	      Dwarf_Addr addr;
66	      int lineno;
67	      int colno;
68	      Dwarf_Word mtime;
69	      Dwarf_Word length;
70	      const char *src = dwfl_lineinfo (line, &addr, &lineno, &colno,
71					       &mtime, &length);
72
73	      Dwarf_Addr dw_bias;
74	      Dwarf_Line *dw_line = dwfl_dwarf_line (line, &dw_bias);
75	      assert (bias == dw_bias);
76
77	      Dwarf_Addr dw_addr;
78	      if (dwarf_lineaddr (dw_line, &dw_addr) != 0)
79		error (EXIT_FAILURE, 0, "dwarf_lineaddr: %s",
80		       dwarf_errmsg (-1));
81	      assert (addr == dw_addr + dw_bias);
82
83	      unsigned int dw_op_index;
84	      if (dwarf_lineop_index (dw_line, &dw_op_index) != 0)
85		error (EXIT_FAILURE, 0, "dwarf_lineop_index: %s",
86		       dwarf_errmsg (-1));
87
88	      int dw_lineno;
89	      if (dwarf_lineno (dw_line, &dw_lineno) != 0)
90		error (EXIT_FAILURE, 0, "dwarf_lineno: %s",
91		       dwarf_errmsg (-1));
92	      assert (lineno == dw_lineno);
93
94	      int dw_colno;
95	      if (dwarf_linecol (dw_line, &dw_colno) != 0)
96		error (EXIT_FAILURE, 0, "dwarf_lineno: %s",
97		       dwarf_errmsg (-1));
98	      assert (colno == dw_colno);
99
100	      bool begin;
101	      if (dwarf_linebeginstatement (dw_line, &begin) != 0)
102		error (EXIT_FAILURE, 0, "dwarf_linebeginstatement: %s",
103		       dwarf_errmsg (-1));
104
105	      bool end;
106	      if (dwarf_lineendsequence (dw_line, &end) != 0)
107		error (EXIT_FAILURE, 0, "dwarf_lineendsequence: %s",
108		       dwarf_errmsg (-1));
109
110	      bool pend;
111	      if (dwarf_lineprologueend (dw_line, &pend) != 0)
112		error (EXIT_FAILURE, 0, "dwarf_lineprologueend: %s",
113		       dwarf_errmsg (-1));
114
115	      bool ebegin;
116	      if (dwarf_lineepiloguebegin (dw_line, &ebegin) != 0)
117		error (EXIT_FAILURE, 0, "dwarf_lineepiloguebegin: %s",
118		       dwarf_errmsg (-1));
119
120	      bool block;
121	      if (dwarf_lineblock (dw_line, &block) != 0)
122		error (EXIT_FAILURE, 0, "dwarf_lineblock: %s",
123		       dwarf_errmsg (-1));
124
125	      unsigned int isa;
126	      if (dwarf_lineisa (dw_line, &isa) != 0)
127		error (EXIT_FAILURE, 0, "dwarf_lineisa: %s",
128		       dwarf_errmsg (-1));
129
130	      unsigned int disc;
131	      if (dwarf_linediscriminator (dw_line, &disc) != 0)
132		error (EXIT_FAILURE, 0, "dwarf_linediscriminator: %s",
133		       dwarf_errmsg (-1));
134
135	      const char *dw_src;
136	      Dwarf_Word dw_mtime;
137	      Dwarf_Word dw_length;
138	      dw_src = dwarf_linesrc (dw_line, &dw_mtime, &dw_length);
139	      assert (strcmp (src, dw_src) == 0);
140	      assert (mtime == dw_mtime);
141	      assert (length == dw_length);
142
143	      printf ("%zd %#" PRIx64 " %s:%d:%d\n"
144		      " time: %#" PRIX64 ", len: %" PRIu64
145		      ", idx: %d, b: %d, e: %d"
146		      ", pe: %d, eb: %d, block: %d"
147		      ", isa: %d, disc: %d\n",
148		      i, addr, src, lineno, colno, mtime, length,
149		      dw_op_index, begin, end, pend, ebegin, block, isa, disc);
150
151	      Dwarf_Die *linecu = dwfl_linecu (line);
152	      assert (cu == linecu);
153
154	      Dwfl_Module *linemod = dwfl_linemodule (line);
155	      assert (mod == linemod);
156	    }
157	}
158    }
159  while (cu != NULL);
160
161  dwfl_end (dwfl);
162
163  return 0;
164}
165