1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
emacs/lib-src/hexl.c
Paul Eggert ba05d005e5 Update copyright year to 2021
Run "TZ=UTC0 admin/update-copyright".
2021-01-01 01:13:56 -08:00

222 lines
4.5 KiB
C

/* Convert files for Emacs Hexl mode.
Copyright (C) 1989, 2001-2021 Free Software Foundation, Inc.
Author: Keith Gabryelski (according to authors.el)
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 of the License, 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. If not, see <https://www.gnu.org/licenses/>. */
#include <config.h>
#include <inttypes.h>
#include <stdlib.h>
#include <string.h>
#include <binary-io.h>
#include <unlocked-io.h>
static char *progname;
static _Noreturn void
output_error (void)
{
fprintf (stderr, "%s: write error\n", progname);
exit (EXIT_FAILURE);
}
static int
hexchar (int c)
{
return c - ('0' <= c && c <= '9' ? '0' : 'a' - 10);
}
int
main (int argc, char **argv)
{
int status = EXIT_SUCCESS;
int DEFAULT_GROUPING = 0x01;
int group_by = DEFAULT_GROUPING;
bool un_flag = false, iso_flag = false;
progname = *argv++;
/*
** -hex hex dump
** -group-by-8-bits
** -group-by-16-bits
** -group-by-32-bits
** -group-by-64-bits
** -iso iso character set.
** -un || -de from hexl format to binary.
** -- End switch list.
** <filename> dump filename
** - (as filename == stdin)
*/
for (; *argv && *argv[0] == '-' && (*argv)[1]; argv++)
{
/* A switch! */
if (!strcmp (*argv, "--"))
{
argv++;
break;
}
else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
{
un_flag = true;
set_binary_mode (fileno (stdout), O_BINARY);
}
else if (!strcmp (*argv, "-hex"))
/* Hex is the default and is only base supported. */;
else if (!strcmp (*argv, "-iso"))
iso_flag = true;
else if (!strcmp (*argv, "-group-by-8-bits"))
group_by = 0x00;
else if (!strcmp (*argv, "-group-by-16-bits"))
group_by = 0x01;
else if (!strcmp (*argv, "-group-by-32-bits"))
group_by = 0x03;
else if (!strcmp (*argv, "-group-by-64-bits"))
group_by = 0x07;
else
{
fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
*argv);
fprintf (stderr, "usage: %s [-de] [-iso]\n", progname);
return EXIT_FAILURE;
}
}
char const *filename = *argv ? *argv++ : "-";
do
{
FILE *fp;
if (!strcmp (filename, "-"))
{
fp = stdin;
if (!un_flag)
set_binary_mode (fileno (stdin), O_BINARY);
}
else
{
fp = fopen (filename, un_flag ? "r" : "rb");
if (!fp)
{
perror (filename);
status = EXIT_FAILURE;
continue;
}
}
if (un_flag)
{
for (int c; 0 <= (c = getc (fp)); )
{
/* Skip address at start of line. */
if (c != ' ')
continue;
for (int i = 0; i < 16; i++)
{
c = getc (fp);
if (c < 0 || c == ' ')
break;
int hc = hexchar (c);
c = getc (fp);
if (c < 0)
break;
putchar (hc * 0x10 + hexchar (c));
if ((i & group_by) == group_by)
{
c = getc (fp);
if (c < 0)
break;
}
}
while (0 <= c && c != '\n')
c = getc (fp);
if (c < 0)
break;
if (ferror (stdout))
output_error ();
}
}
else
{
int c = 0;
char string[18];
string[0] = ' ';
string[17] = '\0';
for (uintmax_t address = 0; 0 <= c; address += 0x10)
{
int i;
for (i = 0; i < 16; i++)
{
if (0 <= c)
c = getc (fp);
if (c < 0)
{
if (!i)
break;
fputs (" ", stdout);
string[i + 1] = '\0';
}
else
{
if (!i)
printf ("%08"PRIxMAX": ", address);
string[i + 1]
= (c < 0x20 || (0x7F <= c && (!iso_flag || c < 0xa0))
? '.' : c);
printf ("%02x", c + 0u);
}
if ((i & group_by) == group_by)
putchar (' ');
}
if (i)
puts (string);
if (ferror (stdout))
output_error ();
}
}
bool trouble = ferror (fp) != 0;
trouble |= fp != stdin && fclose (fp) != 0;
if (trouble)
{
fprintf (stderr, "%s: read error\n", progname);
status = EXIT_FAILURE;
}
filename = *argv++;
}
while (filename);
if (ferror (stdout) || fclose (stdout) != 0)
output_error ();
return status;
}