lib-src/hexl.c

   1 /* Convert files for Emacs Hexl mode.
   2    Copyright (C) 1989, 2001-2014 Free Software Foundation, Inc.
   3
   4 Author: Keith Gabryelski
   5 (according to authors.el)
   6
   7 This file is not considered part of GNU Emacs.
   8
   9 This program is free software: you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation, either version 3 of the License, or
  12 (at your option) any later version.
  13
  14 This program is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  21
  22
  23 #include <config.h>
  24
  25 #include <stdio.h>
  26 #include <ctype.h>
  27 #ifdef DOS_NT
  28 #include <fcntl.h>
  29 #if __DJGPP__ >= 2
  30 #include <io.h>
  31 #endif
  32 #endif
  33 #ifdef WINDOWSNT
  34 #include <io.h>
  35 #endif
  36
  37 #define DEFAULT_GROUPING        0x01
  38 #define DEFAULT_BASE            16
  39
  40 int base = DEFAULT_BASE;
  41 bool un_flag = false, iso_flag = false, endian = true;
  42 int group_by = DEFAULT_GROUPING;
  43 char *progname;
  44
  45 _Noreturn void usage (void);
  46
  47 int
  48 main (int argc, char **argv)
  49 {
  50   register long address;
  51   char string[18];
  52   FILE *fp;
  53
  54   progname = *argv++; --argc;
  55
  56   /*
  57    ** -hex              hex dump
  58    ** -oct              Octal dump
  59    ** -group-by-8-bits
  60    ** -group-by-16-bits
  61    ** -group-by-32-bits
  62    ** -group-by-64-bits
  63    ** -iso              iso character set.
  64    ** -big-endian       Big Endian
  65    ** -little-endian    Little Endian
  66    ** -un || -de        from hexl format to binary.
  67    ** --                End switch list.
  68    ** <filename>        dump filename
  69    ** -         (as filename == stdin)
  70    */
  71
  72   while (*argv && *argv[0] == '-' && (*argv)[1])
  73     {
  74       /* A switch! */
  75       if (!strcmp (*argv, "--"))
  76         {
  77           --argc; argv++;
  78           break;
  79         }
  80       else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
  81         {
  82           un_flag = true;
  83           --argc; argv++;
  84         }
  85       else if (!strcmp (*argv, "-hex"))
  86         {
  87           base = 16;
  88           --argc; argv++;
  89         }
  90       else if (!strcmp (*argv, "-iso"))
  91         {
  92           iso_flag = true;
  93           --argc; argv++;
  94         }
  95       else if (!strcmp (*argv, "-oct"))
  96         {
  97           base = 8;
  98           --argc; argv++;
  99         }
 100       else if (!strcmp (*argv, "-big-endian"))
 101         {
 102           endian = true;
 103           --argc; argv++;
 104         }
 105       else if (!strcmp (*argv, "-little-endian"))
 106         {
 107           endian = false;
 108           --argc; argv++;
 109         }
 110       else if (!strcmp (*argv, "-group-by-8-bits"))
 111         {
 112           group_by = 0x00;
 113           --argc; argv++;
 114         }
 115       else if (!strcmp (*argv, "-group-by-16-bits"))
 116         {
 117           group_by = 0x01;
 118           --argc; argv++;
 119         }
 120       else if (!strcmp (*argv, "-group-by-32-bits"))
 121         {
 122           group_by = 0x03;
 123           --argc; argv++;
 124         }
 125       else if (!strcmp (*argv, "-group-by-64-bits"))
 126         {
 127           group_by = 0x07;
 128           endian = false;
 129           --argc; argv++;
 130         }
 131       else
 132         {
 133           fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
 134                    *argv);
 135           usage ();
 136         }
 137     }
 138
 139   do
 140     {
 141       if (*argv == NULL)
 142         fp = stdin;
 143       else
 144         {
 145           char *filename = *argv++;
 146
 147           if (!strcmp (filename, "-"))
 148             fp = stdin;
 149           else if ((fp = fopen (filename, "r")) == NULL)
 150             {
 151               perror (filename);
 152               continue;
 153             }
 154         }
 155
 156       if (un_flag)
 157         {
 158           char buf[18];
 159
 160 #ifdef DOS_NT
 161 #if (__DJGPP__ >= 2) || (defined WINDOWSNT)
 162           if (!isatty (fileno (stdout)))
 163             setmode (fileno (stdout), O_BINARY);
 164 #else
 165           (stdout)->_flag &= ~_IOTEXT; /* print binary */
 166           _setmode (fileno (stdout), O_BINARY);
 167 #endif
 168 #endif
 169           for (;;)
 170             {
 171               register int i, c = 0, d;
 172
 173 #define hexchar(x) (isdigit (x) ? x - '0' : x - 'a' + 10)
 174
 175               /* Skip 10 bytes.  */
 176               if (fread (buf, 1, 10, fp) != 10)
 177                 break;
 178
 179               for (i=0; i < 16; ++i)
 180                 {
 181                   if ((c = getc (fp)) == ' ' || c == EOF)
 182                     break;
 183
 184                   d = getc (fp);
 185                   c = hexchar (c) * 0x10 + hexchar (d);
 186                   putchar (c);
 187
 188                   if ((i&group_by) == group_by)
 189                     getc (fp);
 190                 }
 191
 192               if (c == ' ')
 193                 {
 194                   while ((c = getc (fp)) != '\n' && c != EOF)
 195                     ;
 196
 197                   if (c == EOF)
 198                     break;
 199                 }
 200               else
 201                 {
 202                   if (i < 16)
 203                     break;
 204
 205                   /* Skip 18 bytes.  */
 206                   if (fread (buf, 1, 18, fp) != 18)
 207                     break;
 208                 }
 209             }
 210         }
 211       else
 212         {
 213 #ifdef DOS_NT
 214 #if (__DJGPP__ >= 2) || (defined WINDOWSNT)
 215           if (!isatty (fileno (fp)))
 216             setmode (fileno (fp), O_BINARY);
 217 #else
 218           (fp)->_flag &= ~_IOTEXT; /* read binary */
 219           _setmode (fileno (fp), O_BINARY);
 220 #endif
 221 #endif
 222           address = 0;
 223           string[0] = ' ';
 224           string[17] = '\0';
 225           for (;;)
 226             {
 227               register int i, c = 0;
 228
 229               for (i=0; i < 16; ++i)
 230                 {
 231                   if ((c = getc (fp)) == EOF)
 232                     {
 233                       if (!i)
 234                         break;
 235
 236                       fputs ("  ", stdout);
 237                       string[i+1] = '\0';
 238                     }
 239                   else
 240                     {
 241                       if (!i)
 242                         printf ("%08lx: ", address);
 243
 244                       if (iso_flag)
 245                         string[i+1] =
 246                           (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
 247                       else
 248                         string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;
 249
 250                       printf ("%02x", c);
 251                     }
 252
 253                   if ((i&group_by) == group_by)
 254                     putchar (' ');
 255                 }
 256
 257               if (i)
 258                 puts (string);
 259
 260               if (c == EOF)
 261                 break;
 262
 263               address += 0x10;
 264
 265             }
 266         }
 267
 268       if (fp != stdin)
 269         fclose (fp);
 270
 271     } while (*argv != NULL);
 272   return EXIT_SUCCESS;
 273 }
 274
 275 void
 276 usage (void)
 277 {
 278   fprintf (stderr, "usage: %s [-de] [-iso]\n", progname);
 279   exit (EXIT_FAILURE);
 280 }
 281
 282
 283 /* hexl.c ends here */