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