code.delx.au - gnu-emacs/blob - lib-src/hexl.c

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