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

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