root/trunk/lib-src/hexl.c

/* Convert files for Emacs Hexl mode.
   Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005,
                 2006, 2007, 2008  Free Software Foundation, Inc.

This file is not considered part of GNU Emacs.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; see the file COPYING.  If not, write to the
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA. */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdio.h>
#include <ctype.h>
#ifdef DOS_NT
#include <fcntl.h>
#if __DJGPP__ >= 2
#include <io.h>
#endif
#endif
#ifdef WINDOWSNT
#include <io.h>
#endif

#define DEFAULT_GROUPING        0x01
#define DEFAULT_BASE            16

#undef TRUE
#undef FALSE
#define TRUE  (1)
#define FALSE (0)

int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1;
int group_by = DEFAULT_GROUPING;
char *progname;

void usage();

int
main (argc, argv)
     int argc;
     char *argv[];
{
  register long address;
  char string[18];
  FILE *fp;

  progname = *argv++; --argc;

  /*
   ** -hex              hex dump
   ** -oct              Octal dump
   ** -group-by-8-bits
   ** -group-by-16-bits
   ** -group-by-32-bits
   ** -group-by-64-bits
   ** -iso              iso character set.
   ** -big-endian       Big Endian
   ** -little-endian    Little Endian
   ** -un || -de        from hexl format to binary.
   ** --                End switch list.
   ** <filename>        dump filename
   ** -         (as filename == stdin)
   */

  while (*argv && *argv[0] == '-' && (*argv)[1])
    {
      /* A switch! */
      if (!strcmp (*argv, "--"))
        {
          --argc; argv++;
          break;
        }
      else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
        {
          un_flag = TRUE;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-hex"))
        {
          base = 16;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-iso"))
        {
          iso_flag = TRUE;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-oct"))
        {
          base = 8;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-big-endian"))
        {
          endian = 1;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-little-endian"))
        {
          endian = 0;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-group-by-8-bits"))
        {
          group_by = 0x00;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-group-by-16-bits"))
        {
          group_by = 0x01;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-group-by-32-bits"))
        {
          group_by = 0x03;
          --argc; argv++;
        }
      else if (!strcmp (*argv, "-group-by-64-bits"))
        {
          group_by = 0x07;
          endian = 0;
          --argc; argv++;
        }
      else
        {
          fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
                   *argv);
          usage ();
        }
    }

  do
    {
      if (*argv == NULL)
        fp = stdin;
      else
        {
          char *filename = *argv++;

          if (!strcmp (filename, "-"))
            fp = stdin;
          else if ((fp = fopen (filename, "r")) == NULL)
            {
              perror (filename);
              continue;
            }
        }

      if (un_flag)
        {
          char buf[18];

#ifdef DOS_NT
#if (__DJGPP__ >= 2) || (defined WINDOWSNT)
          if (!isatty (fileno (stdout)))
            setmode (fileno (stdout), O_BINARY);
#else
          (stdout)->_flag &= ~_IOTEXT; /* print binary */
          _setmode (fileno (stdout), O_BINARY);
#endif
#endif
          for (;;)
            {
              register int i, c = 0, d;

#define hexchar(x) (isdigit (x) ? x - '0' : x - 'a' + 10)

              fread (buf, 1, 10, fp); /* skip 10 bytes */

              for (i=0; i < 16; ++i)
                {
                  if ((c = getc (fp)) == ' ' || c == EOF)
                    break;

                  d = getc (fp);
                  c = hexchar (c) * 0x10 + hexchar (d);
                  putchar (c);

                  if ((i&group_by) == group_by)
                    getc (fp);
                }

              if (c == ' ')
                {
                  while ((c = getc (fp)) != '\n' && c != EOF)
                    ;

                  if (c == EOF)
                    break;
                }
              else
                {
                  if (i < 16)
                    break;

                  fread (buf, 1, 18, fp); /* skip 18 bytes */
                }
            }
        }
      else
        {
#ifdef DOS_NT
#if (__DJGPP__ >= 2) || (defined WINDOWSNT)
          if (!isatty (fileno (fp)))
            setmode (fileno (fp), O_BINARY);
#else
          (fp)->_flag &= ~_IOTEXT; /* read binary */
          _setmode (fileno (fp), O_BINARY);
#endif
#endif
          address = 0;
          string[0] = ' ';
          string[17] = '\0';
          for (;;)
            {
              register int i, c = 0;

              for (i=0; i < 16; ++i)
                {
                  if ((c = getc (fp)) == EOF)
                    {
                      if (!i)
                        break;

                      fputs ("  ", stdout);
                      string[i+1] = '\0';
                    }
                  else
                    {
                      if (!i)
                        printf ("%08lx: ", address);

                      if (iso_flag)
                        string[i+1] =
                          (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
                      else
                        string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;

                      printf ("%02x", c);
                    }

                  if ((i&group_by) == group_by)
                    putchar (' ');
                }

              if (i)
                puts (string);

              if (c == EOF)
                break;

              address += 0x10;

            }
        }

      if (fp != stdin)
        fclose (fp);

    } while (*argv != NULL);
  return EXIT_SUCCESS;
}

void
usage ()
{
  fprintf (stderr, "usage: %s [-de] [-iso]\n", progname);
  exit (EXIT_FAILURE);
}

/* arch-tag: 20e04fb7-926e-4e48-be86-64fe869ecdaa
   (do not change this comment) */

/* hexl.c ends here */