compiler/arossupport/hexdump.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Prints a hexdump of a memory region
   6     Lang: english
   7 */
   8
   9 #include <ctype.h>
  10 #include <aros/debug.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/arossupport.h>
  16
  17         void hexdump (
  18
  19 /*  SYNOPSIS */
  20         const void * data,
  21         IPTR         offset,
  22         ULONG        count)
  23
  24 /*  FUNCTION
  25         Prints a hexdump of the data beginning at data. The format
  26         is liks this:
  27
  28         xxxxxxxx: dddddddd dddddddd dddddddd dddddddd aaaaaaaaaaaaaaaa
  29
  30         Where x is the address (8 chars hex), dd is a data byte (2 chars
  31         hex) and a is the ASCII representation of a data byte or "." if
  32         the data byte is not printable.
  33
  34     INPUTS
  35         data - Start here with the dump
  36         offset - This offset is used as the address in the output. If
  37                 you give 0L here, then the first address will be
  38                 00000000. If you give (IPTR)data here, then the
  39                 first address will be the memory address of the data.
  40         count - How many bytes to print.
  41
  42     RESULT
  43         None.
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52
  53     INTERNALS
  54
  55     HISTORY
  56         05-12-96    digulla created
  57
  58 ******************************************************************************/
  59 {
  60     ULONG t, end;
  61     int   i;
  62
  63     end = (count + 15) & -16;
  64
  65     for (t=0; t<end; t++)
  66     {
  67         if ((t&15) == 0)
  68             kprintf ("%p:", offset+t);
  69
  70         if ((t&3) == 0)
  71             kprintf (" ");
  72
  73         if (t < count)
  74             kprintf ("%02x", ((UBYTE *)data)[t]);
  75         else
  76             kprintf ("  ");
  77
  78         if ((t&15) == 15)
  79         {
  80             kprintf (" ");
  81
  82             for (i=15; i>=0; i--)
  83             {
  84                 UBYTE c = ((UBYTE *)data)[t-i];
  85
  86                 /*
  87                  * isprint() introduces depencency on arosc.library, which prevents
  88                  * using this function from within KS code.
  89                  */
  90                 if ((c > 0x1F) && (c < 0x7E))
  91                     kprintf ("%c", c);
  92                 else
  93                     kprintf (".");
  94             }
  95
  96             kprintf ("\n");
  97         }
  98     }
  99 } /* hexdump */