lib-src/hexl.c

   1 #include <stdio.h>
   2 #include <ctype.h>
   3 #ifdef MSDOS
   4 #include <fcntl.h>
   5 #endif
   6
   7 #define DEFAULT_GROUPING        0x01
   8 #define DEFAULT_BASE            16
   9
  10 #undef TRUE
  11 #undef FALSE
  12 #define TRUE  (1)
  13 #define FALSE (0)
  14
  15 int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1;
  16 int group_by = DEFAULT_GROUPING;
  17 char *progname;
  18
  19 void usage();
  20
  21 int
  22 main (argc, argv)
  23      int argc;
  24      char *argv[];
  25 {
  26   register long address;
  27   char string[18];
  28   FILE *fp;
  29
  30   progname = *argv++; --argc;
  31
  32   /*
  33    ** -hex              hex dump
  34    ** -oct              Octal dump
  35    ** -group-by-8-bits
  36    ** -group-by-16-bits
  37    ** -group-by-32-bits
  38    ** -group-by-64-bits
  39    ** -iso              iso character set.
  40    ** -big-endian       Big Endian
  41    ** -little-endian    Little Endian
  42    ** -un || -de        from hexl format to binary.
  43    ** --                End switch list.
  44    ** <filename>        dump filename
  45    ** -         (as filename == stdin)
  46    */
  47
  48   while (*argv && *argv[0] == '-' && (*argv)[1])
  49     {
  50       /* A switch! */
  51       if (!strcmp (*argv, "--"))
  52         {
  53           --argc; argv++;
  54           break;
  55         }
  56       else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
  57         {
  58           un_flag = TRUE;
  59           --argc; argv++;
  60         }
  61       else if (!strcmp (*argv, "-hex"))
  62         {
  63           base = 16;
  64           --argc; argv++;
  65         }
  66       else if (!strcmp (*argv, "-iso"))
  67         {
  68           iso_flag = TRUE;
  69           --argc; argv++;
  70         }
  71       else if (!strcmp (*argv, "-oct"))
  72         {
  73           base = 8;
  74           --argc; argv++;
  75         }
  76       else if (!strcmp (*argv, "-big-endian"))
  77         {
  78           endian = 1;
  79           --argc; argv++;
  80         }
  81       else if (!strcmp (*argv, "-little-endian"))
  82         {
  83           endian = 0;
  84           --argc; argv++;
  85         }
  86       else if (!strcmp (*argv, "-group-by-8-bits"))
  87         {
  88           group_by = 0x00;
  89           --argc; argv++;
  90         }
  91       else if (!strcmp (*argv, "-group-by-16-bits"))
  92         {
  93           group_by = 0x01;
  94           --argc; argv++;
  95         }
  96       else if (!strcmp (*argv, "-group-by-32-bits"))
  97         {
  98           group_by = 0x03;
  99           --argc; argv++;
 100         }
 101       else if (!strcmp (*argv, "-group-by-64-bits"))
 102         {
 103           group_by = 0x07;
 104           endian = 0;
 105           --argc; argv++;
 106         }
 107       else
 108         {
 109           fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
 110                    *argv);
 111           usage ();
 112         }
 113     }
 114
 115   do
 116     {
 117       if (*argv == NULL)
 118         fp = stdin;
 119       else
 120         {
 121           char *filename = *argv++;
 122
 123           if (!strcmp (filename, "-"))
 124             fp = stdin;
 125           else if ((fp = fopen (filename, "r")) == NULL)
 126             {
 127               perror (filename);
 128               continue;
 129             }
 130         }
 131
 132       if (un_flag)
 133         {
 134           char buf[18];
 135
 136 #ifdef MSDOS
 137           (stdout)->_flag &= ~_IOTEXT; /* print binary */
 138           _setmode (fileno (stdout), O_BINARY);
 139 #endif
 140           for (;;)
 141             {
 142               register int i, c, d;
 143
 144 #define hexchar(x) (isdigit (x) ? x - '0' : x - 'a' + 10)
 145
 146               fread (buf, 1, 10, fp); /* skip 10 bytes */
 147
 148               for (i=0; i < 16; ++i)
 149                 {
 150                   if ((c = getc (fp)) == ' ' || c == EOF)
 151                     break;
 152
 153                   d = getc (fp);
 154                   c = hexchar (c) * 0x10 + hexchar (d);
 155                   putchar (c);
 156
 157                   if ((i&group_by) == group_by)
 158                     getc (fp);
 159                 }
 160
 161               if (c == ' ')
 162                 {
 163                   while ((c = getc (fp)) != '\n' && c != EOF)
 164                     ;
 165
 166                   if (c == EOF)
 167                     break;
 168                 }
 169               else
 170                 {
 171                   if (i < 16)
 172                     break;
 173
 174                   fread (buf, 1, 18, fp); /* skip 18 bytes */
 175                 }
 176             }
 177         }
 178       else
 179         {
 180 #ifdef MSDOS
 181           (fp)->_flag &= ~_IOTEXT; /* read binary */
 182           _setmode (fileno (fp), O_BINARY);
 183 #endif
 184           address = 0;
 185           string[0] = ' ';
 186           string[17] = '\0';
 187           for (;;)
 188             {
 189               register int i, c;
 190
 191               for (i=0; i < 16; ++i)
 192                 {
 193                   if ((c = getc (fp)) == EOF)
 194                     {
 195                       if (!i)
 196                         break;
 197
 198                       fputs ("  ", stdout);
 199                       string[i+1] = '\0';
 200                     }
 201                   else
 202                     {
 203                       if (!i)
 204                         printf ("%08x: ", address);
 205
 206                       if (iso_flag)
 207                         string[i+1] =
 208                           (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
 209                       else
 210                         string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;
 211
 212                       printf ("%02x", c);
 213                     }
 214
 215                   if ((i&group_by) == group_by)
 216                     putchar (' ');
 217                 }
 218
 219               if (i)
 220                 puts (string);
 221
 222               if (c == EOF)
 223                 break;
 224
 225               address += 0x10;
 226
 227             }
 228         }
 229
 230       if (fp != stdin)
 231         fclose (fp);
 232
 233     } while (*argv != NULL);
 234   return 0;
 235 }
 236
 237 void
 238 usage ()
 239 {
 240   fprintf (stderr, "usage: %s [-de] [-iso]\n", progname);
 241   exit (1);
 242 }