xemacs-beta: lib-src/hexl.c annotate

annotate lib-src/hexl.c @ 5488:1e544fd7be12

Import looking-back from GNU Emacs. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-04-30 Didier Verna <didier@xemacs.org> * subr.el (looking-back): New function.

author	Didier Verna <didier@lrde.epita.fr>
date	Sat, 30 Apr 2011 17:38:35 +0200
parents	061f4f90f874
children

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

Mercurial > hg > xemacs-beta

annotate lib-src/hexl.c @ 5488:1e544fd7be12