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

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