debug/pcprofiledump.c

   1 /* Dump information generated by PC profiling.
   2    Copyright (C) 1999, 2002, 2007 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1999.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 /* This is mainly an example.  It shows how programs which want to use
  22    the information should read the file.  */
  23 #ifdef HAVE_CONFIG_H
  24 # include <config.h>
  25 #endif
  26
  27 #include <argp.h>
  28 #include <byteswap.h>
  29 #include <errno.h>
  30 #include <error.h>
  31 #include <fcntl.h>
  32 #include <inttypes.h>
  33 #include <libintl.h>
  34 #include <stdlib.h>
  35 #include <string.h>
  36 #include <unistd.h>
  37
  38 #include "../version.h"
  39
  40 #define PACKAGE _libc_intl_domainname
  41
  42 #ifndef _
  43 # define _(Str) gettext (Str)
  44 #endif
  45
  46 #ifndef N_
  47 # define N_(Str) Str
  48 #endif
  49
  50 /* Definitions of arguments for argp functions.  */
  51 static const struct argp_option options[] =
  52 {
  53   { "unbuffered", 'u', NULL, 0, N_("Don't buffer output") },
  54   { NULL, 0, NULL, 0, NULL }
  55 };
  56
  57 /* Short description of program.  */
  58 static const char doc[] = N_("Dump information generated by PC profiling.");
  59
  60 /* Strings for arguments in help texts.  */
  61 static const char args_doc[] = N_("[FILE]");
  62
  63 /* Function to print some extra text in the help message.  */
  64 static char *more_help (int key, const char *text, void *input);
  65
  66 /* Prototype for option handler.  */
  67 static error_t parse_opt (int key, char *arg, struct argp_state *state);
  68
  69 /* Data structure to communicate with argp functions.  */
  70 static struct argp argp =
  71 {
  72   options, parse_opt, args_doc, doc, NULL, more_help
  73 };
  74
  75
  76 int
  77 main (int argc, char *argv[])
  78 {
  79   /* Set locale via LC_ALL.  */
  80   setlocale (LC_ALL, "");
  81
  82   /* Set the text message domain.  */
  83   textdomain (PACKAGE);
  84
  85   /* Parse and process arguments.  */
  86   int remaining;
  87   argp_parse (&argp, argc, argv, 0, &remaining, NULL);
  88
  89   int fd;
  90   if (remaining == argc)
  91     fd = STDIN_FILENO;
  92   else if (remaining + 1 != argc)
  93     {
  94       argp_help (&argp, stdout, ARGP_HELP_SEE | ARGP_HELP_EXIT_ERR,
  95                  program_invocation_short_name);
  96       exit (1);
  97     }
  98   else
  99     {
 100       /* Open the given file.  */
 101       fd = open (argv[remaining], O_RDONLY);
 102
 103       if (fd == -1)
 104         error (EXIT_FAILURE, errno, _("cannot open input file"));
 105     }
 106
 107   /* Read the first 4-byte word.  It contains the information about
 108      the word size and the endianess.  */
 109   uint32_t word;
 110   if (TEMP_FAILURE_RETRY (read (fd, &word, 4)) != 4)
 111     error (EXIT_FAILURE, errno, _("cannot read header"));
 112
 113   /* Check whether we have to swap the byte order.  */
 114   int must_swap = (word & 0xfffffff0) == bswap_32 (0xdeb00000);
 115   if (must_swap)
 116     word = bswap_32 (word);
 117
 118   /* We have two loops, one for 32 bit pointers, one for 64 bit pointers.  */
 119   if (word == 0xdeb00004)
 120     {
 121       union
 122       {
 123         uint32_t ptrs[2];
 124         char bytes[8];
 125       } pair;
 126
 127       while (1)
 128         {
 129           size_t len = sizeof (pair);
 130           size_t n;
 131
 132           while (len > 0
 133                  && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
 134                                                    len))) != 0)
 135             len -= n;
 136
 137           if (len != 0)
 138             /* Nothing to read.  */
 139             break;
 140
 141           printf ("this = %#010" PRIx32 ", caller = %#010" PRIx32 "\n",
 142                   must_swap ? bswap_32 (pair.ptrs[0]) : pair.ptrs[0],
 143                   must_swap ? bswap_32 (pair.ptrs[1]) : pair.ptrs[1]);
 144         }
 145     }
 146   else if (word == 0xdeb00008)
 147     {
 148       union
 149       {
 150         uint64_t ptrs[2];
 151         char bytes[16];
 152       } pair;
 153
 154       while (1)
 155         {
 156           size_t len = sizeof (pair);
 157           size_t n;
 158
 159           while (len > 0
 160                  && (n = TEMP_FAILURE_RETRY (read (fd, &pair.bytes[8 - len],
 161                                                    len))) != 0)
 162             len -= n;
 163
 164           if (len != 0)
 165             /* Nothing to read.  */
 166             break;
 167
 168           printf ("this = %#018" PRIx64 ", caller = %#018" PRIx64 "\n",
 169                   must_swap ? bswap_64 (pair.ptrs[0]) : pair.ptrs[0],
 170                   must_swap ? bswap_64 (pair.ptrs[1]) : pair.ptrs[1]);
 171         }
 172     }
 173   else
 174     /* This should not happen.  */
 175     error (EXIT_FAILURE, 0, _("invalid pointer size"));
 176
 177   /* Clean up.  */
 178   close (fd);
 179
 180   return 0;
 181 }
 182
 183 static error_t
 184 parse_opt (int key, char *arg, struct argp_state *state)
 185 {
 186   switch (key)
 187     {
 188     case 'u':
 189       setbuf (stdout, NULL);
 190       break;
 191     default:
 192       return ARGP_ERR_UNKNOWN;
 193     }
 194   return 0;
 195 }
 196
 197 static char *
 198 more_help (int key, const char *text, void *input)
 199 {
 200   switch (key)
 201     {
 202     case ARGP_KEY_HELP_EXTRA:
 203       /* We print some extra information.  */
 204       return strdup (gettext ("\
 205 For bug reporting instructions, please see:\n\
 206 <http://www.gnu.org/software/libc/bugs.html>.\n"));
 207     default:
 208       break;
 209     }
 210   return (char *) text;
 211 }