template tweaks for known-dwarf.h lookup, new dwarf-print test program

3 files changed, 130 insertions, 1 deletions

diff --git a/tests/ChangeLog b/tests/ChangeLog
index b23cf8c7..5affd0c4 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,9 @@
+2009-03-24  Roland McGrath  <[email protected]>
+
+	* dwarf-print.cc: New file.
+	* Makefile.am (noinst_PROGRAMS): Add it.
+	(dwarf_print_SOURCES, dwarf_print_LDADD): New variables.
+
 2009-01-10  Roland McGrath  <[email protected]>
 
 	* run-dwarfcmp-self.sh: Also run with -T.
diff --git a/tests/Makefile.am b/tests/Makefile.am
index 577f4c18..e075fd03 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -60,7 +60,8 @@ noinst_PROGRAMS = arextract arsymtest newfile saridx scnnames sectiondump \
 		  find-prologues funcretval allregs rdwrmmap \
 		  dwfl-bug-addr-overflow arls dwfl-bug-fd-leak \
 		  dwfl-addr-sect dwfl-bug-report early-offscn \
-		  dwfl-bug-getmodules
+		  dwfl-bug-getmodules \
+		  dwarf-print
 # get-ciefde
 asm_TESTS = asm-tst1 asm-tst2 asm-tst3 asm-tst4 asm-tst5 \
 	    asm-tst6 asm-tst7 asm-tst8 asm-tst9
@@ -185,6 +186,12 @@ libebl = ../libebl/libebl.a
 libeu = ../lib/libeu.a
 endif !STANDALONE
 
+# XXX later the C++ stuff will be in libdw.so directly
+libdwpp = ../libdw/libdwpp.a $(libdw)
+
+dwarf_print_SOURCES = dwarf-print.cc
+dwarf_print_LDADD = $(libdwpp) $(libmudflap) -ldl
+
 arextract_LDADD = $(libelf) $(libmudflap)
 arsymtest_LDADD = $(libelf) $(libmudflap)
 newfile_LDADD = $(libelf) $(libmudflap)
diff --git a/tests/dwarf-print.cc b/tests/dwarf-print.cc
new file mode 100644
index 00000000..85dc3a76
--- /dev/null
+++ b/tests/dwarf-print.cc
@@ -0,0 +1,116 @@
+/* Test program for elfutils::dwarf basics.
+   Copyright (C) 2009 Red Hat, Inc.
+   This file is part of Red Hat elfutils.
+
+   Red Hat elfutils 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; version 2 of the License.
+
+   Red Hat elfutils 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 Red Hat elfutils; if not, write to the Free Software Foundation,
+   Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA.
+
+   Red Hat elfutils is an included package of the Open Invention Network.
+   An included package of the Open Invention Network is a package for which
+   Open Invention Network licensees cross-license their patents.  No patent
+   license is granted, either expressly or impliedly, by designation as an
+   included package.  Should you wish to participate in the Open Invention
+   Network licensing program, please visit www.openinventionnetwork.com
+   <http://www.openinventionnetwork.com>.  */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <errno.h>
+#include <error.h>
+#include <fcntl.h>
+#include <clocale>
+#include <libintl.h>
+#include <ostream>
+#include <iomanip>
+
+#include "c++/dwarf"
+
+using namespace elfutils;
+using namespace std;
+
+static Dwarf *
+open_file (const char *fname)
+{
+  int fd = open (fname, O_RDONLY);
+  if (unlikely (fd == -1))
+    error (2, errno, gettext ("cannot open '%s'"), fname);
+  Dwarf *dw = dwarf_begin (fd, DWARF_C_READ);
+  if (dw == NULL)
+    {
+      error (2, 0,
+	     gettext ("cannot create DWARF descriptor for '%s': %s"),
+	     fname, dwarf_errmsg (-1));
+    }
+  return dw;
+}
+
+static void
+print_die (const dwarf::debug_info_entry &die, unsigned int indent)
+{
+  string prefix (indent, ' ');
+  const string tag = dwarf::tags::name (die.tag ());
+
+  cout << prefix << "<" << tag << " offset=[" << die.offset () << "]";
+
+  for (dwarf::debug_info_entry::attributes::const_iterator i
+	 = die.attributes ().begin (); i != die.attributes ().end (); ++i)
+    cout << " " << (*i).to_string ();
+
+  if (die.has_children ())
+    {
+      cout << ">\n";
+
+      for (dwarf::debug_info_entry::children::const_iterator i
+	     = die.children ().begin (); i != die.children ().end (); ++i)
+	print_die (*i, indent + 1);
+
+      cout << prefix << "</" << tag << ">\n";
+    }
+  else
+    cout << "/>\n";
+}
+
+static void
+process_file (const char *file)
+{
+  dwarf dw (open_file (file));
+
+  cout << file << ":\n";
+
+  for (dwarf::compile_units::const_iterator i = dw.compile_units ().begin ();
+       i != dw.compile_units ().end ();
+       ++i)
+    print_die (*i, 1);
+}
+
+int
+main (int argc, char *argv[])
+{
+  /* Set locale.  */
+  (void) setlocale (LC_ALL, "");
+
+  /* Make sure the message catalog can be found.  */
+  (void) bindtextdomain (PACKAGE_TARNAME, LOCALEDIR);
+
+  /* Initialize the message catalog.  */
+  (void) textdomain (PACKAGE_TARNAME);
+
+  cout << hex << setiosflags (ios::showbase);
+
+  for (int i = 1; i < argc; ++i)
+    process_file (argv[i]);
+
+  return 0;
+}